30 lines
891 B
Plaintext
30 lines
891 B
Plaintext
FUNCTION ver_log(xnum_oc,xcodn,xcodgrupo,xcodtipo,xcodsec)
|
|
DEFINE xnum_oc INT,
|
|
idx,xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT,
|
|
arr_log DYNAMIC ARRAY OF RECORD
|
|
fecha CHAR(10),
|
|
num_oc INT,
|
|
estado STRING,
|
|
observaciones VARCHAR(100),
|
|
fecha_compromiso CHAR(10),
|
|
us_crea VARCHAR(50)
|
|
END RECORD
|
|
|
|
OPEN WINDOW w1 WITH FORM "prfmmt011b"
|
|
|
|
DECLARE busca_log CURSOR FOR
|
|
SELECT CONVERT(CHAR(10),a.fecha_trx,103),a.num_oc,
|
|
CASE
|
|
WHEN a.cerrada = 's' THEN 'CERRADA' ELSE 'ABIERTA' END,
|
|
a.observacion,CONVERT(CHAR(10),a.fecha_compromiso,103),a.usuario
|
|
FROM prordenstatus a
|
|
WHERE a.num_oc = xnum_oc
|
|
|
|
LET idx = 1
|
|
FOREACH busca_log INTO arr_log[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
DISPLAY ARRAY arr_log TO slog.*
|
|
CLOSE WINDOW w1
|
|
|
|
END FUNCTION |