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,461 @@
+{
+  Esta funcion se utiliza para desplegar mensajes de los reportes de 
+  los sistemas de Ray-O-Vac Dominicana. 
+
+  Realizada por JUAN SOTO
+  FECHA     : 13/7/2009
+}
+
+SCHEMA smarmotech
+
+FUNCTION msgrp000(tipo_papel)
+         DEFINE tipo_papel SMALLINT,
+                longitud   CHAR(11),
+                linea_papel CHAR(50) 
+
+         CASE 
+            WHEN tipo_papel = 1
+                 LET longitud = " 9 1/2 x 11"
+            WHEN tipo_papel = 2
+                 LET longitud = "14 7/8 x 11"
+         END CASE
+
+         LET linea_papel = "Coloque papel ",longitud," en la impresora." 
+         DISPLAY linea_papel 
+                 AT 15,14 
+         DISPLAY "Asegurese de que la impresora este encendida."
+                 AT 16,14 
+         DISPLAY "<Esc> Ejecuta impresion   <Delete> Cancela impresion" 
+                 AT 18,14 
+
+END FUNCTION
+
+
+FUNCTION busca_printer(usuarios,clave)
+
+
+
+         DEFINE pcurr,impresor,idx  SMALLINT,
+
+                negrillas_on,
+
+                negrillas_off,
+
+                doble_on,
+
+                doble_off,
+
+                doce,
+
+                comp_on,
+
+                comp_off,
+
+                normal CHAR(6),
+
+                archivo CHAR(80),
+
+                lpprog  CHAR(30),
+
+                lpnum   INTEGER,
+
+                lppipe  CHAR(1),
+
+                imprime CHAR(80)
+
+
+
+         DEFINE dspprt ARRAY[40] OF RECORD
+
+                nombre        CHAR(30),
+
+                codigo        SMALLINT,
+
+                puerto        LIKE prttb00001.puerto,
+
+
+                lpprog        LIKE prttb00001.lpprog,
+
+                lppipe        LIKE prttb00001.lppipe,
+
+                prtcodigo     LIKE prttb00001.prtcodigo
+
+         END RECORD,
+
+             prt RECORD LIKE prttb00001.*,
+
+             prtcodigo LIKE prttb00001.prtcodigo,
+             usuarios,clave CHAR(8)
+
+
+
+    OPEN WINDOW impresoras AT 10,5 WITH FORM "msgfmrp" ATTRIBUTE
+
+                (BORDER,FORM LINE FIRST + 1)
+
+        CONNECT TO "smarmotech" USER usuarios USING clave
+        
+# BUSCA EL NUMERO DE IMPRESION A SEGUIR
+
+         SELECT MAX(ult_imp) INTO lpnum
+         FROM prttb00002
+
+         IF lpnum IS NULL THEN
+             LET lpnum = 1
+         END IF 
+
+         DECLARE busca CURSOR FOR
+
+           SELECT * FROM prttb00001
+
+           ORDER BY 1
+
+
+
+         LET idx = 1
+
+         FOREACH busca INTO prt.*
+
+          LET dspprt[idx].nombre = prt.nombre
+
+          LET dspprt[idx].codigo = prt.codigo
+
+          LET dspprt[idx].puerto = prt.puerto
+
+          LET dspprt[idx].prtcodigo = prt.prtcodigo
+
+          LET dspprt[idx].lpprog    = prt.lpprog
+
+          LET dspprt[idx].lppipe    = prt.lppipe
+
+          LET idx = idx + 1
+
+         END FOREACH
+
+
+
+         CALL set_count(idx-1)
+
+         DISPLAY ARRAY dspprt TO s_prt.*
+
+
+
+         LET pcurr = arr_curr()
+
+         LET impresor          = dspprt[pcurr].codigo
+
+         LET prtcodigo         = dspprt[pcurr].prtcodigo
+
+         LET prt.puerto        = dspprt[pcurr].puerto
+
+         LET lpprog            = dspprt[pcurr].lpprog
+
+         LET lppipe            = dspprt[pcurr].lppipe
+
+
+
+         CASE
+
+           WHEN prtcodigo = 1
+
+                LET doble_on      = ASCII 14
+
+                LET doble_off     = ASCII 18
+
+                LET negrillas_on  = ASCII 27, ASCII 69
+
+                LET negrillas_off = ASCII 27, ASCII 70
+
+                LET comp_on       = ASCII 15
+
+                LET comp_off      = ASCII 18
+
+                LET doce          = ASCII 27,ASCII 77
+
+                LET normal        = ASCII 27,ASCII 80
+
+                EXIT CASE
+
+           WHEN prtcodigo = 2
+
+                LET doble_on      = ASCII 001
+
+                LET doble_off     = ASCII 002
+
+                LET negrillas_on  = ASCII 027, ASCII 098
+
+                LET negrillas_off = ASCII 027, ASCII 099
+
+                LET comp_on       = ASCII 031
+
+                LET comp_off      = ASCII 029
+
+                LET doce          = ASCII 030
+
+                LET normal        = ASCII 029
+
+                EXIT CASE
+
+            END CASE
+
+            LET archivo = FGL_GETENV("FGLSPOOL"),"\\",lpnum USING "<<<<<<<<<<"
+
+            LET imprime = lpprog CLIPPED," ",archivo CLIPPED," ",
+
+                          lppipe," ",prt.puerto
+
+            {UPDATE prttb00002 set ult_imp = lpnum +1,
+
+                                  usuario = suser_sname()}
+
+              LET lpnum = lpnum + 1
+
+             INSERT INTO prttb00002 VALUES (lpnum,SUSER_SNAME(),GETDATE())
+
+               
+
+CLOSE WINDOW impresoras
+
+RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,comp_on,comp_off,doce,normal,archivo
+
+END FUNCTION
+
+
+
+FUNCTION defecto(usuarios,clave,impresor)
+
+         DEFINE impresor,idx  SMALLINT,
+
+                negrillas_on,
+
+                negrillas_off,
+
+                doble_on,
+
+                doble_off,
+
+                doce,
+
+                comp_on,
+
+                comp_off,
+
+                normal CHAR(6),
+
+                archivo CHAR(80),
+
+                lpnum   INTEGER,
+
+                imprime CHAR(150),
+
+                prt RECORD LIKE prttb00001.*,
+                usuarios,clave CHAR(80),copia CHAR(100)
+                
+         CONNECT TO "smarmotech" USER usuarios USING clave
+         
+         SELECT * INTO prt.* FROM prttb00001 a
+
+         WHERE codigo = impresor
+
+
+
+         CASE
+
+           WHEN prt.prtcodigo = 1
+
+                LET doble_on =  ASCII 14
+
+                LET doble_off = ASCII 18
+
+                LET negrillas_on = ASCII 27, ASCII 69
+
+                LET negrillas_off = ASCII 27, ASCII 70
+
+                LET comp_on = ASCII 15
+
+                LET comp_off = ASCII 18
+
+                LET doce = ASCII 27,ASCII 77
+
+                LET normal = ASCII 27,ASCII 80
+
+                EXIT CASE
+
+           WHEN prt.prtcodigo = 2            {Printer Central. Contabilidad} 
+
+                LET doble_on      = ASCII 001
+
+                LET doble_off     = ASCII 002
+
+                LET negrillas_on  = ASCII 027, ASCII 098
+
+                LET negrillas_off = ASCII 027, ASCII 099
+
+                LET comp_on       = ASCII 031
+
+                LET comp_off      = ASCII 029
+
+                LET doce          = ASCII 030
+
+                LET normal        = ASCII 029
+
+                EXIT CASE
+
+           WHEN impresor = 3
+
+                LET doble_on      = ASCII 14
+
+                LET doble_off     = ASCII 18
+
+                LET negrillas_on  = ASCII 27, ASCII 69
+
+                LET negrillas_off = ASCII 27, ASCII 70
+
+                LET comp_on       = ASCII 15
+
+                LET comp_off      = ASCII 18
+
+                LET doce          = ASCII 27,ASCII 77
+
+                LET normal        = ASCII 27,ASCII 80
+
+                EXIT CASE
+
+            END CASE
+
+
+
+# BUSCA EL NUMERO DE IMPRESION A SEGUIR
+
+         SELECT MAX(ult_imp) INTO lpnum
+
+         FROM prttb00002
+
+         
+
+         IF lpnum IS NULL THEN
+
+            LET lpnum = 1
+
+         END IF 
+
+            LET lpnum = lpnum + 1
+
+            LET archivo = FGL_GETENV("FGLSPOOL"),"\\",lpnum USING "<<<<<<<<<<"
+
+            LET imprime = prt.lpprog CLIPPED," ",archivo CLIPPED," ",
+                          prt.lppipe," ",prt.puerto
+                          
+            LET copia = prt.lppipe," ",prt.puerto 
+
+
+{            UPDATE prttb00002 set ult_imp = lpnum + 1,
+
+                                  usuario = suser_sname()}               
+
+             INSERT INTO prttb00002 VALUES (lpnum,suser_sname(),getdate())
+
+
+
+RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,
+       comp_on,comp_off,doce,normal,archivo,copia
+
+END FUNCTION
+
+
+
+FUNCTION ElijeImpresion(parametro)
+
+
+
+  DEFINE parametro CHAR(2), 
+
+         orden,destino CHAR(1) 
+         
+   DEFINE letras RECORD  
+
+          negrillas_on  CHAR(6),
+
+          negrillas_off CHAR(6),
+
+          doble_on      CHAR(6),
+
+          doble_off     CHAR(6),
+
+          comp_on       CHAR(6),
+
+          comp_off      CHAR(6),
+
+          doce          CHAR(6),
+
+          normal        CHAR(6)
+
+   END RECORD
+
+
+    OPEN WINDOW wopcion AT 10,5 WITH FORM "msgfmwd001" ATTRIBUTE
+
+                (BORDER,FORM LINE FIRST + 1)
+
+       CASE 
+
+          WHEN parametro = "OD"  
+
+            INPUT BY NAME orden,destino
+
+            EXIT CASE
+
+          WHEN parametro = "D"
+
+             INPUT BY NAME destino
+
+             EXIT CASE
+
+        END CASE
+
+        IF destino = "P" THEN
+
+           INITIALIZE letras.* TO NULL
+
+        END IF 
+
+      
+
+  CLOSE WINDOW wopcion
+
+  RETURN orden,destino,letras.*
+
+END FUNCTION
+
+FUNCTION fdestino(p_destino,p_archivo,p_imprime)
+
+  DEFINE p_destino CHAR(1),
+
+         p_imprime,ejecuta CHAR(80),
+
+         p_archivo CHAR(80)
+
+
+       CASE
+
+        WHEN p_destino = "I"
+
+             DISPLAY P_IMPRIME AT 18,2
+
+             RUN p_imprime
+
+             EXIT CASE
+
+        WHEN p_destino = "P"
+
+             LET ejecuta = FGL_GETENV("EDITOR")," ",p_archivo CLIPPED
+
+             RUN ejecuta
+
+             EXIT CASE
+
+       END CASE
+
+END FUNCTION
+
+