96 lines
2.8 KiB
Plaintext
96 lines
2.8 KiB
Plaintext
MAIN
|
|
DEFER INTERRUPT
|
|
|
|
CONNECT to "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
|
|
|
|
CALL cdatos()
|
|
END MAIN
|
|
|
|
FUNCTION cdatos()
|
|
|
|
DEFINE y RECORD
|
|
|
|
cotizacion_no INT,
|
|
fecha DATE,
|
|
ventas VARCHAR(1),
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente INT,
|
|
nombre VARCHAR(80),
|
|
rnc VARCHAR(11),
|
|
nombre_proyecto VARCHAR(50),
|
|
direccion_proyecto VARCHAR(50),
|
|
direccion_cliente VARCHAR(50),
|
|
cond_pago SMALLINT,
|
|
descripcion VARCHAR(50),
|
|
celular VARCHAR(15),
|
|
email VARCHAR(60),
|
|
sec_vend INT,
|
|
sub_total DEC(12,2),
|
|
monto_desc DEC(12,2),
|
|
monto_itbis DEC(12,2),
|
|
total_cotizacion DEC(12,2)
|
|
|
|
END RECORD,
|
|
z DYNAMIC ARRAY OF RECORD
|
|
|
|
area SMALLINT,
|
|
descripcion_area CHAR(50),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion VARCHAR(80),
|
|
cantidad DEC(12,5),
|
|
cantidad1 DEC(12,5),
|
|
precio DEC(12,2),
|
|
porc_desc DEC(12,2),
|
|
itbis DEC(12,2),
|
|
valor DEC(12,2) ,
|
|
codid INT
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
DEFINE tip_sal,arc_sal STRING
|
|
DEFINE p_hand om.SaxDocumentHandler
|
|
|
|
|
|
|
|
LET tip_sal = "PDF"
|
|
IF NOT fgl_report_loadCurrentSettings("veprmt049_mob.4rp") THEN
|
|
EXIT PROGRAM
|
|
END IF
|
|
|
|
|
|
LET arc_sal=gen_nombre_archivo(tip_sal)
|
|
|
|
CALL fgl_report_selectDevice(UPSHIFT(tip_sal))
|
|
CALL fgl_report_selectPreview(false)
|
|
CALL fgl_report_setOutputFileName(arc_sal)
|
|
|
|
LET p_hand=fgl_report_commitCurrentSettings()
|
|
|
|
IF p_hand IS NOT NULL THEN
|
|
START REPORT imprimeO TO XML HANDLER p_hand
|
|
|
|
SELECT a.cotizacion_no,CONVERT(CHAR(10),a.fecha,103),a.ventas,a.tipo_cliente,a.sec_cliente,
|
|
a.nombre_cliente,a.rnc,a.nombre_proyecto,a.direccion_proyecto,a.direccion_cliente,
|
|
a.cond_pago,'CREDITO',a.celular,a.email,a.sec_vend,a.sub_total,
|
|
a.monto_desc,a.monto_itbi,a.total_neto
|
|
INTO y.*
|
|
FROM vetb00050 a
|
|
WHERE a.cotizacion_no = 144864
|
|
|
|
DECLARE items CURSOR FOR
|
|
SELECT a.area,a.descripcion_area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,
|
|
a.cantidad,a.cantidad_1,a.precio,a.porc_desc,'0','0','0'
|
|
FROM vetb00051 a WHERE a.cotizacion_no =144864
|
|
LET i = 1
|
|
FOREACH items INTO z[i].*
|
|
|
|
OUTPUT TO REPORT imprimeO(Y.*,z[i].*)
|
|
|
|
LET i = i + 1
|
|
END FOREACH
|
|
FINISH REPORT imprimeO
|
|
END IF
|
|
END FUNCTION |