From f8df43d12687537afbc4692f8eb43e967040e21e Mon Sep 17 00:00:00 2001
From: Jeilyn Peguero <jpeguero@marmotech.com.do>
Date: Wed, 7 Oct 2026 12:56:29 -0400
Subject: [PATCH] Corrige ipprrp013 (Dias de Inventario): Detallado y Resumen
 funcionales

- Registra ipfmrp013.4fd y la libreria FUNCIONESREPORT en mbsERP.4pw
- Quita CONVERT(...,103) en fecha_factura y fech_oc (error -1205)
- Titulo de ventana corregido
- ipprrp013.4rp: formato 7.00, diseno plano con rtl:input-variable
  (los grupos anidados no coincidian con el flujo del REPORT), encabezado
  con compania/fecha/hora y FECHA VENTA enlazada a fecha_v
- Resumen usa ipprrp013r.4rp (agregado por Johnny)

Verificado: Detallado sin filtros (3 paginas) y Resumen clase 124.
Pendiente: alineacion visual de columnas del Detallado.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
---
 PROYECTO/bin/ipprrp013.4rp   | 83 ++++++++++++++++++++++++++++++++++++
 PROYECTO/ipdir/ipprrp013.4gl |  6 +--
 PROYECTO/ipdir/ipprrp013.4rp | 64 +++++++++++++--------------
 3 files changed, 119 insertions(+), 34 deletions(-)
 create mode 100644 PROYECTO/bin/ipprrp013.4rp

diff --git a/PROYECTO/bin/ipprrp013.4rp b/PROYECTO/bin/ipprrp013.4rp
new file mode 100644
index 0000000..3784afc
--- /dev/null
+++ b/PROYECTO/bin/ipprrp013.4rp
@@ -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>
diff --git a/PROYECTO/ipdir/ipprrp013.4gl b/PROYECTO/ipdir/ipprrp013.4gl
index f193a07..9bc72e3 100644
--- a/PROYECTO/ipdir/ipprrp013.4gl
+++ b/PROYECTO/ipdir/ipprrp013.4gl
@@ -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
diff --git a/PROYECTO/ipdir/ipprrp013.4rp b/PROYECTO/ipdir/ipprrp013.4rp
index cf4e3e4..3784afc 100644
--- a/PROYECTO/ipdir/ipprrp013.4rp
+++ b/PROYECTO/ipdir/ipprrp013.4rp
@@ -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>