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,35 @@
+{
+PROGRAMA             : IPPRRP020
+PROGRAMADOR          : ING. JUAN SOTO
+OBJETIVO             : IMPRIMIR LAS REQUISICIONES APROBADAS PARA LA ORGANIZACION DE LOS CAMIONES
+FECHA                : 4/12/2010
+}
+
+GLOBALS
+  "ipprgb000.4gl"
+ MAIN
+  DEFER INTERRUPT
+  CALL ARG_VAL(1) RETURNING usuarios
+  CALL ARG_VAL(2) RETURNING clave
+  CALL ARG_VAL(4) RETURNING impresor
+  CONNECT TO "smarmotech" USER usuarios USING clave
+  SELECT a.* INTO p_companias.* FROM companias
+  CALL ipprrp020() 
+ END MAIN
+ FUNCTION ipprrp020()
+   DEFINE requisicion RECORD
+       num_req        INT,
+       fecha          CHAR(10),
+       vendedor       CHAR(60),
+       num_oc         INT,
+       cotizacion_no  INT,
+       cliente        CHAR(80),
+       producto       CHAR(50),
+       cantidad       DEC(12,4),
+       mensaje        TEXT       
+   END RECORD
+   
+   OPEN WINDOW w1 AT 5,7 WITH FORM "ipfmwd012"
+   INPUT BY NAME 
+ END FUNCTION
+