Corregir ipprrp002 (Catalogo Productos Terminados) y registrar assets de ipprrp002_1/ipprrp052

- Rescatar de un backup viejo (PROYECTOS/bin) los .4rp que faltaban en el
  repo: ipprrp002.4rp, ipprrp002_1.4rp, ipprrp002_2.4rp e ipprrp052.4rp.
  Sin ellos el reporte nunca podia generarse (fgl_report_loadCurrentSettings
  fallaba y el programa hacia EXIT PROGRAM).
- Registrar en mbsERP.4pw los formularios ipfmrp002.4fd, ipfmrp002_1.4fd
  e ipfmrp052.4fd, y los .4rp anteriores: existian en el repo pero nunca
  se habian agregado al proyecto.
- ipprrp002.4gl: cambiar `cuenta` de SMALLINT a INTEGER, causaba
  "Value too large to fit in a SMALLINT" al generar el catalogo completo
  (43,796 productos sin filtro).
- ipprrp002.4gl: envolver el flujo de captura/reporte en un WHILE para
  permitir buscar de nuevo sin cerrar el programa, y para que Cancelar
  termine limpio (antes, al terminar de generar el reporte el programa
  quedaba colgado y habia que forzar el cierre).

Verificado con producto 29-668-1403-6952 (1 pagina, ciclo buscar-reporte-
cerrar limpio) y catalogo completo sin filtro (43,796 productos, 1093
paginas, generacion correcta).

