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,56 @@
+{
+------------------------------------------------------------------
+ PROGRAMA          : VEPRMT104
+ OBJETIVO          : Capturar, Modificar, Eliminar registros de la
+                     Proyectos de Clientes 
+ PROGRAMADOR       : Victor Gomez C. 
+ FECHA REALIZACION : Wednesday, October 03, 2001 
+------------------------------------------------------------------
+}
+GLOBALS "veprgb000.4gl"   
+
+FUNCTION veprmt106(xtipo_cliente,xsec_cliente) 
+ DEFINE xtipo_cliente,xsec_cliente SMALLINT,
+        xnombre CHAR(30)
+ SET CONNECTION "MSSQL"
+ OPEN WINDOW proyecto AT 2,2  WITH FORM "vefmmt106" ATTRIBUTE (BORDER,
+  FORM LINE FIRST +1,COMMENT LINE LAST)
+
+     INITIALIZE proyecto.* TO NULL
+     
+     SELECT * INTO proyecto.* FROM vetb00049
+       WHERE @tipo_cliente = xtipo_cliente AND
+             @sec_cliente  = xsec_cliente
+     
+     IF STATUS = NOTFOUND THEN
+        LET proyecto.tipo_cliente = xtipo_cliente
+        LET proyecto.sec_cliente  = xsec_cliente
+     END IF
+ 
+     DISPLAY BY NAME proyecto.*
+
+     LET int_flag = false
+     INPUT BY NAME proyecto.nombre_proyecto THRU proyecto.direccion_proyecto WITHOUT DEFAULTS
+
+## Verifica que el codigo no exista en la tabla de datos basicos de clientes.
+## Si existe, entonces despliega los datos del registro existente.
+     AFTER INPUT 
+       IF int_flag THEN
+          LET numero_msg = 2 
+          CALL msg(numero_msg) 
+          LET int_flag = FALSE
+          EXIT INPUT
+       END IF 
+
+       DELETE FROM vetb00049 WHERE tipo_cliente = xtipo_cliente AND
+                                   sec_cliente = xsec_cliente
+
+       INSERT INTO vetb00049 VALUES (proyecto.tipo_cliente,proyecto.sec_cliente,
+                                   proyecto.nombre_proyecto,proyecto.direccion_proyecto, 
+                                   null,suser_sname(),getdate(), null, null) 
+
+     EXIT INPUT
+   END INPUT
+   CLOSE WINDOW proyecto
+END FUNCTION 
+