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,82 @@
+database rayovac    end 
+
+define variable negras_on char(2)
+       variable negras_of char(2)
+       variable doce      char(2)
+       variable numero_nom INTEGER
+       variable tipo CHAR(1)
+       variable nom_tipo char(15)
+       variable codigo SMALLINT
+       variable p_valor decimal(12,2)
+end 
+input   
+  prompt for tipo using "Entre Tipo Empleados: "
+  prompt for numero_nom using "Entre no. de la nomina: "
+  prompt for codigo using "Entre Codigo Movimiento: "
+end
+output report to pipe "lp -dlpt1" end
+select
+	a.tipo_emp,
+	a.num_emp,
+        c.nom1_emp,
+        c.apell1_emp,
+	a.cod_mov,
+        b.descrip_mov,
+        b.cantidad_cia,
+	a.cantidad,
+	a.valor
+from notb00007 a,notb00002 b, adtb00003 c
+where a.num_nomi = $numero_nom and
+      a.tipo_emp = $tipo and
+      a.cod_mov = b.cod_mov and
+      a.status_t is null and
+      a.num_emp = c.num_emp and
+      a.cod_mov = $codigo
+
+order by 5,2 end
+format 
+page header
+     let negras_on = ascii 27, ascii 69
+     let negras_on = ascii 27, ascii 70
+     let doce = ascii 27, ascii 77
+     print negras_on
+     print column 1, "noprrp017",
+           column 16, "R A Y .O. V A C   D O M I N I C A N A, S. A.",
+           column 69, today using "dd/mm/yy"
+     print column 32, "Sistema de nomina",
+           column 69, time
+  
+begin
+     IF tipo_emp = "Q" THEN
+        LET nom_tipo = "QUINCENAL"
+      ELSE
+        LET nom_tipo = "SEMANAL"
+end 
+     print column 32, nom_tipo
+     print negras_of,doce
+
+    print column 1,
+"============================================================================",
+"=============" 
+     print column 1, "Movimientos",
+           column 30, "Empleados",  
+           column 70,  "Cantidad",
+           column 84,  "Valor"
+    print column 1,
+"============================================================================",
+"=============" 
+
+before group of 5
+      skip 1 line  
+     print column 1, cod_mov using "&&"," ",descrip_mov
+on every row 
+     begin 
+     let p_valor = valor
+     if cantidad_cia > 0 then
+        let p_valor = cantidad_cia * cantidad
+     end 
+     print column 30, num_emp using "&&&"," ",nom1_emp clipped," ",
+                      apell1_emp,
+           column 70, cantidad using "###.##",
+           column 80, p_valor using "##,###.##"
+end