Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,84 @@
+{
+-----------------------------------------------------------------------
+ PROGRAMA          : CCPRMT012
+ OBJETIVO          : AUTORIZACION ORDENES
+ PROGRAMADOR       : JUAN SOTO                   
+ FECHA REALIZACION : SEPTIEMBRE 25, 2008
+-----------------------------------------------------------------------
+}
+GLOBALS "ccprgb000.4gl"
+
+MAIN                
+#  WHENEVER ERROR CONTINUE
+   DEFER INTERRUPT
+   SELECT * INTO p_companias.* FROM companias
+   CALL pantalla()
+   CALL ccprmt012()
+END MAIN    
+
+FUNCTION ccprmt012()
+
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+   DEFINE arrautoriza [500] OF RECORD
+         num_oc1    INTEGER,
+         cliente    CHAR(60),
+         fecha_oc   DATE,
+         valor      DEC(12,2)
+         us_autoriza  CHAR(40),
+         estado     CHAR(2),
+         fecha_autorizacion DATE
+   END RECORD
+
+   OPTIONS
+        FORM LINE 10,
+         ERROR LINE 24
+
+    OPEN FORM ccfmmt012 FROM "ccfmmt012"
+    DISPLAY FORM ccfmmt012
+
+    CONSTRUCT BY NAME criterio ON a.num_oc
+
+     IF int_flat THEN
+        LET numero_msg = 2
+        CALL msg(numero_msg)
+        RETURN
+     END IF
+
+     LET selec = "SELECT a.num_oc,a.tipo_cliente||'-'||a.sec_cliente||' '||b.nombre,a.fecha_oc,a.valor,a.us_autoriza,",
+                 "a.estado,a.fecha_autorizacion ",
+                 " FROM prtb00025 a,vetb00004 b ",
+                 "WHERE ",criterio clipped,
+                 " AND a.tipo_cliente = b.tipo_cliente and a.sec_cliente = b.sec_cliente ",
+                 " ORDER BY a.fecha_oc DESC"
+             
+     PREPARE comando FROM selec
+     DECLARE busca_orden CURSOR FOR comando
+     LET idx = 1
+     FOREACH busca_orden INTO arrautoriza[idx].*
+       LET idx = idx +1
+     END FOREACH
+
+     CALL set_count(idx-1)
+     INPUT ARRAY arrautoriza WITHOUT DEFAULTS FROM sorden.*
+      LET pdescripcion = "LA ",arrautoriza[idx].num_oc," SE AUTORIZO EL DESPACHO EN FECHA ",arrautoriza[idx].
+     INSERT INTO prtb00026 (num_oc,fecha,dscripcion)
+END FUNCTION
+
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+
+    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema de Cuentas por Cobrar" AT 5,25
+    DISPLAY hora AT 6,73 ATTRIBUTE(blue)
+
+    CALL fgl_drawbox(5,79,3,1)
+    #CALL fgl_drawbox(1,79,22,1)
+END FUNCTION  
+