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,41 @@
+{
+------------------------------------------------------------------
+ PROGRAMA          : INPRFU019
+ OBJETIVO          : Capturar Los Gastos de La Orden de Compras   
+ PROGRAMADOR       : Ing. Juan Fco. Soto.       
+ FECHA REALIZACION : Octubre 8, 1992. 
+------------------------------------------------------------------
+}
+GLOBALS "coprgb000.4gl"
+
+FUNCTION coprfu019() 
+   WHENEVER ERROR CONTINUE
+   LET formulario = formulario CLIPPED,"cofmfu019"
+OPEN WINDOW flete1 AT 10,5 WITH FORM formulario ATTRIBUTE
+ (BORDER,FORM LINE FIRST + 1,COMMENT LINE LAST)
+
+## Captura los datos que va a contener el registro
+
+  IF modifica = "S" THEN
+    SELECT c_flete,otros_g,detalle INTO flete.* 
+    FROM cotb00014
+     WHERE num_oc = ordenes.num_oc and
+           tipo = ordenes.tipo and
+           status_t is null
+ ELSE
+    INITIALIZE flete.* TO NULL
+ END IF
+
+   INPUT BY NAME flete.*   WITHOUT DEFAULTS ATTRIBUTE (YELLOW)
+
+      AFTER INPUT
+         IF int_flag THEN
+           IF modifica is null THEN
+            DELETE FROM cotb00015 WHERE num_oc = ordenes.num_oc and
+                                        tipo   = ordenes.tipo
+          END IF
+            EXIT INPUT
+         END IF
+   END INPUT
+CLOSE WINDOW flete1
+END FUNCTION