Nota aparte (sin corregir): sin filtro de codigo el programa genera el
catalogo completo (43,796 productos) sin ninguna advertencia; evaluar si
deberia exigir un filtro minimo. Campo "Anio" en pantalla sin uso en el
codigo. ipprrp002_1 e ipprrp052 tienen sus assets registrados pero aun
no se han probado funcionalmente.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
2026-09-22 12:58:06 -04:00
co-authored by Claude Sonnet 5
parent 7bda7659a6
commit c00ba4b920
10 changed files with 935 additions and 16 deletions
+130
View File
@@ -0,0 +1,130 @@
<?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.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/ipprrp002.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" width="max" length="max">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight" swapX="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{etiqueta}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<WORDBOX name="WordBox37" alignment="center" baselineType="leftleft" text="PRECIOS"/>
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" alignment="baseline" baselineType="leftleft" text="RD LOCAL"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" alignment="baseline" baselineType="leftleft" text="USD EXP"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox42" alignment="baseline" baselineType="leftleft" text="USD LOCAL"/>
<WORDBOX name="WordBox45_1" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox43" alignment="baseline" baselineType="leftleft" text="EURO"/>
<WORDBOX name="WordBox46" width="1.8cm" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right" text="VALOR RD"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min">
<WORDBOX name="WordBox20" length=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="p_iptb20.producto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox15" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CLASE: &quot;+p_iptb20.producto}}"/>
</MINIPAGE>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="GRUPO" width="min" length="min">
<rtl:input-variable name="pgrupo" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox41_1" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;GRUPO: &quot;+pgrupo}}"/>
<WORDBOX name="WordBox42_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<rtl:input-variable name="pproducto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox16" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;+TIPO: &quot;+pproducto}}"/>
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.##&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_rd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_rd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_exp_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox50" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_exp_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox51" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_local_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox52" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_local_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox53" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_euro" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox40" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_euro.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox" width=".4cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="valor_inv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="valor_inv Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{valor_inv}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox47_1" width="8.5cm" floatingBehavior="enclosed" text="{{&quot;TOTAL TIPO: &quot;}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="ttipo Value" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{ttipo}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="total_inv" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox29" length=".5cm" alignment="baseline" baselineType="leftleft" text="{{&quot;TOTAL VALOR INVENTARIO EN RD$ &quot;+total_inv.format(&quot;##,###,###.##&quot;)}}"/>
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+105
View File
@@ -0,0 +1,105 @@
<?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.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/ipprrp002_1.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" 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" swapX="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002_1"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora.value}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="56.3465" alignment="far" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="97.024" alignment="near" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="60.6929" alignment="near" baselineType="leftleft" text="EXISTENCIA"/>
<WORDBOX name="WordBox50" width="50.4" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="COSTO"/>
<WORDBOX name="WordBox52" width="54" alignment="baseline" floatingBehavior="enclosed" textAlignment="center" text="PRECIO"/>
<WORDBOX name="WordBox" width="51" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="DISPONIBLE"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min">
<WORDBOX name="WordBox20" length=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="p_iptb20.producto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox15" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CLASE: &quot;+p_iptb20.producto}}"/>
</MINIPAGE>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="GRUPO" width="min" length="min">
<rtl:input-variable name="pgrupo" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox41_1" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;GRUPO: &quot;+pgrupo}}"/>
<WORDBOX name="WordBox42_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<rtl:input-variable name="pproducto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox16" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;+TIPO: &quot;+pproducto}}"/>
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" width="267.406" alignment="baseline" fontSize="7" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}" trimText="right"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="34" length="8.92188" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,---,--#.##&quot;)}}" trimText="both"/>
<rtl:input-variable name="x.costo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width=".7inch" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.costo.format(&quot;#,###,###.##&quot;)}}" trimText="right"/>
<rtl:input-variable name="x.precio" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox53" width="46" alignment="baseline" floatingBehavior="enclosed" text="{{x.precio.format(&quot;#,###,###.##&quot;)}}" trimText="right"/>
<rtl:input-variable name="x.cantidad_o" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox51" width=".7inch" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="{{x.cantidad_o.format(&quot;###,###.####&quot;)}}" trimText="right"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox47_1" width="8.5cm" floatingBehavior="enclosed" text="{{&quot;TOTAL TIPO: &quot;}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="ttipo Value" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{ttipo}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<WORDBOX name="WordBox29" length=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+111
View File
@@ -0,0 +1,111 @@
<?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.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/ipprrp002.rdd" RWFglReportName="catalogo_xls"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" width="max" length="max" alignment="near">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader" showFirstRepetitionOnPage="false">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft" showFirstRepetitionOnPage="false">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true" showFirstRepetitionOnPage="false">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed" showFirstRepetitionOnPage="false">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{etiqueta}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight" showFirstRepetitionOnPage="false">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<WORDBOX name="WordBox37" alignment="center" baselineType="leftleft" text="PRECIOS"/>
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" alignment="baseline" baselineType="leftleft" text="RD LOCAL"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" alignment="baseline" baselineType="leftleft" text="USD EXP"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox42" alignment="baseline" baselineType="leftleft" text="USD LOCAL"/>
<WORDBOX name="WordBox45_1" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox43" alignment="baseline" baselineType="leftleft" text="EURO"/>
<WORDBOX name="WordBox46" width="1.8cm" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right" text="VALOR RD"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false"/>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min"/>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.##&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_rd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_rd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_exp_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox50" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_exp_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox51" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_local_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox52" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_local_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox53" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_euro" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox40" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_euro.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox" width=".4cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="valor_inv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="valor_inv Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{valor_inv}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight"/>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+114
View File
@@ -0,0 +1,114 @@
<?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.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/ipprrp052.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" 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" swapX="false">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="Report Title" x="0" y="max/2" anchorX="0" anchorY="0.5" alignment="baseline" fontSize="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CONTEO CICLICO PRODUCTOS&quot;}}"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="tituloInventario" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{tituloInventario}}"/>
<rtl:input-variable name="titulo_bodega" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="titulo_bodega Value" class="grwStringValue" width="width(&quot;M&quot;)*40" floatingBehavior="enclosed" text="{{&quot;BODEGA: &quot;+titulo_bodega}}"/>
<rtl:input-variable name="aimprimir" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox55" floatingBehavior="enclosed" text="{{&quot;TIPO REPORTE:&quot;+aimprimir.trim()}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontSize="10" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" width="2.5cm" alignment="baseline" baselineType="leftleft" textAlignment="center" text="CATEGORIA"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" width="1.5cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="SEMANA DEL"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox56" width="1.5cm" floatingBehavior="enclosed" textAlignment="center" text="AL"/>
<WORDBOX name="WordBox57" floatingBehavior="enclosed" text="ESTADO"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1.5cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.####&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.categoria" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="x.categoria Value" class="grwStringValue" width="1cm" alignment="baseline" floatingBehavior="enclosed" textAlignment="center" text="{{x.categoria}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.semana_del" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="x.semana_del Value" class="grwDateValue" width="1.5cm" floatingBehavior="enclosed" format="dd/mm/yyyy" value="{{Date.fromIsoValue(x.semana_del.isoValue)}}"/>
<WORDBOX name="WordBox49_1" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.semana_al" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="x.semana_al Value" class="grwDateValue" width="1.3cm" floatingBehavior="enclosed" format="dd/mm/yyyy" value="{{Date.fromIsoValue(x.semana_al.isoValue)}}"/>
<rtl:input-variable name="x.estado" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.estado Value" class="grwStringValue" width="1.5cm" floatingBehavior="enclosed" text="{{x.estado}}" textAlignment="right"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight"/>
</rtl:match>
</rtl:match>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox" fontBold="true" floatingBehavior="enclosed" text="{{&quot;TOTAL EXISTENCIAS&quot;+ttipo.format(&quot;###,###,###.##&quot;)}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+14 -16
View File
@@ -12,7 +12,8 @@ GLOBALS "ipprgb000.4gl"
DEFINE tipo_info VARCHAR(30),
formato VARCHAR(3),
cuenta,cod_lista SMALLINT,
cuenta INTEGER,
cod_lista SMALLINT,
selec_cta STRING
MAIN
DEFER INTERRUPT
@@ -54,28 +55,27 @@ FUNCTION ipprrp002()
DISPLAY "ipprrp002" AT 4,3
DISPLAY "Catalogo Productos " AT 6,33
WHILE TRUE
LET progreso = 0
DISPLAY progreso TO progreso
INPUT BY NAME decide,tipo_info,formato,cod_lista
AFTER INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
EXIT WHILE
END IF
END INPUT
LET nombre_ant = "E"
CONSTRUCT criterio ON a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
FROM cod_cia,cod_n,cod_grupo,cod_tipo,cod_sec
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
EXIT WHILE
END IF
IF decide = "A" THEN
@@ -119,10 +119,8 @@ ELSE
END IF
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
EXIT WHILE
END IF
@@ -145,7 +143,7 @@ END IF
EXIT PROGRAM
END IF
#LET handler= fgl_report_createProcessLevelDataFile("datos.xml")
#LET handler= fgl_report_createProcessLevelDataFile("datos.xml")
--run the report
IF handler IS NOT NULL THEN -- report engine was configured ok
@@ -197,8 +195,8 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
ELSE
FINISH REPORT catalogo
END IF
END IF
END IF
END WHILE
END FUNCTION
REPORT catalogo(x)
+130
View File
@@ -0,0 +1,130 @@
<?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.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/ipprrp002.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" width="max" length="max">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight" swapX="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{etiqueta}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<WORDBOX name="WordBox37" alignment="center" baselineType="leftleft" text="PRECIOS"/>
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" alignment="baseline" baselineType="leftleft" text="RD LOCAL"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" alignment="baseline" baselineType="leftleft" text="USD EXP"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox42" alignment="baseline" baselineType="leftleft" text="USD LOCAL"/>
<WORDBOX name="WordBox45_1" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox43" alignment="baseline" baselineType="leftleft" text="EURO"/>
<WORDBOX name="WordBox46" width="1.8cm" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right" text="VALOR RD"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min">
<WORDBOX name="WordBox20" length=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="p_iptb20.producto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox15" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CLASE: &quot;+p_iptb20.producto}}"/>
</MINIPAGE>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="GRUPO" width="min" length="min">
<rtl:input-variable name="pgrupo" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox41_1" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;GRUPO: &quot;+pgrupo}}"/>
<WORDBOX name="WordBox42_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<rtl:input-variable name="pproducto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox16" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;+TIPO: &quot;+pproducto}}"/>
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.##&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_rd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_rd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_exp_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox50" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_exp_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox51" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_local_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox52" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_local_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox53" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_euro" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox40" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_euro.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox" width=".4cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="valor_inv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="valor_inv Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{valor_inv}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox47_1" width="8.5cm" floatingBehavior="enclosed" text="{{&quot;TOTAL TIPO: &quot;}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="ttipo Value" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{ttipo}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="total_inv" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox29" length=".5cm" alignment="baseline" baselineType="leftleft" text="{{&quot;TOTAL VALOR INVENTARIO EN RD$ &quot;+total_inv.format(&quot;##,###,###.##&quot;)}}"/>
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+105
View File
@@ -0,0 +1,105 @@
<?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.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/ipprrp002_1.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" 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" swapX="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002_1"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora.value}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="56.3465" alignment="far" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="97.024" alignment="near" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="60.6929" alignment="near" baselineType="leftleft" text="EXISTENCIA"/>
<WORDBOX name="WordBox50" width="50.4" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="COSTO"/>
<WORDBOX name="WordBox52" width="54" alignment="baseline" floatingBehavior="enclosed" textAlignment="center" text="PRECIO"/>
<WORDBOX name="WordBox" width="51" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="DISPONIBLE"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min">
<WORDBOX name="WordBox20" length=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="p_iptb20.producto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox15" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CLASE: &quot;+p_iptb20.producto}}"/>
</MINIPAGE>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="GRUPO" width="min" length="min">
<rtl:input-variable name="pgrupo" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox41_1" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;GRUPO: &quot;+pgrupo}}"/>
<WORDBOX name="WordBox42_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<rtl:input-variable name="pproducto" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox16" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;+TIPO: &quot;+pproducto}}"/>
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox" width="267.406" alignment="baseline" fontSize="7" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}" trimText="right"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="34" length="8.92188" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,---,--#.##&quot;)}}" trimText="both"/>
<rtl:input-variable name="x.costo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width=".7inch" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.costo.format(&quot;#,###,###.##&quot;)}}" trimText="right"/>
<rtl:input-variable name="x.precio" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox53" width="46" alignment="baseline" floatingBehavior="enclosed" text="{{x.precio.format(&quot;#,###,###.##&quot;)}}" trimText="right"/>
<rtl:input-variable name="x.cantidad_o" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox51" width=".7inch" alignment="baseline" floatingBehavior="enclosed" textAlignment="right" text="{{x.cantidad_o.format(&quot;###,###.####&quot;)}}" trimText="right"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox47_1" width="8.5cm" floatingBehavior="enclosed" text="{{&quot;TOTAL TIPO: &quot;}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="ttipo Value" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{ttipo}}"/>
</MINIPAGE>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<WORDBOX name="WordBox29" length=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+111
View File
@@ -0,0 +1,111 @@
<?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.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/ipprrp002.rdd" RWFglReportName="catalogo_xls"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" width="max" length="max" alignment="near">
<LAYOUTNODE name="Page Header" width="max" length="min" port="anyPageHeader" showFirstRepetitionOnPage="false">
<MINIPAGE name="StripeLayouter3" width="min" length="max" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false">
<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="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft" showFirstRepetitionOnPage="false">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="INFORME MAESTRA ARTICULOS"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true" showFirstRepetitionOnPage="false">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed" showFirstRepetitionOnPage="false">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{etiqueta}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontBold="true" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight" showFirstRepetitionOnPage="false">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<WORDBOX name="WordBox37" alignment="center" baselineType="leftleft" text="PRECIOS"/>
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" alignment="baseline" baselineType="leftleft" text="RD LOCAL"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" alignment="baseline" baselineType="leftleft" text="USD EXP"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox42" alignment="baseline" baselineType="leftleft" text="USD LOCAL"/>
<WORDBOX name="WordBox45_1" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox43" alignment="baseline" baselineType="leftleft" text="EURO"/>
<WORDBOX name="WordBox46" width="1.8cm" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right" text="VALOR RD"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false" showFirstRepetitionOnPage="false"/>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="CLASE" width="min" length="min"/>
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.##&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_rd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox48" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_rd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_exp_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox50" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_exp_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox51" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_local_usd" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox52" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_local_usd.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox53" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="prec_euro" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox40" width="1cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{prec_euro.format(&quot;###,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox" width=".4cm" alignment="baseline" floatingBehavior="enclosed"/>
<rtl:input-variable name="valor_inv" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="valor_inv Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{valor_inv}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight"/>
</rtl:match>
</rtl:match>
</rtl:match>
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+114
View File
@@ -0,0 +1,114 @@
<?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.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/ipprrp052.rdd" RWFglReportName="catalogo"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage10" 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" swapX="false">
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="Report Title" x="0" y="max/2" anchorX="0" anchorY="0.5" alignment="baseline" fontSize="14" fontBold="true" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" text="{{p_companias.nombre}}"/>
<WORDBOX name="WordBox4" alignment="baseline" baselineType="leftleft" text="ipprrp002"/>
<WORDBOX name="WordBox30" y="max-3cm" alignment="baseline" baselineType="leftleft" text="PAGINA "/>
<PAGENOBOX name="PageNoBox" y="max" anchorX="0" anchorY="1" alignment="baseline" layoutDirection="topToBottom" swapX="false" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right"/>
</MINIPAGE>
<MINIPAGE name="MiniPage7" width="min" length="max" alignment="center" layoutDirection="leftToRight" baselineType="leftleft">
<WORDBOX name="WordBox5" y="max/3" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;CONTEO CICLICO PRODUCTOS&quot;}}"/>
<LAYOUTNODE name="Layout Node3" y="max-4cm" width="min" length="min" fontSize="10" fontBold="true">
<rtl:input-variable name="fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox30_1" alignment="baseline" baselineType="leftleft" text="{{&quot;FECHA: &quot;+fecha.value}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox31" alignment="baseline" baselineType="leftleft" text="{{&quot;HORA: &quot;+hora}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" floatingBehavior="enclosed">
<rtl:input-variable name="tipo_info" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="tipo_info Value" anchorX="0" anchorY="0" alignment="baseline" baselineType="leftleft" text="{{tipo_info}}"/>
<rtl:input-variable name="tituloInventario" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox54" floatingBehavior="enclosed" text="{{tituloInventario}}"/>
<rtl:input-variable name="titulo_bodega" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="titulo_bodega Value" class="grwStringValue" width="width(&quot;M&quot;)*40" floatingBehavior="enclosed" text="{{&quot;BODEGA: &quot;+titulo_bodega}}"/>
<rtl:input-variable name="aimprimir" type="FGLString" expectedLocation="expectedWayAhead"/>
<WORDBOX name="WordBox55" floatingBehavior="enclosed" text="{{&quot;TIPO REPORTE:&quot;+aimprimir.trim()}}"/>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
<MINIPAGE name="Table Header" width="min" length="min" fontSize="10" fontBold="true" layoutDirection="leftToRight" swapX="false">
<LAYOUTNODE name="Layout Node2" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="DCODIGO" width="2cm" alignment="baseline" baselineType="leftleft" text="CODIGO"/>
<WORDBOX name="DESPACIO1" width="1cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DDESCRIPCION" width="5.5cm" alignment="baseline" baselineType="leftleft" text="DESCRIPCION"/>
<WORDBOX name="DESPACIO2" width="2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="DMARCA" width="2cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="EXISTENCIA"/>
<MINIPAGE name="MiniPage12" width="min" length="min">
<LAYOUTNODE name="Layout Node5" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox38" width="2.5cm" alignment="baseline" baselineType="leftleft" textAlignment="center" text="CATEGORIA"/>
<WORDBOX name="WordBox44" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox41" width="1.5cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="SEMANA DEL"/>
<WORDBOX name="WordBox45" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<WORDBOX name="WordBox56" width="1.5cm" floatingBehavior="enclosed" textAlignment="center" text="AL"/>
<WORDBOX name="WordBox57" floatingBehavior="enclosed" text="ESTADO"/>
</LAYOUTNODE>
</MINIPAGE>
</LAYOUTNODE>
</MINIPAGE>
<MINIPAGE name="Separator_1" width="1" length="max" alignment="near" bgColor="#000000" layoutDirection="leftToRight" swapX="false"/>
</LAYOUTNODE>
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
<rtl:match name="Group cod_n" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_grupo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group cod_tipo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="TIPO" width="min" length="min">
<WORDBOX name="WordBox20_1" length=".4cm" alignment="baseline" baselineType="leftleft"/>
</MINIPAGE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Table Row" width="min" length="max" fontSize="8" layoutDirection="leftToRight" swapX="false">
<rtl:input-variable name="pcodigo" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox18" alignment="baseline" baselineType="leftleft" text="{{pcodigo.trim()}}"/>
<WORDBOX name="WordBox19" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*30" alignment="baseline" floatingBehavior="enclosed" text="{{x.descrip_esp.value}}"/>
<WORDBOX name="WordBox21" width=".2cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox22" width="1cm" alignment="baseline" baselineType="leftleft" text="{{x.unidad_med}}"/>
<WORDBOX name="WordBox27" width=".3cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.existencia" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox31_1" width="1.5cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{x.existencia.format(&quot;---,--#.####&quot;)}}"/>
<WORDBOX name="WordBox47" width=".5cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.categoria" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="x.categoria Value" class="grwStringValue" width="1cm" alignment="baseline" floatingBehavior="enclosed" textAlignment="center" text="{{x.categoria}}"/>
<WORDBOX name="WordBox49" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.semana_del" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="x.semana_del Value" class="grwDateValue" width="1.5cm" floatingBehavior="enclosed" format="dd/mm/yyyy" value="{{Date.fromIsoValue(x.semana_del.isoValue)}}"/>
<WORDBOX name="WordBox49_1" width=".4cm" alignment="baseline" baselineType="leftleft"/>
<rtl:input-variable name="x.semana_al" type="FGLString" expectedLocation="expectedHere"/>
<DATEFORMATBOX name="x.semana_al Value" class="grwDateValue" width="1.3cm" floatingBehavior="enclosed" format="dd/mm/yyyy" value="{{Date.fromIsoValue(x.semana_al.isoValue)}}"/>
<rtl:input-variable name="x.estado" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.estado Value" class="grwStringValue" width="1.5cm" floatingBehavior="enclosed" text="{{x.estado}}" textAlignment="right"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="TOTAL TIPO" width="min" length="min" layoutDirection="leftToRight"/>
</rtl:match>
</rtl:match>
</rtl:match>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1">
<LAYOUTNODE name="TOTAL" width="min" length="min">
<rtl:input-variable name="cuenta_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox28" alignment="baseline" fontSize="14" fontBold="true" baselineType="leftleft" text="{{&quot;TOTAL ARTICULOS IMPRESOS: &quot;+cuenta_total.format(&quot;&gt;&gt;&gt;&gt;&quot;)}}"/>
<rtl:input-variable name="ttipo" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox" fontBold="true" floatingBehavior="enclosed" text="{{&quot;TOTAL EXISTENCIAS&quot;+ttipo.format(&quot;###,###,###.##&quot;)}}"/>
</LAYOUTNODE>
</rtl:match>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+1
View File
@@ -640,6 +640,7 @@
<Application binaryName="ipprrp052" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000019" label="ipprrp052">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000019" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp052.4gl"/>
<File filePath="ipdir/ipfmrp052.4fd"/>
</Application>
<Application binaryName="ipprrp050" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000020" label="ipprrp050">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000020" label="Configuration"/>