Objetos - Imprimir un objeto o colección

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:28 PM 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();