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/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