38 lines
1.2 KiB
Plaintext
38 lines
1.2 KiB
Plaintext
FUNCTION productos(paplica)
|
|
DEFINE paplica INT,
|
|
arr_productos DYNAMIC ARRAY OF RECORD
|
|
cod_n SMALLINT,
|
|
cod_Grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion VARCHAR(100),
|
|
precio DEC(12,2),
|
|
porc_Desc DEC(12,2),
|
|
valor DEC(12,2)
|
|
END RECORD,
|
|
idx SMALLINT
|
|
OPEN WINDOW w1 WITH FORM "ccfmwd006"
|
|
DECLARE busca_productos CURSOR FOR
|
|
SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,a.precio,a.cantidad_2,a.precio*a.cantidad
|
|
FROM vetb00003 a,iptb00002 b,iptb00006 c
|
|
WHERE a.factura = paplica AND
|
|
a.cod_n = b.cod_n AND
|
|
a.cod_grupo = b.cod_grupo AND
|
|
a.cod_tipo = b.cod_tipo AND
|
|
a.cod_sec = b.cod_sec AND
|
|
a.cod_n = c.cod_n AND
|
|
a.cod_grupo = c.cod_grupo AND
|
|
a.cod_tipo = c.cod_tipo AND
|
|
a.cod_sec = c.cod_sec AND
|
|
a.factura = c.fact_no AND
|
|
c.cod_mov IN (12,13,43)
|
|
|
|
|
|
LET idx = 1
|
|
FOREACH busca_productos INTO arr_productos[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
DISPLAY ARRAY arr_productos TO sproductos.*
|
|
CLOSE WINDOW w1
|
|
END FUNCTION |