From ea1493db43fe01af7dbcc991b8628dbd7d28dc92 Mon Sep 17 00:00:00 2001
From: Jeilyn Peguero <jpeguero@marmotech.com.do>
Date: Sun, 30 Aug 2026 12:21:46 -0400
Subject: [PATCH] Prueba y corrige inprcs006 (Movimiento Materia Prima)

- Proyecto ahora referencia infmcs006.4fd en vez de .per (el .per
  clasico no puede declarar las columnas del Tree de filas hijas)
- Corrige conflicto de campo "bodega" entre INPUT y CONSTRUCT dentro
  del mismo DIALOG (error -8090), moviendo la busqueda a ON ACTION
- Corrige binding de ComboBox Bodega y campo mensaje_ini (faltaba
  colName/sqlTabName, causaba Null pointer exception)
- Agrega titulo "MOVIMIENTO MATERIA PRIMA" y ensancha combo de bodega
- Corrige tabIndex del combo de bodega para navegacion con teclado

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 PROYECTO/indir/infmcs006.4fd | 12 ++++++------
 PROYECTO/indir/infmcs006.per |  6 ++++--
 PROYECTO/indir/inprcs006.4gl | 13 +++++--------
 PROYECTO/mbsERP.4pw          |  2 +-
 4 files changed, 16 insertions(+), 17 deletions(-)

diff --git a/PROYECTO/indir/infmcs006.4fd b/PROYECTO/indir/infmcs006.4fd
index 643faf4..38bb6a7 100644
--- a/PROYECTO/indir/infmcs006.4fd
+++ b/PROYECTO/indir/infmcs006.4fd
@@ -12,8 +12,8 @@
     <RecordField colName="unidad_med" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{720c8ace-b521-4ab2-93a4-5aaebd3c052d}"/>
     <RecordField colName="fech_in" fieldIdRef="7" name="fech_in" sqlTabName="formonly" sqlType="DATE" uid="{f7cdd239-7791-4788-9c92-1e29d181a356}"/>
     <RecordField colName="fech_fi" fieldIdRef="8" name="fech_fi" sqlTabName="formonly" sqlType="DATE" uid="{ef37027a-09ec-4b91-8016-58321fe9523c}"/>
-    <RecordField fieldIdRef="6" name="bodega" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
-    <RecordField fieldIdRef="9" name="mensaje_ini" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
+    <RecordField colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{900b8556-f902-4c08-b7f1-a2de9d054534}"/>
+    <RecordField colName="mensaje_ini" fieldIdRef="9" name="mensaje_ini" sqlTabName="formonly" uid="{5fcab4dd-77dd-4cc5-8641-848be157b658}"/>
   </Record>
   <Record name="s_csmov" uid="{d4ca2e1f-7d30-4026-84bc-8e7b2b0ae0cb}">
     <RecordField fieldIdRef="18" name="num_doc" uid="{15a69691-abe4-4c90-bb06-486540da34b4}"/>
@@ -25,8 +25,8 @@
     <RecordField fieldIdRef="13" name="parent_id" uid="{4a028887-b5ed-4b25-9eb1-702752bee614}"/>
     <RecordField fieldIdRef="19" name="chield_id" uid="{a972d067-b0bc-478a-add7-995fd25b5c9c}"/>
   </Record>
-  <Form gridHeight="24" gridWidth="80" name="infmcs006">
-    <Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
+  <Form gridHeight="24" gridWidth="86" name="infmcs006" text="MOVIMIENTO MATERIA PRIMA">
+    <Grid gridHeight="24" gridWidth="86" name="grid1" posX="0" posY="0">
       <Label gridHeight="1" gridWidth="22" justify="right" name="label1" posX="1" posY="1" text="Codigo Materia Prima :"/>
       <Edit autoNext="true" colName="cod_n" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_n" posX="24" posY="1" sqlTabName="intb00001" tabIndex="1" widget="Edit"/>
       <Edit autoNext="true" colName="cod_grupo" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.cod_grupo" posX="28" posY="1" sqlTabName="intb00001" tabIndex="2" widget="Edit"/>
@@ -39,8 +39,8 @@
       <Label gridHeight="1" gridWidth="14" justify="right" name="label7" posX="9" posY="3" text="Fecha Final:"/>
       <DateEdit colName="fech_fi" fieldId="8" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" widget="DateEdit"/>
       <Label gridHeight="1" gridWidth="7" justify="right" name="label5" posX="16" posY="4" text="Bodega:"/>
