Objetos - Imprimir un objeto o colección

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:28 P. M. por David Miralpeix

Imprime el objeto previamente obtenido o creado mediante código.
Definición:

Item.Objeto.Imprimir [listado] as string, [ver] as Byte


Colección

Item.Imprimir [listado] as string, [ver] as Byte


* Listado: Referencia al campo "Listado" de la tabla ceesi_listados del objeto/colección
* Ver: 0-selector de listados; 1-Presentación en pantalla; 2-Envío a impresora

 


Código VB6:

'Ejemplo 1. Abre el formulario de selección de listados para un pedido
set lObjeto = gcn.obj.dameObjeto ("Pedidos", "Where idpedido=12345")
if not lObjeto is nothing then
lObjeto.Imprimir
end if

'Ejemplo 2. Abre un listado de los disponibles en el objeto. Debemos hacer referencia a la propiedad "Listado" (en tabla ceesi_listados)
gcn.obj.dameObjeto ("Pedidos", "Where idpedido=12345").Objeto.imprimir "Pedido de cliente"

'Ejemplo 3. Abre la presentación directamente sin pasar por el selector
gcn.obj.dameObjeto ("Albaranes", "Where IdAlbaran=1").Objeto.imprimir "Albaran1",1

'Ejemplo 4. Envía el listado directamente a la impresora desde la impresión de la colección. Esta colección sí que está preparada:


gcn.obj.dameColeccion ("Albaranes", "Where IdAlbaran<>0").imprimir "albaranes1",2


Código en C#:


IItem lObjeto = (IItem)gCn.Obj.DameObjeto("Pedidos", "Where idpedido=12345");
if (lObjeto != null)
{
	lObjeto.Imprimir();
}

gCn.Obj.DameColeccion("Albaranes", "Where IdAlbaran<>0").Imprimir();

Otros ejemplos para lanzar listados específicos de objeto desde programación. 

También podemos realizar lo mismo desde los objetos 

  • Ofertas, Ofertas de Contratos, Ofertas de Proveedor, Partes y Albaranes de envío.
  • Así como desde los objetos Factura, Factura deudor, Factura Proveedor, Factura Acreedor, Contrato y Contrato de Cuotas

A continuación algunos ejemplos ilustrativos: 


Código en VB6:


  gcn.obj.dameObjeto("Ofertas", "Where IdOferta = 22 AND Revision = 1").Objeto.imprimir "Oferta1",1 
  gcn.obj.dameObjeto("Albaranes_envio", "Where IdEnvio = 1").Objeto.imprimir "Albaran_Envio1",1
  gcn.obj.dameObjeto("Contratos", "Where IdContrato = 1").Objeto.imprimir "Contrato1",1
  gcn.obj.dameObjeto("Partes", "Where IdParte = 1").Objeto.imprimir "Parte1",1
  gcn.obj.dameObjeto("Facturas", "Where IdFactura = 1").Objeto.imprimir "Factura1",1

 

Código en C#:


gCn.Obj.DameObjeto("Ofertas", "Where IdOferta = 22 AND Revision = 1").Imprimir();
gCn.Obj.DameObjeto("Albaranes_envio", "Where IdEnvio = 1").Imprimir();
gCn.Obj.DameObjeto("Contratos", "Where IdContrato = 1").Imprimir();
gCn.Obj.DameObjeto("Partes", "Where IdParte = 1").Imprimir();
gCn.Obj.DameObjeto("Facturas", "Where IdFactura = 1").Imprimir();


¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo