jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

para hacer el pull lsoto

Browse Source
This commit is contained in:
Luis
2026-10-16 15:33:34 -04:00
parent c190582481 aa7fe013c0
commit 54c77ca23e
42 changed files with 4252 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/PRDIR/primpresion.4gl
+1 -1
View File
@@ -11,7 +11,7 @@
END RECORD,
nombre_cia STRING
FUNCTION impresion(pnumoc)
FUNCTION impresion_oc(pnumoc)
DEFINE pnumoc,I INT
DECLARE busca_orden CURSOR FOR
PROYECTO/PRDIR/prprmt008.4gl
+20 -14
View File
@@ -64,7 +64,7 @@ GLOBALS "prprgb000.4gl"
nombre_vend,nombres,apellidos CHAR(40),fcalle CHAR(25),
fcasa_num CHAR(5), fbarrio,furbanizacion CHAR(15),
monto_desc,total1,p_costos1,total_i,total_mo DECIMAL(12,2),
ult_numero,cuenta INTEGER,
ult_numero,cuenta,existe_oc INTEGER,
vetb05 RECORD LIKE vetb00005.*,
cuenta_p,ridx SMALLINT,
pbalance1,pbalance2 DEC(12,2),
@@ -798,19 +798,26 @@ FUNCTION prpcad008()
# SE COLOCO QUE EL NUMERO SE GENERARA A PARTIR DEL 01/01/2003 HACIA ATRAS POR MODIFICACION DEL
# SISTEMA Y LA INCLUSION DEL NCF A PARTIR DEL 01/01/2007
# FECHA MODIFICACION: 11/01/2007
SELECT num_oc INTO ult_numero FROM prtb00020
IF nuevo = "S" THEN
IF ult_numero IS NULL THEN
LET ult_numero = 0
END IF
LET ult_numero = ult_numero + 1
LET prtb08.num_oc = ult_numero
DISPLAY BY NAME prtb08.num_oc
UPDATE prtb00020 set num_oc = ult_numero,
# CONSECUTIVO ATOMICO: el UPDATE incrementa y bloquea la fila de prtb00020
# hasta el COMMIT, asi dos usuarios no pueden tomar el mismo num_oc
# (antes se leia y luego se escribia -> PK_prtb00012 duplicada)
BEGIN WORK
UPDATE prtb00020 SET num_oc = ISNULL(num_oc, 0) + 1,
us_crea = SUSER_SNAME(),
fech_crea = GETDATE()
SELECT num_oc INTO ult_numero FROM prtb00020
# AUTOCORRECCION: si el contador quedo por detras de prtb00012, salta al siguiente libre
LET existe_oc = 0
SELECT COUNT(*) INTO existe_oc FROM prtb00012 WHERE num_oc = ult_numero
IF existe_oc > 0 THEN
SELECT MAX(num_oc) + 1 INTO ult_numero FROM prtb00012
UPDATE prtb00020 SET num_oc = ult_numero
END IF
COMMIT WORK
LET prtb08.num_oc = ult_numero
DISPLAY BY NAME prtb08.num_oc
{ CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia1
@@ -851,9 +858,8 @@ CALL seleccionarsalida() RETURNING r_output
fech_crea = GETDATE()
WHERE @num_oc = prtb09.num_oc
UPDATE prtb00020 SET num_oc = ult_numero,
us_Crea = SUSER_SNAME(),
fech_crea = GETDATE()
# (se elimino la re-escritura de prtb00020 aqui: el consecutivo ya se tomo
# arriba de forma atomica y re-escribirlo podia retroceder el contador)
# ACTUALIZA NUMERO TEMPORAL PARA EL DESPIECE
UPDATE prtb00022 SET num_oc = prtb08.num_oc WHERE num_oc = tmpnumero
PROYECTO/PRDIR/prprmt021.4gl
+1 -1
View File
@@ -177,7 +177,7 @@ END RECORD
" ORDEN ECOMMERCE ",orden_externa USING "&&&&&&&"
INPUT ARRAY detalle FROM sdetalle.* ATTRIBUTE(WITHOUT DEFAULTS)
ON ACTION impresion ATTRIBUTE(TEXT="Orden",IMAGE="printer")
CALL impresion(pnum_oc)
CALL impresion_oc(pnum_oc)
ON ACTION etiqueta ATTRIBUTE(TEXT="Label",IMAGE="fa-tag")
LET datos.celular = orden.celular
LET datos.cliente = orden.nombre_envio
PROYECTO/bin/ipprrp013.4rp
+83
View File
@@ -0,0 +1,83 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="60003" version="7.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../GUI/ipdir/ipprrp013.rdd" RWFglReportName="estadistica"/>
<report:Conflicts/>
<rtl:stylesheet>
<rtl:match name="Report" nameConstraint="Report">
<PXML>
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox4" floatingBehavior="enclosed" text="IPPRRP013"/>
<WORDBOX name="WordBox5" x="1.2386" y="453.061" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="PAGINA"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" x="1.2386" y="184.611" width="width(&quot;M&quot;)*25" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="1.5cm" length="max" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox9" x="5.539" y="40.8204" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="SISTEMA DE INVENTARIO DE PRODUCTOS TERMINADOS"/>
<WORDBOX name="WordBox11" x="22.5047" y="143.465" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="DIAS DE INVENTARIO"/>
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox23" x="5.539" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+fecha}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox24" x="27.0497" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;HORA: &quot;+hora}}"/>
</MINIPAGE>
<MINIPAGE name="Table Header" width="min" length="max" alignment="near" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<LAYOUTNODE name="LayoutNode3" width="min" length="max" alignment="near" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="free">
<WORDBOX name="WordBox13" floatingBehavior="enclosed" text="CODIGO"/>
<WORDBOX name="WordBox14" width="1cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox15" floatingBehavior="enclosed" text="DESCRIPCION"/>
<WORDBOX name="WordBox16" width="3cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox17" alignment="baseline" floatingBehavior="enclosed" text="VENTAS DEL PERIODO"/>
<WORDBOX name="WordBox18" width="0.6cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox19" floatingBehavior="enclosed" text="EXISTENCIA"/>
<WORDBOX name="WordBox33_2" width="0.5cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox34" floatingBehavior="enclosed" text="DIAS CON ORDEN"/>
<WORDBOX name="WordBox36" width="0.5cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox37" floatingBehavior="enclosed" text="FECHA VENTA"/>
</LAYOUTNODE>
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode8" width="min" length="max" alignment="near" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18_1" alignment="baseline" baselineType="leftleft" text="{{x.cod_n.format(&quot;###&quot;)+&quot;&quot;+x.cod_grupo.format(&quot;###&quot;)+&quot;&quot;+x.cod_tipo.format(&quot;###&quot;)+&quot;&quot;+x.cod_sec.format(&quot;####&quot;)}}"/>
<WORDBOX name="WordBox19_1" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox33" width="6.5cm" alignment="baseline" baselineType="leftleft" text="{{x.descrip_esp.trim()}}"/>
<WORDBOX name="WordBox21" width="2.4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox29" width="1cm" alignment="baseline" floatingBehavior="enclosed" text="{{x.consumo.format(&quot;####&quot;)}}"/>
<LAYOUTNODE name="LayoutNode5" width="0.5cm" length="min" floatingBehavior="enclosed"/>
<rtl:input-variable name="x.existe" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.existe.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox31_2" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.dias" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox32" width="1cm" floatingBehavior="enclosed" text="{{x.dias.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox38" width="2cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="fecha_v" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox39" floatingBehavior="enclosed" text="{{fecha_v}}"/>
</LAYOUTNODE>
</rtl:match>
<MINIPAGE name="MiniPage7_1" width="min" length="min">
<WORDBOX name="WordBox31" length=".5cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox33_1" floatingBehavior="enclosed" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+total_registros.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</MINIPAGE>
</MINIPAGE>
</PXML>
</rtl:match>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp014.4rp
+101
View File
@@ -0,0 +1,101 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterlength" RWPageLength="letterwidth" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp014.rdd" RWFglReportName="estadistica"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="center">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox4" floatingBehavior="enclosed" text="IPPRRP014"/>
<WORDBOX name="WordBox5" x="1.2386" y="453.061" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="PAGINA"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" x="1.2386" y="184.611" width="width(&quot;M&quot;)*20" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="1.5cm" length="max" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox9" x="5.539" y="40.8204" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="SISTEMA DE INVENTARIO DE PRODUCTOS TERMINADOS"/>
<WORDBOX name="WordBox11" x="22.5047" y="143.465" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="DIAS DE INVENTARIO"/>
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox23" x="5.539" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox24" x="27.0497" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;HORA: &quot;+hora.value}}"/>
</MINIPAGE>
<MINIPAGE name="Table Header" width="min" length="max" alignment="near" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox" width="6cm" floatingBehavior="enclosed" text="{{&quot;Fecha Inicial: &quot;+fecha1.value}}"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox40" width="4cm" floatingBehavior="enclosed" textAlignment="right" text="{{&quot;Fecha Final: &quot;+fecha2.value}}"/>
<MINIPAGE name="Separator1" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
<rtl:input-variable name="dias1" type="FGLNumeric" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox45" alignment="near" floatingBehavior="enclosed" text="{{&quot;DIAS PERIODO: &quot;+dias1}}"/>
<LAYOUTNODE name="LayoutNode3" width="min" length="max" alignment="near" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="free">
<WORDBOX name="WordBox13" floatingBehavior="enclosed" text="CODIGO"/>
<WORDBOX name="WordBox14" width="1cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox15" floatingBehavior="enclosed" text="DESCRIPCION"/>
<WORDBOX name="WordBox16" width="3cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox17" alignment="baseline" floatingBehavior="enclosed" text="VENTAS DEL PERIODO"/>
<WORDBOX name="WordBox18" width="0.6cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox19" floatingBehavior="enclosed" text="EXISTENCIA"/>
<WORDBOX name="WordBox33_2" width="0.5cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox34" floatingBehavior="enclosed" text="DIAS INV"/>
<WORDBOX name="WordBox36" width="0.5cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox37" floatingBehavior="enclosed" text="FECHA VENTA"/>
<WORDBOX name="WordBox42" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="FECHA C"/>
<WORDBOX name="WordBox43" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD C."/>
<WORDBOX name="WordBox44" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="ROTACION"/>
</LAYOUTNODE>
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="DETALLE" width="min" length="max" alignment="near" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18_1" alignment="baseline" baselineType="leftleft" text="{{x.cod_n.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_grupo.format(&quot;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_tipo.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_sec.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<WORDBOX name="WordBox19_1" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*25" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.trim()+&quot; &quot;+x.unidad_med.trim()}}"/>
<WORDBOX name="WordBox41" width="1cm" alignment="baseline" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox29" width="1.5cm" alignment="baseline" floatingBehavior="enclosed" text="{{x.consumo.format(&quot;####.####&quot;)}}"/>
<rtl:input-variable name="x.existe" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="2cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.existe.format(&quot;###,###.####&quot;)}}"/>
<WORDBOX name="WordBox31_2" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.dias" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox32" width="1cm" color="{{x.dias&gt;200?Color.RED:Color.BLACK}}" floatingBehavior="enclosed" text="{{x.dias.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox38" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.fecha_v" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox39" width="1.5cm" floatingBehavior="enclosed" text="{{x.fecha_v}}"/>
<rtl:input-variable name="x.fecha_oc" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="fecha_oc Value" width="1.5cm" floatingBehavior="enclosed" textAlignment="right" text="{{x.fecha_oc}}"/>
<rtl:input-variable name="x.tcantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="tcantidad Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#.####" value="{{x.tcantidad}}"/>
<rtl:input-variable name="rot_anual" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="rot_anual Value" class="grwNumericValue" width="3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="{{&quot;--,--&amp;.&amp;&amp;&quot;}}" value="{{rot_anual}}"/>
</LAYOUTNODE>
</rtl:match>
</rtl:match>
<MINIPAGE name="TOTALES" width="min" length="min">
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox33_1" floatingBehavior="enclosed" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+total_registros.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</MINIPAGE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp047.4rp
+146
View File
@@ -0,0 +1,146 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp047.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp047"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="260.309" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" text="Cantidad"/>
<WORDBOX name="WordBox4_2" width="32.3514" alignment="baseline" floatingBehavior="enclosed" text="Material"/>
<WORDBOX name="WordBox4_3" width="40.1171" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="V.material"/>
<WORDBOX name="WordBox4_4" width="35.495" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="Labor"/>
<WORDBOX name="WordBox4_5_1" width="37.566" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="V.labor"/>
<WORDBOX name="WordBox4_5" width="33.566" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="Gasto"/>
<WORDBOX name="WordBox4_6" width="38.3124" length="10.2883" alignment="near" floatingBehavior="enclosed" text="V.gasto"/>
<WORDBOX name="WordBox4" width="23.9461" length="8.89765" alignment="center" floatingBehavior="enclosed" text="V.Total"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_cia" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="234" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="262.827" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="26.2623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.material Value" width="30.7929" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.material}}"/>
<rtl:input-variable name="v_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_material Value" width="38.6108" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_material}}"/>
<rtl:input-variable name="x.labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.labor Value" width="27.0502" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.labor}}"/>
<rtl:input-variable name="v_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_labor Value" width="39.0459" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_labor}}"/>
<rtl:input-variable name="x.gastos" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.gastos Value" width="34.2279" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.gastos}}"/>
<rtl:input-variable name="v_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_gasto Value" width="39.5104" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_gasto}}"/>
<rtl:input-variable name="total_costo_st" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_costo_st Value" width="37.0251" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$---,---,-&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_costo_st}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="262.382" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="25.9289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<rtl:input-variable name="t_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_material Value" width="30.5858" length="6.5" anchorX="1" alignment="far" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_material}}"/>
<rtl:input-variable name="total_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material Value" width="39.5148" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_material}}"/>
<rtl:input-variable name="t_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_labor Value" width="26.5356" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_labor}}"/>
<rtl:input-variable name="total_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor Value" width="39.0208" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_labor}}"/>
<rtl:input-variable name="t_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_gasto Value" width="34.3137" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_gasto}}"/>
<rtl:input-variable name="total_gastos" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos Value" width="39.9497" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_gastos}}"/>
<rtl:input-variable name="total_valor_departamento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_departamento Value" width="36.7678" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_valor_departamento}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="262.382" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="25.636" length="5.04545" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<rtl:input-variable name="t_m_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_material Value" width="30.6465" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_material}}"/>
<rtl:input-variable name="total_material_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material_movimiento Value" width="39.3683" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_material_movimiento}}"/>
<rtl:input-variable name="t_m_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_labor Value" width="26.6821" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_labor}}"/>
<rtl:input-variable name="total_labor_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor_movimiento Value" width="39.8267" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_labor_movimiento}}"/>
<rtl:input-variable name="t_m_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_gasto Value" width="33.7784" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_gasto}}"/>
<rtl:input-variable name="total_gastos_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos_movimiento Value" width="39.8916" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_gastos_movimiento}}"/>
<rtl:input-variable name="total_valor_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_movimiento Value" width="37.4142" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_valor_movimiento}}"/>
</MINIPAGE>
</rtl:match>
<LAYOUTNODE name="CiaNode" width="min" length="min" fontSize="5" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="titulo_cia" type="FGLString" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox9" width="3.5inch" alignment="near" floatingBehavior="enclosed" textAlignment="right" text="{{&quot;TOTAL ORIGEN: &quot;+titulo_cia.trim()}}"/>
<rtl:input-variable name="t_consumo_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo_cia Value" class="grwNumericValue" width=".5inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo_cia}}"/>
<rtl:input-variable name="t_material_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_material_cia Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="--,---,---,---,--&amp;.&amp;&amp;" value="{{t_material_cia}}"/>
<rtl:input-variable name="t_labor_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_labor_cia Value" class="grwNumericValue" width=".9inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_labor_cia}}"/>
<rtl:input-variable name="t_gasto_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_gasto_cia Value" class="grwNumericValue" width=".5inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,--&amp;.&amp;&amp;" value="{{t_gasto_cia}}"/>
<rtl:input-variable name="t_general_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_general_cia Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="--,---,---,---,--&amp;.&amp;&amp;" value="{{t_general_cia}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="totalgeneral" width="min" length="min" fontSize="5" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderStyle="solid">
<WORDBOX name="WordBox10" width="3.5inch" floatingBehavior="enclosed" textAlignment="right" text="TOTAL GENERAL"/>
<rtl:input-variable name="total_consumo_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_consumo_gral Value" class="grwNumericValue" width=".55inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_consumo_gral}}"/>
<rtl:input-variable name="total_material_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material_gral Value" class="grwNumericValue" width="70.3951" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="###,###,#&amp;.&amp;&amp;" value="{{total_material_gral}}"/>
<rtl:input-variable name="total_labor_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor_gral Value" class="grwNumericValue" width="55.2863" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_labor_gral}}"/>
<rtl:input-variable name="total_gastos_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos_gral Value" class="grwNumericValue" width="60.1079" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_gastos_gral}}"/>
<rtl:input-variable name="total_valor_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_gral Value" class="grwNumericValue" width="43.7298" length="6" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="#,###,###,##&amp;.&amp;&amp;" value="{{total_valor_gral}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp048.4rp
+93
View File
@@ -0,0 +1,93 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="31408" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/IPPRRP048.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp048"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="233.809" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Cantidad"/>
<WORDBOX name="WordBox9" width="36" floatingBehavior="enclosed" textAlignment="right" text="UM"/>
<WORDBOX name="WordBox10" width="50.5" floatingBehavior="enclosed" textAlignment="right" text="F.conversion"/>
<WORDBOX name="WordBox10_1" width="45.5" floatingBehavior="enclosed" textAlignment="right" text="F.Adicional"/>
<WORDBOX name="WordBox11" width="64.5" floatingBehavior="enclosed" textAlignment="right" text="Mts. Adicionales"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="233.5" alignment="baseline" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="233.327" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="33.7623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.unidad_med Value" width="37.5" alignment="baseline" floatingBehavior="enclosed" text="{{x.unidad_med}}" textAlignment="right"/>
<rtl:input-variable name="x.factor_conv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_conv Value" width="49.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_conv}}"/>
<rtl:input-variable name="x.factor_ad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_ad Value" width="47" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_ad}}"/>
<rtl:input-variable name="x.mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.mtsAdicionales Value" width="61.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="223.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="42.4289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<LAYOUTNODE name="LayoutNode2" width="5.85786" length="153.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_mtsAdicionales Value" width="41.4645" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="224.542" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="41.636" length="5.04545" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<LAYOUTNODE name="LayoutNode1" width="5.28431" length="154.438" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_m_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_mtsAdicionales Value" width="39.9792" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_general" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox13" width="223.28" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total General: "/>
<rtl:input-variable name="t_t_consumo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_consumo Value" width="42.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_consumo}}"/>
<LAYOUTNODE name="LayoutNode" width="5.70476" length="154.964" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_mtsAdicionales Value" width="40.2628" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_mtsAdicionales}}"/>
</MINIPAGE>
</MINIPAGE>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp051.4rp
+118
View File
@@ -0,0 +1,118 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/IPPRRP051.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp051"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="233.809" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Cantidad"/>
<WORDBOX name="WordBox9" width="36" floatingBehavior="enclosed" textAlignment="right" text="UM"/>
<WORDBOX name="WordBox10" width="50.5" floatingBehavior="enclosed" textAlignment="right" text="F.conversion"/>
<WORDBOX name="WordBox10_1" width="45.5" floatingBehavior="enclosed" textAlignment="right" text="F.Adicional"/>
<WORDBOX name="WordBox11" width="64.5" floatingBehavior="enclosed" textAlignment="right" text="Mts. Adicionales"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="233.5" alignment="baseline" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="233.327" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="33.7623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.unidad_med Value" width="37.5" alignment="baseline" floatingBehavior="enclosed" text="{{x.unidad_med}}" textAlignment="right"/>
<rtl:input-variable name="x.factor_conv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_conv Value" width="49.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_conv}}"/>
<rtl:input-variable name="x.factor_ad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_ad Value" width="47" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_ad}}"/>
<rtl:input-variable name="x.mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.mtsAdicionales Value" width="61.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.mtsAdicionales}}"/>
</MINIPAGE>
<MINIPAGE name="total_departamento1" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="seccion" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Seccion:"/>
<rtl:input-variable name="y.seccion" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.seccion Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.seccion}}"/>
<LAYOUTNODE name="LayoutNode4" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="tramo" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Tramo:"/>
<rtl:input-variable name="y.tramo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.tramo Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.tramo}}"/>
<LAYOUTNODE name="LayoutNode4_1" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="fila" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Fila:"/>
<rtl:input-variable name="y.fila" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.fila Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.fila}}"/>
<LAYOUTNODE name="LayoutNode4_2" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="posicion" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Posicion:"/>
<rtl:input-variable name="y.posicion" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.posicion Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.posicion}}"/>
<LAYOUTNODE name="LayoutNode4_3" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
</MINIPAGE>
<rtl:match name="For" nameConstraint="For" minOccurs="1" maxOccurs="1">
<rtl:match name="ForItem" nameConstraint="ForItem" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="If" nameConstraint="If" minOccurs="1" maxOccurs="1">
<rtl:match name="IfThen" nameConstraint="IfThen" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</rtl:match>
</rtl:match>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="223.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="42.4289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<LAYOUTNODE name="LayoutNode2" width="5.85786" length="153.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_mtsAdicionales Value" width="41.4645" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="224.542" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="41.636" length="5.04545" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<LAYOUTNODE name="LayoutNode1" width="5.28431" length="154.438" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_m_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_mtsAdicionales Value" width="39.9792" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_general" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox13" width="223.28" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total General: "/>
<rtl:input-variable name="t_t_consumo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_consumo Value" width="42.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_consumo}}"/>
<LAYOUTNODE name="LayoutNode" width="5.70476" length="154.964" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_mtsAdicionales Value" width="40.2628" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_mtsAdicionales}}"/>
</MINIPAGE>
</MINIPAGE>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp053.4rp
+100
View File
@@ -0,0 +1,100 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="25.00cm" RWPageLength="29.70cm" RWLeftMargin="0.511993cm" RWTopMargin="1.3cm" RWRightMargin="0.430673cm" RWBottomMargin="1.3cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp053.rdd" RWFglReportName="rpt_ipprrp053"/>
<report:Conflicts>
<report:Conflict nodeName="LayoutNode31_1_1" message="Node was in trigger &quot;OnLastRow [0; 1]&quot;, but trigger was removed during schema update"/>
</report:Conflicts>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="pageRoot" width="max" length="766.687" alignment="near" fontName="Arial">
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="Layout Node7" width="min" length="min" alignment="center" swapX="true" port="firstPageHeader">
<LAYOUTNODE name="Titulo" width="min" length="max" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.2" borderStyle="solid" borderColor="#828282">
<WORDBOX name="WordBox159" width="66" alignment="baseline" floatingBehavior="enclosed" text="ipprrp053"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="549.417" length="14.7813" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;MARMOTECH S.A.&quot;}}" textAlignment="center"/>
<WORDBOX name="WordBox159_1" width="66" alignment="baseline" floatingBehavior="enclosed" text=""/>
</LAYOUTNODE>
<MINIPAGE name="StripeLayouter14" width="16.245" length="max" alignment="center" layoutDirection="leftToRight">
<WORDBOX name="WordBox2_1_1" width="146" alignment="baseline" fontBold="true" floatingBehavior="enclosed" textAlignment="left" text="Fecha desde:" borderWidth="0"/>
<WORDBOX name="WordBox2_1" width="153" alignment="baseline" fontBold="true" floatingBehavior="enclosed" textAlignment="left" text="Hasta:" borderWidth="0"/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="fech_inicio Value" class="grwDateValue" x="0.4891" y="80.0076" width="62.125" anchorX="0" anchorY="0" floatingBehavior="enclosed" format="{{&quot;dd/mm/yyyy&quot;}}" value="{{Date.fromIsoValue(fecha1.isoValue)}}"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="fech_corte Value" class="grwDateValue" x="0.4891" y="186.04" width="102.969" anchorX="0" anchorY="0" floatingBehavior="enclosed" format="{{&quot;dd/mm/yyyy&quot;}}" value="{{Date.fromIsoValue(fecha2.isoValue)}}"/>
</MINIPAGE>
<MINIPAGE name="Enc.Secundario" width="min" length="min" alignment="near" layoutDirection="leftToRight" borderWidth="0.2" borderStyle="solid" borderColor="#828282">
<WORDBOX name="WordBox2" width="679.635" alignment="near" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="INFORME TRANSACCIONES INVENTARIOS" borderWidth="0"/>
<rtl:input-variable name="fecha_actual" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="x.fecha_factura Value" width="141.56" length="22.3906" alignment="near" fontBold="true" floatingBehavior="enclosed" textAlignment="right" text="{{fecha_actual}}" borderWidth="0"/>
</MINIPAGE>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="Group codigo_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode31_1" width="26.5682" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderColor="#dfdfdf">
<rtl:input-variable name="x.codigo_mov" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<rtl:input-variable name="x.descripcion_mov" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="karr_ordenes.valor Value9" class="grwNumericValue" width="254.866" length="25.0469" anchorX="1" alignment="center" fontSize="10" fontBold="true" baselineType="leftleft" textAlignment="left" text="{{&quot;(&quot;+x.codigo_mov+&quot;)&quot;+&quot; &quot;+x.descripcion_mov}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadod" width="max" length="min" swapX="true">
<MINIPAGE name="StripeLayouter23" width=".1cm" bgColor="#cc" layoutDirection="leftToRight"/>
<MINIPAGE name="encabezadodetalle" width="min" length="max" bgColor="#cccccc" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox44" width="92.688" length="12.3906" alignment="center" fontSize="8" baselineType="leftleft" textAlignment="center" text="{{&quot;FECHA&quot;}}"/>
<WORDWRAPBOX name="WordWrapBox17" width="84.52" alignment="center" fontSize="8" baselineType="leftleft" text="DOCUMENTO" textAlignment="center"/>
<WORDWRAPBOX name="WordBox120_1_2" width="156.347" alignment="center" fontSize="8" floatingBehavior="enclosed" text="ORIGEN&#10;" textAlignment="center"/>
<WORDWRAPBOX name="WordBox120_4" width="141.347" length="9.1719" alignment="center" fontSize="8" floatingBehavior="enclosed" text="PRODUCTO&#10;" textAlignment="center"/>
<WORDBOX name="WordBox120_1_1" width="84.3465" alignment="center" fontSize="8" floatingBehavior="enclosed" textAlignment="center" text="CANTIDAD"/>
<WORDBOX name="WordBox120_1" width="84.3465" alignment="center" fontSize="8" floatingBehavior="enclosed" textAlignment="center" text="COSTO"/>
</MINIPAGE>
<MINIPAGE name="StripeLayouter25" width=".1cm" bgColor="#cc" layoutDirection="leftToRight"/>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode31" width="34.5682" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#dfdfdf">
<rtl:input-variable name="print_fecha" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox4" width="86.359" length="24.3281" alignment="baseline" fontSize="8" floatingBehavior="enclosed" text="{{print_fecha}}" trimText="both" textAlignment="center"/>
<rtl:input-variable name="print_doc" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox" width="85.197" length="24.2783" alignment="baseline" fontSize="8" baselineType="leftleft" textAlignment="center" text="{{print_doc}}"/>
<LAYOUTNODE name="espacio" width="min" length="3.5197" layoutDirection="leftToRight"/>
<LAYOUTNODE name="espacio5_1" width="21" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="print_almacen" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.almacen Value" class="grwStringValue" width="width(&quot;M&quot;)*20" length="26.3281" floatingBehavior="enclosed" text="{{print_almacen}}" textAlignment="center"/>
<LAYOUTNODE name="espacio5_1_7" width="21" length="4" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.producto Value" class="grwStringValue" width="136.688" length="33.3281" fontSize="9" floatingBehavior="enclosed" text="{{x.producto}}" textAlignment="center"/>
<LAYOUTNODE name="espacio5_1_1" width="20" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.cantidad Value" class="grwNumericValue" width="89.9844" length="25.0469" anchorX="1" floatingBehavior="enclosed" textAlignment="center" format="---,---,---,---,---,--&amp;.&amp;&amp;" value="{{x.cantidad}}"/>
<LAYOUTNODE name="espacio5_1_1_1" width="20" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.costo_standard" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.costo_standard Value" class="grwNumericValue" length="25.183" anchorX="1" floatingBehavior="enclosed" textAlignment="center" format="---,---,---,---,---,--&amp;.&amp;&amp;" value="{{x.costo_standard}}"/>
</LAYOUTNODE>
</rtl:match>
<LAYOUTNODE name="LayoutNode31_1_1_1" width="25.433" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#000000">
<rtl:input-variable name="grupo_registros" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox18" width="173.996" length="24.3281" alignment="center" fontBold="true" floatingBehavior="enclosed" text="{{&quot;Total movimiento: &quot;+grupo_registros}}" trimText="both" textAlignment="left"/>
<LAYOUTNODE name="espacio5_1_8" width="20" length="353.377" layoutDirection="leftToRight"/>
<rtl:input-variable name="grupo_cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="arr_costos.codigo_bloque Value7" class="grwStringValue" width="107.174" length="25.0469" fontBold="true" floatingBehavior="enclosed" textAlignment="center" value="{{grupo_cantidad}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="LayoutNode31_1_1" width="25.433" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#000000">
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox11" width="174.36" length="24.3281" alignment="center" fontBold="true" floatingBehavior="enclosed" text="{{&quot;Total registros: &quot;+total_registros}}" trimText="both" textAlignment="left"/>
<LAYOUTNODE name="espacio5_1_5" width="20" length="353.377" layoutDirection="leftToRight"/>
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="arr_costos.codigo_bloque Value6" class="grwStringValue" width="107.174" length="25.0469" fontBold="true" floatingBehavior="enclosed" textAlignment="center" value="{{total_cantidad}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/ipprrp054.4rp
+65
View File
@@ -0,0 +1,65 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="31405" version="6.00">
<report:Settings RWPageWidth="a4width" RWPageLength="a4length" RWLeftMargin="1.3cm" RWTopMargin="1.3cm" RWRightMargin="1.3cm" RWBottomMargin="1.3cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp054.rdd" RWFglReportName="prt_co"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="Page Root" width="max" length="max">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="Report Title" x="0" y="max/2" anchorX="0" anchorY="0.5" alignment="baseline" fontSize="25" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre.trim()}}"/>
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="IPPRRP054"/>
<rtl:input-variable name="fecht" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox1" y="15cm" floatingBehavior="enclosed" text="{{fecht.trim()}}"/>
<WORDBOX name="WordBox10" x="1cm" y="7cm" fontBold="true" floatingBehavior="enclosed" text="Revision de Conduces"/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedAhead"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox11" x="1.5cm" y="7cm" floatingBehavior="enclosed" text="{{fecha1.trim()+&quot; AL &quot;+fecha2.trim()}}"/>
</MINIPAGE>
<MINIPAGE name="Separator1" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
<MINIPAGE name="Table Header" class="grwTableHeader" width="min" length="max" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<WORDBOX name="WordBox2" floatingBehavior="enclosed" text="{{&quot;Num. Documento&quot;}}"/>
<WORDBOX name="WordBox3" y="4cm" floatingBehavior="enclosed" text="Cliente"/>
<WORDBOX name="WordBox8" y="11cm" floatingBehavior="enclosed" text="Estado"/>
<WORDBOX name="WordBox12" y="14cm" floatingBehavior="enclosed" text="Fecha Creacion"/>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row1" class="grwTableRow" width="min" length="max" layoutDirection="leftToRight">
<WORDBOX name="Spacer_2" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox5" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov.trim()}}"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" class="grwTableRow" width="min" length="max" alignment="near" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="Spacer_1" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="x.num_doc" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox6" width="2cm" floatingBehavior="enclosed" textAlignment="left" text="{{x.num_doc.format(&quot;&lt;&lt;&lt;&lt;&quot;)}}"/>
<rtl:input-variable name="x.cod_sp" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sp_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.nombre" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" y="4cm" width="max/3" alignment="baseline" floatingBehavior="enclosed" text="{{x.cod_sp.format(&quot;&lt;&lt;&quot;)+&quot;-&quot;+x.cod_sp_sec.format(&quot;&lt;&lt;&lt;&lt;&quot;)+&quot; &quot;+x.nombre.trim()}}"/>
<rtl:input-variable name="x.v_estado" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox9" y="11cm" floatingBehavior="enclosed" text="{{x.v_estado.trim()}}"/>
<rtl:input-variable name="x.fecha" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox13" y="14cm" floatingBehavior="enclosed" text="{{x.fecha.trim()}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/bin/lqprrp004.4rp
BIN
View File
Binary file not shown.
PROYECTO/ccdir/ccprmt008.4gl
+15 -6
View File
@@ -514,19 +514,28 @@ FUNCTION req_insert()
DEFINE ultimo,numeroOrden INT
# WHENEVER ERROR CONTINUE
SELECT a.num_req INTO ultimo FROM cctb00019 a
# 05/10/2026 - consecutivo dentro de la transaccion con bloqueo
# (evita num_req duplicado en cctb00025, ver requisiciondespacho.4gl)
BEGIN WORK
PREPARE p_numreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00019 WITH (UPDLOCK, HOLDLOCK)"
EXECUTE p_numreq INTO ultimo
PREPARE p_maxreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00025 WITH (UPDLOCK, HOLDLOCK)"
EXECUTE p_maxreq INTO numeroOrden
IF ultimo IS NULL THEN
LET ultimo = 0
END IF
IF numeroOrden > ultimo THEN
LET ultimo = numeroOrden
END IF
LET numeroOrden = NULL
LET ultimo = ultimo + 1
LET requisicion.num_req = ultimo
UPDATE cctb00019 SET num_req = requisicion.num_req,us_crea=usuarios,fech_crea=getdate()
UPDATE cctb00019 SET num_req = requisicion.num_req,us_crea=usuarios,fech_crea=getdate()
# GUARDA MASTER TABLE
# PREPARE s FROM "SELECT @@IDENTITY"
BEGIN WORK
# EXECUTE s INTO requisicion.num_req
DISPLAY BY NAME requisicion.num_req
PROYECTO/ccdir/ccprmt008.4gl.bak20261005
+1362
View File
File diff suppressed because it is too large Load Diff
PROYECTO/ctdir/ctprrp004.4gl
+26 -17
View File
@@ -20,6 +20,7 @@ DEFINE HANDLER om.SaxDocumentHandler, -- return value from fgl_report_commitCurr
DEFINE selec5 STRING
DEFINE anos CHAR(4)
DEFINE jdx INTEGER
DEFINE hay_filas SMALLINT
DEFINE fecha_inicio, fecha_corte, fecha1 DATE, reporte_tipo INT
MAIN
@@ -52,6 +53,7 @@ FUNCTION ctprrp004()
OPEN FORM ctfmrp004 FROM "ctfmrp004"
DISPLAY FORM ctfmrp004
CALL ui.Window.getCurrent().setText("Reporte Produccion Diaria")
CONSTRUCT criterio ON c.departamento, c.cod_prod FROM departamento, cod_prod
@@ -166,35 +168,42 @@ FUNCTION ctprrp004()
LET r_filename = 'ctprrp004.4rp'
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL selectoutput() RETURNING r_output
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
END IF
START REPORT reporte_detallado TO XML HANDLER HANDLER
LET fecha_actual = CURRENT YEAR TO FRACTION
DISPLAY selec5
PREPARE comando4 FROM selec5
DECLARE busca4 CURSOR FOR comando4
LET hay_filas = FALSE
FOREACH busca4 INTO prod_dia.*
IF reporte_tipo <> 1 THEN
IF NOT hay_filas THEN
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL selectoutput() RETURNING r_output
CALL fgl_report_selectDevice(r_output)
CALL fgl_report_selectPreview(preview)
LET handler = fgl_report_commitCurrentSettings()
END IF
START REPORT reporte_detallado TO XML HANDLER HANDLER
LET hay_filas = TRUE
END IF
IF reporte_tipo <> 1 THEN
LET prod_dia.num_doc = 0
LET prod_dia.fecha = CURRENT
END IF
LET prod_dia.fecha = CURRENT
END IF
OUTPUT TO REPORT reporte_detallado(
prod_dia.*, fecha_inicio, fecha_corte, fecha_actual)
END FOREACH
FINISH REPORT reporte_detallado
IF hay_filas THEN
FINISH REPORT reporte_detallado
ELSE
CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS PARA ESTOS PARAMETROS", "INFO")
END IF
IF abortar_reporte THEN
RETURN
PROYECTO/ctdir/ctprrp014.4gl
+27 -17
View File
@@ -20,6 +20,8 @@ DEFINE HANDLER om.SaxDocumentHandler, -- return value from fgl_report_commitCurr
DEFINE selec5 STRING
DEFINE anos STRING
DEFINE hay_filas SMALLINT
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
@@ -55,6 +57,7 @@ FUNCTION ctprrp004()
OPEN FORM ctfmrp004 FROM "ctfmrp014"
DISPLAY FORM ctfmrp004
CALL ui.Window.getCurrent().setText("Reporte Produccion Mensual")
CONSTRUCT criterio ON c.cod_prod FROM cod_prod
@@ -128,33 +131,40 @@ FUNCTION ctprrp004()
LET r_filename = 'ctprrp014.4rp'
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL selectoutput() RETURNING r_output
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
END IF
START REPORT reporte_mensual TO XML HANDLER HANDLER
LET fecha_actual = CURRENT YEAR TO FRACTION
DISPLAY selec5
PREPARE comando4 FROM selec5
DECLARE busca4 CURSOR FOR comando4
LET hay_filas = FALSE
FOREACH busca4 INTO prod_dia.*
IF prod_dia.semielaborado IS NULL THEN
IF NOT hay_filas THEN
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL selectoutput() RETURNING r_output
CALL fgl_report_selectDevice(r_output)
CALL fgl_report_selectPreview(preview)
LET handler = fgl_report_commitCurrentSettings()
END IF
START REPORT reporte_mensual TO XML HANDLER HANDLER
LET hay_filas = TRUE
END IF
IF prod_dia.semielaborado IS NULL THEN
LET abortar_reporte = TRUE;
END IF
END IF
OUTPUT TO REPORT reporte_mensual(prod_dia.*, anos, fecha_actual);
END FOREACH
FINISH REPORT reporte_mensual
IF hay_filas THEN
FINISH REPORT reporte_mensual
ELSE
CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS PARA ESTOS PARAMETROS", "INFO")
END IF
IF abortar_reporte THEN
RETURN
PROYECTO/ipdir/IPPRRP048.4gl
+18 -2
View File
@@ -75,6 +75,7 @@ FUNCTION ipprrp048()
OPEN FORM ipfmrp048 FROM "ipfmrp048"
DISPLAY FORM ipfmrp048
CALL ui.Window.getCurrent().setText("Transacciones de Inventario por Departamento")
DISPLAY "ipprrp048" AT 4,3
DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
@@ -167,7 +168,7 @@ END INPUT
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL seleccionarsalida() RETURNING r_output -- load the .4rp file
CALL selectOutputSimple() RETURNING r_output -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
@@ -296,5 +297,20 @@ FORMAT
PRINTX t_t_consumo,t_t_mtsAdicionales
END REPORT
FUNCTION busca_departamento()
DEFINE
pdepartamento ui.combobox,
kdepartamento SMALLINT,
kdescripcion CHAR(30)
LET pdepartamento = ui.combobox.forname("formonly.departamento")
CALL pdepartamento.clear()
DECLARE pagar CURSOR FOR
SELECT departamento, nom_dpto
FROM adtb00001
WHERE status_t IS NULL
ORDER BY nom_dpto
FOREACH pagar INTO kdepartamento, kdescripcion
CALL pdepartamento.additem(kdepartamento, kdescripcion)
END FOREACH
END FUNCTION
PROYECTO/ipdir/ipprrp013.4gl
+3 -3
View File
@@ -629,7 +629,7 @@ REPORT estadistica(x,dias2,c_dias)
FORMAT
FIRST PAGE HEADER
LET hora = time
LET fecha = today
LET fecha = today
LET total_registros = 0
LET tcantidad = 0
LET fecha_v = NULL
@@ -653,14 +653,14 @@ REPORT estadistica(x,dias2,c_dias)
# BUSCA ULTIMA FECHA DE COMPRA Y VENTA DEL PRODUCTO
LET fecha_v = NULL
SELECT convert(char(10),MAX(a.fecha_factura),103) INTO fecha_v
SELECT MAX(a.fecha_factura) INTO fecha_v
FROM vetb00003 d,vetb00002 a
WHERE d.factura = a.factura AND
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
d.cod_tipo = x.cod_tipo AND d.cod_sec = x.cod_sec AND
a.status_t is NULL
LET fecha_oc = NULL
SELECT ISNULL(convert(char(10),MAX(a.fech_oc),103)," ") INTO fecha_oc
SELECT MAX(a.fech_oc) INTO fecha_oc
FROM cotb00015 d,cotb00014 a
WHERE d.num_oc = a.num_oc AND
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
PROYECTO/ipdir/ipprrp013.4rp
+33 -31
View File
@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" version="2.00">
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="60003" version="7.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-SVG/>
@@ -8,22 +8,26 @@
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../GUI/ipdir/ipprrp013.rdd" RWFglReportName="estadistica"/>
<report:Conflicts/>
<rtl:stylesheet>
<rtl:match nameConstraint="Report">
<PXML name="Pxml1">
<rtl:match name="Report" nameConstraint="Report">
<PXML>
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox4" floatingBehavior="enclosed" text="IPPRRP013"/>
<WORDBOX name="WordBox5" x="1.2386" y="453.061" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="PAGINA"/>
<WORDWRAPBOX name="p_companias.nombre Value" x="1.2386" y="184.611" width="width(&quot;M&quot;)*20" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="ELEMENTS"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" x="1.2386" y="184.611" width="width(&quot;M&quot;)*25" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="1.5cm" length="max" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox9" x="5.539" y="40.8204" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="SISTEMA DE INVENTARIO DE PRODUCTOS TERMINADOS"/>
<WORDBOX name="WordBox11" x="22.5047" y="143.465" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="DIAS DE INVENTARIO"/>
<WORDBOX name="WordBox23" x="5.539" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<WORDBOX name="WordBox24" x="27.0497" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;HORA: &quot;+hora.value}}"/>
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox23" x="5.539" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+fecha}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox24" x="27.0497" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;HORA: &quot;+hora}}"/>
</MINIPAGE>
<MINIPAGE name="Table Header" width="min" length="max" alignment="near" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
@@ -43,35 +47,33 @@
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="GRUPO" width="max" length="min" floatingBehavior="enclosed">
<WORDBOX name="WordBox26" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox24_1" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;GRUPO: &quot;+x.grupo}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode8" width="min" length="max" alignment="near" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18_1" alignment="baseline" baselineType="leftleft" text="{{x.cod_n.format(&quot;###&quot;)+&quot;&quot;+x.cod_grupo.format(&quot;###&quot;)+&quot;&quot;+x.cod_tipo.format(&quot;###&quot;)+&quot;&quot;+x.cod_sec.format(&quot;####&quot;)}}"/>
<WORDBOX name="WordBox19_1" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox33" width="6.5cm" alignment="baseline" baselineType="leftleft" text="{{x.descrip_esp.trim()}}"/>
<WORDBOX name="WordBox21" width="2.4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox29" width="1cm" alignment="baseline" floatingBehavior="enclosed" text="{{x.consumo.format(&quot;####&quot;)}}"/>
<LAYOUTNODE name="LayoutNode5" width="0.5cm" length="min" floatingBehavior="enclosed"/>
<rtl:input-variable name="x.existe" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.existe.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox31_2" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.dias" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox32" width="1cm" floatingBehavior="enclosed" text="{{x.dias.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox38" width="2cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="fecha_v" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox39" floatingBehavior="enclosed" text="{{fecha_v}}"/>
</LAYOUTNODE>
<rtl:match nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode7" width="min" length="min" floatingBehavior="enclosed">
<WORDBOX name="WordBox26_1" floatingBehavior="enclosed" text="{{&quot;TIPO: &quot;+x.tipo}}"/>
<WORDBOX name="WordBox30" floatingBehavior="enclosed" text=""/>
</LAYOUTNODE>
<rtl:match nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode8" width="min" length="max" alignment="near" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox18_1" alignment="baseline" baselineType="leftleft" text="{{x.cod_n.format(&quot;###&quot;)+&quot;&quot;+x.cod_grupo.format(&quot;###&quot;)+&quot;&quot;+x.cod_tipo.format(&quot;###&quot;)+&quot;&quot;+x.cod_sec.format(&quot;####&quot;)}}"/>
<WORDBOX name="WordBox19_1" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox33" width="6.5cm" alignment="baseline" baselineType="leftleft" text="{{x.descrip_esp.trim()}}"/>
<WORDBOX name="WordBox21" width="2.4cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox29" width="1cm" alignment="baseline" floatingBehavior="enclosed" text="{{x.consumo.format(&quot;####&quot;)}}"/>
<LAYOUTNODE name="LayoutNode5" width="0.5cm" length="min" floatingBehavior="enclosed"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.existe.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox31_2" width="1cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox32" width="1cm" floatingBehavior="enclosed" text="{{x.dias.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox38" width="2cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox39" floatingBehavior="enclosed" text="{{x.fecha}}"/>
</LAYOUTNODE>
</rtl:match>
</rtl:match>
</rtl:match>
<MINIPAGE name="MiniPage7_1" width="min" length="min">
<WORDBOX name="WordBox31" length=".5cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox33_1" floatingBehavior="enclosed" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+total_registros.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</MINIPAGE>
</MINIPAGE>
PROYECTO/ipdir/ipprrp014.4gl
+3 -2
View File
@@ -155,6 +155,7 @@ FUNCTION ipprrp013()
OPEN FORM ipfmrp014 FROM "ipfmrp014"
DISPLAY FORM ipfmrp014
CALL ui.Window.getCurrent().setText("Dias de Inventarios Gerente Marcas")
DISPLAY "ipprrp014" AT 4, 3 ATTRIBUTE(RED)
DISPLAY "Dias de Inventarios Gerente Marcas" AT 6, 33 ATTRIBUTE(BLACK)
@@ -282,8 +283,8 @@ FUNCTION ipprrp013()
LET select_bal =
"SELECT a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec, a.descrip_esp,",
" a.unidad_med, '0', d.descripcion, ' ', x.cod_categoria, x.descripcion,",
" convert(char(10), uv.fecha_v, 103),",
" convert(char(10), uc.fecha_oc, 103),",
" uv.fecha_v,",
" uc.fecha_oc,",
" ISNULL(uc.tcantidad, 0)",
" FROM iptb00002 a",
" INNER JOIN iptb00035 x1 ON a.cod_n = x1.cod_n",
PROYECTO/ipdir/ipprrp014.4rp
+101
View File
@@ -0,0 +1,101 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterlength" RWPageLength="letterwidth" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp014.rdd" RWFglReportName="estadistica"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="center">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox4" floatingBehavior="enclosed" text="IPPRRP014"/>
<WORDBOX name="WordBox5" x="1.2386" y="453.061" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="PAGINA"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" x="1.2386" y="184.611" width="width(&quot;M&quot;)*20" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="1.5cm" length="max" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox9" x="5.539" y="40.8204" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="SISTEMA DE INVENTARIO DE PRODUCTOS TERMINADOS"/>
<WORDBOX name="WordBox11" x="22.5047" y="143.465" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="DIAS DE INVENTARIO"/>
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox23" x="5.539" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox24" x="27.0497" y="437.976" anchorX="0" anchorY="0" floatingBehavior="enclosed" text="{{&quot;HORA: &quot;+hora.value}}"/>
</MINIPAGE>
<MINIPAGE name="Table Header" width="min" length="max" alignment="near" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox" width="6cm" floatingBehavior="enclosed" text="{{&quot;Fecha Inicial: &quot;+fecha1.value}}"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox40" width="4cm" floatingBehavior="enclosed" textAlignment="right" text="{{&quot;Fecha Final: &quot;+fecha2.value}}"/>
<MINIPAGE name="Separator1" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
<rtl:input-variable name="dias1" type="FGLNumeric" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox45" alignment="near" floatingBehavior="enclosed" text="{{&quot;DIAS PERIODO: &quot;+dias1}}"/>
<LAYOUTNODE name="LayoutNode3" width="min" length="max" alignment="near" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="free">
<WORDBOX name="WordBox13" floatingBehavior="enclosed" text="CODIGO"/>
<WORDBOX name="WordBox14" width="1cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox15" floatingBehavior="enclosed" text="DESCRIPCION"/>
<WORDBOX name="WordBox16" width="3cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox17" alignment="baseline" floatingBehavior="enclosed" text="VENTAS DEL PERIODO"/>
<WORDBOX name="WordBox18" width="0.6cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox19" floatingBehavior="enclosed" text="EXISTENCIA"/>
<WORDBOX name="WordBox33_2" width="0.5cm" alignment="center" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox34" floatingBehavior="enclosed" text="DIAS INV"/>
<WORDBOX name="WordBox36" width="0.5cm" floatingBehavior="enclosed" text=""/>
<WORDBOX name="WordBox37" floatingBehavior="enclosed" text="FECHA VENTA"/>
<WORDBOX name="WordBox42" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="FECHA C"/>
<WORDBOX name="WordBox43" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD C."/>
<WORDBOX name="WordBox44" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="ROTACION"/>
</LAYOUTNODE>
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="DETALLE" width="min" length="max" alignment="near" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18_1" alignment="baseline" baselineType="leftleft" text="{{x.cod_n.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_grupo.format(&quot;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_tipo.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_sec.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
<WORDBOX name="WordBox19_1" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*25" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.trim()+&quot; &quot;+x.unidad_med.trim()}}"/>
<WORDBOX name="WordBox41" width="1cm" alignment="baseline" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox29" width="1.5cm" alignment="baseline" floatingBehavior="enclosed" text="{{x.consumo.format(&quot;####.####&quot;)}}"/>
<rtl:input-variable name="x.existe" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="2cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.existe.format(&quot;###,###.####&quot;)}}"/>
<WORDBOX name="WordBox31_2" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.dias" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox32" width="1cm" color="{{x.dias&gt;200?Color.RED:Color.BLACK}}" floatingBehavior="enclosed" text="{{x.dias.format(&quot;###,###&quot;)}}"/>
<WORDBOX name="WordBox38" width="1cm" floatingBehavior="enclosed" text=""/>
<rtl:input-variable name="x.fecha_v" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox39" width="1.5cm" floatingBehavior="enclosed" text="{{x.fecha_v}}"/>
<rtl:input-variable name="x.fecha_oc" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="fecha_oc Value" width="1.5cm" floatingBehavior="enclosed" textAlignment="right" text="{{x.fecha_oc}}"/>
<rtl:input-variable name="x.tcantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="tcantidad Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#.####" value="{{x.tcantidad}}"/>
<rtl:input-variable name="rot_anual" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="rot_anual Value" class="grwNumericValue" width="3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="{{&quot;--,--&amp;.&amp;&amp;&quot;}}" value="{{rot_anual}}"/>
</LAYOUTNODE>
</rtl:match>
</rtl:match>
<MINIPAGE name="TOTALES" width="min" length="min">
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox33_1" floatingBehavior="enclosed" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+total_registros.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</MINIPAGE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/ipdir/ipprrp046.4gl
+16 -2
View File
@@ -53,6 +53,7 @@ FUNCTION ipprrp046()
OPEN FORM ipfmrp046 FROM "ipfmrp046"
DISPLAY FORM ipfmrp046
CALL ui.Window.getCurrent().setText("Relacion de Documentos")
# CALL pantalla()
DISPLAY "ipprrp046" AT 4,3 ATTRIBUTE(RED)
DISPLAY " Relacion de Documentos" AT 6,22 ATTRIBUTE(BLACK)
@@ -110,8 +111,8 @@ END INPUT
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING handler
CALL selectOutputSimple() RETURNING r_output
LET handler = configurarSalidaClasica(r_output)
START REPORT relacion TO XML HANDLER handler
@@ -241,3 +242,16 @@ END FUNCTION
ON LAST ROW
END REPORT
FUNCTION configurarSalidaClasica(tipo_file)
DEFINE tipo_file CHAR(3)
IF NOT fgl_report_loadCurrentSettings(NULL) THEN
RETURN NULL
END IF
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
CALL fgl_report_selectDevice(tipo_file)
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
CALL fgl_report_selectPreview(TRUE)
RETURN fgl_report_commitCurrentSettings()
END FUNCTION
PROYECTO/ipdir/ipprrp047.4gl
+18 -2
View File
@@ -78,6 +78,7 @@ FUNCTION ipprrp047()
OPEN FORM ipfmrp047 FROM "ipfmrp047"
DISPLAY FORM ipfmrp047
CALL ui.Window.getCurrent().setText("Transacciones de Inventario")
DISPLAY "ipprrp047" AT 4,3
DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
@@ -200,7 +201,7 @@ END IF
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview=1
CALL seleccionarsalida() RETURNING r_output -- load the .4rp file
CALL selectOutputSimple() RETURNING r_output -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
@@ -504,5 +505,20 @@ FORMAT
END REPORT
FUNCTION busca_departamento()
DEFINE
pdepartamento ui.combobox,
kdepartamento SMALLINT,
kdescripcion CHAR(30)
LET pdepartamento = ui.combobox.forname("formonly.departamento")
CALL pdepartamento.clear()
DECLARE pagar CURSOR FOR
SELECT departamento, nom_dpto
FROM adtb00001
WHERE status_t IS NULL
ORDER BY nom_dpto
FOREACH pagar INTO kdepartamento, kdescripcion
CALL pdepartamento.additem(kdepartamento, kdescripcion)
END FOREACH
END FUNCTION
PROYECTO/ipdir/ipprrp047.4rp
+146
View File
@@ -0,0 +1,146 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp047.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp047"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="260.309" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" text="Cantidad"/>
<WORDBOX name="WordBox4_2" width="32.3514" alignment="baseline" floatingBehavior="enclosed" text="Material"/>
<WORDBOX name="WordBox4_3" width="40.1171" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="V.material"/>
<WORDBOX name="WordBox4_4" width="35.495" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="Labor"/>
<WORDBOX name="WordBox4_5_1" width="37.566" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="V.labor"/>
<WORDBOX name="WordBox4_5" width="33.566" length="10.2883" alignment="baseline" floatingBehavior="enclosed" text="Gasto"/>
<WORDBOX name="WordBox4_6" width="38.3124" length="10.2883" alignment="near" floatingBehavior="enclosed" text="V.gasto"/>
<WORDBOX name="WordBox4" width="23.9461" length="8.89765" alignment="center" floatingBehavior="enclosed" text="V.Total"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_cia" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="234" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="262.827" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="26.2623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.material Value" width="30.7929" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.material}}"/>
<rtl:input-variable name="v_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_material Value" width="38.6108" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_material}}"/>
<rtl:input-variable name="x.labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.labor Value" width="27.0502" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.labor}}"/>
<rtl:input-variable name="v_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_labor Value" width="39.0459" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_labor}}"/>
<rtl:input-variable name="x.gastos" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.gastos Value" width="34.2279" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.gastos}}"/>
<rtl:input-variable name="v_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="v_gasto Value" width="39.5104" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{v_gasto}}"/>
<rtl:input-variable name="total_costo_st" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_costo_st Value" width="37.0251" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$---,---,-&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_costo_st}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="262.382" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="25.9289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<rtl:input-variable name="t_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_material Value" width="30.5858" length="6.5" anchorX="1" alignment="far" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_material}}"/>
<rtl:input-variable name="total_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material Value" width="39.5148" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_material}}"/>
<rtl:input-variable name="t_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_labor Value" width="26.5356" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_labor}}"/>
<rtl:input-variable name="total_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor Value" width="39.0208" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_labor}}"/>
<rtl:input-variable name="t_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_gasto Value" width="34.3137" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_gasto}}"/>
<rtl:input-variable name="total_gastos" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos Value" width="39.9497" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_gastos}}"/>
<rtl:input-variable name="total_valor_departamento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_departamento Value" width="36.7678" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_valor_departamento}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="262.382" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="25.636" length="5.04545" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<rtl:input-variable name="t_m_material" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_material Value" width="30.6465" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_material}}"/>
<rtl:input-variable name="total_material_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material_movimiento Value" width="39.3683" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_material_movimiento}}"/>
<rtl:input-variable name="t_m_labor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_labor Value" width="26.6821" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_labor}}"/>
<rtl:input-variable name="total_labor_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor_movimiento Value" width="39.8267" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_labor_movimiento}}"/>
<rtl:input-variable name="t_m_gasto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_gasto Value" width="33.7784" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_gasto}}"/>
<rtl:input-variable name="total_gastos_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos_movimiento Value" width="39.8916" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_gastos_movimiento}}"/>
<rtl:input-variable name="total_valor_movimiento" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_movimiento Value" width="37.4142" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="$&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&lt;,&lt;&lt;&amp;.&amp;&amp;" value="{{total_valor_movimiento}}"/>
</MINIPAGE>
</rtl:match>
<LAYOUTNODE name="CiaNode" width="min" length="min" fontSize="5" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="titulo_cia" type="FGLString" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox9" width="3.5inch" alignment="near" floatingBehavior="enclosed" textAlignment="right" text="{{&quot;TOTAL ORIGEN: &quot;+titulo_cia.trim()}}"/>
<rtl:input-variable name="t_consumo_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo_cia Value" class="grwNumericValue" width=".5inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo_cia}}"/>
<rtl:input-variable name="t_material_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_material_cia Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="--,---,---,---,--&amp;.&amp;&amp;" value="{{t_material_cia}}"/>
<rtl:input-variable name="t_labor_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_labor_cia Value" class="grwNumericValue" width=".9inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_labor_cia}}"/>
<rtl:input-variable name="t_gasto_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_gasto_cia Value" class="grwNumericValue" width=".5inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,--&amp;.&amp;&amp;" value="{{t_gasto_cia}}"/>
<rtl:input-variable name="t_general_cia" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_general_cia Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="--,---,---,---,--&amp;.&amp;&amp;" value="{{t_general_cia}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="totalgeneral" width="min" length="min" fontSize="5" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderStyle="solid">
<WORDBOX name="WordBox10" width="3.5inch" floatingBehavior="enclosed" textAlignment="right" text="TOTAL GENERAL"/>
<rtl:input-variable name="total_consumo_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_consumo_gral Value" class="grwNumericValue" width=".55inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_consumo_gral}}"/>
<rtl:input-variable name="total_material_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_material_gral Value" class="grwNumericValue" width="70.3951" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="###,###,#&amp;.&amp;&amp;" value="{{total_material_gral}}"/>
<rtl:input-variable name="total_labor_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_labor_gral Value" class="grwNumericValue" width="55.2863" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_labor_gral}}"/>
<rtl:input-variable name="total_gastos_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_gastos_gral Value" class="grwNumericValue" width="60.1079" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="###,##&amp;.&amp;&amp;" value="{{total_gastos_gral}}"/>
<rtl:input-variable name="total_valor_gral" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_valor_gral Value" class="grwNumericValue" width="43.7298" length="6" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="#,###,###,##&amp;.&amp;&amp;" value="{{total_valor_gral}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/ipdir/ipprrp048.4rp
+93
View File
@@ -0,0 +1,93 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="31408" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/IPPRRP048.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp048"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="233.809" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Cantidad"/>
<WORDBOX name="WordBox9" width="36" floatingBehavior="enclosed" textAlignment="right" text="UM"/>
<WORDBOX name="WordBox10" width="50.5" floatingBehavior="enclosed" textAlignment="right" text="F.conversion"/>
<WORDBOX name="WordBox10_1" width="45.5" floatingBehavior="enclosed" textAlignment="right" text="F.Adicional"/>
<WORDBOX name="WordBox11" width="64.5" floatingBehavior="enclosed" textAlignment="right" text="Mts. Adicionales"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="233.5" alignment="baseline" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="233.327" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="33.7623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.unidad_med Value" width="37.5" alignment="baseline" floatingBehavior="enclosed" text="{{x.unidad_med}}" textAlignment="right"/>
<rtl:input-variable name="x.factor_conv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_conv Value" width="49.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_conv}}"/>
<rtl:input-variable name="x.factor_ad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_ad Value" width="47" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_ad}}"/>
<rtl:input-variable name="x.mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.mtsAdicionales Value" width="61.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="223.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="42.4289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<LAYOUTNODE name="LayoutNode2" width="5.85786" length="153.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_mtsAdicionales Value" width="41.4645" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="224.542" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="41.636" length="5.04545" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<LAYOUTNODE name="LayoutNode1" width="5.28431" length="154.438" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_m_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_mtsAdicionales Value" width="39.9792" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_general" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox13" width="223.28" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total General: "/>
<rtl:input-variable name="t_t_consumo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_consumo Value" width="42.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_consumo}}"/>
<LAYOUTNODE name="LayoutNode" width="5.70476" length="154.964" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_mtsAdicionales Value" width="40.2628" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_mtsAdicionales}}"/>
</MINIPAGE>
</MINIPAGE>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/ipdir/ipprrp051.4gl
+20 -2
View File
@@ -87,6 +87,7 @@ FUNCTION ipprrp051()
OPEN FORM ipfmrp051 FROM "ipfmrp051"
DISPLAY FORM ipfmrp051
CALL ui.Window.getCurrent().setText("Transacciones de Inventario")
DISPLAY "ipprrp051" AT 4, 3
DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6, 18
@@ -186,8 +187,7 @@ FUNCTION ipprrp051()
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview = 1
CALL seleccionarsalida()
RETURNING r_output -- load the .4rp file
CALL selectOutputSimple() RETURNING r_output -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler =
@@ -381,3 +381,21 @@ REPORT opera(x, y)
LET t_t_mtsAdicionales = SUM(x.mtsAdicionales)
PRINTX t_t_consumo, t_t_mtsAdicionales
END REPORT
FUNCTION busca_departamento()
DEFINE
pdepartamento ui.combobox,
kdepartamento SMALLINT,
kdescripcion CHAR(30)
LET pdepartamento = ui.combobox.forname("formonly.departamento")
CALL pdepartamento.clear()
DECLARE pagar CURSOR FOR
SELECT departamento, nom_dpto
FROM adtb00001
WHERE status_t IS NULL
ORDER BY nom_dpto
FOREACH pagar INTO kdepartamento, kdescripcion
CALL pdepartamento.additem(kdepartamento, kdescripcion)
END FOREACH
END FUNCTION
PROYECTO/ipdir/ipprrp051.4rp
+118
View File
@@ -0,0 +1,118 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/IPPRRP051.rdd" RWFglReportName="opera"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="max" alignment="near">
<LAYOUTNODE name="Cabeceras" width="min" length="min" fontSize="8" fontBold="true" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="Enc.Principal" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox" width="38.5" floatingBehavior="enclosed" text="ipprrp051"/>
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="459.302" floatingBehavior="enclosed" text="{{p_companias.nombre}}" textAlignment="center"/>
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="Pagina: "/>
<PAGENOBOX name="PageNoBox" width="9.5" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="Enc.Secundario" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<rtl:input-variable name="rango_fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="rango_fecha Value" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{rango_fecha}}"/>
<WORDBOX name="WordBox5" width="342.328" alignment="near" floatingBehavior="enclosed" text=" Reporte productos terminados"/>
<rtl:input-variable name="fecha_reporte" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="fecha_reporte Value" alignment="near" floatingBehavior="enclosed" text="{{fecha_reporte}}"/>
</LAYOUTNODE>
<MINIPAGE name="Titulo1" width="9.2883" length="537.324" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox2" width="233.809" alignment="center" floatingBehavior="enclosed" text="Producto"/>
<WORDBOX name="WordBox4_1" width="33.3244" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Cantidad"/>
<WORDBOX name="WordBox9" width="36" floatingBehavior="enclosed" textAlignment="right" text="UM"/>
<WORDBOX name="WordBox10" width="50.5" floatingBehavior="enclosed" textAlignment="right" text="F.conversion"/>
<WORDBOX name="WordBox10_1" width="45.5" floatingBehavior="enclosed" textAlignment="right" text="F.Adicional"/>
<WORDBOX name="WordBox11" width="64.5" floatingBehavior="enclosed" textAlignment="right" text="Mts. Adicionales"/>
</MINIPAGE>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="titulo_mov Value" width="233.5" alignment="baseline" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov}}"/>
<rtl:match name="Group departamento" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:input-variable name="x.departamento" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.departamento Value" width="233.5" fontSize="6" fontBold="true" floatingBehavior="enclosed" text="{{x.departamento}}"/>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Data" width="min" length="538.746" fontSize="5" layoutDirection="leftToRight">
<rtl:input-variable name="producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="producto Value" width="233.327" alignment="baseline" fontSize="5" floatingBehavior="enclosed" text="{{producto}}"/>
<rtl:input-variable name="x.consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.consumo Value" width="33.7623" anchorX="1" alignment="baseline" fontSize="5" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,-----&amp;.&amp;&amp;" value="{{x.consumo}}"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.unidad_med Value" width="37.5" alignment="baseline" floatingBehavior="enclosed" text="{{x.unidad_med}}" textAlignment="right"/>
<rtl:input-variable name="x.factor_conv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_conv Value" width="49.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_conv}}"/>
<rtl:input-variable name="x.factor_ad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factor_ad Value" width="47" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" value="{{x.factor_ad}}"/>
<rtl:input-variable name="x.mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.mtsAdicionales Value" width="61.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.mtsAdicionales}}"/>
</MINIPAGE>
<MINIPAGE name="total_departamento1" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="seccion" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Seccion:"/>
<rtl:input-variable name="y.seccion" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.seccion Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.seccion}}"/>
<LAYOUTNODE name="LayoutNode4" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="tramo" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Tramo:"/>
<rtl:input-variable name="y.tramo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.tramo Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.tramo}}"/>
<LAYOUTNODE name="LayoutNode4_1" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="fila" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Fila:"/>
<rtl:input-variable name="y.fila" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.fila Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.fila}}"/>
<LAYOUTNODE name="LayoutNode4_2" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<WORDBOX name="posicion" width="24.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Posicion:"/>
<rtl:input-variable name="y.posicion" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="y.posicion Value" class="grwNumericValue" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{y.posicion}}"/>
<LAYOUTNODE name="LayoutNode4_3" width="5.85786" length="11.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
</MINIPAGE>
<rtl:match name="For" nameConstraint="For" minOccurs="1" maxOccurs="1">
<rtl:match name="ForItem" nameConstraint="ForItem" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="If" nameConstraint="If" minOccurs="1" maxOccurs="1">
<rtl:match name="IfThen" nameConstraint="IfThen" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</rtl:match>
</rtl:match>
</rtl:match>
<MINIPAGE name="total_departamento" width="min" length="538.703" alignment="near" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox6" width="223.28" length="5.95578" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="Total departamento: "/>
<rtl:input-variable name="t_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_consumo Value" width="42.4289" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_consumo}}"/>
<LAYOUTNODE name="LayoutNode2" width="5.85786" length="153.997" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_mtsAdicionales Value" width="41.4645" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_movimiento" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox8" width="224.542" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total Movimiento: "/>
<rtl:input-variable name="t_m_consumo" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_consumo Value" width="41.636" length="5.04545" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_consumo}}"/>
<LAYOUTNODE name="LayoutNode1" width="5.28431" length="154.438" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_m_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="t_m_mtsAdicionales Value" width="39.9792" anchorX="1" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_m_mtsAdicionales}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="total_general" width="min" length="538.287" fontSize="5" fontBold="true" layoutDirection="leftToRight" borderWidth="0.5" borderStyle="solid">
<WORDBOX name="WordBox13" width="223.28" length="6.10193" floatingBehavior="enclosed" textAlignment="right" text="Total General: "/>
<rtl:input-variable name="t_t_consumo" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_consumo Value" width="42.5" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_consumo}}"/>
<LAYOUTNODE name="LayoutNode" width="5.70476" length="154.964" layoutDirection="leftToRight" floatingBehavior="enclosed"/>
<rtl:input-variable name="t_t_mtsAdicionales" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="t_t_mtsAdicionales Value" width="40.2628" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{t_t_mtsAdicionales}}"/>
</MINIPAGE>
</MINIPAGE>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/ipdir/ipprrp053.4gl
+2 -1
View File
@@ -43,6 +43,7 @@ FUNCTION ipprrp053()
OPEN FORM ipfmrp053 FROM "ipfmrp053"
DISPLAY FORM ipfmrp053
CALL ui.Window.getCurrent().setText("Informe Transacciones Inventarios")
INPUT BY NAME fecha1, fecha2
@@ -112,7 +113,7 @@ FUNCTION ipprrp053()
LET r_filename = "ipprrp053.4rp"
IF fgl_report_loadCurrentSettings(r_filename) THEN
LET preview = 1
CALL selectoutput() RETURNING r_output
CALL selectOutputSimple() RETURNING r_output
CALL fgl_report_selectDevice(r_output)
CALL fgl_report_selectPreview(preview)
LET handler = fgl_report_commitCurrentSettings()
PROYECTO/ipdir/ipprrp053.4rp
+100
View File
@@ -0,0 +1,100 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
<report:Settings RWPageWidth="25.00cm" RWPageLength="29.70cm" RWLeftMargin="0.511993cm" RWTopMargin="1.3cm" RWRightMargin="0.430673cm" RWBottomMargin="1.3cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp053.rdd" RWFglReportName="rpt_ipprrp053"/>
<report:Conflicts>
<report:Conflict nodeName="LayoutNode31_1_1" message="Node was in trigger &quot;OnLastRow [0; 1]&quot;, but trigger was removed during schema update"/>
</report:Conflicts>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="pageRoot" width="max" length="766.687" alignment="near" fontName="Arial">
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="Layout Node7" width="min" length="min" alignment="center" swapX="true" port="firstPageHeader">
<LAYOUTNODE name="Titulo" width="min" length="max" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" borderWidth="0.2" borderStyle="solid" borderColor="#828282">
<WORDBOX name="WordBox159" width="66" alignment="baseline" floatingBehavior="enclosed" text="ipprrp053"/>
<WORDWRAPBOX name="p_companias.nombre Value" width="549.417" length="14.7813" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;MARMOTECH S.A.&quot;}}" textAlignment="center"/>
<WORDBOX name="WordBox159_1" width="66" alignment="baseline" floatingBehavior="enclosed" text=""/>
</LAYOUTNODE>
<MINIPAGE name="StripeLayouter14" width="16.245" length="max" alignment="center" layoutDirection="leftToRight">
<WORDBOX name="WordBox2_1_1" width="146" alignment="baseline" fontBold="true" floatingBehavior="enclosed" textAlignment="left" text="Fecha desde:" borderWidth="0"/>
<WORDBOX name="WordBox2_1" width="153" alignment="baseline" fontBold="true" floatingBehavior="enclosed" textAlignment="left" text="Hasta:" borderWidth="0"/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="fech_inicio Value" class="grwDateValue" x="0.4891" y="80.0076" width="62.125" anchorX="0" anchorY="0" floatingBehavior="enclosed" format="{{&quot;dd/mm/yyyy&quot;}}" value="{{Date.fromIsoValue(fecha1.isoValue)}}"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="fech_corte Value" class="grwDateValue" x="0.4891" y="186.04" width="102.969" anchorX="0" anchorY="0" floatingBehavior="enclosed" format="{{&quot;dd/mm/yyyy&quot;}}" value="{{Date.fromIsoValue(fecha2.isoValue)}}"/>
</MINIPAGE>
<MINIPAGE name="Enc.Secundario" width="min" length="min" alignment="near" layoutDirection="leftToRight" borderWidth="0.2" borderStyle="solid" borderColor="#828282">
<WORDBOX name="WordBox2" width="679.635" alignment="near" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="INFORME TRANSACCIONES INVENTARIOS" borderWidth="0"/>
<rtl:input-variable name="fecha_actual" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="x.fecha_factura Value" width="141.56" length="22.3906" alignment="near" fontBold="true" floatingBehavior="enclosed" textAlignment="right" text="{{fecha_actual}}" borderWidth="0"/>
</MINIPAGE>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="Group codigo_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode31_1" width="26.5682" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderColor="#dfdfdf">
<rtl:input-variable name="x.codigo_mov" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
<rtl:input-variable name="x.descripcion_mov" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="karr_ordenes.valor Value9" class="grwNumericValue" width="254.866" length="25.0469" anchorX="1" alignment="center" fontSize="10" fontBold="true" baselineType="leftleft" textAlignment="left" text="{{&quot;(&quot;+x.codigo_mov+&quot;)&quot;+&quot; &quot;+x.descripcion_mov}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="encabezadod" width="max" length="min" swapX="true">
<MINIPAGE name="StripeLayouter23" width=".1cm" bgColor="#cc" layoutDirection="leftToRight"/>
<MINIPAGE name="encabezadodetalle" width="min" length="max" bgColor="#cccccc" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox44" width="92.688" length="12.3906" alignment="center" fontSize="8" baselineType="leftleft" textAlignment="center" text="{{&quot;FECHA&quot;}}"/>
<WORDWRAPBOX name="WordWrapBox17" width="84.52" alignment="center" fontSize="8" baselineType="leftleft" text="DOCUMENTO" textAlignment="center"/>
<WORDWRAPBOX name="WordBox120_1_2" width="156.347" alignment="center" fontSize="8" floatingBehavior="enclosed" text="ORIGEN&#10;" textAlignment="center"/>
<WORDWRAPBOX name="WordBox120_4" width="141.347" length="9.1719" alignment="center" fontSize="8" floatingBehavior="enclosed" text="PRODUCTO&#10;" textAlignment="center"/>
<WORDBOX name="WordBox120_1_1" width="84.3465" alignment="center" fontSize="8" floatingBehavior="enclosed" textAlignment="center" text="CANTIDAD"/>
<WORDBOX name="WordBox120_1" width="84.3465" alignment="center" fontSize="8" floatingBehavior="enclosed" textAlignment="center" text="COSTO"/>
</MINIPAGE>
<MINIPAGE name="StripeLayouter25" width=".1cm" bgColor="#cc" layoutDirection="leftToRight"/>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="LayoutNode31" width="34.5682" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#dfdfdf">
<rtl:input-variable name="print_fecha" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox4" width="86.359" length="24.3281" alignment="baseline" fontSize="8" floatingBehavior="enclosed" text="{{print_fecha}}" trimText="both" textAlignment="center"/>
<rtl:input-variable name="print_doc" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox" width="85.197" length="24.2783" alignment="baseline" fontSize="8" baselineType="leftleft" textAlignment="center" text="{{print_doc}}"/>
<LAYOUTNODE name="espacio" width="min" length="3.5197" layoutDirection="leftToRight"/>
<LAYOUTNODE name="espacio5_1" width="21" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="print_almacen" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.almacen Value" class="grwStringValue" width="width(&quot;M&quot;)*20" length="26.3281" floatingBehavior="enclosed" text="{{print_almacen}}" textAlignment="center"/>
<LAYOUTNODE name="espacio5_1_7" width="21" length="4" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.producto" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.producto Value" class="grwStringValue" width="136.688" length="33.3281" fontSize="9" floatingBehavior="enclosed" text="{{x.producto}}" textAlignment="center"/>
<LAYOUTNODE name="espacio5_1_1" width="20" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.cantidad Value" class="grwNumericValue" width="89.9844" length="25.0469" anchorX="1" floatingBehavior="enclosed" textAlignment="center" format="---,---,---,---,---,--&amp;.&amp;&amp;" value="{{x.cantidad}}"/>
<LAYOUTNODE name="espacio5_1_1_1" width="20" length="5" layoutDirection="leftToRight"/>
<rtl:input-variable name="x.costo_standard" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.costo_standard Value" class="grwNumericValue" length="25.183" anchorX="1" floatingBehavior="enclosed" textAlignment="center" format="---,---,---,---,---,--&amp;.&amp;&amp;" value="{{x.costo_standard}}"/>
</LAYOUTNODE>
</rtl:match>
<LAYOUTNODE name="LayoutNode31_1_1_1" width="25.433" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#000000">
<rtl:input-variable name="grupo_registros" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox18" width="173.996" length="24.3281" alignment="center" fontBold="true" floatingBehavior="enclosed" text="{{&quot;Total movimiento: &quot;+grupo_registros}}" trimText="both" textAlignment="left"/>
<LAYOUTNODE name="espacio5_1_8" width="20" length="353.377" layoutDirection="leftToRight"/>
<rtl:input-variable name="grupo_cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="arr_costos.codigo_bloque Value7" class="grwStringValue" width="107.174" length="25.0469" fontBold="true" floatingBehavior="enclosed" textAlignment="center" value="{{grupo_cantidad}}"/>
</LAYOUTNODE>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="LayoutNode31_1_1" width="25.433" length="max" alignment="near" fontSize="9" layoutDirection="leftToRight" borderWidth="1" borderStyle="solid" borderColor="#000000">
<rtl:input-variable name="total_registros" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox11" width="174.36" length="24.3281" alignment="center" fontBold="true" floatingBehavior="enclosed" text="{{&quot;Total registros: &quot;+total_registros}}" trimText="both" textAlignment="left"/>
<LAYOUTNODE name="espacio5_1_5" width="20" length="353.377" layoutDirection="leftToRight"/>
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="arr_costos.codigo_bloque Value6" class="grwStringValue" width="107.174" length="25.0469" fontBold="true" floatingBehavior="enclosed" textAlignment="center" value="{{total_cantidad}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/ipdir/ipprrp054.4gl
+28 -20
View File
@@ -34,6 +34,7 @@ FUNCTION ipprrp054()
OPEN FORM ipfmrp054 FROM "ipfmrp054"
DISPLAY FORM ipfmrp054
CALL ui.Window.getCurrent().setText("Conduces con y sin Archivo")
INPUT BY NAME fecha1,fecha2
BEFORE INPUT
AFTER INPUT
@@ -50,27 +51,34 @@ FUNCTION ipprrp054()
LET r_filename = "ipprrp054.4rp"
CALL seleccionarsalida() RETURNING r_output
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
LET preview=1
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
ELSE
EXIT PROGRAM
END IF
START REPORT prt_co TO XML HANDLER HANDLER
PREPARE comando FROM selec
DECLARE busca CURSOR FOR comando
OPEN busca USING fecha1,fecha2
PREPARE comando FROM selec
DECLARE busca CURSOR FOR comando
OPEN busca USING fecha1,fecha2
LET idx = 0
FOREACH busca INTO co.*
IF idx = 0 THEN
CALL selectOutputSimple() RETURNING r_output
IF fgl_report_loadCurrentSettings(r_filename) THEN
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 prt_co TO XML HANDLER HANDLER
LET idx = 1
END IF
OUTPUT TO REPORT prt_co(co.*)
END FOREACH
IF idx = 1 THEN
FINISH REPORT prt_co
ELSE
CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS", "INFO")
END IF
FOREACH busca INTO co.*
OUTPUT TO REPORT prt_co(co.*)
END FOREACH
FINISH REPORT prt_co
END INPUT
END FUNCTION
PROYECTO/ipdir/ipprrp054.4rp
+65
View File
@@ -0,0 +1,65 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="31405" version="6.00">
<report:Settings RWPageWidth="a4width" RWPageLength="a4length" RWLeftMargin="1.3cm" RWTopMargin="1.3cm" RWRightMargin="1.3cm" RWBottomMargin="1.3cm">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../ipdir/ipprrp054.rdd" RWFglReportName="prt_co"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
<MINIPAGE name="Page Root" width="max" length="max">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="Report Title" x="0" y="max/2" anchorX="0" anchorY="0.5" alignment="baseline" fontSize="25" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre.trim()}}"/>
<PAGENOBOX name="PageNoBox" x="1.23857" y="max" anchorX="0" anchorY="1" alignment="baseline" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="IPPRRP054"/>
<rtl:input-variable name="fecht" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox1" y="15cm" floatingBehavior="enclosed" text="{{fecht.trim()}}"/>
<WORDBOX name="WordBox10" x="1cm" y="7cm" fontBold="true" floatingBehavior="enclosed" text="Revision de Conduces"/>
<rtl:input-variable name="fecha1" type="FGLString" expectedLocation="expectedAhead"/>
<rtl:input-variable name="fecha2" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox11" x="1.5cm" y="7cm" floatingBehavior="enclosed" text="{{fecha1.trim()+&quot; AL &quot;+fecha2.trim()}}"/>
</MINIPAGE>
<MINIPAGE name="Separator1" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
<MINIPAGE name="Table Header" class="grwTableHeader" width="min" length="max" layoutDirection="leftToRight">
<WORDBOX name="Spacer" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<WORDBOX name="WordBox2" floatingBehavior="enclosed" text="{{&quot;Num. Documento&quot;}}"/>
<WORDBOX name="WordBox3" y="4cm" floatingBehavior="enclosed" text="Cliente"/>
<WORDBOX name="WordBox8" y="11cm" floatingBehavior="enclosed" text="Estado"/>
<WORDBOX name="WordBox12" y="14cm" floatingBehavior="enclosed" text="Fecha Creacion"/>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" bgColor="#000000" layoutDirection="leftToRight"/>
</LAYOUTNODE>
<rtl:match name="Group cod_mov" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row1" class="grwTableRow" width="min" length="max" layoutDirection="leftToRight">
<WORDBOX name="Spacer_2" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="titulo_mov" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox5" fontBold="true" floatingBehavior="enclosed" text="{{titulo_mov.trim()}}"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" class="grwTableRow" width="min" length="max" alignment="near" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="Spacer_1" alignment="baseline" baselineType="leftleft" port="itemSeparator" text=" "/>
<rtl:input-variable name="x.num_doc" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox6" width="2cm" floatingBehavior="enclosed" textAlignment="left" text="{{x.num_doc.format(&quot;&lt;&lt;&lt;&lt;&quot;)}}"/>
<rtl:input-variable name="x.cod_sp" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.cod_sp_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
<rtl:input-variable name="x.nombre" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" y="4cm" width="max/3" alignment="baseline" floatingBehavior="enclosed" text="{{x.cod_sp.format(&quot;&lt;&lt;&quot;)+&quot;-&quot;+x.cod_sp_sec.format(&quot;&lt;&lt;&lt;&lt;&quot;)+&quot; &quot;+x.nombre.trim()}}"/>
<rtl:input-variable name="x.v_estado" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox9" y="11cm" floatingBehavior="enclosed" text="{{x.v_estado.trim()}}"/>
<rtl:input-variable name="x.fecha" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox13" y="14cm" floatingBehavior="enclosed" text="{{x.fecha.trim()}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
PROYECTO/lqdir/lqprrp004.4gl
+823 -2
View File
File diff suppressed because one or more lines are too long
PROYECTO/mbsERP.4pw
+18 -9
View File
@@ -365,7 +365,7 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-554965098" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="lqdir/lqprmt002.4gl"/>
</Application>
<Application binaryName="lqprrp004" dependencies="2132467565,-1026233879,-764824792" externalDependencies="libgre.42x" id="-432861602" label="lqprrp004">
<Application binaryName="lqprrp004" dependencies="2132467565,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-432861602" label="lqprrp004">
<Configuration commandLineArguments="jpeguero Peguero2023" id="530364294" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="lqdir/lqprrp004.4gl"/>
</Application>
@@ -768,33 +768,40 @@
<File filePath="bin/ipprrp013r.4rp"/>
<File filePath="ipdir/ipfmrp013.4fd"/>
</Application>
<Application binaryName="ipprrp053" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000027" label="ipprrp053">
<Application binaryName="ipprrp053" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000027" label="ipprrp053">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000027" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp053.4gl"/>
<File filePath="ipdir/ipfmrp053.4fd"/>
</Application>
<Application binaryName="ipprrp014" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000028" label="ipprrp014">
<Application binaryName="ipprrp014" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000028" label="ipprrp014">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000028" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp014.4gl"/>
<File filePath="ipdir/ipfmrp014.4fd"/>
</Application>
<Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046">
<Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000029" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp046.4gl"/>
<File filePath="ipdir/ipfmrp046.per"/>
</Application>
<Application binaryName="ipprrp047" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000030" label="ipprrp047">
<Application binaryName="ipprrp047" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000030" label="ipprrp047">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000030" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp047.4gl"/>
<File filePath="ipdir/ipfmrp047.4fd"/>
</Application>
<Application binaryName="ipprrp048" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000031" label="ipprrp048">
<Application binaryName="ipprrp048" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000031" label="ipprrp048">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000031" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp048.4gl"/>
<File filePath="ipdir/ipfmrp048.4fd"/>
</Application>
<Application binaryName="ipprrp051" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000032" label="ipprrp051">
<Application binaryName="ipprrp051" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000032" label="ipprrp051">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000032" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp051.4gl"/>
<File filePath="ipdir/ipfmrp051.4fd"/>
</Application>
<Application binaryName="ipprrp054" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000033" label="ipprrp054">
<Application binaryName="ipprrp054" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000033" label="ipprrp054">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000033" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp054.4gl"/>
<File filePath="ipdir/ipfmrp054.4fd"/>
</Application>
</Group>
<Group id="615555875" label="PRODUCCION">
@@ -814,7 +821,7 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-211320415" label="Configuration"/>
<File filePath="PRDIR/prprmt010.4gl"/>
</Application>
<Application binaryName="prprmt011" dependencies="-837156229,-1026233879,-764824792" externalDependencies="libgre.42x" id="-284744691" label="prprmt011">
<Application binaryName="prprmt011" dependencies="-837156229,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-284744691" label="prprmt011">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-569394285" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="PRDIR/prprmt011.4gl"/>
</Application>
@@ -881,10 +888,12 @@
</Library>
</Group>
<Group id="46006545" label="RECURSOS HUMANOS">
<Group id="328490448" label="ADMINISTRACION PERSONAL"/>
<Library binaryName="FORMULARIOS_AD" id="1612573873" label="FORMULARIOS_AD">
<File filePath="addir/adfmwd004.per"/>
</Library>
<Library binaryName="FUNCIONES_AD" id="114070979" label="FUNCIONES_AD"/>
<Group id="942743738" label="NOMINA"/>
</Group>
<Group id="-802694369" label="REPORTE ENTRADA">
<Library binaryName="FORMULARIO_AL" id="267647114" label="FORMULARIO_AL"/>
PROYECTO/otrodir/autorizacioncontado.4gl
+1 -1
View File
@@ -39,7 +39,7 @@ FUNCTION autorizacioncontado(pcotizacion,valor_cotizado,pagado,usuarios,xmonto_a
xfecha_oc,psecvend,usuarios)
RETURNING xnum_req,valor_requisicion
END IF
IF xnum_req IS NULL THEN
IF xnum_req IS NULL OR xnum_req = 0 THEN
SELECT MAX(a.num_req) INTO xnum_req FROM cctb00026 a WHERE a.cotizacion_no = pcotizacion
AND a.status_t IS NULL
END IF
PROYECTO/otrodir/autorizacioncontado.4gl.bak20261005
+90
View File
@@ -0,0 +1,90 @@
FUNCTION autorizacioncontado(pcotizacion,valor_cotizado,pagado,usuarios,xmonto_avance,xnum_doc,xtipo_doc,xnombre_cliente)
DEFINE pcotizacion,xnum_oc,pcondpago,ptipocliente,psecliente,xnum_req,psecvend,xnum_doc INT,
xfecha_oc,xtipo_Doc CHAR(10),
usuarios,xestado VARCHAR(50),
valor_cotizado,xmonto_avance,pagado,valor_requisicion DEC(12,2),
descripcion_estado,nombre_ven,xnombre_cliente,estado VARCHAR(100)
SELECT a.num_oc,a.tipo_cliente,a.sec_cliente,a.cond_pago,a.sec_vend, CONVERT(CHAR(10),a.fecha_oc,103)
INTO xnum_oc,ptipocliente,psecliente,pcondpago,psecvend,xfecha_oc
FROM prtb00012 a WHERE a.cotizacion_no = pcotizacion AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET descripcion_estado = 'REQUISICION ',xnum_req USING "<<<<<<<<",
' NO AUTORIZADA POR SISTEMA, LA COTIZACION NO TIENE ORDEN, CONDICION AL CONTADO'
LET xestado = 'NO AUTORIZADA'
LET estado = descripcion_estado
INSERT INTO cctb00031 (fecha,us_crea,sec_vend,tipo_cliente,
sec_cliente,nombreCliente,num_req,limite_cr,monto_cotizacion,
balance,estado,tipo_doc_ref,monto_req,num_recibo,tipo_doc,
monto_avance,valor_cotizacion,descrip_estado,cotizacion_no,nombrevendedor,num_oc)
VALUES (getdate(),'MBS',psecvend,ptipocliente,psecliente,
xnombre_cliente,xnum_req,'0',valor_cotizado,'0',xestado,
xtipo_Doc,valor_cotizado,xnum_doc,xtipo_Doc,
xmonto_avance,valor_cotizado,descripcion_estado,xnum_oc,nombre_ven,xnum_oc )
RETURN
END IF
SELECT RTRIM(a.nom1_emp)+ISNULL(a.apell1_Emp,'') INTO nombre_ven
FROM adtb00003 a WHERE a.num_emp = psecvend
SELECT DISTINCT a.cotizacion_no FROM cctb00026 a WHERE a.cotizacion_no = pcotizacion
AND a.status_t IS NULL
## CUANDO NO TIENE LA REQUISICION DE DESPACHOS
IF STATUS = NOTFOUND THEN
CALL requisiciondespacho(xnum_oc,ptipocliente,psecliente,Pcondpago,valor_cotizado,
xfecha_oc,psecvend,usuarios)
RETURNING xnum_req,valor_requisicion
END IF
IF xnum_req IS NULL THEN
SELECT MAX(a.num_req) INTO xnum_req FROM cctb00026 a WHERE a.cotizacion_no = pcotizacion
AND a.status_t IS NULL
END IF
LET estado ="LA REQUISICION ",xnum_req USING "<<<<<<<<", " NO AUTORIZADA"
UPDATE cctb00001 SET num_req = xnum_req
WHERE tipo_doc =xtipo_Doc AND num_doc = xnum_doc AND
tipo_cliente =ptipocliente AND
sec_cliente = psecliente
IF xmonto_avance +pagado >= valor_cotizado THEN
LET xestado = 'AUTORIZADA'
UPDATE cctb00025 SET estado =xestado,us_mod = 'MBS',fech_mod = getdate()
WHERE num_req = xnum_req
LET descripcion_estado = 'REQUISICION ',xnum_req USING "<<<<<<<<",
' AUTORIZADA POR SISTEMA, LA COTIZACION ES AL CONTADO'
LET estado = descripcion_estado
INSERT INTO cctb00031 (fecha,us_crea,sec_vend,tipo_cliente,
sec_cliente,nombreCliente,num_req,limite_cr,monto_cotizacion,
balance,estado,tipo_doc_ref,monto_req,num_recibo,tipo_doc,
monto_avance,valor_cotizacion,descrip_estado,cotizacion_no,nombrevendedor,num_oc)
VALUES (getdate(),'MBS',psecvend,ptipocliente,psecliente,
xnombre_cliente,xnum_req,'0',valor_cotizado,'0',xestado,
xtipo_Doc,valor_cotizado,xnum_doc,xtipo_Doc,
xmonto_avance,valor_cotizado,descripcion_estado,xnum_oc,nombre_ven,xnum_oc )
ELSE
LET descripcion_estado = 'REQUISICION ',xnum_req USING "<<<<<<<<",
' NO AUTORIZADA POR SISTEMA, LA COTIZACION ES AL CONTADO'
LET xestado = 'NO AUTORIZADA'
LET estado = descripcion_estado
INSERT INTO cctb00031 (fecha,us_crea,sec_vend,tipo_cliente,
sec_cliente,nombreCliente,num_req,limite_cr,monto_cotizacion,
balance,estado,tipo_doc_ref,monto_req,num_recibo,tipo_doc,
monto_avance,valor_cotizacion,descrip_estado,cotizacion_no,nombrevendedor,num_oc)
VALUES (getdate(),'MBS',psecvend,ptipocliente,psecliente,
xnombre_cliente,xnum_req,'0',valor_cotizado,'0',xestado,
xtipo_Doc,valor_cotizado,xnum_doc,xtipo_Doc,
xmonto_avance,valor_cotizado,descripcion_estado,xnum_oc,nombre_ven,xnum_oc )
END IF
RETURN estado
END FUNCTION
PROYECTO/otrodir/autorizarequisicion.4gl
+15 -4
View File
@@ -6,13 +6,24 @@
ACTUALIZA LA REQUISICION DE DESPACHO
}
FUNCTION autorizarequisicion(balance,monto_actual_req, monto_req_autorizadas, limite_cr,tienefactura,factura)
DEFINE balance,monto_actual_req, monto_req_autorizadas, limite_cr,valor_total DEC(12,2),
FUNCTION autorizarequisicion(balance,monto_actual_req, monto_req_autorizadas, limite_cr,tienefactura,factura,ztipocliente)
DEFINE balance,monto_actual_req, monto_req_autorizadas, limite_cr,valor_total,tasa,
monto_control DEC(12,2),
string_estado STRING,
tienefactura VARCHAR(2),
autoriza BOOLEAN,
factura INT
factura,ztipocliente INT
# BUSCA TASA
SELECT a.ultima_tasa INTO tasa FROM vetb00060 a
WHERE a.tipo_cliente = ztipocliente
IF tasa > 1 THEN
LET monto_control = 1.60 * tasa
ELSE
LET monto_control = 100
END IF
LET valor_total = monto_req_autorizadas+monto_actual_req
IF tienefactura = "SI" THEN
LET string_estado = "ESTA REQUISICION NO FUE AUTORIZADA, TIENE FACTURAS VENCIDAS EL CLIENTE, UNA DE LAS FACTURAS ES ",factura USING "<<<<<<<<"
@@ -23,7 +34,7 @@ FUNCTION autorizarequisicion(balance,monto_actual_req, monto_req_autorizadas, li
#CUANDO EL CLIENTE TIENE SALDO A FAVOR
IF balance < 0 THEN
IF ((balance * -1)) >=valor_total THEN
IF ((balance * -1))+monto_control >=valor_total THEN
LET autoriza = TRUE
LET string_estado = "ESTA REQUISICION ESTA AUTORIZADA, PORQUE EL BALANCE DE ",balance USING "##,###,###.##",
PROYECTO/otrodir/evaluaclientes.4gl
+10 -10
View File
@@ -146,15 +146,15 @@ FUNCTION evaluaclientes
FOREACH busca_vencido INTO xaplicacion,xpendiente
IF xpendiente > 0 THEN
SELECT MAX( a.tipo_doc),MAX(a.fecha_ven)
INTO Xtipodoc,Xfechavence
FROM cctb00001 a
WHERE a.status_t IS NULL AND a.num_doc = a.aplica_a AND
SELECT MAX( a.tipo_doc),MAX(a.fecha_ven)
INTO Xtipodoc,Xfechavence
FROM cctb00001 a
WHERE a.status_t IS NULL AND a.num_doc = a.aplica_a AND
a.num_doc=xaplicacion AND
a.tipo_doc not in ("PG","NC","PC","OC","DV","AV","AP") and
a.tipo_cliente=xtipocliente AND
a.tipo_doc not in ("PG","NC","PC","OC","DV","AV","AP") and
a.tipo_cliente=xtipocliente AND
a.sec_cliente=xseccliente
LET dias = 0
IF xfechavence IS NULL THEN
CONTINUE FOREACH
@@ -174,8 +174,8 @@ FUNCTION evaluaclientes
EXIT FOREACH
END IF
END IF
END IF
# OUTPUT TO REPORT prueba(xaplicacion,xpendiente,xfechavence,dias)
END IF
# OUTPUT TO REPORT prueba(xaplicacion,xpendiente,xfechavence,dias)
END FOREACH
END IF
@@ -188,7 +188,7 @@ FUNCTION evaluaclientes
LET monto_cotizacion = 0
END IF
#FUNCTION PARAMETROS AUTORIZACIONES DESPACHO
CALL autorizarequisicion(balance,xmonto,monto_cotizacion,xlimite,tienefactura,facturas) RETURNING autoriza,string_estado
CALL autorizarequisicion(balance,xmonto,monto_cotizacion,xlimite,tienefactura,facturas,xtipocliente) RETURNING autoriza,string_estado
SELECT a.correo INTO emailto FROM seg0003 a,seg0000 b
WHERE b.sec_vend = xsec_vend AND
PROYECTO/otrodir/requisiciondespacho.4gl
+63 -40
View File
@@ -18,37 +18,38 @@
pusuarios CHAR(50),
selec STRING,
txtmensaje VARCHAR(200),
pubicacion VARCHAR(170)
pubicacion VARCHAR(170),
idx_max INT
DEFINE arr_requisicion DYNAMIC ARRAY OF RECORD
procesa CHAR(3),
num_oc INT,
fecha CHAR(10),
cotizacion_no INT,
tipo_cliente SMALLINT,
sec_cliente INT,
nombre CHAR(30),
cantidad_1 DEC(12,5),
DEFINE arr_requisicion DYNAMIC ARRAY OF RECORD
procesa CHAR(3),
num_oc INT,
fecha CHAR(10),
cotizacion_no INT,
tipo_cliente SMALLINT,
sec_cliente INT,
nombre CHAR(30),
cantidad_1 DEC(12,5),
cantidad DEC(12,5),
area SMALLINT,
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descripcion CHAR(30),
unidad_med CHAR(3),
cantidad_ord1 DEC(12,5),
cantidad_ord DEC(12,5),
cantidad_pendiente DEC(12,5),
precio DEC(12,2),
descuento DEC(12,2),
descvalor DEC(12,2),
valor DEC(12,2)
area SMALLINT,
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descripcion CHAR(30),
unidad_med CHAR(3),
cantidad_ord1 DEC(12,5),
cantidad_ord DEC(12,5),
cantidad_pendiente DEC(12,5),
precio DEC(12,2),
descuento DEC(12,2),
descvalor DEC(12,2),
valor DEC(12,2)
END RECORD,
pitbis,xmonto,monto_cotizacion DEC(12,2),
estado_req varchar(30),
cuenta smallint
SET CONNECTION "MSSQL"
LET monto_cotizacion = xmonto
@@ -61,16 +62,37 @@
# PREPARE s FROM "SELECT @@IDENTITY"
SELECT a.num_req INTO xnumreq FROM cctb00019 a
IF xnumreq IS NULL THEN
LET xnumreq = 0
END IF
LET xnumreq = xnumreq + 1
# 05/10/2026 - Error -268 PK_cctb00025 duplicada: el consecutivo se leia
# fuera de la transaccion y sin bloqueo (con RCSI dos usuarios leen el mismo
# num_req). Ahora se lee DENTRO de BEGIN WORK con UPDLOCK,HOLDLOCK y se
# compara contra MAX(cctb00025) por si el contador quedo atrasado.
WHENEVER ERROR CONTINUE
BEGIN WORK
PREPARE p_numreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00019 WITH (UPDLOCK, HOLDLOCK)"
EXECUTE p_numreq INTO xnumreq
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
PREPARE p_maxreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00025 WITH (UPDLOCK, HOLDLOCK)"
EXECUTE p_maxreq INTO idx_max
IF xnumreq IS NULL THEN
LET xnumreq = 0
END IF
IF idx_max > xnumreq THEN
LET xnumreq = idx_max
END IF
LET xnumreq = xnumreq + 1
UPDATE cctb00019 SET num_req = xnumreq,us_crea=pusuarios,fech_crea=getdate()
# EXECUTE s INTO xnumreq
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
LET selec =
"INSERT INTO cctb00034 (id_kit,cotizacion_no,num_oc,num_req,secuencia,area,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad)",
"SELECT a.id_kit,a.cotizacion_no,a.num_oc,'",xnumreq USING "<<<<<<","',a.secuencia,a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad ",
@@ -82,8 +104,8 @@ BEGIN WORK
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
LET estado_req = 'NO AUTORIZADA'
@@ -169,8 +191,8 @@ BEGIN WORK
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
@@ -208,8 +230,8 @@ BEGIN WORK
EXECUTE comando
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
@@ -221,8 +243,8 @@ BEGIN WORK
"NO DESPACHADA",xmonto)
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
CALL fgl_winmessage("ERROR",SQLERRMESSAGE,"STOP")
RETURN 0,0
END IF
COMMIT WORK
@@ -246,5 +268,6 @@ BEGIN WORK
# subject, procedimiento )
# CALL fgl_Winmessage("INFORMACION",chmensaje,"STOP")
WHENEVER ERROR STOP
RETURN xnumreq,xmonto
END FUNCTION
PROYECTO/otrodir/requisiciondespacho.4gl.bak20261005
+250
View File
@@ -0,0 +1,250 @@
{
FUNCION : requisiciondespacho()
OBJETIVO : hacer la requisicion de despacho automatica
FECHA : 27/08/2011
DESARROLLADO POR : Ing. Juan Soto
}
SCHEMA smarmotech
FUNCTION requisiciondespacho(xnum_oc,xtipo_cliente,xsec_cliente,xcondpago,xmonto,xfecha_oc,
xsec_vend,pusuarios)
DEFINE xnum_oc INT,
xfecha_oc DATE,
xsec_vend,xkit INT,
xnumreq,xtipo_cliente,xsec_cliente,pcotizacion INT,
idx,xcondpago smallint,
chmensaje,procedimiento,cuerpo_correo,subject STRING,
vendedorEmail,nombre_vendedor CHAR(60),
pusuarios CHAR(50),
selec STRING,
txtmensaje VARCHAR(200),
pubicacion VARCHAR(170)
DEFINE arr_requisicion DYNAMIC ARRAY OF RECORD
procesa CHAR(3),
num_oc INT,
fecha CHAR(10),
cotizacion_no INT,
tipo_cliente SMALLINT,
sec_cliente INT,
nombre CHAR(30),
cantidad_1 DEC(12,5),
cantidad DEC(12,5),
area SMALLINT,
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descripcion CHAR(30),
unidad_med CHAR(3),
cantidad_ord1 DEC(12,5),
cantidad_ord DEC(12,5),
cantidad_pendiente DEC(12,5),
precio DEC(12,2),
descuento DEC(12,2),
descvalor DEC(12,2),
valor DEC(12,2)
END RECORD,
pitbis,xmonto,monto_cotizacion DEC(12,2),
estado_req varchar(30),
cuenta smallint
SET CONNECTION "MSSQL"
LET monto_cotizacion = xmonto
SELECT b.nom1_emp || ' '||b.apell1_emp,a.email
INTO nombre_vendedor,vendedorEmail
FROM seg0000 a,adtb00003 b
WHERE a.sec_vend = xsec_vend and
a.sec_vend = b.num_emp
# PREPARE s FROM "SELECT @@IDENTITY"
SELECT a.num_req INTO xnumreq FROM cctb00019 a
IF xnumreq IS NULL THEN
LET xnumreq = 0
END IF
LET xnumreq = xnumreq + 1
BEGIN WORK
UPDATE cctb00019 SET num_req = xnumreq,us_crea=pusuarios,fech_crea=getdate()
# EXECUTE s INTO xnumreq
LET selec =
"INSERT INTO cctb00034 (id_kit,cotizacion_no,num_oc,num_req,secuencia,area,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad)",
"SELECT a.id_kit,a.cotizacion_no,a.num_oc,'",xnumreq USING "<<<<<<","',a.secuencia,a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad ",
"FROM prtb00031 a ",
" WHERE ",
" a.num_oc ='", xnum_oc USING "<<<<<<","'"
PREPARE xcctb34 FROM selec
EXECUTE xcctb34
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
END IF
LET estado_req = 'NO AUTORIZADA'
DECLARE insertaReq CURSOR FOR
SELECT a.num_oc,a.cotizacion_no,b.secuencia,b.area,b.cod_n,b.cod_grupo,b.cod_tipo,
b.cod_Sec,b.cantidad_1,b.cantidad,b.cantidad_1,b.cantidad,c.precio,
c.porc_Desc,(c.precio*c.cantidad) * (c.porc_desc/100),a.tipo_cliente,a.sec_cliente,
d.nombre_cliente,d.porc_itbi,c.id_kit,a.ubicacion,d.direccion_proyecto
FROM prtb00012 a,prtb00023 b,vetb00051 c,vetb00050 d
WHERE a.num_oc = b.num_oc and
a.cotizacion_no = c.cotizacion_no and
a.cotizacion_no = d.cotizacion_no and
a.num_oc = xnum_oc and
b.cod_n = c.cod_n and
b.cod_grupo = c.cod_grupo and
b.cod_tipo = c.cod_tipo and
b.cod_sec = c.cod_sec AND
b.area = c.area
UNION
SELECT a.num_oc,a.cotizacion_no,b.secuencia,b.area,b.cod_n,b.cod_grupo,b.cod_tipo,
b.cod_Sec,b.cantidad_1,b.cantidad,b.cantidad_1,b.cantidad,c.precio,
c.porc_Desc,(c.precio*c.cantidad) * (c.porc_desc/100),a.tipo_cliente,a.sec_cliente,
d.nombre_cliente,d.porc_itbi,c.id_kit,a.ubicacion,d.direccion_proyecto
FROM prtb00012 a,prtb00023 b,vetb00031 c,vetb00050 d
WHERE a.num_oc = b.num_oc and
a.cotizacion_no = c.cotizacion_no and
a.cotizacion_no = d.cotizacion_no and
a.num_oc = xnum_oc and
b.cod_n = c.cod_n and
b.cod_grupo = c.cod_grupo and
b.cod_tipo = c.cod_tipo and
b.cod_sec = c.cod_sec AND
b.area = c.area
LET idx = 1
LET pcotizacion = 0
LET xmonto = 0
# DISPLAY " ESTOY EN ESTO ",xnum_oc
FOREACH insertareq INTO arr_requisicion[idx].num_oc,
arr_requisicion[idx].cotizacion_no,
idx,
arr_requisicion[idx].area,
arr_requisicion[idx].cod_n,
arr_requisicion[idx].cod_grupo,
arr_requisicion[idx].cod_tipo,
arr_requisicion[idx].cod_Sec,
arr_requisicion[idx].cantidad_1,
arr_requisicion[idx].cantidad,
arr_requisicion[idx].cantidad_ord,
arr_requisicion[idx].cantidad_ord1,
arr_requisicion[idx].precio,
arr_requisicion[idx].descuento,
arr_requisicion[idx].descvalor,
arr_requisicion[idx].tipo_cliente,
arr_requisicion[idx].sec_cliente,
arr_requisicion[idx].nombre,
pitbis,xkit,
pubicacion
#DISPLAY " VOY PARA LA 26, en el foreach cantidad ",arr_requisicion[idx].cantidad_ord
IF arr_requisicion[idx].cantidad_ord IS NOT NULL THEN
LET pcotizacion = arr_requisicion[idx].cotizacion_no
IF arr_requisicion[idx].descvalor IS NULL THEN
LET arr_requisicion[idx].descvalor=0
END IF
LET arr_requisicion[idx].valor = (arr_requisicion[idx].cantidad *arr_requisicion[idx].precio) -
arr_requisicion[idx].descvalor
LET arr_requisicion[idx].valor = arr_requisicion[idx].valor + (arr_requisicion[idx].valor * (pitbis/100))
LET xmonto = arr_requisicion[idx].valor + xmonto
INSERT INTO cctb00026 (num_req,num_oc,cotizacion_no,id,area,cod_n,cod_grupo,cod_tipo,cod_Sec,
cantidad_ord1,cantidad_ord,cantidad_1,cantidad,precio,
descuento,descvalor,valor,us_crea,fech_crea,estado,id_kit)
VALUES (xnumreq,arr_requisicion[idx].num_oc,arr_requisicion[idx].cotizacion_no,
idx,arr_requisicion[idx].area,arr_requisicion[idx].cod_n,arr_requisicion[idx].cod_grupo,
arr_requisicion[idx].cod_tipo,arr_requisicion[idx].cod_Sec,
arr_requisicion[idx].cantidad_ord1,arr_requisicion[idx].cantidad_ord,
arr_requisicion[idx].cantidad_1,
arr_requisicion[idx].cantidad,
arr_requisicion[idx].precio,arr_requisicion[idx].descuento,
arr_requisicion[idx].descvalor,
arr_requisicion[idx].valor,SUSER_SNAME(),GETDATE(),estado_req,xkit)
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
END IF
# EXECUTE xcctb34 USING xkit
# IF STATUS < 0 THEN
# ROLLBACK WORK
# RETURN xnumreq,xmonto
# END IF
END IF
LET idx = idx +1
END FOREACH
# CONTROL MONTO REQUISION
{ IF xmonto > monto_cotizacion THEN
# ROLLBACK WORK
LET xnumreq = 0
LET xmonto=0
RETURN xnumreq,xmonto
END IF
}
IF pcotizacion IS NOT NULL THEN
SELECT DISTINCT a.cotizacion_no FROM vetb00022 a WHERE a.cotizacion_no = pcotizacion
IF STATUS <> NOTFOUND THEN
LET selec =
"INSERT INTO cctb00027 (num_req,etiqueta,num_oc,secuencia,area,cod_n,cod_grupo,cod_tipo,cod_sec, ",
"Lado_1,lado_2,lado_3,cantidad,medida,cantidad_r,medida_r,us_crea,",
"fech_crea)",
" SELECT '",xnumreq,"',etiqueta,'",xnum_oc,"',secuencia,area,cod_n,cod_grupo,cod_tipo,cod_sec,lado_1,lado_2,lado_3,",
"ISNULL(cantidad,0),medida,ISNULL(cantidad,0),medida,'",pusuarios CLIPPED,"',getdate() FROM vetb00022 WHERE cotizacion_no= ",
pcotizacion USING "<<<<<<<<"
PREPARE comando FROM selec
EXECUTE comando
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
END IF
END IF
END IF
INSERT INTO cctb00025 (num_req,fecha,sec_vend,sec_vend_aprobado,us_crea,fech_crea,
estado,fecha_autorizacion,estado_despacho,monto_req)
VALUES (xnumreq,today,xsec_vend,null,SUSER_NAME(),GETDATE(),estado_req,getdate(),
"NO DESPACHADA",xmonto)
IF STATUS < 0 THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR",SQLCA.SQLCODE,"INFO")
RETURN xnumreq,xmonto
END IF
COMMIT WORK
IF xcondpago <> 4 and xcondpago<> 10 THEN
CALL entramensaje(xnumreq,pcotizacion,"A",pusuarios)
END IF
IF xcondpago = 4 OR xcondpago = 10 THEN
INSERT INTO cctb00029 (num_req,mensaje,us_crea,fech_crea) VALUES (xnumreq,pubicacion,pusuarios,getdate())
END IF
LET chmensaje = "NUMERO DE REQUISICION: ",xnumreq USING "<<<<<<"
LET subject = "AVISO REQUISICION DESPACHO NO. ",xnumreq USING "&&&&&&"
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
LET cuerpo_correo = "VENDEDOR : ",nombre_vendedor CLIPPED
LET cuerpo_correo = cuerpo_correo CLIPPED," FECHA REQUISICION : ",xfecha_oc USING "DD/MM/YYYY"
LET cuerpo_correo = cuerpo_correo CLIPPED," NUMERO DE ORDEN: ",xnum_oc USING "&&&&&&"
LET cuerpo_correo = cuerpo_correo CLIPPED," CLIENTE: ",arr_requisicion[1].nombre
# CALL envia_correo('rantonio@marmotech.com.do;jsantelises@marmotech.com.do',vendedorEmail,cuerpo_correo,
# subject, procedimiento )
# CALL fgl_Winmessage("INFORMACION",chmensaje,"STOP")
RETURN xnumreq,xmonto
END FUNCTION
PROYECTO/vedir/veconvierteorden.4gl
+16 -6
View File
@@ -55,6 +55,7 @@ FUNCTION convierteorden(
pprecio, monto_cotizacion DEC(12, 2),
pdesc DEC(8, 2),
pkit INT,
existe_oc INT,
pfecha_compromiso DATE
CALL STARTLOG("veconvierte.txt")
@@ -71,11 +72,8 @@ FUNCTION convierteorden(
LET pcantidad = 0
LET pcantidad1 = 0
SELECT num_oc INTO ult_numero FROM prtb00020
IF ult_numero IS NULL THEN
LET ult_numero = 0
END IF
LET ult_numero = ult_numero + 1
# El consecutivo num_oc se toma DENTRO de la transaccion (ver BEGIN WORK)
LET ult_numero = 0
LET xsecvend_a = NULL
SELECT a.tipo_cliente,
@@ -122,8 +120,20 @@ FUNCTION convierteorden(
WHENEVER ANY ERROR STOP
BEGIN WORK
# CONSECUTIVO ATOMICO: el UPDATE incrementa y bloquea la fila de prtb00020
# hasta el COMMIT/ROLLBACK, asi dos usuarios no pueden tomar el mismo num_oc
# (antes se leia fuera de la transaccion -> PK_prtb00012 duplicada)
UPDATE prtb00020
SET num_oc = ult_numero, us_crea = xusuario, fech_crea = GETDATE()
SET num_oc = ISNULL(num_oc, 0) + 1, us_crea = xusuario, fech_crea = GETDATE()
SELECT num_oc INTO ult_numero FROM prtb00020
# AUTOCORRECCION: si el contador quedo por detras de prtb00012
# (otro programa creo ordenes sin avanzarlo), salta al siguiente libre
LET existe_oc = 0
SELECT COUNT(*) INTO existe_oc FROM prtb00012 WHERE num_oc = ult_numero
IF existe_oc > 0 THEN
SELECT MAX(num_oc) + 1 INTO ult_numero FROM prtb00012
UPDATE prtb00020 SET num_oc = ult_numero
END IF
IF xsecvend_a IS NULL OR xsecvend_a = 0 THEN