27 lines
1002 B
Plaintext
27 lines
1002 B
Plaintext
FUNCTION entregas_parciales(xorden,xnum_req ,
|
|
xcodn,xcodgrupo,xcodtipo,xcodsec)
|
|
DEFINE xorden,
|
|
xnum_req,idx INT,
|
|
xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT
|
|
DEFINE zbusca_parcial DYNAMIC ARRAY OF RECORD
|
|
secuencia INT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad DEC(12,5),
|
|
fech_emb DATE,
|
|
fech_ent DATE
|
|
END RECORD
|
|
|
|
DECLARE entregas CURSOR FOR
|
|
SELECT a.secuencia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.fech_emb,a.fech_ent
|
|
FROM cotb00025 a WHERE a.num_oc = xorden AND a.num_req = xnum_req AND
|
|
a.cod_n = xcodn AND a.cod_grupo = xcodgrupo
|
|
AND a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
|
|
LET idx =1
|
|
FOREACH entregas INTO zbusca_parcial[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
RETURN zbusca_parcial
|
|
END FUNCTION |