primer commit subida

PROYECTO/PRDIR/ver_log.4gl

@@ -0,0 +1,30 @@
+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