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,93 @@
+{
+---------------------------------------------------------------------------
+PROGRAMA   : COPRRP101.ACE
+OBJETIVO   : BUSCAR LAS ENTREGAS PARCIALES
+PROGRAMADOR: JUAN F. SOTO
+FECHA      : MARZO 19, 1993
+---------------------------------------------------------------------------
+}
+database rayovac end
+define
+   variable fech_in date
+   variable fech_fi date
+   variable hora char(5)
+   variable remanente decimal(10,2)
+   variable cierre1 char(2)
+   variable tipo1 char(2)
+   variable num_oc1 integer
+end
+input
+   prompt for fech_in using "Entre Fecha Inicial: "
+   prompt for fech_fi using "Entre Fecha Final:   "
+end 
+
+output
+   left margin 2
+   report to PRINTER
+end 
+
+select
+        a.tipo,
+	a.num_oc,
+	a.cod_n,
+	a.cod_grupo,
+	a.cod_tipo,
+	a.cod_sec,
+	a.fech_ent,
+	a.cantidad,
+	a.cantidad_r,
+        b.descrip_esp,
+        b.unidad_med,
+        c.cierre
+from cotb00025 a,intb00001 b,cotb00014 c where 
+   a.fech_ent between $fech_in and $fech_fi and
+   a.cod_n = b.cod_n and a.cod_grupo = b.cod_grupo and 
+   a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_Sec and
+   (a.tipo  = c.tipo  and a.num_oc = c.num_oc) and
+    c.cierre = "N" and
+    c.status_t is null
+ order by 2,3,4,5,6,7 end
+
+format 
+  page header 
+     let hora = time
+     print column 1, "coprrp101",
+           column 17, "R A Y .O. V A C  D O M I N I C A N A, S. A.",
+           column 73, "Pag. ", pageno using "###"
+     print column 29, "Sistema de Compras",
+           column 73, today using "dd/mm/yy" 
+     print column 25,"Reporte Entregas Parciales",
+           column 76, hora 
+    skip 1 line
+    print column 1, "De: ",fech_in using "dd/mm/yy",
+          2 spaces, "A: ",fech_fi using "dd/mm/yy"
+    print 
+"============================================================================" ,
+"===="
+    print column 1, "Orden",
+          7 spaces, "Fecha",
+          4 spaces, "M a t e r i a l ",
+          36 spaces, "Balance"
+    print 
+"============================================================================" ,
+"===="
+    skip 1 line
+
+on every row
+    let remanente = cantidad - cantidad_r
+    LET tipo1 = tipo
+    let num_oc1 = num_oc
+
+     if remanente > 0 then
+        
+    print column 1,tipo," ", num_oc using "######","-",cierre,
+        1 spaces, fech_ent using "dd/mm/yy",
+        1 spaces, cod_n using "&","-",cod_grupo using "&","-",
+                  cod_tipo using "&&","-",cod_sec using "&&&",
+        1 spaces, descrip_esp," ",unidad_med,
+        1 spaces, remanente using "##,###,###.##"
+after group of 2
+ skip 1 line
+ on last row 
+   skip to top of page
+end