diff --git a/PROYECTO/bin/ipprrp005.4rp b/PROYECTO/bin/ipprrp005.4rp
new file mode 100644
index 0000000..e0fb79f
--- /dev/null
+++ b/PROYECTO/bin/ipprrp005.4rp
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp009.4rp b/PROYECTO/bin/ipprrp009.4rp
new file mode 100644
index 0000000..7afa7af
--- /dev/null
+++ b/PROYECTO/bin/ipprrp009.4rp
@@ -0,0 +1,107 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp010.4rp b/PROYECTO/bin/ipprrp010.4rp
index 56e557d..039f24e 100644
--- a/PROYECTO/bin/ipprrp010.4rp
+++ b/PROYECTO/bin/ipprrp010.4rp
@@ -1,29 +1,71 @@
-
-
+
+
-
-
-
+
+
+
-
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp035.4rp b/PROYECTO/bin/ipprrp035.4rp
new file mode 100644
index 0000000..e94db40
--- /dev/null
+++ b/PROYECTO/bin/ipprrp035.4rp
@@ -0,0 +1,140 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp036.4rp b/PROYECTO/bin/ipprrp036.4rp
new file mode 100644
index 0000000..1eae11c
--- /dev/null
+++ b/PROYECTO/bin/ipprrp036.4rp
@@ -0,0 +1,145 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp005.4gl b/PROYECTO/ipdir/ipprrp005.4gl
index a143334..a7643d2 100644
--- a/PROYECTO/ipdir/ipprrp005.4gl
+++ b/PROYECTO/ipdir/ipprrp005.4gl
@@ -53,6 +53,7 @@ FUNCTION ipprrp005()
OPEN FORM ipfmrp005 FROM "ipfmrp005"
DISPLAY FORM ipfmrp005
+ CALL ui.Window.getCurrent().setText("MAESTRA COSTO STANDARD")
#CALL pantalla()
DISPLAY "ipprrp005" AT 4,3
DISPLAY "Maestra Costos Std." AT 6,31
diff --git a/PROYECTO/ipdir/ipprrp005.4rp b/PROYECTO/ipdir/ipprrp005.4rp
index 8c5b408..e0fb79f 100644
--- a/PROYECTO/ipdir/ipprrp005.4rp
+++ b/PROYECTO/ipdir/ipprrp005.4rp
@@ -18,7 +18,7 @@
-
+
diff --git a/PROYECTO/ipdir/ipprrp009.4gl b/PROYECTO/ipdir/ipprrp009.4gl
index ae80cb3..81048c6 100644
--- a/PROYECTO/ipdir/ipprrp009.4gl
+++ b/PROYECTO/ipdir/ipprrp009.4gl
@@ -414,9 +414,8 @@ END IF
START REPORT existencia TO archivo
- END IF
+ END IF
- DISPLAY select_act
PREPARE busca_act FROM select_act
DECLARE busca_balan_act CURSOR FOR busca_act
OPEN busca_balan_act #USING datos_cons.fech_in,datos_cons.fech_fi,datos_cons.fech_fi,ano_ant,
@@ -769,7 +768,6 @@ REPORT existencia_grafica(x)
LET descripcion = x.descrip_esp CLIPPED
# IF x.total_c <> 0 THEN
- DISPLAY "imprime"
LET tt = tt + 1
LET producto = x.cod_n USING "&&&&","-",x.cod_grupo USING "&&&&","-",
x.cod_tipo USING "&&&&","-",x.cod_sec USING "&&&&&&"
diff --git a/PROYECTO/ipdir/ipprrp009.4rp b/PROYECTO/ipdir/ipprrp009.4rp
new file mode 100644
index 0000000..7afa7af
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp009.4rp
@@ -0,0 +1,107 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp010.4gl b/PROYECTO/ipdir/ipprrp010.4gl
index 65d9371..4260219 100644
--- a/PROYECTO/ipdir/ipprrp010.4gl
+++ b/PROYECTO/ipdir/ipprrp010.4gl
@@ -78,6 +78,7 @@ FUNCTION ipprrp010()
OPEN FORM ipfmrp010 FROM "ipfmrp010"
DISPLAY FORM ipfmrp010
+ CALL ui.Window.getCurrent().setText("Operaciones Por Movimientos Al Standard")
DISPLAY "ipprrp010" AT 4,3
DISPLAY "Operaciones Por Movimientos Al Standard" AT 6,22
@@ -163,7 +164,16 @@ END INPUT
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
- CALL configureOutput("SVG") RETURNING handler
+ LET r_filename = "ipprrp010.4rp"
+ IF fgl_report_loadCurrentSettings(r_filename) THEN
+ LET r_output = "SVG"
+ LET preview = 1
+ CALL fgl_report_selectDevice(r_output)
+ CALL fgl_report_selectPreview(preview)
+ LET handler = fgl_report_commitCurrentSettings()
+ ELSE
+ EXIT PROGRAM
+ END IF
START REPORT detalle TO XML HANDLER handler
PREPARE busca_ant FROM select_ac
@@ -246,110 +256,37 @@ END FUNCTION
proveedor VARCHAR(100)
END RECORD
- DEFINE primera CHAR(1)
- DEFINE c_ano1 char(4)
- DEFINE negrillas_on CHAR(3)
- DEFINE negrillas_off CHAR(3)
- DEFINE doce,comp_on,comp_off CHAR(3)
- DEFINE hora CHAR(5)
- DEFINE total_p,total_m DECIMAL(12,2)
- OUTPUT
- TOP MARGIN 0
- LEFT MARGIN 0
- BOTTOM MARGIN 2
- PAGE LENGTH 150
+ DEFINE total_p,total_m,total_consumo_m DECIMAL(12,2)
+ DEFINE pcodigo CHAR(30)
+ DEFINE fecha_fmt CHAR(10)
ORDER BY x.cod_mov,x.num_doc
FORMAT
- PAGE HEADER
- { 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 hora = time
-
- PRINT comp_on
- LET lj = (100 - LENGTH(p_companias.nombre CLIPPED))/2
- PRINT COLUMN 1, "ipprrp010",
- COLUMN lj, p_companias.nombre CLIPPED,
- COLUMN 93, "Pag. ",pageno using "###"
- PRINT COLUMN 28, " Sistema de Inventario de Productos Terminados",
- COLUMN 93, today using "dd/mm/yyyy"
- PRINT COLUMN 28, " Operacion por Tipo de Movimiento Al Standard",
- COLUMN 96, hora
-
- SKIP 1 LINES
-
- PRINT COLUMN 2, "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
- COLUMN 21, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
- PRINT COLUMN 1, "--------------------------------------------------",
- "--------------------------------------------------",
- "------------------"
-
- PRINT COLUMN 96, "Material +"
- PRINT COLUMN 96, "Labor +"
-
- PRINT COLUMN 1, "Docto.",
- COLUMN 10, "ORDEN",
- COLUMN 20, "Fecha",
- COLUMN 32, "Producto",
- COLUMN 85, "Cantidad",
- COLUMN 98, "Gasto ",
- COLUMN 112, "Total"
- PRINT COLUMN 1, "--------------------------------------------------",
- "--------------------------------------------------",
- "------------------"
- PRINT negrillas_off
-
BEFORE GROUP OF x.cod_mov
LET total_m = 0
+ LET total_consumo_m = 0
SELECT descrip_mov INTO x.descrip_mov FROM iptb00005
WHERE cod_mov = x.cod_mov
- PRINT negrillas_on
- PRINT COLUMN 1, "Movimiento: ",x.cod_mov using "##"," ",
- x.descrip_mov
- PRINT negrillas_off
+ PRINTX x.cod_mov, x.descrip_mov
- BEFORE GROUP OF x.num_doc
- PRINT COLUMN 1, x.num_doc USING "######",
- COLUMN 10, x.orden USING "#######",
- COLUMN 20, x.fecha USING "dd/mm/yyyy",
- 2 SPACES, x.proveedor CLIPPED
- SKIP 1 LINE
ON EVERY ROW
- LET total_p = x.costo * x.consumo
+ LET total_p = x.costo * x.consumo
IF total_p IS NULL THEN
LET total_p = 0
END IF
LET total_m = total_m + total_p
+ LET total_consumo_m = total_consumo_m + x.consumo
- PRINT COLUMN 1, x.cod_n USING "&&&&","-",x.cod_grupo USING "&&&&","-",
- x.cod_tipo USING "&&&&&&&&","-",x.cod_sec USING "&&&&&&&&",
- " ",x.descrip_esp,
- COLUMN 80, x.consumo USING "###,###.###",
- 2 SPACES, x.costo USING "#,###,###.###",
- 2 SPACES, total_p USING "##,###,###.##"
+ LET pcodigo = x.cod_n USING "&&&&","-",x.cod_grupo USING "&&&&","-",
+ x.cod_tipo USING "&&&&&&&&","-",x.cod_sec USING "&&&&&&&&"
+ LET fecha_fmt = x.fecha USING "dd/mm/yyyy"
- AFTER GROUP OF x.num_doc
- SKIP 1 LINE
+ PRINTX pcodigo, x.descrip_esp, x.num_doc, x.orden, fecha_fmt, x.proveedor,
+ x.consumo, x.costo, total_p
AFTER GROUP OF x.cod_mov
- PRINT COLUMN 80, "-------------",
- COLUMN 109,"-------------"
- PRINT COLUMN 50, "Total ---->",
- COLUMN 80, GROUP SUM(x.consumo) USING "###,###.###",
- COLUMN 109, total_m USING "##,###,###.##"
- SKIP TO TOP OF PAGE
- AFTER GROUP OF x.orden
- PRINT COLUMN 80, "-------------",
- COLUMN 109,"-------------"
- PRINT COLUMN 50, "Total ---->",
- COLUMN 80, GROUP SUM(x.consumo) USING "###,###.###",
- COLUMN 106, GROUP SUM(x.consumo*X.costo) USING "###,###,###.###"
+ PRINTX total_consumo_m, total_m
ON LAST ROW
- PRINT ASCII 27, ASCII 80
END REPORT
diff --git a/PROYECTO/ipdir/ipprrp010.4rp b/PROYECTO/ipdir/ipprrp010.4rp
index cc3964e..039f24e 100644
--- a/PROYECTO/ipdir/ipprrp010.4rp
+++ b/PROYECTO/ipdir/ipprrp010.4rp
@@ -1,29 +1,71 @@
-
-
+
+
-
-
-
+
+
+
-
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp035.4rp b/PROYECTO/ipdir/ipprrp035.4rp
new file mode 100644
index 0000000..e94db40
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp035.4rp
@@ -0,0 +1,140 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp036.4rp b/PROYECTO/ipdir/ipprrp036.4rp
new file mode 100644
index 0000000..1eae11c
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp036.4rp
@@ -0,0 +1,145 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 5c3606c..dda10b3 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -142,6 +142,7 @@
+
@@ -301,6 +302,7 @@
+
@@ -716,25 +718,30 @@
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
diff --git a/PROYECTO/otrodir/selectoutput_simple.4gl b/PROYECTO/otrodir/selectoutput_simple.4gl
new file mode 100644
index 0000000..6af6e6e
--- /dev/null
+++ b/PROYECTO/otrodir/selectoutput_simple.4gl
@@ -0,0 +1,33 @@
+FUNCTION selectOutput()
+ DEFINE
+ r_output STRING, -- output format option
+ r_action STRING, -- used to set preview option
+ r_filename STRING, -- filename of Report Design document (the .4rp filename)
+ preview INTEGER -- preview option TRUE/FALSE, to display report in Report Viewer
+
+ -- display form allowing user to select the .4rp filename and output options
+
+ OPTIONS INPUT WRAP
+ OPEN WINDOW f_configuration WITH FORM "Configuration"
+ LET INT_FLAG=FALSE
+ LET preview = FALSE
+ INPUT BY NAME r_output
+ ON ACTION CANCEL
+ EXIT PROGRAM
+ ON ACTION CLOSE
+ EXIT PROGRAM
+ END INPUT
+ CLOSE WINDOW f_configuration
+ CALL ui.interface.refresh()
+
+ -- set preview variable to match output option r_action
+ IF r_action IS NOT NULL THEN
+ IF r_action == "preview" THEN
+ LET preview = TRUE
+ END IF
+ END IF
+
+ --return output option variable to be used to configure the report engine
+ RETURN r_output
+
+ END FUNCTION