-      <ComboBox fieldId="6" gridHeight="1" gridWidth="48" items="" name="bodega" posX="24" posY="4" tabIndex="-1" title="combobox1" widget="ComboBox"/>
-      <Edit fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
+      <ComboBox colName="bodega" fieldId="6" gridHeight="1" gridWidth="60" items="" name="bodega" posX="24" posY="4" sqlTabName="formonly" tabIndex="9" title="combobox1" widget="ComboBox"/>
+      <Edit colName="mensaje_ini" fieldId="9" gridHeight="1" gridWidth="53" name="mensaje_ini" posX="2" posY="7" scroll="true" sqlTabName="formonly" style="encabezado name" tabIndex="-1" title="edit1" widget="Edit"/>
       <Group gridHeight="9" gridWidth="76" name="group1" posX="2" posY="8">
         <Tree gridHeight="6" gridWidth="73" idColumn="chield_id" name="table1" parentIdColumn="parent_id" posX="2" posY="1" style="Table.detalle" totalRows="5">
           <Edit fieldId="18" gridHeight="1" gridWidth="8" name="num_doc" posX="0" posY="0" tabIndex="-1" title="Documento" widget="Edit"/>
diff --git a/PROYECTO/indir/infmcs006.per b/PROYECTO/indir/infmcs006.per
index b5b9e57..7432e3b 100644
--- a/PROYECTO/indir/infmcs006.per
+++ b/PROYECTO/indir/infmcs006.per
@@ -1,10 +1,11 @@
 database smarmotech
- screen size 24 by 80
+ screen size 24 by 80 TITLE "CONSULTA BALANCES MATERIA PRIMA"
 {
 
  Codigo Materia Prima :[a]-[b]-[c ]-[d  ] [a1                            ] [a2 ]
  Bodega:  [h ]
  Fecha Inicial:[f1        ] Fecha Final:[f2        ]
+ [g                                                     ]
 \g---------------------------------------------------------------------------\g
                                    C a n t i d a d
  Fecha        Documento        Entrada         Salida             Balance   
@@ -31,7 +32,7 @@ c      = intb00001.cod_tipo,autonext;
 d      = intb00001.cod_sec,autonext;
 a1     = intb00001.descrip_esp,noentry;
 a2     = intb00001.unidad_med,noentry;
-h      = intb00006.bodega,autonext;
+COMBOBOX h = formonly.bodega;
 f1     = formonly.fech_in type date,format = "dd/mm/yyyy";
 f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
  d1     = intb00006.num_doc;
@@ -39,6 +40,7 @@ f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
 d4     = formonly.entrada;    
 d5     = formonly.salida;     
 d6     = formonly.balance;
+g      = formonly.mensaje_ini,noentry;
 
  instructions
      screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
diff --git a/PROYECTO/indir/inprcs006.4gl b/PROYECTO/indir/inprcs006.4gl
index 300170c..e65ea4f 100644
--- a/PROYECTO/indir/inprcs006.4gl
+++ b/PROYECTO/indir/inprcs006.4gl
@@ -101,15 +101,13 @@ FUNCTION inprcs006()
 
   END INPUT
 
-  CONSTRUCT  criterio ON p.bodega FROM bodega
-    BEFORE CONSTRUCT
-      CALL bodegas('1')
-    ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
-       
+  ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
+
        IF datos_cons.fech_fi IS NULL THEN
           CALL msg(16)
-          NEXT FIELD fecha_in
+          CONTINUE DIALOG
        END IF
+  LET criterio = "p.bodega = ", datos_cons.bodega
   LET query1 =
        "SELECT ISNULL(SUM(p.cantidad_2),0)  FROM intb00006 p 
            WHERE ", criterio clipped," and p.cod_n = ? and p.cod_grupo = ? and
@@ -207,8 +205,7 @@ FUNCTION inprcs006()
  # FOR idx = 1 TO csmov2.getLength()
  #   DISPLAY csmov2[idx].num_doc," ",csmov2[idx].fecha_2," ",csmov2[idx].entrada," p ",csmov2[idx].parent_id," c ",csmov2[idx].chield_id
  # END FOR
-   END CONSTRUCT
-   
+
    DISPLAY ARRAY csmov2 TO s_csmov.*
    END DISPLAY
    
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 99bb2e0..0f9a637 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -381,7 +381,7 @@
         <File filePath="indir/infmmt046.4fd"/>
         <File filePath="indir/infmmt036.4fd"/>
         <File filePath="indir/infmwd005.4fd"/>
-        <File filePath="indir/infmcs006.per"/>
+        <File filePath="indir/infmcs006.4fd"/>
       </Library>
       <Library binaryName="FUNCIONES_IN" dependencies="-1026233879" id="-801525068" label="FUNCIONES_IN">
         <File filePath="indir/inprgb000.4gl"/>