46 lines
1.8 KiB
Plaintext
46 lines
1.8 KiB
Plaintext
FUNCTION estado_requisicion(xnum_req)
|
|
DEFINE monto_cotizacion,xlimite,xmonto_req DEC(12,2),
|
|
xnum_req INT,xfecha date,
|
|
idx INT,
|
|
xvendedor,xcliente VARCHAR(100),
|
|
rdata DYNAMIC ARRAY OF RECORD
|
|
fecha DATETIME YEAR TO MINUTE,
|
|
descripcion_estado VARCHAR(250),
|
|
usuario VARCHAR(60),
|
|
num_oc INT,
|
|
cotizacion_no INT,
|
|
balance DEC(12,2),
|
|
limite_cr DEC(12,2)
|
|
END RECORD
|
|
OPEN WINDOW w1 WITH FORM "estado_requisicion"
|
|
SELECT UNIQUE a.fecha,CAST(a.sec AS CHAR(6))||''||RTRIM(b.nom1_emp)||' '||b.apell1_emp,
|
|
'('||CAST(c.tipo_cliente AS CHAR(3))||'-'||CAST(c.sec_cliente AS CHAR(10))||')'||
|
|
rtrim(c.nombre),a.monto_req
|
|
INTO xfecha,xvendedor,xcliente,xmonto_req
|
|
FROM cctb00025 a,adtb00003 b,vetb00004 c,cctb00026 d,vetb00050 e
|
|
WHERE a.num_req = xnum_req AND
|
|
a.num_req = d.num_req AND
|
|
d.cotizacion_no = e.cotizacion_no AND
|
|
e.tipo_cliente = c.tipo_cliente AND
|
|
e.sec_cliente = c.sec_cliente AND
|
|
a.status_t IS NULL
|
|
|
|
DISPLAY BY NAME xfecha,xvendedor,xcliente,xmonto_req
|
|
|
|
|
|
DECLARE busca_req CURSOR FOR
|
|
SELECT a.fecha,a.descrip_estado,a.usuario,a.documento_ref,a.cotizacion_no,a.balance,a.limite_cr
|
|
FROM cctb00031 a WHERE a.num_req = xnum_req
|
|
|
|
ORDER BY a.fecha
|
|
LET idx = 1
|
|
FOREACH busca_req INTO rdata[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
DISPLAY ARRAY rdata TO sdata.*
|
|
|
|
|
|
CLOSE WINDOW w1
|
|
END FUNCTION
|
|
|