Registrar y corregir ipprmt020 (Requisiciones Productos Almacenes)

- Registrar funciones compartidas faltantes (buscarequisicion, imprequisiciones, funciones_ip) y formularios ipfmmt003/ipfmmt020 en el proyecto - Agregar usuarioSistema a seg000.4gl - Ampliar combos Codigo Mov/Bodega/Bodega Destino en ipfmmt020.4fd (texto ilegible) - Refrescar lista de requisiciones al anular (buscarData + clear del arreglo)
Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS
2026-09-09 16:30:34 -04:00 · 2026-09-05 12:03:31 -04:00 · 2026-09-05 12:03:13 -04:00 · 2026-09-04 16:48:33 -04:00 · 2026-09-04 16:46:09 -04:00 · 2026-09-04 16:22:45 -04:00
411 changed files with 57958 additions and 6436 deletions
@@ -1619,6 +1619,9 @@ FUNCTION desplegar()
     IF acc_per.estado_civil = "C" THEN
        LET estado = "CASADO"
     END IF
+    IF acc_per.estado_civil = "U" THEN
+        LET estado = "UNION LIBRE"
+     END IF

     IF acc_per.sexo = "M" THEN
        LET tipo_sexo = "MASCULINO"
@@ -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" gstVersion="3140a" version="6.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.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
        <report:FormatList>
            <report:Format-PDF/>
@@ -0,0 +1,57 @@
+<?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="tabloidlength" RWPageLength="tabloidwidth" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
+        <report:FormatList>
+            <report:Format-PDF/>
+            <report:Format-image/>
+            <report:Format-SVG/>
+        </report:FormatList>
+    </report:Settings>
+    <report:Data RWDataLocation="../indir/inprrp028.rdd" RWFglReportName="prt_exist"/>
+    <report:Conflicts/>
+    <rtl:stylesheet>
+        <PXML>
+            <rtl:match name="Report" nameConstraint="Report">
+                <MINIPAGE name="MiniPage1" width="max" length="max" fontName="Arial" fontSize="8">
+                    <LAYOUTNODE name="HeaderNode" width="min" length="min" swapX="true" port="anyPageHeader">
+                        <MINIPAGE name="HeaderStripe" width="min" length="max" alignment="center" layoutDirection="topToBottom">
+                            <WORDBOX name="WB1" alignment="baseline" fontBold="true" fontSize="12" text="MARMOTECH, S. A."/>
+                            <WORDBOX name="WB2" alignment="baseline" text="Sistema de Inventario de Materia Prima"/>
+                            <WORDBOX name="WB3" alignment="baseline" fontBold="true" text="Existencia con Entrada y Salida"/>
+                        </MINIPAGE>
+                        <LAYOUTNODE name="ColHeader" width="max" length="min" bgColor="#cccccc" fontBold="true" layoutDirection="leftToRight">
+                            <WORDBOX name="WBc1" width="3cm" alignment="baseline" text="Codigo"/>
+                            <WORDWRAPBOX name="WBc2" width="6cm" alignment="baseline" text="Descripcion"/>
+                            <WORDBOX name="WBc3" width="1.5cm" alignment="baseline" text="Unidad"/>
+                            <WORDBOX name="WBc4" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Ant."/>
+                            <WORDBOX name="WBc5" width="2.5cm" alignment="baseline" textAlignment="right" text="Entradas"/>
+                            <WORDBOX name="WBc6" width="2.5cm" alignment="baseline" textAlignment="right" text="Salidas"/>
+                            <WORDBOX name="WBc7" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Act."/>
+                        </LAYOUTNODE>
+                    </LAYOUTNODE>
+                    <rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
+                        <LAYOUTNODE name="RowNode" width="max" length="min" layoutDirection="leftToRight">
+                            <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="WBcodigo" width="3cm" alignment="baseline" text="{{x.cod_n.format(&quot;&amp;&quot;)+&quot;-&quot;+x.cod_grupo.format(&quot;&amp;&quot;)+&quot;-&quot;+x.cod_tipo.format(&quot;&amp;&amp;&quot;)+&quot;-&quot;+x.cod_sec.format(&quot;&amp;&amp;&amp;&quot;)}}"/>
+                            <rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
+                            <WORDWRAPBOX name="WBdesc" width="6cm" alignment="baseline" text="{{x.descrip_esp.trim()}}"/>
+                            <rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
+                            <WORDBOX name="WBund" width="1.5cm" alignment="baseline" text="{{x.unidad_med.trim()}}"/>
+                            <rtl:input-variable name="x.existe_ant" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <DECIMALFORMATBOX name="WBant" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{x.existe_ant}}"/>
+                            <rtl:input-variable name="entradas" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <DECIMALFORMATBOX name="WBent" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{entradas}}"/>
+                            <rtl:input-variable name="salidas" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <DECIMALFORMATBOX name="WBsal" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{salidas}}"/>
+                            <rtl:input-variable name="x.existe_act" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <DECIMALFORMATBOX name="WBact" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&amp;&amp;" value="{{x.existe_act}}"/>
+                        </LAYOUTNODE>
+                    </rtl:match>
+                </MINIPAGE>
+            </rtl:match>
+        </PXML>
+    </rtl:stylesheet>
+</report:Report>
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="3140a" version="6.00">
+    <report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
+        <report:FormatList>
+            <report:Format-SVG/>
+            <report:Format-PDF/>
+            <report:Format-image/>
+        </report:FormatList>
+    </report:Settings>
+    <report:Data RWDataLocation="../ipdir/imprequisiciones.rdd" RWFglReportName="requiere"/>
+    <report:Conflicts>
+        <report:Conflict nodeName="despiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
+        <report:Conflict nodeName="detalledespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
+        <report:Conflict nodeName="totaldespiece" message="Node was in trigger &quot;AfterGroup codigo&quot;, but trigger was removed during schema update"/>
+    </report:Conflicts>
+    <rtl:stylesheet>
+        <PXML>
+            <rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
+                <MINIPAGE name="Page Root" width="max" length="max">
+                    <LAYOUTNODE name="encabezado" width="min" length="max" alignment="center" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
+                        <rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
+                        <WORDBOX name="WordBox1" width="max-2cm" floatingBehavior="enclosed" textAlignment="center" text="{{p_companias.nombre}}"/>
+                        <WORDBOX name="WordBox" floatingBehavior="enclosed" text="Pagina:"/>
+                        <PAGENOBOX name="PageNoBox" floatingBehavior="enclosed"/>
+                    </LAYOUTNODE>
+                    <LAYOUTNODE name="encabezado2" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed">
+                        <WORDBOX name="WordBox2" width="max-2cm" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="REQUISICION DOCUMENTOS"/>
+                        <rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
+                        <WORDBOX name="WordBox3" floatingBehavior="enclosed" text="{{hora}}"/>
+                    </LAYOUTNODE>
+                    <LAYOUTNODE name="encabezadomaster" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
+                        <LAYOUTNODE name="LayoutNode1" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
+                            <rtl:input-variable name="nombreUsuario" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox4" length="1cm" floatingBehavior="enclosed" text="{{&quot;USUARIO: &quot;+nombreUsuario.trim()}}"/>
+                            <rtl:input-variable name="p_iptb57.numero_doc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox5" fontSize="12" fontBold="true" floatingBehavior="enclosed" text="{{&quot;DOCUMENTO: &quot;+p_iptb57.numero_doc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
+                            <rtl:input-variable name="p_iptb57.cod_mov" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
+                            <rtl:input-variable name="nombreMov" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*27" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;TIPO DOCUMENTO: &quot;+&quot;(&quot;+p_iptb57.cod_mov.format(&quot;&lt;&lt;&lt;&quot;)+&quot;)&quot;+nombreMov.trim()}}"/>
+                            <rtl:input-variable name="p_iptb57.fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox6" floatingBehavior="enclosed" text="{{&quot;FECHA: &quot;+p_iptb57.fecha}}"/>
+                            <rtl:input-variable name="nombreBodega" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox8" floatingBehavior="enclosed" text="{{&quot;BODEGA: &quot;+nombreBodega}}"/>
+                        </LAYOUTNODE>
+                        <LAYOUTNODE name="LayoutNode2" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
+                            <WORDBOX name="WordBox12" length="1cm" alignment="baseline" floatingBehavior="enclosed"/>
+                            <rtl:input-variable name="p_iptb57.bodega_destino" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
+                            <rtl:input-variable name="nombreBodegaDestino" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox9" floatingBehavior="enclosed" text="{{&quot;BODEGA DESTINO: &quot;+&quot;(&quot;+p_iptb57.bodega_destino+&quot;)&quot;+nombreBodegaDestino}}"/>
+                            <rtl:input-variable name="p_iptb57.num_oc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
+                            <WORDBOX name="WordBox10" floatingBehavior="enclosed" text="{{&quot;NUMERO ORDEN:&quot;+p_iptb57.num_oc.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
+                            <rtl:input-variable name="p_iptb57.cliente" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDWRAPBOX name="WordWrapBox1" width="width(&quot;M&quot;)*27" floatingBehavior="enclosed" text="{{&quot;CLIENTE: &quot;+p_iptb57.cliente}}"/>
+                            <rtl:input-variable name="p_iptb57.observacion" type="FGLString" expectedLocation="expectedWayAhead"/>
+                            <WORDWRAPBOX name="WordWrapBox2" width="width(&quot;M&quot;)*20" floatingBehavior="enclosed" text="{{&quot;OBSERVACION: &quot;+p_iptb57.observacion.trim()}}"/>
+                        </LAYOUTNODE>
+                    </LAYOUTNODE>
+                    <LAYOUTNODE name="encabezadodetalle" width="min" length="min" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
+                        <WORDBOX name="WordBox13" width="3.5inch" floatingBehavior="enclosed" text="ITEM(S)" roundedCorners="false" borderWidth="1"/>
+                        <WORDBOX name="WordBox14" width="2.2inch" floatingBehavior="enclosed" textAlignment="right" text="UNIDAD"/>
+                        <WORDBOX name="WordBox15" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD"/>
+                    </LAYOUTNODE>
+                    <rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
+                    <rtl:match name="Group codigo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
+                        <MINIPAGE name="table" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
+                            <rtl:input-variable name="detalle.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <rtl:input-variable name="detalle.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <rtl:input-variable name="detalle.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <rtl:input-variable name="detalle.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <rtl:input-variable name="detalle.descripcion" type="FGLString" expectedLocation="expectedHere"/>
+                            <rtl:input-variable name="detalle.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
+                            <WORDWRAPBOX name="WordWrapBox3" width="width(&quot;M&quot;)*30" length="min" alignment="baseline" floatingBehavior="enclosed" text="{{detalle.cod_n.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_grupo.format(&quot;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_tipo.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;-&quot;+detalle.cod_sec.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;     &quot;+detalle.descripcion.trim()+&quot; &quot;+detalle.unidad_med}}"/>
+                            <rtl:input-variable name="detalle.cantidad_1" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <WORDBOX name="WordBox17" width="2.4inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad_1.format(&quot;###,###.#####&quot;)}}"/>
+                            <rtl:input-variable name="detalle.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <WORDBOX name="WordBox18" width="1.5inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad.format(&quot;###,###.#####&quot;)}}"/>
+                        </MINIPAGE>
+                        <rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedAhead"/>
+                        <LAYOUTNODE name="despiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="topToBottom" floatingBehavior="enclosed">
+                            <WORDBOX name="WordBox20" width="max" floatingBehavior="enclosed" textAlignment="center" text="DESPIECE" roundedCorners="true" borderWidth="1" borderStyle="solid"/>
+                            <LAYOUTNODE name="encabezadodespiece" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
+                                <WORDBOX name="WordBox24" width="1.5inch" floatingBehavior="enclosed" text="Etiquetas"/>
+                                <WORDBOX name="WordBox26" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 1"/>
+                                <WORDBOX name="WordBox27" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 2"/>
+                                <WORDBOX name="WordBox28" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 3"/>
+                                <WORDBOX name="WordBox29" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Unidades"/>
+                                <WORDBOX name="WordBox30" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Medida"/>
+                            </LAYOUTNODE>
+                        </LAYOUTNODE>
+                        <rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
+                            <rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedHere"/>
+                            <LAYOUTNODE name="detalledespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
+                                <rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedHere"/>
+                                <WORDWRAPBOX name="etiqueta Value" class="grwStringValue" width="width(&quot;M&quot;)*15" alignment="baseline" floatingBehavior="enclosed" text="{{etiqueta}}"/>
+                                <rtl:input-variable name="xdespiece.lado_1" type="FGLNumeric" expectedLocation="expectedHere"/>
+                                <DECIMALFORMATBOX name="despiece.lado_1 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_1}}"/>
+                                <rtl:input-variable name="xdespiece.lado_2" type="FGLNumeric" expectedLocation="expectedHere"/>
+                                <DECIMALFORMATBOX name="despiece.lado_2 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_2}}"/>
+                                <rtl:input-variable name="xdespiece.lado_3" type="FGLNumeric" expectedLocation="expectedHere"/>
+                                <DECIMALFORMATBOX name="despiece.lado_3 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.lado_3}}"/>
+                                <rtl:input-variable name="xdespiece.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
+                                <DECIMALFORMATBOX name="despiece.cantidad Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.cantidad}}"/>
+                                <rtl:input-variable name="xdespiece.medida" type="FGLNumeric" expectedLocation="expectedHere"/>
+                                <DECIMALFORMATBOX name="despiece.medida Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{xdespiece.medida}}"/>
+                            </LAYOUTNODE>
+                        </rtl:match>
+                        <rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedBefore"/>
+                        <LAYOUTNODE name="totaldespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
+                            <WORDBOX name="WordBox21" width="4.8inch" floatingBehavior="enclosed" text="TOTALES"/>
+                            <rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedBefore"/>
+                            <WORDBOX name="WordBox22" width="1inch" floatingBehavior="enclosed" text="{{total_cantidad.format(&quot;##,###.#####&quot;)}}"/>
+                            <rtl:input-variable name="total_medida" type="FGLNumeric" expectedLocation="expectedBefore"/>
+                            <WORDBOX name="WordBox23" width="1inch" floatingBehavior="enclosed" text="{{total_medida.format(&quot;##,###.######&quot;)}}"/>
+                        </LAYOUTNODE>
+                    </rtl:match>
+                </MINIPAGE>
+            </rtl:match>
+        </PXML>
+    </rtl:stylesheet>
+</report:Report>
@@ -1,4 +1,4 @@
-database marmotech     
+database smarmotech
 screen size 24 by 80
 {

@@ -9,10 +9,10 @@ screen size 24 by 80
 \g-----------------------------------------------------------------------------\g
 Requi.      Codigo       Cantidad                       Precio          Valor
 \g-----------------------------------------------------------------------------\g
-[r1    ][c1        ][c2            ]              [p1           ][v1           ]
-[r1    ][c1        ][c2            ]              [p1           ][v1           ]
-[r1    ][c1        ][c2            ]              [p1           ][v1           ]
-[r1    ][c1        ][c2            ]              [p1           ][v1           ]
+[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
+[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
+[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
+[r1    ][c1                    ][c2            ]    [p1           ][v1           ]
  Descripcion [d1                                            ]
 } 
 end
@@ -1,4 +1,4 @@
-database marmotech   
+database smarmotech
 screen size 24 by 80
 {
         Fecha     [f1         ]
@@ -1,4 +1,4 @@
-DATABASE marmotech   
+DATABASE smarmotech
 screen
 {
 Ship To  [st                             ]
@@ -243,10 +243,10 @@ LET idx = 1
 FOREACH buscate INTO detalle1.*

  LET cs_ordena[idx].num_req = detalle1.num_req
-  LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-",
-                              detalle1.cod_grupo using "&","-",
-                              detalle1.cod_tipo using "&&","-",
-                              detalle1.cod_sec using "&&&"
+  LET cs_ordena[idx].codigo = detalle1.cod_n using "##","-",
+                              detalle1.cod_grupo using "####","-",
+                              detalle1.cod_tipo using "####","-",
+                              detalle1.cod_sec using "#####"
  LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##"
  LET cs_ordena[idx].precio = detalle1.precio using "##########.##"

@@ -27,7 +27,7 @@ GLOBALS

 DEFINE cs_ordena ARRAY [20] OF RECORD
 num_req     INTEGER,
- codigo      CHAR(10),
+ codigo      CHAR(20),
 cantidad    CHAR(14),
 precio      CHAR(13),
 valor       CHAR(14)
@@ -1037,6 +1037,9 @@ FUNCTION copcmf009()
    CALL lugarentregas()

 # Aqui se prepara para la captura del criterio de seleccion
+    -- cotb00014.bodega excluido: es el mismo combo oculto (tabIndex=-1) en
+    -- cofmmt009 que ya se excluye en copcad009(); el CONSTRUCT fallaba con
+    -- "Field (bodega) not found in form".
    CONSTRUCT criterio
        ON cotb00014.num_oc,
            cotb00014.tipo,
@@ -1049,8 +1052,7 @@ FUNCTION copcmf009()
            cotb00014.fech_enviada,
            cotb00014.pago,
            cotb00014.fech_pago,
-            cotb00014.cierre,
-            cotb00014.bodega
+            cotb00014.cierre
        FROM num_oc,
            tipo,
            fech_oc,
@@ -1062,8 +1064,7 @@ FUNCTION copcmf009()
            fech_enviada,
            pago,
            fech_pago,
-            cierre,
-            bodega
+            cierre

    IF int_flag THEN
        LET numero_msg = 2
@@ -2360,7 +2361,8 @@ FUNCTION escoge()
        ordenes.pago,
        ordenes.fech_pago

-    DISPLAY BY NAME ordenes.bodega
+    -- ordenes.bodega excluido (ver nota en copcad009()): no esta en el
+    -- formulario, DISPLAY BY NAME fallaba con "Field (bodega) not found in form".

    IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN
        LET flete1.total_1 =
@@ -178,7 +178,7 @@ FUNCTION copcmf010()

 	     COMMAND "Escoger"
 		     "<Esc> Actualiza Registro      <Delete> Cancela Operacion"
-		  IF paises.status_t != "E" THEN
+		  IF paises.status_t = "E" THEN
 		      LET numero_msg = 36
 		      CALL msg(numero_msg)
 		      RETURN
@@ -191,7 +191,16 @@ FUNCTION insertData()

    BEGIN WORK

-    INSERT INTO cotb00024
+    INSERT INTO cotb00024 (
+                term_sp,
+                descrip_term,
+                descrip_ting,
+                status_t,
+                us_crea,
+                fech_crea,
+                us_mod,
+                fech_mod,
+                dias)
        VALUES (pagos.term_sp,
                pagos.descrip_term,
                pagos.descrip_ting,
@@ -199,7 +208,8 @@ FUNCTION insertData()
                usuarios,                  -- us_crea
                pagos.fech_crea,           -- fech_crea
                NULL,                      -- us_mod
-                NULL)                      -- fech_mod
+                NULL,                      -- fech_mod
+                NULL)                      -- dias (no se captura en esta pantalla)


    CALL integridad()
@@ -35,7 +35,10 @@ DEFINE     xusername,xsmtphost,xsmtpport,xpassword  STRING,

           toEmail, orden_trabajo, answer_workorder, descrip_depto STRING, depto INT 

-DEFINE data RECORD 
+-- Debe coincidir exactamente (mismos campos, mismo orden) con el RECORD
+-- "data" del parametro de ApiMaintainC() en otrodir/api_test.4gl: el
+-- enlazador exige la misma aridad en todos los llamadores.
+DEFINE data RECORD
        area_sp        VARCHAR(10),
        ciu_sp         VARCHAR(30),
        cod_pais       VARCHAR(3),
@@ -43,6 +46,7 @@ DEFINE data RECORD
        cod_sp_sec     SMALLINT,
        cont_sp        VARCHAR(30),
        contactID      INTEGER,
+        cuenta_no      VARCHAR(10),
        dir_sp         VARCHAR(60),
        email          VARCHAR(60),
        fax_sp         VARCHAR(25),
@@ -50,14 +54,18 @@ DEFINE data RECORD
        fech_mod       DATETIME YEAR TO FRACTION,
        id_maintainx   INTEGER,
        nom_sp         VARCHAR(41),
+        rnc            VARCHAR(11),
        status_t       VARCHAR(1),
        tel_sp         VARCHAR(25),
        term_sp        SMALLINT,
+        tipo_doc       VARCHAR(10),
        us_crea        VARCHAR(50),
        us_mod         VARCHAR(50)
    END RECORD

-DEFINE container RECORD 
+DEFINE p_reportfile STRING
+
+DEFINE container RECORD
       tipo_inv STRING,
       cod_n INT,
       cod_grupo INT, 
@@ -110,7 +118,8 @@ FUNCTION coprmt025()
 END FUNCTION

 FUNCTION copcad025()
-   DEFINE tiene_Dato CHAR(2), answer STRING 
+   DEFINE tiene_Dato CHAR(2), answer STRING
+   DEFINE answer2 INTEGER
   INITIALIZE depto TO NULL 
 # Captura los datos que va a contener el registro

@@ -312,7 +321,7 @@ FUNCTION copcad025()

        INITIALIZE data.* TO NULL 

-        CALL ApiMaintainC('CHECK', orden_trabajo, data.*, usuarios) RETURNING answer
+        CALL ApiMaintainC('CHECK', orden_trabajo, data.*, usuarios) RETURNING answer, answer2

        IF answer = 0 OR answer IS NULL THEN 

@@ -732,8 +741,8 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")

            ELSE

-                CALL ApiMaintainC('PATCH_WORKORDER',answer_workorder, Data.*, usuarios) 
-                                    RETURNING answer
+                CALL ApiMaintainC('PATCH_WORKORDER',answer_workorder, Data.*, usuarios)
+                                    RETURNING answer, answer2

                IF answer != 1 THEN 
                    DISPLAY "AQUI PATCH_WORKORDER"
@@ -777,8 +786,12 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
  COMMIT WORK

       CALL seleccionarsalida() RETURNING salida
-       CALL configureoutput(salida) RETURNING HANDLER 
-       
+       -- La API de configuracion de reportes (fgl_report_*) no esta
+       -- disponible en este FGL; se escribe el XML directo a un archivo
+       -- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
+       LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req1.xml"
+       LET handler = om.XmlWriter.createFileWriter(p_reportfile)
+
       START REPORT print_req TO XML HANDLER HANDLER

    PREPARE query FROM 
@@ -894,7 +907,9 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
       COMMIT WORK

        CALL seleccionarsalida() RETURNING salida
-         CALL configureoutput(salida) RETURNING HANDLER
+         -- Ver nota sobre fgl_report_* mas arriba en este archivo.
+         LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req2.xml"
+         LET handler = om.XmlWriter.createFileWriter(p_reportfile)
          START REPORT print_req TO XML HANDLER HANDLER
     
        PREPARE query FROM 
@@ -1177,7 +1192,9 @@ FUNCTION copcmf025()
           IF salida IS NULL THEN
              LET salida = 'PDF'
            END IF  
-           CALL configureoutput(salida) RETURNING HANDLER
+           -- Ver nota sobre fgl_report_* mas arriba en este archivo.
+           LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req3.xml"
+           LET handler = om.XmlWriter.createFileWriter(p_reportfile)
           START REPORT print_req TO XML HANDLER HANDLER

           PREPARE query FROM 
@@ -144,19 +144,11 @@ FUNCTION coprrp001()
            archivo,
            copia

-    LET r_filename = 'coprrp001.4rp'
-    CALL seleccionarSalida() RETURNING r_output
-
-    LET preview = 1
-
-    IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
-
-        CALL fgl_report_selectDevice(r_output) -- changing default
-        CALL fgl_report_selectPreview(preview) -- changing default
-
-
-        LET handler = fgl_report_commitCurrentSettings() -- commit changes
-    END IF
+    -- La API de configuracion de reportes (fgl_report_*) no esta
+    -- disponible en este FGL; se escribe el XML directo a un archivo
+    -- en FGLSPOOL en lugar de usar la plantilla .4rp con vista previa.
+    LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml"
+    LET handler = om.XmlWriter.createFileWriter(r_filename)

    START REPORT catalogo2 TO XML HANDLER handler
 #### Enviando la informacion al registro del reporte
@@ -35,6 +35,8 @@ FUNCTION coprrp004()
           monto        DECIMAL(12,2)
    END RECORD

+    DEFINE r_filename STRING
+
   #WHENEVER ERROR CONTINUE

    OPTIONS
@@ -115,9 +117,14 @@ END IF
 #                                                       doce,normal,archivo,copia


-       CALL seleccionarsalida() RETURNING salida
-       CALL configureoutput(salida) RETURNING HANDLER 
-       
+       -- La API de configuracion de reportes (fgl_report_*) no esta
+       -- disponible en este FGL; seleccionarsalida()/configureoutput()
+       -- tampoco estan definidas en este programa. Se escribe el XML
+       -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
+       -- .4rp con vista previa.
+       LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp004_cronologico.xml"
+       LET handler = om.XmlWriter.createFileWriter(r_filename)
+
       START REPORT cronologico TO XML HANDLER handler


@@ -38,9 +38,11 @@ FUNCTION coprrp007()
        uso          VARCHAR(100),
        descrip_esp  VARCHAR(100),
        unidad_med   LIKE intb00001.unidad_med
-        
+
    END RECORD

+    DEFINE r_filename STRING
+
 #    WHENEVER ERROR CONTINUE

    OPTIONS
@@ -161,9 +163,14 @@ LET idx = 1
          RETURN
       END IF
     IF idx = 1 THEN
-     
-        CALL seleccionarsalida() RETURNING salida
-        CALL configureoutput(salida) RETURNING HANDLER    
+
+        -- La API de configuracion de reportes (fgl_report_*) no esta
+        -- disponible en este FGL; seleccionarsalida()/configureoutput()
+        -- tampoco estan definidas en este programa. Se escribe el XML
+        -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
+        -- .4rp con vista previa.
+        LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp007_organiza.xml"
+        LET handler = om.XmlWriter.createFileWriter(r_filename)
        START REPORT organiza TO XML HANDLER handler

     END IF
@@ -10,12 +10,20 @@ DIRECTOR PROYECTO    :  JOSE ALFREDO PAULINO ALEJO
 GLOBALS "coprgb000.4gl"
 MAIN
 DEFER INTERRUPT
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ CALL ARG_VAL(3) RETURNING impresor
+
+ CONNECT TO "smarmotech" USER usuarios USING clave
+ SELECT a.* INTO p_companias.* FROM companias a
+
 CALL coprrp019()
 END MAIN

 FUNCTION coprrp019()

    DEFINE select_fech,select_movi,select_ent CHAR(1000)
+    DEFINE r_filename STRING
    DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
    DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
    DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,9 +105,14 @@ FUNCTION coprrp019()
   DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
   OPEN ent_curs 

-   CALL seleccionarsalida() RETURNING r_output
-   CALL configureoutput(r_output) RETURNING HANDLER
-   
+   -- La API de configuracion de reportes (fgl_report_*) no esta
+   -- disponible en este FGL; seleccionarsalida()/configureoutput()
+   -- tampoco estan definidas en este programa. Se escribe el XML
+   -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
+   -- .4rp con vista previa.
+   LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp019_documento.xml"
+   LET handler = om.XmlWriter.createFileWriter(r_filename)
+
   START REPORT documento TO XML HANDLER handler

   DISPLAY "                                                " AT 19,14
@@ -2,8 +2,11 @@ FUNCTION busca_departamento()
 DEFINE pdepartamento ui.combobox,                                              
        kdepartamento SMALLINT,kdescripcion CHAR(30) 
   
-       LET  pdepartamento = ui.combobox.forname("formonly.depto_a")
-       CALL pdepartamento.clear()                                         
+       LET  pdepartamento = ui.combobox.forname("formonly.departamento")
+       IF pdepartamento IS NULL THEN
+          RETURN
+       END IF
+       CALL pdepartamento.clear()
       DECLARE pagar CURSOR FOR                                           
         SELECT departamento, nom_dpto FROM adtb00001                     
         WHERE status_t is null 
@@ -199,6 +199,9 @@ adtb00003^sexo^0^10^67^
 adtb00003^email_corporativo^201^100^68^
 adtb00003^enviar_encuesta^0^10^69^
 adtb00003^enviar_volante^0^10^70^
+adtb00003^telefonoCorporativo^0^15^71^
+adtb00003^numeroOficina^0^15^72^
+adtb00003^extension^0^5^73^
 adtb00004^cod_puesto^1^2^1^
 adtb00004^nom_puesto^0^180^2^
 adtb00004^otra_descripcion^0^180^3^
@@ -1,3 +1,25 @@
+FUNCTION msgrp000(tipo_papel)
+         DEFINE tipo_papel SMALLINT,
+                longitud   CHAR(11),
+                linea_papel CHAR(50)
+
+         CASE
+            WHEN tipo_papel = 1
+                 LET longitud = " 9 1/2 x 11"
+            WHEN tipo_papel = 2
+                 LET longitud = "14 7/8 x 11"
+         END CASE
+
+         LET linea_papel = "Coloque papel ",longitud," en la impresora."
+         DISPLAY linea_papel
+                 AT 15,14
+         DISPLAY "Asegurese de que la impresora este encendida."
+                 AT 16,14
+         DISPLAY "<Esc> Ejecuta impresion   <Delete> Cancela impresion"
+                 AT 18,14
+
+END FUNCTION
+
 FUNCTION defecto(usuarios,clave,impresor)

         DEFINE impresor,idx  SMALLINT,
@@ -142,3 +164,50 @@ RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,
       comp_on,comp_off,doce,normal,archivo,copia

 END FUNCTION
+
+FUNCTION configureOutput(tipo_file)
+    DEFINE tipo_file CHAR(3)
+    IF NOT fgl_report_loadCurrentSettings(NULL) THEN
+        RETURN NULL
+    END IF
+    CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
+    CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
+    CALL fgl_report_selectDevice(tipo_file)
+    CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
+    CALL fgl_report_selectPreview(TRUE)
+    RETURN fgl_report_commitCurrentSettings()
+
+    RETURN NULL
+END FUNCTION
+
+FUNCTION selectOutput()
+   DEFINE
+      r_output   STRING,
+      r_action   STRING,
+      preview    INTEGER
+
+   OPTIONS INPUT WRAP
+   OPEN WINDOW f_configuration WITH FORM "Configuration"
+   LET INT_FLAG=FALSE
+   LET preview = FALSE
+   INPUT BY NAME r_output
+     ON ACTION CANCEL
+       EXIT PROGRAM
+     ON ACTION CLOSE
+       EXIT PROGRAM
+   END INPUT
+   CLOSE WINDOW f_configuration
+   CALL ui.interface.refresh()
+
+   IF r_action IS NOT NULL THEN
+     IF r_action == "preview" THEN
+       LET preview = TRUE
+     END IF
+   END IF
+
+   RETURN r_output
+END FUNCTION
+
+FUNCTION seleccionarSalida()
+   RETURN selectOutput()
+END FUNCTION
@@ -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"/>
@@ -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)
@@ -1,75 +1,69 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{e7174189-8870-4ba4-8809-0d7723748408}">
+<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{2588a591-b057-476a-b4a8-b08042d6f2f7}">
  <AGSettings>
-    <DynamicProperties version="2"/>
+    <DynamicProperties version="4"/>
  </AGSettings>
-  <Record name="record1" uid="{5f98391b-bea0-4211-a080-65f585d7f377}">
-    <RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{d2a35378-2bc5-4c14-a5b2-d9d31602318b}"/>
-    <RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{b2c2e592-dc75-4e19-a9ff-93cc5b1f77c2}"/>
-    <RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{acbbeead-342c-4c6f-a091-347f83c07636}"/>
-    <RecordField colName="nom_dpto" fieldIdRef="3" fieldType="NON_DATABASE" name="nombre_d" sqlTabName="adtb00001" uid="{0dac7bb5-0381-4afe-8c40-96b4b36dd9cd}"/>
-    <RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{cadd22d3-f600-4af7-9fc9-696c6e7f1bbb}"/>
-    <RecordField fieldIdRef="4" name="cod_mov" uid="{fc7dc520-056a-4e29-9fd9-06882be58fd6}"/>
-    <RecordField fieldIdRef="5" name="descrip_mov" uid="{db6f3fa0-9339-4078-8c1f-c07b259095f4}"/>
-    <RecordField fieldIdRef="6" name="nombre" uid="{9601d4ae-5d55-452b-9426-6235f628d523}"/>
-    <RecordField fieldIdRef="7" name="apellido" uid="{7ab2f8e2-4efd-4810-aac8-f702974f3d82}"/>
-    <RecordField fieldIdRef="9" name="impresion" uid="{77ff2cb8-ae51-4e61-9880-5bedaf2864ef}"/>
+  <Record name="s_movi1" uid="{ea5f2f49-b9ed-4006-89ed-1b0ccb85921a}">
+    <RecordField colName="cod_n" fieldIdRef="4" fieldType="TABLE_COLUMN" name="intb00006.cod_n" sqlTabName="intb00006" uid="{035e9495-92e7-49b4-b08b-9c0d186cda04}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.cod_grupo" sqlTabName="intb00006" uid="{5fd30570-d08f-4a17-a017-2e344b0e17e7}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="6" fieldType="TABLE_COLUMN" name="intb00006.cod_tipo" sqlTabName="intb00006" uid="{e25df3e0-273a-437a-8175-bcb27619b24a}"/>
+    <RecordField colName="cod_sec" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.cod_sec" sqlTabName="intb00006" uid="{7c65560d-d48e-4bf5-b7f9-b20d9569c99e}"/>
+    <RecordField colName="cantidad_1" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.cantidad_1" sqlTabName="intb00006" uid="{1175d8c0-9c6c-454d-bcb7-55661372b958}"/>
+    <RecordField colName="cantidad_2" fieldIdRef="9" fieldType="TABLE_COLUMN" name="intb00006.cantidad_2" sqlTabName="intb00006" uid="{ed4c635e-94b8-4c6e-bedf-23ec775579f8}"/>
+    <RecordField colName="unidad_med" fieldIdRef="13" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{ead4e1e1-a2fe-45e1-b2c7-6561bd53f367}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{9d609a5f-5f39-478f-826e-5bc411f55e52}"/>
+    <RecordField colName="existencia" fieldIdRef="14" name="existencia" sqlTabName="formonly" uid="{a1b2c3d4-4444-4001-8001-000000000001}"/>
  </Record>
-  <Record name="s_movi1" uid="{f4a6ba20-de96-44b0-846f-190d18414d47}">
-    <RecordField fieldIdRef="13" name="cod_n" uid="{db75acf0-1055-476c-8243-3de0be0ff959}"/>
-    <RecordField fieldIdRef="14" name="cod_grupo" uid="{5f8f596e-eac0-4b35-b7c4-b1a8a3c6ef0d}"/>
-    <RecordField fieldIdRef="15" name="cod_tipo" uid="{1ccef9ef-ed49-42c7-a21d-0057636e5c93}"/>
-    <RecordField fieldIdRef="16" name="cod_Sec" uid="{39fdf508-1f80-4033-8ef6-5cccac37de36}"/>
-    <RecordField fieldIdRef="17" name="cantidad_1" uid="{7d6c051e-7772-4f29-bc49-2db9b7f3317f}"/>
-    <RecordField fieldIdRef="18" name="cantidad_2" uid="{228f3fb6-d439-4bdb-8304-2ea2a813db1c}"/>
-    <RecordField fieldIdRef="19" name="unidad_med" uid="{5776cd4e-a3f2-4ff0-b540-a00b6e0fdf5e}"/>
-    <RecordField fieldIdRef="20" name="descrip_esp" uid="{73bfd3ea-3edd-4965-a5e8-cdc35e4a16f8}"/>
-    <RecordField fieldIdRef="8" name="existencia" uid="{b583914e-c5af-4370-80a5-ba66b7779a23}"/>
+  <Record name="record1" uid="{5cc1cbdd-fac8-4ffc-98e4-331d5c9fb810}">
+    <RecordField colName="num_doc" fieldIdRef="0" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{3dcc2cab-2a20-4581-b11b-95c27ba55b87}"/>
+    <RecordField colName="fecha" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{effe3be7-6235-4ebb-88d9-4d99fe14bf42}"/>
+    <RecordField colName="depto_a" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.depto_a" sqlTabName="intb00006" uid="{408aa475-0b97-4d2c-aa5e-b6695c0b4299}"/>
+    <RecordField colName="nombre_d" fieldIdRef="3" name="nombre_d" sqlTabName="formonly" uid="{b2e366d3-59b8-4d1e-96ca-68a7eac26f2b}"/>
+    <RecordField colName="bodega" fieldIdRef="10" fieldType="TABLE_COLUMN" name="intb00006.bodega" sqlTabName="intb00006" uid="{9befab7b-9bfd-4fb5-ac59-646fca90afe9}"/>
+    <RecordField colName="impresion" defaultValue="MATRICIAL" fieldIdRef="11" name="impresion" sqlTabName="formonly" uid="{97a456ba-6f98-44dd-962d-203916eabb50}"/>
  </Record>
-  <Form gridHeight="22" gridWidth="92" name="infmmt036" text="REQUISICION MATERIALES">
+  <Form gridHeight="18" gridWidth="100" name="infmmt036" text="REQUISICION MATERIALES">
    <ToolBar name="toolbar1">
      <ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
      <ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documentos"/>
      <ToolBarSeparator name="toolbarseparator1"/>
      <ToolBarItem image="quit" name="salir" text="Salir"/>
    </ToolBar>
-    <Grid gridHeight="22" gridWidth="92" name="grid1" posX="0" posY="0">
-      <Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1">
+    <Grid gridHeight="18" gridWidth="100" name="grid1" posX="0" posY="0">
+      <Group gridHeight="5" gridWidth="78" name="group1" posX="1" posY="1">
        <Label gridHeight="1" gridWidth="9" name="label1" posX="1" posY="1" text="Documento"/>
        <Edit colName="num_doc" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="17" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
        <Label gridHeight="1" gridWidth="6" name="label2" posX="28" posY="1" text="Fecha"/>
        <Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="1" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="35" posY="1" sqlTabName="intb00006" tabIndex="2" widget="Edit"/>
        <Label gridHeight="1" gridWidth="15" name="label3" posX="1" posY="2" text="Codigo de Dpto"/>
-        <Edit autoNext="true" colName="depto_a" comment="Digite Codigo Departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.depto_a" posX="17" posY="2" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
-        <Edit colName="nom_dpto" fieldId="3" fieldType="NON_DATABASE" gridHeight="1" gridWidth="30" length="30" name="nombre_d" noEntry="true" posX="24" posY="2" sqlTabName="adtb00001" sqlType="CHAR" tabIndex="4" widget="Edit"/>
+        <Edit autoNext="true" colName="depto_a" comment="Digite Codigo Departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.depto_a" posX="17" posY="2" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
+        <Edit colName="nombre_d" fieldId="3" gridHeight="1" gridWidth="30" name="nombre_d" noEntry="true" posX="24" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
        <Label gridHeight="1" gridWidth="8" name="label4" posX="1" posY="3" text="Bodega :"/>
-        <Edit autoNext="true" colName="bodega" comment="Digite el codigo de la bodega de almacenamiento" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00006.bodega" posX="17" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
-        <RadioGroup fieldId="9" gridHeight="1" gridWidth="10" items="PDF, MATRICIAL" name="impresion" posX="27" posY="3" tabIndex="-1" title="radiogroup1" widget="RadioGroup">
-          <Item lstrtext="false" name="PDF" text="PDF"/>
-          <Item lstrtext="false" name="MATRICIAL" text="MATRICIAL"/>
+        <Edit autoNext="true" colName="bodega" comment="Digite el codigo de la bodega de almacenamiento" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.bodega" posX="17" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="label5" posX="24" posY="3" text="Impresion"/>
+        <RadioGroup colName="impresion" defaultValue="MATRICIAL" fieldId="11" gridHeight="1" gridWidth="3" items="MATRICIAL, PDF" name="impresion" posX="35" posY="3" sqlTabName="formonly" tabIndex="6" widget="RadioGroup">
+          <Item name="MATRICIAL" text="MATRICIAL"/>
+          <Item name="PDF" text="PDF"/>
        </RadioGroup>
-        <Label gridHeight="1" gridWidth="10" name="label5" posX="1" posY="4" text="Codigo Mov"/>
-        <Edit fieldId="4" gridHeight="1" gridWidth="5" name="cod_mov" posX="17" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
-        <Edit fieldId="5" gridHeight="1" gridWidth="30" name="descrip_mov" posX="24" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
-        <Edit fieldId="6" gridHeight="1" gridWidth="10" name="nombre" posX="24" posY="5" tabIndex="-1" title="edit1" widget="Edit"/>
-        <Edit fieldId="7" gridHeight="1" gridWidth="10" name="apellido" posX="36" posY="5" tabIndex="-1" title="edit2" widget="Edit"/>
      </Group>
-      <Group gridHeight="11" gridWidth="90" name="group2" posX="2" posY="9" text="Detalle">
-        <Table gridHeight="8" gridWidth="82" name="table1" posX="7" posY="2" totalRows="5">
-          <Edit fieldId="13" gridHeight="1" gridWidth="8" name="cod_n" posX="0" posY="0" tabIndex="-1" title="Codigo" widget="Edit"/>
-          <Edit fieldId="14" gridHeight="1" gridWidth="8" name="cod_grupo" posX="8" posY="0" tabIndex="-1" widget="Edit"/>
-          <Edit fieldId="15" gridHeight="1" gridWidth="8" name="cod_tipo" posX="16" posY="0" tabIndex="-1" widget="Edit"/>
-          <Edit fieldId="16" gridHeight="1" gridWidth="8" name="cod_Sec" posX="24" posY="0" tabIndex="-1" widget="Edit"/>
-          <Edit fieldId="17" gridHeight="1" gridWidth="8" name="cantidad_1" posX="32" posY="0" tabIndex="-1" title="Ordenada" widget="Edit"/>
-          <Edit fieldId="18" gridHeight="1" gridWidth="8" name="cantidad_2" posX="40" posY="0" tabIndex="-1" title="Entregada" widget="Edit"/>
-          <Edit fieldId="19" gridHeight="1" gridWidth="8" name="unidad_med" posX="48" posY="0" tabIndex="-1" title="Unidad Med" widget="Edit"/>
-          <Edit fieldId="20" gridHeight="1" gridWidth="8" name="descrip_esp" posX="56" posY="0" scroll="true" tabIndex="-1" title="Descripcion" widget="Edit"/>
-          <Edit fieldId="8" gridHeight="1" gridWidth="8" name="existencia" posX="64" posY="0" tabIndex="-1" title="Existencia" widget="Edit"/>
-        </Table>
+      <Group gridHeight="12" gridWidth="98" name="group2" posX="1" posY="6">
+        <Label gridHeight="1" gridWidth="15" name="label6" posX="19" posY="1" text="C A N T I D A D"/>
+        <Label gridHeight="1" gridWidth="6" name="label7" posX="2" posY="2" text="Codigo"/>
+        <Label gridHeight="1" gridWidth="8" name="label8" posX="18" posY="2" text="Ordenada"/>
+        <Label gridHeight="1" gridWidth="9" name="label9" posX="31" posY="2" text="Entregada"/>
+        <Label gridHeight="1" gridWidth="6" name="label10" posX="42" posY="2" text="Unidad"/>
+        <Label gridHeight="1" gridWidth="21" name="label11" posX="53" posY="2" text="D e s c r i p c i o n"/>
+        <Edit autoNext="true" colName="cod_n" columnCount="1" comment="Digite Codigo Articulo" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_n" posX="3" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="7" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_grupo" columnCount="1" comment="Digite Codigo Articulo" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="8" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="8" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_tipo" columnCount="1" comment="Digite Codigo Articulo" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="13" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="9" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_sec" columnCount="1" comment="Digite Codigo Articulo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="18" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="10" widget="Edit"/>
+        <Edit autoNext="true" colName="cantidad_1" columnCount="1" comment="Digite La Cantidad Ordenada" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_1" posX="24" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="11" widget="Edit"/>
+        <Edit autoNext="true" colName="cantidad_2" columnCount="1" comment="Digite La Cantidad Entregada" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="37" posY="4" repeat="true" rowCount="6" sqlTabName="intb00006" stepX="1" stepY="0" tabIndex="12" widget="Edit"/>
+        <Edit colName="unidad_med" columnCount="1" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="50" posY="4" repeat="true" rowCount="6" sqlTabName="intb00001" stepX="1" stepY="0" tabIndex="13" widget="Edit"/>
+        <Edit autoNext="true" colName="descrip_esp" columnCount="1" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="31" name="intb00001.descrip_esp" noEntry="true" posX="55" posY="4" repeat="true" rowCount="6" sqlTabName="intb00001" stepX="1" stepY="0" tabIndex="14" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="label12" posX="87" posY="2" text="Existencia"/>
+        <Edit colName="existencia" columnCount="1" fieldId="14" gridHeight="1" gridWidth="10" name="existencia" noEntry="true" posX="87" posY="4" repeat="true" rowCount="6" sqlTabName="formonly" stepX="1" stepY="0" tabIndex="15" widget="Edit"/>
      </Group>
    </Grid>
  </Form>
-  <DiagramLayout>
-    <![CDATA[AAAAAgAAAEwAewA1AGYAOQA4ADMAOQAxAGIALQBiAGUAYQAwAC0ANAAyADEAMQAtAGEAMAA4ADAALQA2ADUAZgA1ADgANQBkADcAZgAzADcANwB9QGqZmcGAABhAIAAAGAAADz9gYk3S8an8AQAAAEwAewBmADQAYQA2AGIAYQAyADAALQBkAGUAOQA2AC0ANAA0AGIAMAAtADgANAA2AGYALQAxADkAMABkADEAOAA0ADEANABkADQANwB9QICszOXQABBANMzM7AAAEz9wYk3S8an8AQ==]]>
-  </DiagramLayout>
 </ManagedForm>
@@ -22,8 +22,8 @@ LAYOUT (TEXT="REQUISICION MATERIALES")
 <g                                                                           >
  Documento      [f000  ]    Fecha [f001      ]                              
  Codigo de Dpto [f4  ] [a1                            ]              
-  Bodega :       [a7]                                                         
-  
+  Bodega :       [a7]    Impresion [imp]
+
 <g                                                                                    >
                    C A N T I D A D 
   Codigo          Ordenada     Entregada  Unidad     D e s c r i p c i o n
@@ -49,7 +49,7 @@ f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
 f4 = intb00006.depto_a,autonext,
       comments = "Digite Codigo Departamento";

-a1   = adtb00001.nom_dpto,noentry; 
+a1   = formonly.nombre_d,noentry;
 a    = intb00006.cod_n,autonext,
       comments = "Digite Codigo Articulo";
 b    = intb00006.cod_grupo,autonext,
@@ -63,7 +63,8 @@ f02  = intb00006.cantidad_1,autonext,
 f03  = intb00006.cantidad_2,autonext, 
       comments = "Digite La Cantidad Entregada";
 a7   = intb00006.bodega,autonext,
-       comments = "Digite el codigo de la bodega de almacenamiento"; 
+       comments = "Digite el codigo de la bodega de almacenamiento";
+RADIOGROUP imp = formonly.impresion,ITEMS=(("MATRICIAL","MATRICIAL"),("PDF","PDF")),DEFAULT="MATRICIAL";
 k    = intb00001.descrip_esp,noentry,autonext; 
 p    = intb00001.unidad_med,noentry;

@@ -12,6 +12,8 @@
    <RecordField colName="unidad_med" fieldIdRef="15" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" uid="{5d253d6f-9d68-4c95-9a22-76aabe75fa79}"/>
    <RecordField colName="descrip_esp" fieldIdRef="14" fieldType="TABLE_COLUMN" name="intb00001.descrip_esp" sqlTabName="intb00001" uid="{ff167e69-f067-4d4c-ac10-5ec84b88decd}"/>
    <RecordField colName="existencia" fieldIdRef="0" name="existencia" sqlTabName="formonly" uid="{efcd0bfb-50b3-4fae-b2fc-1649d7f569da}"/>
+    <RecordField colName="maquina" fieldIdRef="25" name="codigo" sqlTabName="formonly" uid="{a1b2c3d4-3333-4001-8001-000000000001}"/>
+    <RecordField colName="clasf_bloque" fieldIdRef="26" name="clasf_bloque" sqlTabName="formonly" uid="{a1b2c3d4-3333-4001-8001-000000000002}"/>
  </Record>
  <Record name="record1" uid="{43dfdfd8-2c00-47d0-888c-3c710875f92b}">
    <RecordField colName="num_doc" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{3654cddf-82ff-4ffc-8f10-5ee4ab25b47c}"/>
@@ -20,50 +22,65 @@
    <RecordField colName="descrip_mov" fieldIdRef="18" name="descrip_mov" sqlTabName="formonly" uid="{813f8ba1-8157-4849-a0e8-f3140299e9ce}"/>
    <RecordField colName="fecha" fieldIdRef="8" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{f2a62dee-1ec8-465f-aa1c-f58542f4edd1}"/>
    <RecordField colName="bodega" fieldIdRef="16" name="bodega" sqlTabName="formonly" uid="{41b65fc5-5db4-45f6-99af-ff9c385e505b}"/>
-    <RecordField colName="depto_a" fieldIdRef="2" name="depto_a" sqlTabName="formonly" uid="{6bdacdf3-1238-4efc-8288-c9e414078e9f}"/>
-    <RecordField colName="nombre_d" fieldIdRef="3" name="nombre_d" sqlTabName="formonly" uid="{17baeaa2-59e8-43c6-acfa-36eab3ba34dd}"/>
+    <RecordField colName="departamento" fieldIdRef="2" name="departamento" sqlTabName="formonly" uid="{6bdacdf3-1238-4efc-8288-c9e414078e9f}"/>
+    <RecordField colName="conduce" fieldIdRef="19" name="conduce" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000001}"/>
+    <RecordField colName="cod_transp" fieldIdRef="20" name="cod_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000002}"/>
+    <RecordField colName="sec_transp" fieldIdRef="21" name="sec_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000003}"/>
+    <RecordField colName="nombre_transp" fieldIdRef="22" name="nombre_transp" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000004}"/>
+    <RecordField colName="ficha_vehiculo" fieldIdRef="23" name="ficha_vehiculo" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000005}"/>
+    <RecordField colName="placa" fieldIdRef="24" name="placa" sqlTabName="formonly" uid="{a1b2c3d4-2222-4001-8001-000000000006}"/>
    <RecordField colName="pnum_emp" fieldIdRef="4" name="pnum_emp" sqlTabName="formonly" uid="{bfe61fca-3b3d-4e21-b8e1-5932090c7559}"/>
    <RecordField colName="nombre" fieldIdRef="5" name="nombre" sqlTabName="formonly" uid="{60a5474c-aa47-4275-a45f-98d878404e80}"/>
    <RecordField colName="apellido" fieldIdRef="6" name="apellido" sqlTabName="formonly" uid="{7c4796f9-5c66-4c91-a3d5-c3a44527d85e}"/>
  </Record>
-  <Form gridHeight="16" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
+  <Form gridHeight="19" gridWidth="87" name="infmmt046" text="TRANSACCIONES INVENTARIOS">
    <ToolBar name="toolbar1">
      <ToolBarItem comment="Nuevo Documento" image="new" name="nuevo" text="Documento"/>
      <ToolBarItem comment="Criterio de busqueda" image="find" name="buscar" text="Buscar Documento"/>
      <ToolBarSeparator name="toolbarseparator1"/>
      <ToolBarItem image="quit" name="salir" text="Salir"/>
    </ToolBar>
-    <Grid gridHeight="16" gridWidth="87" name="grid1" posX="0" posY="0">
-      <Group gridHeight="7" gridWidth="83" name="group1" posX="1" posY="1">
+    <Grid gridHeight="19" gridWidth="87" name="grid1" posX="0" posY="0">
+      <Group gridHeight="10" gridWidth="83" name="group1" posX="1" posY="1">
        <Label gridHeight="1" gridWidth="17" name="label1" posX="2" posY="1" text="Documento Numero"/>
        <Edit autoNext="true" colName="num_doc" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" noEntry="true" posX="20" posY="1" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
        <Label gridHeight="1" gridWidth="13" name="label2" posX="32" posY="1" text="Orden Compra"/>
        <Edit colName="orden_compra" fieldId="1" gridHeight="1" gridWidth="7" name="orden_compra" posX="46" posY="1" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
        <Label gridHeight="1" gridWidth="17" name="label3" posX="2" posY="2" text="Codigo Movimiento"/>
-        <ComboBox autoNext="true" colName="cod_mov" comment="Digite codigo del movimiento" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="20" posY="2" sqlTabName="intb00006" tabIndex="3" widget="ComboBox"/>
-        <Edit colName="descrip_mov" fieldId="18" gridHeight="1" gridWidth="34" name="descrip_mov" noEntry="true" posX="25" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
+        <ComboBox autoNext="true" colName="cod_mov" comment="Digite codigo del movimiento" fieldId="17" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="35" name="intb00006.cod_mov" posX="20" posY="2" sqlTabName="intb00006" tabIndex="3" widget="ComboBox"/>
+        <Edit colName="descrip_mov" fieldId="18" gridHeight="1" gridWidth="26" name="descrip_mov" noEntry="true" posX="56" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
        <Label gridHeight="1" gridWidth="5" name="label4" posX="2" posY="3" text="Fecha"/>
        <Edit autoNext="true" colName="fecha" comment="Digite Fecha Documento" fieldId="8" fieldType="TABLE_COLUMN" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="intb00006.fecha" posX="20" posY="3" sqlTabName="intb00006" tabIndex="5" widget="Edit"/>
        <Label gridHeight="1" gridWidth="8" name="label5" posX="32" posY="3" text="Bodega :"/>
-        <ComboBox autoNext="true" colName="bodega" fieldId="16" gridHeight="1" gridWidth="3" name="bodega" posX="41" posY="3" sqlTabName="formonly" tabIndex="6" widget="ComboBox"/>
-        <Label gridHeight="1" gridWidth="7" name="label6" posX="45" posY="3" text="Conduce"/>
-        <Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="4" text="DEPARTAMENTO"/>
-        <ComboBox colName="depto_a" fieldId="2" gridHeight="1" gridWidth="4" name="depto_a" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="ComboBox"/>
-        <Edit colName="nombre_d" fieldId="3" gridHeight="1" gridWidth="23" name="nombre_d" noEntry="true" posX="26" posY="4" sqlTabName="formonly" tabIndex="8" widget="Edit"/>
-        <Label gridHeight="1" gridWidth="13" name="label8" posX="2" posY="5" text="Operador Grua"/>
-        <Edit colName="pnum_emp" fieldId="4" gridHeight="1" gridWidth="4" name="pnum_emp" posX="20" posY="5" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
-        <Edit colName="nombre" fieldId="5" gridHeight="1" gridWidth="17" name="nombre" noEntry="true" posX="26" posY="5" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
-        <Edit colName="apellido" fieldId="6" gridHeight="1" gridWidth="23" name="apellido" noEntry="true" posX="45" posY="5" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
+        <ComboBox autoNext="true" colName="bodega" fieldId="16" gridHeight="1" gridWidth="35" name="bodega" posX="41" posY="3" sqlTabName="formonly" tabIndex="6" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="7" name="label6" posX="2" posY="4" text="Conduce"/>
+        <Edit colName="conduce" fieldId="19" gridHeight="1" gridWidth="9" name="conduce" posX="20" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="12" name="label7" posX="2" posY="5" text="DEPARTAMENTO"/>
+        <ComboBox colName="departamento" fieldId="2" gridHeight="1" gridWidth="35" name="departamento" posX="20" posY="5" sqlTabName="formonly" tabIndex="8" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="13" name="label8" posX="2" posY="6" text="Operador Grua"/>
+        <Edit colName="pnum_emp" fieldId="4" gridHeight="1" gridWidth="4" name="pnum_emp" posX="20" posY="6" sqlTabName="formonly" tabIndex="9" widget="Edit"/>
+        <Edit colName="nombre" fieldId="5" gridHeight="1" gridWidth="17" name="nombre" noEntry="true" posX="26" posY="6" sqlTabName="formonly" tabIndex="10" widget="Edit"/>
+        <Edit colName="apellido" fieldId="6" gridHeight="1" gridWidth="23" name="apellido" noEntry="true" posX="45" posY="6" sqlTabName="formonly" tabIndex="11" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="13" name="label9" posX="2" posY="7" text="Transportista"/>
+        <Edit colName="cod_transp" fieldId="20" gridHeight="1" gridWidth="4" name="cod_transp" posX="20" posY="7" sqlTabName="formonly" tabIndex="12" widget="Edit"/>
+        <Edit colName="sec_transp" fieldId="21" gridHeight="1" gridWidth="4" name="sec_transp" posX="25" posY="7" sqlTabName="formonly" tabIndex="13" widget="Edit"/>
+        <Edit colName="nombre_transp" fieldId="22" gridHeight="1" gridWidth="30" name="nombre_transp" noEntry="true" posX="30" posY="7" sqlTabName="formonly" tabIndex="14" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="14" name="label10" posX="2" posY="8" text="Ficha Vehiculo"/>
+        <Edit colName="ficha_vehiculo" fieldId="23" gridHeight="1" gridWidth="20" name="ficha_vehiculo" posX="20" posY="8" sqlTabName="formonly" tabIndex="15" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="6" name="label11" posX="42" posY="8" text="Placa"/>
+        <Edit colName="placa" fieldId="24" gridHeight="1" gridWidth="15" name="placa" posX="49" posY="8" sqlTabName="formonly" tabIndex="16" widget="Edit"/>
      </Group>
-      <Table gridHeight="7" gridWidth="86" name="table1" posX="1" posY="8" totalRows="6" unitWidth="characters" width="86">
-        <Edit colName="cod_n" comment="Digite el NIVEL" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_n" posX="0" posY="0" sqlTabName="intb00006" tabIndex="12" title="CODIGO" widget="Edit"/>
-        <Edit autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="2" posY="0" sqlTabName="intb00006" tabIndex="13" widget="Edit"/>
-        <Edit autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="5" posY="0" sqlTabName="intb00006" tabIndex="14" widget="Edit"/>
-        <Edit autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA   " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="8" posY="0" sqlTabName="intb00006" tabIndex="15" widget="Edit"/>
-        <Edit colName="cantidad_2" comment="Digite La Cantidad Ordenada" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="12" posY="0" sqlTabName="intb00006" tabIndex="16" title="CANTIDAD" widget="Edit"/>
-        <Edit colName="unidad_med" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="23" posY="0" sqlTabName="intb00001" tabIndex="17" widget="Edit"/>
-        <Edit colName="descrip_esp" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" posX="26" posY="0" sqlTabName="intb00001" tabIndex="18" title="DESCRIPCION" widget="Edit"/>
-        <Edit colName="existencia" fieldId="0" gridHeight="1" gridWidth="8" name="existencia" posX="56" posY="0" sqlTabName="formonly" tabIndex="19" title="EXISTENCIA" widget="Edit"/>
+      <Table gridHeight="7" gridWidth="86" name="table1" posX="1" posY="11" totalRows="6" unitWidth="characters" width="114">
+        <Edit colName="cod_n" comment="Digite el NIVEL" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_n" posX="0" posY="0" sqlTabName="intb00006" tabIndex="18" title="CODIGO" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_grupo" comment="Digite el GRUPO" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_grupo" posX="2" posY="0" sqlTabName="intb00006" tabIndex="19" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_tipo" comment="Digite el TIPO" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00006.cod_tipo" posX="5" posY="0" sqlTabName="intb00006" tabIndex="20" widget="Edit"/>
+        <Edit autoNext="true" colName="cod_sec" comment="Digite la SECUENCIA   " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="intb00006.cod_sec" posX="8" posY="0" sqlTabName="intb00006" tabIndex="21" widget="Edit"/>
+        <Edit colName="cantidad_2" comment="Digite La Cantidad Ordenada" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="intb00006.cantidad_2" posX="12" posY="0" sqlTabName="intb00006" tabIndex="22" title="CANTIDAD" widget="Edit"/>
+        <Edit colName="unidad_med" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="23" posY="0" sqlTabName="intb00001" tabIndex="23" widget="Edit"/>
+        <Edit colName="descrip_esp" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="30" name="intb00001.descrip_esp" posX="26" posY="0" sqlTabName="intb00001" tabIndex="24" title="DESCRIPCION" widget="Edit"/>
+        <Edit colName="existencia" fieldId="0" gridHeight="1" gridWidth="8" name="existencia" posX="56" posY="0" sqlTabName="formonly" tabIndex="25" title="EXISTENCIA" widget="Edit"/>
+        <ComboBox colName="maquina" fieldId="25" gridHeight="1" gridWidth="25" name="codigo" posX="64" posY="0" sqlTabName="formonly" tabIndex="26" title="MAQUINA" widget="ComboBox"/>
+        <ComboBox colName="clasf_bloque" fieldId="26" gridHeight="1" gridWidth="25" name="clasf_bloque" posX="89" posY="0" sqlTabName="formonly" tabIndex="27" title="CLASF. BLOQUE" widget="ComboBox"/>
      </Table>
    </Grid>
  </Form>
@@ -13,9 +13,11 @@ GRID
 <G                                                                                >
  Documento Numero [f000  ]     Orden Compra [ord    ]                                             
  Codigo Movimiento[m ] [m1                                ]          
-  Fecha            [f001      ] Bodega :[p1 ]Conduce                     
-  DEPARTAMENTO     [f1  ][d1                     ]                                 
-  Operador Grua    [op  ][nomop            ][ap                     ]            
+  Fecha            [f001      ] Bodega :[p1 ]Conduce [f002    ]
+  DEPARTAMENTO     [f1  ][d1                     ]
+  Operador Grua    [op  ][nomop            ][ap                     ]
+  Transportista    [tr1 ][tr2 ][nomtr                            ]
+  Ficha Vehiculo   [fveh                            ] Placa [pplaca         ]

 <t                                                                                   >  
   [a ][b  ][c  ][d   ][f02        ] [p  ][k                             ] [ex1     ]
@@ -34,11 +36,17 @@ cotb00001
 ATTRIBUTES
 ex1   = formonly.existencia, TITLE="EXISTENCIA";
 ord   = formonly.orden_compra;
-f1    = formonly.depto_a;
+COMBOBOX f1 = formonly.departamento;
 d1   = formonly.nombre_d,noentry;
 op   = formonly.pnum_emp;
 nomop  = formonly.nombre,noentry;
 ap     = formonly.apellido,noentry;
+f002   = formonly.conduce;
+tr1    = formonly.cod_transp;
+tr2    = formonly.sec_transp;
+nomtr  = formonly.nombre_transp,noentry;
+fveh   = formonly.ficha_vehiculo;
+pplaca = formonly.placa;
 f000 = intb00006.num_doc,autonext,noentry;
 f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
    comments = "Digite Fecha Documento";
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{7a1f2c30-8e4b-4d5a-9b6a-2f3c4d5e6f70}">
+  <AGSettings>
+    <DynamicProperties version="4"/>
+  </AGSettings>
+  <Record name="record1" uid="{4a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c5d}">
+    <RecordField colName="decide" comment="Digite A - Alfabetico    N - Numerico" fieldIdRef="0" name="decide" sqlTabName="formonly" uid="{1a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c51}"/>
+    <RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00005.cod_mov" sqlTabName="intb00005" uid="{1a2b3c4d-5e6f-4a7b-8c9d-0e1f2a3b4c52}"/>
+  </Record>
+  <Form gridHeight="5" gridWidth="60" name="infmrp008" text="Tipos de Movimientos">
+    <Grid gridHeight="5" gridWidth="60" name="grid1" posX="0" posY="0">
+      <Label gridHeight="1" gridWidth="20" name="label1" posX="0" posY="0" text="Ordenamiento"/>
+      <Edit autoNext="true" colName="decide" comment="Digite A - Alfabetico    N - Numerico" fieldId="0" gridHeight="1" gridWidth="2" name="decide" posX="22" posY="0" sqlTabName="formonly" tabIndex="1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="20" name="label2" posX="0" posY="1" text="Codigo Movimiento"/>
+      <Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00005.cod_mov" posX="22" posY="1" sqlTabName="intb00005" tabIndex="2" widget="Edit"/>
+    </Grid>
+  </Form>
+</ManagedForm>
@@ -2,7 +2,7 @@ database smarmotech
 screen size 24 by 80
 {

-Ordenamiento            [k]
+Ordenamiento            [k ]
 Codigo Movimiento       [a ]
 }
 end
@@ -15,7 +15,7 @@
    <RecordField fieldIdRef="9" name="bodega" uid="{29e8d1d3-d3fb-4bb5-9a5e-5870d09c4012}"/>
    <RecordField fieldIdRef="3" name="tipoReporte" uid="{af73cc7b-ed97-4526-9306-7ceb3e14bb9d}"/>
  </Record>
-  <Form gridHeight="24" gridWidth="80" name="infmrp009">
+  <Form gridHeight="24" gridWidth="80" name="infmrp009" text="Existencias a Diferentes Fechas">
    <Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
      <Label gridHeight="1" gridWidth="11" name="label2" posX="9" posY="1" text="Fecha Final"/>
      <Edit colName="fech_fi" comment="Introduzca Fecha Final" fieldId="4" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="24" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" widget="Edit"/>
@@ -34,7 +34,7 @@
      <Edit colName="cod_tipo" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_tipo" posX="39" posY="5" sqlTabName="intb00001" tabIndex="6" widget="Edit"/>
      <Edit colName="cod_sec" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.cod_sec" posX="46" posY="5" sqlTabName="intb00001" tabIndex="7" widget="Edit"/>
      <Label gridHeight="1" gridWidth="10" name="label12" posX="10" posY="6" text="Bodega"/>
-      <ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
+      <ComboBox fieldId="9" gridHeight="1" gridWidth="31" items="" name="bodega" notNull="true" posX="25" posY="6" tabIndex="-1" title="combobox1" widget="ComboBox"/>
      <Label gridHeight="1" gridWidth="1" name="label9" posX="10" posY="8" text="0"/>
      <Label gridHeight="1" gridWidth="2" name="label10" posX="21" posY="8" text="50"/>
      <Label gridHeight="1" gridWidth="3" name="label11" posX="35" posY="8" text="100"/>
@@ -1,33 +1,30 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{65e99c2b-637a-44ff-8fe8-a549b250be19}">
+<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{2fae125f-712d-4f29-87a1-51b726921e16}">
  <AGSettings>
-    <DynamicProperties version="2"/>
+    <DynamicProperties version="4"/>
  </AGSettings>
-  <Record name="record1" uid="{4fb0f919-f3a6-4b1e-aeea-b43f83982b8d}">
-    <RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.cod_mov" sqlTabName="intb00006" uid="{6d6beaab-e13f-455b-a61c-41a07f5bb273}"/>
-    <RecordField colName="descrip_mov" fieldIdRef="0" name="descrip_mov" sqlTabName="formonly" uid="{cf4f43bc-bc24-4688-944e-dca1a58acf72}"/>
-    <RecordField colName="num_doc" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{7c5fe677-d27f-45db-a069-79ea3f129654}"/>
-    <RecordField colName="fecha" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{1e9e7956-1f9c-4dec-9275-727f4c491b23}"/>
-    <RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{f394897d-ade5-4aca-8038-701585ee1147}"/>
-    <RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{20475402-fe48-4d1b-8183-fa75e7cfe42c}"/>
-    <RecordField fieldIdRef="6" name="bodega" uid="{b7e97b0b-c303-4171-bd41-37f7be2a872f}"/>
+  <Record name="record1" uid="{32862f17-82e9-4928-817b-6c11b279ff27}">
+    <RecordField colName="cod_mov" fieldIdRef="1" fieldType="TABLE_COLUMN" name="intb00006.cod_mov" sqlTabName="intb00006" uid="{50bb55c2-f401-4e27-acc9-fa6cf556b0d9}"/>
+    <RecordField colName="descrip_mov" fieldIdRef="0" name="descrip_mov" sqlTabName="formonly" uid="{28315cc1-66c8-423e-a86b-af455ec52be9}"/>
+    <RecordField colName="num_doc" fieldIdRef="2" fieldType="TABLE_COLUMN" name="intb00006.num_doc" sqlTabName="intb00006" uid="{7368fae7-1c4b-437e-9c34-1f1572963b87}"/>
+    <RecordField colName="fecha" fieldIdRef="5" fieldType="TABLE_COLUMN" name="intb00006.fecha" sqlTabName="intb00006" uid="{0f076029-3b03-4f4f-bde6-3616828a265a}"/>
+    <RecordField colName="bodega" fieldIdRef="6" name="bodega" sqlTabName="formonly" uid="{3aabc13b-ab73-4e6c-acb9-389250bda868}"/>
+    <RecordField colName="cod_sp" fieldIdRef="3" name="cod_sp" sqlTabName="formonly" uid="{fb3bd8a4-297a-4ff5-93cc-dafeb2f762c9}"/>
+    <RecordField colName="cod_sp_sec" fieldIdRef="4" name="cod_sp_sec" sqlTabName="formonly" uid="{3b346e58-ffc8-4572-bc0f-49c1312d3120}"/>
  </Record>
-  <Form gridHeight="9" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS">
-    <Grid gridHeight="9" gridWidth="56" name="grid1" posX="0" posY="0">
-      <Label gridHeight="1" gridWidth="10" name="label4" posX="2" posY="1" text="Bodega"/>
-      <ComboBox fieldId="6" gridHeight="1" gridWidth="34" items="" name="bodega" posX="21" posY="1" tabIndex="-1" title="combobox1" widget="ComboBox"/>
-      <Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="2" text="Codigo Movimiento"/>
-      <Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="21" posY="2" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
-      <Edit colName="descrip_mov" fieldId="0" gridHeight="1" gridWidth="30" name="descrip_mov" noEntry="true" posX="25" posY="2" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
-      <Label gridHeight="1" gridWidth="16" name="label2" posX="2" posY="3" text="Numero Documento"/>
-      <Edit colName="num_doc" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" posX="21" posY="3" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
-      <Label gridHeight="1" gridWidth="5" name="label3" posX="2" posY="4" text="Fecha"/>
-      <Edit colName="fecha" fieldId="5" fieldType="TABLE_COLUMN" format="dd/mm/yy" gridHeight="1" gridWidth="9" name="intb00006.fecha" noEntry="true" posX="21" posY="4" sqlTabName="intb00006" tabIndex="4" widget="Edit"/>
-      <Edit colName="cod_sp" fieldId="3" gridHeight="1" gridWidth="2" name="cod_sp" noEntry="true" posX="21" posY="5" sqlTabName="formonly" tabIndex="5" widget="Edit"/>
-      <Edit colName="cod_sp_sec" fieldId="4" gridHeight="1" gridWidth="4" name="cod_sp_sec" noEntry="true" posX="25" posY="5" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
+  <Form gridHeight="5" gridWidth="56" name="infmwd005" text="ANULAR DOCUMENTOS">
+    <Grid gridHeight="5" gridWidth="56" name="grid1" posX="0" posY="0">
+      <Label gridHeight="1" gridWidth="18" name="label1" posX="2" posY="0" text="Codigo Movimiento"/>
+      <Edit colName="cod_mov" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" name="intb00006.cod_mov" posX="21" posY="0" sqlTabName="intb00006" tabIndex="1" widget="Edit"/>
+      <Edit colName="descrip_mov" fieldId="0" gridHeight="1" gridWidth="30" name="descrip_mov" noEntry="true" posX="25" posY="0" sqlTabName="formonly" tabIndex="2" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="16" name="label2" posX="2" posY="1" text="Numero Documento"/>
+      <Edit colName="num_doc" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00006.num_doc" posX="21" posY="1" sqlTabName="intb00006" tabIndex="3" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="5" name="label3" posX="2" posY="2" text="Fecha"/>
+      <Edit colName="fecha" fieldId="5" fieldType="TABLE_COLUMN" format="dd/mm/yy" gridHeight="1" gridWidth="9" name="intb00006.fecha" noEntry="true" posX="21" posY="2" sqlTabName="intb00006" tabIndex="4" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="6" name="label4" posX="2" posY="3" text="Bodega"/>
+      <ComboBox colName="bodega" fieldId="6" gridHeight="1" gridWidth="35" items="" name="bodega" posX="21" posY="3" sqlTabName="formonly" tabIndex="5" widget="ComboBox"/>
+      <Edit colName="cod_sp" fieldId="3" gridHeight="1" gridWidth="2" name="cod_sp" noEntry="true" posX="21" posY="4" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
+      <Edit colName="cod_sp_sec" fieldId="4" gridHeight="1" gridWidth="4" name="cod_sp_sec" noEntry="true" posX="25" posY="4" sqlTabName="formonly" tabIndex="7" widget="Edit"/>
    </Grid>
  </Form>
-  <DiagramLayout>
-    <![CDATA[AAAAAgAAAEwAewA0AGYAYgAwAGYAOQAxADkALQBmADMAYQA2AC0ANABiADEAZQAtAGEAZQBlAGEALQBiADQAMwBmADgAMwA5ADgAMgBiADgAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
-  </DiagramLayout>
 </ManagedForm>
@@ -15,7 +15,8 @@ LAYOUT (TEXT="ANULAR DOCUMENTOS")
 {
  Codigo Movimiento [f0][a                             ]
  Numero Documento  [f02   ]
-  Fecha             [f5       ] 
+  Fecha             [f5       ]
+  Bodega            [bod]
                    [f1][f2  ]
 }
 end
@@ -28,6 +29,7 @@ f02  = intb00006.num_doc;
 f1   = formonly.cod_sp,noentry;
 f2   = formonly.cod_sp_sec,noentry;
 f5   = intb00006.fecha,noentry,format = "dd/mm/yy";
+COMBOBOX bod = formonly.bodega;
 instructions
 delimiters " "
 end
@@ -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
   
@@ -3,7 +3,8 @@ GLOBALS
  DEFINE  nombre,apellido CHAR(30),
          xinserta CHAR(1),
          kprograma varchar(20),
-          xdescrip_mov VARCHAR(50)
+          xdescrip_mov VARCHAR(50),
+          xcod_mov_tmp LIKE intb00005.cod_mov
  
 FUNCTION reimprime(xprograma)
  DEFINE xprograma CHAR(20),
@@ -11,7 +12,7 @@ FUNCTION reimprime(xprograma)
  
  IF xprograma = 'inprmt046' THEN
     CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.depto_a,a.bodega FROM
-                          cod_mov,num_doc,fecha,depto_a,bodega
+                          cod_mov,num_doc,fecha,departamento,bodega
      BEFORE CONSTRUCT
           CALL cincodmov()
           CALL busca_departamento()      
@@ -41,148 +42,192 @@ FUNCTION reimprime(xprograma)
            LET xinserta = 'N'
    END IF 
  
+   LET kprograma = xprograma
+
   PREPARE breimprime FROM selec
    DECLARE bdocumento SCROLL CURSOR FOR breimprime
   OPEN bdocumento
-    
-   FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
-                               otros_mov.num_doc,otros_mov.fecha,  
-                               datos1.depto_a,pnum_emp,otros_mov.bodega
+
+   IF kprograma = 'inprmt046' THEN
+      FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
+                                  otros_mov.num_doc,otros_mov.fecha,
+                                  datos1.depto_a,pnum_emp,otros_mov.bodega
+   ELSE
+      FETCH FIRST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
+                                  datos1.num_doc,datos1.fecha,
+                                  datos1.depto_a,pnum_emp,datos1.bodega
+   END IF

                               IF STATUS = NOTFOUND THEN
                                  CALL msg(3)
                                  RETURN
                               END IF
-    LET kprograma = xprograma                           
    CALL busca_info()
-           
+
   MENU "NAVEGACION:"
     COMMAND "Siguiente" "Busca el siguiente documento"
-       FETCH NEXT bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
-                               otros_mov.num_doc,otros_mov.fecha,  
-                               datos1.depto_a,pnum_emp,otros_mov.bodega
+       IF kprograma = 'inprmt046' THEN
+          FETCH NEXT bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
+                                  otros_mov.num_doc,otros_mov.fecha,
+                                  datos1.depto_a,pnum_emp,otros_mov.bodega
+       ELSE
+          FETCH NEXT bdocumento INTO  xcod_mov_tmp,xdescrip_mov,
+                                  datos1.num_doc,datos1.fecha,
+                                  datos1.depto_a,pnum_emp,datos1.bodega
+       END IF
       CALL busca_info()
-   
+
     COMMAND "Primero" "Busca el siguiente documento"
-       FETCH FIRST bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
-                               otros_mov.num_doc,otros_mov.fecha,  
-                               datos1.depto_a,pnum_emp,otros_mov.bodega
-        CALL busca_info() 
+       IF kprograma = 'inprmt046' THEN
+          FETCH FIRST bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
+                                  otros_mov.num_doc,otros_mov.fecha,
+                                  datos1.depto_a,pnum_emp,otros_mov.bodega
+       ELSE
+          FETCH FIRST bdocumento INTO  xcod_mov_tmp,xdescrip_mov,
+                                  datos1.num_doc,datos1.fecha,
+                                  datos1.depto_a,pnum_emp,datos1.bodega
+       END IF
+        CALL busca_info()
      COMMAND "Anterior" "Busca el Registrosiguiente documento"
-       FETCH PREVIOUS bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
-                               otros_mov.num_doc,otros_mov.fecha,  
-                               datos1.depto_a,pnum_emp,otros_mov.bodega
+       IF kprograma = 'inprmt046' THEN
+          FETCH PREVIOUS bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
+                                  otros_mov.num_doc,otros_mov.fecha,
+                                  datos1.depto_a,pnum_emp,otros_mov.bodega
+       ELSE
+          FETCH PREVIOUS bdocumento INTO  xcod_mov_tmp,xdescrip_mov,
+                                  datos1.num_doc,datos1.fecha,
+                                  datos1.depto_a,pnum_emp,datos1.bodega
+       END IF
        CALL busca_info()
      COMMAND "Ultimo" "Busca el Ultimo Documento"
-       FETCH LAST bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
-                               otros_mov.num_doc,otros_mov.fecha,  
-                               datos1.depto_a,pnum_emp,otros_mov.bodega
+       IF kprograma = 'inprmt046' THEN
+          FETCH LAST bdocumento INTO  otros_mov.cod_mov,xdescrip_mov,
+                                  otros_mov.num_doc,otros_mov.fecha,
+                                  datos1.depto_a,pnum_emp,otros_mov.bodega
+       ELSE
+          FETCH LAST bdocumento INTO  xcod_mov_tmp,xdescrip_mov,
+                                  datos1.num_doc,datos1.fecha,
+                                  datos1.depto_a,pnum_emp,datos1.bodega
+       END IF
         CALL busca_info()
      COMMAND KEY("T") "reTornar" "Salir de busqueda"
        EXIT MENU
     END MENU
  END FUNCTION
 FUNCTION busca_info()
- 
-   SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
-    WHERE a.departamento  = datos1.depto_a and
-          a.status_t is NULL

-   LET nombre =NULL
-   LET apellido = NULL
-   
-   SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido  FROM adtb00003 a
-   WHERE a.num_Emp = pnum_emp
-   
-   DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
-                   otros_mov.fecha,nombre,apellido
-   DISPLAY datos1.depto_a TO departamento                
-   DECLARE  busca CURSOR FOR
-    SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_2, b.unidad_med, b.descrip_Esp,NULL, 
-            a.maquina, a.clasf_bloque
-     FROM intb00006 a,intb00001 b
-     WHERE a.num_Doc = otros_mov.num_doc AND
-           a.cod_mov = otros_mov.cod_mov AND
-           a.cod_n = b.cod_n AND
-           a.cod_grupo = b.cod_grupo AND
-           a.cod_tipo = b.cod_tipo AND
-           a.cod_Sec = b.cod_Sec AND
-           a.bodega = otros_mov.bodega
+   IF kprograma = 'inprmt046' THEN
+      SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
+       WHERE a.departamento  = datos1.depto_a and
+             a.status_t is NULL

-     LET idx = 1
-     IF kprograma = 'inprmt046' THEN
-         FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
-                            movi2[idx].cod_tipo,movi2[idx].cod_sec,
-                            movi2[idx].cantidad_2, movi2[idx].unidad_med,
-                            movi2[idx].descrip_esp, movi2[idx].existencia,
-                            movi2[idx].maquina, movi2[idx].clasf_bloque
-             LET idx = idx + 1                    
-         END FOREACH
-         
-         CALL set_count(idx-1)
-         DISPLAY ARRAY movi2 TO s_movi1.*
-            BEFORE DISPLAY 
-                CALL maquinaria()
-                CALL clasf_bloque()
-          ON ACTION rimprimir
-          
-            CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-                                                           doble_on,doble_off,comp_on,comp_off,
-                                                           doce,normal,archivo,copia
+      LET nombre =NULL
+      LET apellido = NULL

-         #    CALL configureoutput('PDF') RETURNING handler   
-         #    START REPORT formu46 TO XML HANDLER handler
+      SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido  FROM adtb00003 a
+      WHERE a.num_Emp = pnum_emp
+
+      DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
+                      otros_mov.fecha,nombre,apellido
+      DISPLAY datos1.depto_a TO departamento
+      DECLARE  busca CURSOR FOR
+       SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_2, b.unidad_med, b.descrip_Esp,NULL,
+               a.maquina, a.clasf_bloque
+        FROM intb00006 a,intb00001 b
+        WHERE a.num_Doc = otros_mov.num_doc AND
+              a.cod_mov = otros_mov.cod_mov AND
+              a.cod_n = b.cod_n AND
+              a.cod_grupo = b.cod_grupo AND
+              a.cod_tipo = b.cod_tipo AND
+              a.cod_Sec = b.cod_Sec AND
+              a.bodega = otros_mov.bodega
+
+      LET idx = 1
+      FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
+                         movi2[idx].cod_tipo,movi2[idx].cod_sec,
+                         movi2[idx].cantidad_2, movi2[idx].unidad_med,
+                         movi2[idx].descrip_esp, movi2[idx].existencia,
+                         movi2[idx].maquina, movi2[idx].clasf_bloque
+          LET idx = idx + 1
+      END FOREACH
+
+      CALL set_count(idx-1)
+      DISPLAY ARRAY movi2 TO s_movi1.*
+         BEFORE DISPLAY
+             CALL maquinaria()
+             CALL clasf_bloque()
+       ON ACTION rimprimir
+
+         CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
+                                                        doble_on,doble_off,comp_on,comp_off,
+                                                        doce,normal,archivo,copia
+
+       START REPORT formu46 TO archivo
+
+        FOR idx = 1 TO movi2.getLength()
+             OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
+                                  otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov,
+                                  nombre_d,
+                      movi2[idx].*)
+       END FOR
+       FINISH REPORT formu46
+
+       RUN imprime
+       END DISPLAY
+   ELSE
+      SELECT UNIQUE nom_dpto INTO datos1.nom_dpto FROM adtb00001 a
+       WHERE a.departamento  = datos1.depto_a and
+             a.status_t is NULL
+
+      DISPLAY BY NAME datos1.num_doc,datos1.fecha,datos1.depto_a,datos1.bodega
+      DISPLAY datos1.nom_dpto TO nombre_d
+
+      DECLARE busca36 CURSOR FOR
+       SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_1,a.cantidad_2,
+              b.unidad_med, b.descrip_Esp
+        FROM intb00006 a,intb00001 b
+        WHERE a.num_Doc = datos1.num_doc AND
+              a.cod_mov = 36 AND
+              a.cod_n = b.cod_n AND
+              a.cod_grupo = b.cod_grupo AND
+              a.cod_tipo = b.cod_tipo AND
+              a.cod_Sec = b.cod_Sec AND
+              a.bodega = datos1.bodega
+
+      LET idx = 1
+      FOREACH busca36 INTO movi[idx].cod_n,movi[idx].cod_grupo,
+                           movi[idx].cod_tipo,movi[idx].cod_sec,
+                           movi[idx].cantidad_1,movi[idx].cantidad_2,
+                           movi[idx].unidad_med,movi[idx].descrip_esp
+          LET idx = idx + 1
+      END FOREACH
+
+      CALL set_count(idx-1)
+      DISPLAY ARRAY movi TO s_movi1.*
+       ON ACTION rimprimir
+
+         CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
+                                                        doble_on,doble_off,comp_on,comp_off,
+                                                        doce,normal,archivo,copia
+
+         START REPORT formu36 TO archivo
+
+         FOR idx = 1 TO movi.getLength()
+             IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and
+                movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN
+
+                LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
+
+             OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha,
+                                      datos1.depto_a,datos1.nom_dpto,
+                                      movi[idx].*)
+             END IF
+       END FOR
+       FINISH REPORT formu36
+       RUN imprime

-          START REPORT formu46 TO archivo
-        
-           FOR idx = 1 TO movi2.getLength()   
-                OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
-                                     otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov,
-                                     nombre_d,
-                         movi2[idx].*)
-          END FOR
-          FINISH REPORT formu46
-      
-      RUN imprime
      END DISPLAY
-   { ELSE
-    FOREACH busca INTO movi[idx].cod_n,movi[idx].cod_grupo,
-                            movi[idx].cod_tipo,movi[idx].cod_sec,
-                            movi[idx].descrip_esp,movi[idx].cantidad_2
-             LET idx = idx + 1                    
-         END FOREACH
-         
-     
-         DISPLAY ARRAY movi TO s_movi1.*
-          ON ACTION rimprimir
-          
-            CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-                                                           doble_on,doble_off,comp_on,comp_off,
-                                                           doce,normal,archivo,copia
-
-        #    CALL configureoutput('PDF') RETURNING HANDLER   
-        #    START REPORT formu36 TO XML HANDLER HANDLER
-
-            START REPORT formu36 TO archivo
-            
-            FOR idx = 1 TO movi.getLength()
-                IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and
-                   movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN
-
-                   LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
-
-                     
-                OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha,
-                                         datos1.depto_a,datos1.nom_dpto,
-                                         movi[idx].*)
-                END IF                         
-          END FOR
-          FINISH REPORT formu36
-          RUN imprime
-   
-         END DISPLAY
-         }
-    END IF    
+   END IF
 END FUNCTION

 REPORT formu46(x,xnombre_d,z)
@@ -663,24 +663,3 @@ FUNCTION inprad046()
    END INPUT
 END FUNCTION

-FUNCTION maquinaria()
-
-    DEFINE
-        kmaquina VARCHAR(14),
-        kdescripcion CHAR(75),
-        maquinas ui.ComboBox
-        
-    LET maquinas = ui.combobox.forname("formonly.codigo")
-
-    DECLARE busca_maquinas1 CURSOR FOR
-        SELECT a.cod_maquina, a.descrip_maquina
-            FROM intb00059 a
-            ORDER BY a.cod_maquina
-
-    CALL maquinas.clear()
-
-    FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
-        CALL maquinas.additem(kmaquina, kdescripcion)
-    END FOREACH
-
-END FUNCTION
@@ -46,6 +46,10 @@ FUNCTION inprrp005()
      us_anula     CHAR(9)
    END RECORD
    DEFINE nombre_suplidor CHAR(30)
+    DEFINE p_fecha RECORD
+       fecha DATE
+    END RECORD
+    DEFINE filtro_fecha CHAR(60)


    OPTIONS
@@ -61,11 +65,9 @@ FUNCTION inprrp005()
    DISPLAY "  Documentos " AT 6,33

    LET tipo_papel = 1
-    CALL msgrp000(tipo_papel) 
+    CALL msgrp000(tipo_papel)

-
-    CONSTRUCT criterio ON a.fecha,a.cod_mov,a.num_doc     
-                     FROM fecha,cod_mov,num_doc     
+    INPUT BY NAME p_fecha.fecha

    IF int_flag THEN
       LET numero_msg = 2
@@ -73,6 +75,22 @@ FUNCTION inprrp005()
       LET int_flag = FALSE
       RETURN
    END IF
+
+    CONSTRUCT criterio ON a.cod_mov,a.num_doc
+                     FROM cod_mov,num_doc
+
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN
+    END IF
+
+    LET filtro_fecha = ""
+    IF p_fecha.fecha IS NOT NULL THEN
+       LET filtro_fecha = " AND CONVERT(CHAR(10),a.fecha,103) = '",
+                           p_fecha.fecha USING "dd/mm/yyyy", "' "
+    END IF
        CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia
@@ -82,7 +100,7 @@ FUNCTION inprrp005()

    let selec = 
       "SELECT a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec,b.descrip_esp, ",
-       "       b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,104),a.cantidad_1,a.cantidad_2, ",
+       "       b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,103),a.cantidad_1,a.cantidad_2, ",
       "       c.cod_mov,c.descrip_mov,a.conduce_no,a.fact_no,a.orden_compra, ",
       "       a.cod_sp,a.cod_sp_sec,a.depto_de,a.depto_a,a.cod_seccion, ",
       "       a.status_t,CONVERT(CHAR(16),a.fech_mod),a.us_mod ",
@@ -91,7 +109,8 @@ FUNCTION inprrp005()
       "      a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND " ,
       "      a.cod_sec = b.cod_sec  AND c.cod_mov  = a.cod_mov AND ",
       "      b.status_t is NULL AND c.status_t is NULL ",
-       "ORDER BY c.cod_mov,a.num_doc  "   
+       filtro_fecha CLIPPED,
+       "ORDER BY c.cod_mov,a.num_doc  "

     PREPARE busca FROM selec
     DECLARE accion CURSOR FOR busca
@@ -8,8 +8,13 @@ FECHA REALIZACION    :  Septiembre 29, 1992
 }
 GLOBALS "inprgb000.4gl"

-MAIN                
+MAIN
   DEFER INTERRUPT
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+   CALL ARG_VAL(3) RETURNING impresor
+   CONNECT to "smarmotech" USER  usuarios USING clave
+
   SELECT * INTO p_companias.* FROM companias
   CALL inprrp008()
 END MAIN
@@ -92,8 +97,10 @@ WHENEVER ERROR CONTINUE
      DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>" 
              AT 19,14 ATTRIBUTE (REVERSE) 

-    START REPORT movimiento TO "C:\\archivo"         
-    FOREACH accion INTO tipo.* 
+    LET archivo = FGL_GETENV("FGLSPOOL"),"\\archivo_tipomov.txt"
+
+    START REPORT movimiento TO archivo
+    FOREACH accion INTO tipo.*
       IF status = NOTFOUND THEN
         EXIT FOREACH
       ELSE
@@ -104,7 +111,9 @@ WHENEVER ERROR CONTINUE

    CLEAR SCREEN

-RUN "type C:\\archivo > %USPRINT%" END FUNCTION
+LET dcmd = "type \"",archivo CLIPPED,"\" > %USPRINT%"
+RUN dcmd
+END FUNCTION

    REPORT movimiento(x)
       DEFINE x RECORD
@@ -159,14 +159,11 @@ LET selec =

    DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
            AT 19,14 ATTRIBUTE (REVERSE) 
-     CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-                                                       doble_on,doble_off,comp_on,comp_off,
-                                                       doce,normal,archivo,copia
+    LET opt1 = "yes"
+    CALL seleccionarsalida() RETURNING r_output
+    CALL configureoutput(r_output) RETURNING handler
+    START REPORT opera TO XML HANDLER HANDLER

-        CALL seleccionarsalida() RETURNING r_output
-        CALL configureoutput(r_output) RETURNING handler    
-        START REPORT opera TO XML HANDLER HANDLER
-        
    PREPARE busca_p FROM selec
    DECLARE periodo SCROLL CURSOR FOR busca_p
    OPEN periodo using ano_act,datos_cons.fech_in,datos_cons.fech_fi
@@ -185,6 +182,9 @@ LET selec =
    FINISH REPORT opera
    CLEAR SCREEN

+    IF opt1 <> "yes" THEN
+       RUN imprime
+    END IF
 END FUNCTION

 REPORT opera(x)
@@ -179,14 +179,19 @@ LET select_ant =
    DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
            AT 19,14 ATTRIBUTE (REVERSE) 
            
-#CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-#                                                       doble_on,doble_off,comp_on,comp_off,
-#                                                       doce,normal,archivo,copia
+       LET opt1 = fgl_winquestion("Atencion","Desea Reporte Grafico?",
+                             "no","yes|no","question",0)

-       CALL seleccionarsalida() RETURNING r_output
-       CALL configureoutput(r_output) RETURNING HANDLER
-       
-       START REPORT prt_exist TO XML HANDLER handler
+       IF opt1 = "yes" THEN
+          CALL seleccionarsalida() RETURNING r_output
+          CALL configureOutputRp028(r_output) RETURNING HANDLER
+          START REPORT prt_exist TO XML HANDLER handler
+       ELSE
+          CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
+                                                       doble_on,doble_off,comp_on,comp_off,
+                                                       doce,normal,archivo,copia
+          START REPORT prt_exist TO archivo
+       END IF

    
    LET idx_ant = 1
@@ -277,8 +282,10 @@ END WHILE

    FINISH REPORT prt_exist
    CLEAR SCREEN
-    
-    RUN imprime
+
+    IF opt1 <> "yes" THEN
+       RUN imprime
+    END IF
 END FUNCTION

    REPORT prt_exist(x)
@@ -431,3 +438,17 @@ END FUNCTION
         PRINT COLUMN 4, ASCII 27, ASCII 80
     END REPORT

+FUNCTION configureOutputRp028(tipo_file)
+    DEFINE tipo_file CHAR(3)
+    IF NOT fgl_report_loadCurrentSettings("inprrp028.4rp") THEN
+        RETURN NULL
+    END IF
+    CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
+    CALL fgl_report_selectDevice(tipo_file)
+    CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
+    CALL fgl_report_selectPreview(TRUE)
+    RETURN fgl_report_commitCurrentSettings()
+
+    RETURN NULL
+END FUNCTION
+
@@ -0,0 +1,21 @@
+FUNCTION maquinaria()
+
+    DEFINE
+        kmaquina VARCHAR(14),
+        kdescripcion CHAR(75),
+        maquinas ui.ComboBox
+
+    LET maquinas = ui.combobox.forname("formonly.codigo")
+
+    DECLARE busca_maquinas1 CURSOR FOR
+        SELECT a.cod_maquina, a.descrip_maquina
+            FROM intb00059 a
+            ORDER BY a.cod_maquina
+
+    CALL maquinas.clear()
+
+    FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
+        CALL maquinas.additem(kmaquina, kdescripcion)
+    END FOREACH
+
+END FUNCTION
--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
jpeguero	a3e88776a9	Registrar y corregir ipprmt020 (Requisiciones Productos Almacenes) - Registrar funciones compartidas faltantes (buscarequisicion, imprequisiciones, funciones_ip) y formularios ipfmmt003/ipfmmt020 en el proyecto - Agregar usuarioSistema a seg000.4gl - Ampliar combos Codigo Mov/Bodega/Bodega Destino en ipfmmt020.4fd (texto ilegible) - Refrescar lista de requisiciones al anular (buscarData + clear del arreglo)	2026-09-09 16:30:34 -04:00
jpeguero	9e70c46451	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-09-05 12:03:31 -04:00
jpegueroandClaude Sonnet 5	adf5224440	Agrega ipprmt003 (Productos Terminados) y actualiza esquema de BD - Registra formulario ipfmmt003 en FORMULARIOS_IP con dependencia a Database - Corrige dos bugs reales en ipprmt003.4gl: campo control_ubicacion_almacen duplicado en INPUT BY NAME (error -8090), y columnas control_produccion/control_ubicacion_almacen duplicadas en el INSERT INTO (error SQL -6372). Probado completo: alta, consulta, eliminacion, validacion de duplicados - Actualiza DATABASE/smarmotech.4db con el esquema actual de SQL Server (agrega columnas nuevas de iptb00002 y otras tablas) - ipprmt002 queda pendiente: 5 columnas de iptb00002 no son reconocidas por el compilador pese a existir en la BD real, requiere revision en vivo con Johnny Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-05 12:03:13 -04:00
Abel López	888a36553e	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-09-04 16:48:33 -04:00
Abel López	97ef961e13	Revert "Agregar noprmt020 al proyecto (identidad real pendiente de confirmar)" This reverts commit `77e844390e`.	2026-09-04 16:46:09 -04:00
Abel LópezandClaude Sonnet 5	77e844390e	Agregar noprmt020 al proyecto (identidad real pendiente de confirmar) - Registrar noprmt020 en mbsERP.4pw - Agregar MAIN (faltaba, el archivo era solo funciones para ser llamadas desde el menu nomnmt000.4gl) y una funcion pantalla() local para el encabezado - Corregir typo "database marmotech" -> "smarmotech" en nofmmt021.per NOTA: el usuario identifico este programa como "Calcular Horas Extras", pero tanto el contenido del .4gl como su propio menu (nomnmt000.4gl: "19-Porc. Accidente Trabajo noprmt020") indican que en realidad es la maestra de % de Accidente de Trabajo. Build y compilacion verificados, prueba funcional pendiente hasta confirmar el programa correcto para "Calcular Horas Extras" (candidatos: noprmt030.4gl, noprmt038.4gl, o los reportes noprrp007/011/018/026/034/035). Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-04 16:22:45 -04:00
Abel LópezandClaude Sonnet 5	81182e5ded	Agregar noprmt007 (Novedades de la Nomina) al modulo NOMINA Registrar noprmt007 en mbsERP.4pw usando nofmmt007.4fd (el .per carece de departamento_afecta, num_trx, sueldo_act y los campos titulo_dep_act/titulo_dep_afecta que usa el programa). El .4gl compilo limpio sin cambios de codigo. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-04 13:45:56 -04:00
Abel LópezandClaude Sonnet 5	60e392c033	Agregar noprmt001 (Codigos de Movimientos) al modulo NOMINA - Registrar noprmt001 en mbsERP.4pw (usa cofmmt001... nofmmt001.4fd, el .per carece del grid smovimientos y los campos modifica/vacaciones) - Reemplazar smarmotech.sch/.42d de nodir por la copia canonica ya generada en MBS/DATABASE (orden de columnas correcto, incluye telefonoCorporativo/numeroOficina/extension) en vez de regenerar Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-04 12:12:24 -04:00
jpegueroandClaude Sonnet 5	367f0c4340	Agrega los 34 programas de Productos Terminados al proyecto Registra las Applications de Productos Terminados (ipprmt/ipprcs/ipprrp) con dependencias a FUNCIONES_IP, Database y FUNCIONES, y agrega ipprgb000.4gl como archivo compartido de FUNCIONES_IP. Listo para compilar/probar programa por programa, igual que se hizo con Materia Prima. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-04 09:39:19 -04:00
jpeguero	43aa1c809d	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-09-04 09:31:18 -04:00
jpegueroandClaude Sonnet 5	b6085d4140	Mueve ipdir (Productos Terminados) de PROYECTOS a PROYECTO Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-04 09:29:01 -04:00
Abel López	affc09c3e8	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-09-03 16:57:12 -04:00
jpegueroandClaude Sonnet 5	4532d51e4b	Prueba inprrp011 (completo) e inprrp028 (matricial completo, PDF pendiente) - Corrige selectOutput()/seleccionarSalida()/configureOutput() en defecto.4gl para usar la API real fgl_report_* (Report Writer 2.0), reemplazando los stubs previos. Reutiliza el formulario Configuration ya existente en el proyecto (FUNCIONESREPORT) - inprrp011: quita el START REPORT forzado a XML roto (media migracion abandonada), probado completo: filtros, totales/subtotales vs produccion, exportacion PDF/Excel/Pantalla funcionando - inprrp028: mismo patron, restaura Sietesalida) - No/matricial como respaldo. Crea bin/inprrp028.4rp (diseno de reporte, no existia) para la salida grafica; carga sin error de formato pero la generacion no completa en este entorno - pendiente de revisar rendimiento/recursos Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-03 16:52:39 -04:00
Abel LópezandClaude Sonnet 5	ee27da0669	Agregar noprmt003 (Maestra de Empleados) al modulo NOMINA - Registrar noprmt003 en mbsERP.4pw (FUNCIONES_NO: noprfu000.4gl, nocarnet.4gl; FORMULARIOS_NO: nofmmt003.4fd); reutiliza otrodir/departamentos.4gl ya presente en FUNCIONES - Actualizar el diccionario de esquema smarmotech.sch: faltaban las columnas telefonoCorporativo/numeroOficina/extension de adtb00003 (existen en la BD real pero no estaban en el diccionario, .42d se regenera solo al recompilar); propagado a todos los directorios - Desactivar el CONNECT TO "marmotech" AS "IFMX" (Informix ya no existe, todo migro a SQL Server) y el INSERT duplicado hacia esa conexion en el alta de empleados; sin esto el programa se colgaba al iniciar - Quitar CONVERT(...,103) de fechas en el SELECT/FETCH de empleados: se convertian a texto dd/mm/yyyy y luego se reasignaban a variables DATE, causando "-1205 Invalid month in date" con dias > 12 - Agregar BEFORE CONSTRUCT/END CONSTRUCT para poblar el combo de Departamento en la busqueda (faltaba, quedaba vacio) - Corregir foto de empleado que no se limpiaba al navegar Siguiente/Anterior hacia un empleado sin foto - nocarnet.4gl: sustituir fgl_report_* (API no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-03 16:51:11 -04:00
Abel LópezandClaude Sonnet 5	b27b20d42d	Agregar noprmt002 (Movimientos Fijos Emp.) al modulo NOMINA - Registrar noprmt002 en mbsERP.4pw junto con noprgb000.4gl (FUNCIONES_NO), nofmmt002.per/nofmwd001.per (FORMULARIOS_NO) y adfmwd004.per (FORMULARIOS_AD, compartido con ADMINISTRACION) - Copiar el diccionario de esquema smarmotech.sch a nodir/addir (faltaba, igual que en otros directorios ya corregidos) - Corregir typo "database marmotech" -> "smarmotech" en nofmwd001.per Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-03 12:12:06 -04:00
jsoto	382ec5cd35	JSOTO Se adiciono programa adprmt017	2026-09-03 10:12:37 -04:00
Abel López	4cb8d4c71b	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-09-01 16:48:54 -04:00
Abel LópezandClaude Sonnet 5	f216a7acfa	Agregar coprrp007 (Cronologico de Requisiciones) al proyecto - Registrar coprrp007 en mbsERP.4pw, usando cofmrp007.4fd (el .per no define el combo de departamento que requiere busca_departamento()) - Enlazar la libreria FUNCIONES_IN (ya contiene departamento.4gl) en vez de duplicar el archivo, evitando conflicto de salida .42m - Agregar guarda NULL en departamento.4gl: ui.combobox.forname() puede no encontrar el combo durante el CONSTRUCT y causaba "Null pointer exception" al llamar .clear() - Sustituir seleccionarsalida()/configureoutput() (no definidas, API fgl_report_* no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-01 16:48:46 -04:00
jpegueroandClaude Sonnet 5	f140ab917e	Agrega y corrige inprrp008, inprrp028, inprrp009 e inprrp011 (Materia Prima) - inprrp008: agrega CONNECT faltante en MAIN, corrige ruta de impresion hardcodeada (C:\archivo -> FGLSPOOL) y comando RUN sin comillas, reconstruye infmrp008 como .4fd (el campo Ordenamiento se compilaba como checkbox en vez de texto) - inprrp028: restaura la rama matricial (Si/No Reporte Grafico) que habia quedado comentada, dejando el programa forzado a la via XML rota; agrega funcion compartida seleccionarSalida() a defecto.4gl - inprrp009: agrega notNull al combo de Bodega para quitar los items <blank>/<not blank>, agrega titulo a la ventana - Registra formularios infmrp008, infmrp028 e infmrp011 en el proyecto - Todos probados: corren completos sin error de FGL (Exit code: 0) via matricial; la salida grafica/PDF sigue siendo la limitacion conocida de entorno (Report Writer 2.0 no disponible) Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-09-01 16:48:20 -04:00
jpeguero	cda8053d90	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-31 16:46:34 -04:00
jpegueroandClaude Sonnet 5	7f789181cf	Agrega inprrp003 e inprrp005 (reportes de Materia Prima) al proyecto - Registra formularios infmrp003.per e infmrp005.per en FORMULARIOS_IN - Agrega funciones compartidas msgrp000() y selectOutput() a defecto.4gl (selectOutput como stub, mismo limite conocido de Report Writer 2.0 que configureOutput) - inprrp003 probado: reporte de movimientos corre completo sin error de FGL (impresion fisica no disponible en entorno de desarrollo) - inprrp005 pendiente: error SQL -1262 "Non-numeric character in datetime" al filtrar por Fecha del Dia, en investigacion Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-31 16:44:13 -04:00
Abel López	26961ddd81	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-31 16:43:06 -04:00
Abel LópezandClaude Sonnet 5	3284ae0de9	Agregar coprrp019 (Validacion Ordenes) al proyecto - Registrar coprrp019 en mbsERP.4pw - Agregar CONNECT TO/ARG_VAL faltante en MAIN (el programa hacia consultas SQL sin haberse conectado nunca a la base de datos) - Sustituir seleccionarsalida()/configureoutput() (no definidas, API fgl_report_* no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL - Corregir typo "database marmotech" -> "database smarmotech" en cofmrp019.per Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-31 16:42:59 -04:00
jpegueroandClaude Sonnet 5	ea1493db43	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>	2026-08-30 12:21:46 -04:00
jpeguero	7b1b414629	Agrega formulario infmcs006 para inprcs006 Compilo correctamente; pendiente probar por caida del servidor de base de datos (192.168.40.250).	2026-08-28 19:39:54 -04:00
jpeguero	0d17478789	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-28 19:22:35 -04:00
jpeguero	6f50812bb1	Completa Buscar Documentos en inprmt036 y agrega inprmt066 - inprfu000.4gl: corrige reimprime()/busca_info() para que branchen correctamente segun el programa llamante (inprmt046 vs otros). Antes usaban siempre las variables de inprmt046 (otros_mov), causando errores en inprmt036. Se activa y corrige la logica que estaba comentada para el caso generico (Johnny autorizo completarla, confirmado que tampoco funcionaba en produccion). - inprmt066 (Anular Documentos): agrega formulario faltante y el campo Bodega (combo) que no existia. Ensancha el combo para legibilidad. Probado: anulacion de documento real, funciona.	2026-08-28 19:21:13 -04:00
Abel LópezandClaude Sonnet 5	052b80de34	Configurar FGLSPOOL en coprmt009 para que Imprime genere el reporte El Application node de coprmt009 no tenia la variable de entorno FGLSPOOL configurada (a diferencia de coprrp001/coprrp004/coprmt025). FGL_GETENV("FGLSPOOL") devolvia NULL, el handler de XmlWriter en orden() (coprorden.4gl) nunca se creaba, y "Imprime" fallaba silenciosamente sin generar el reporte ni mostrar error. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-28 16:56:29 -04:00
Abel LópezandClaude Sonnet 5	cc4964af5e	Merge remote-tracking branch 'origin/main' Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-28 16:48:38 -04:00
Abel LópezandClaude Sonnet 5	3df53ba483	Agregar coprrp004 (Cronologico de Ordenes) al proyecto - Registrar coprrp004 (usando cofmrp004.4fd, el .per carece del campo estado) en mbsERP.4pw - Sustituir seleccionarsalida()/configureoutput() (no definidas en este programa, misma API fgl_report_* no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-28 16:48:04 -04:00
Abel LópezandClaude Sonnet 5	91eeef199e	Corregir campo bodega oculto en busqueda de coprmt009 El CONSTRUCT del criterio de busqueda y un DISPLAY BY NAME en escoge() referenciaban cotb00014.bodega/ordenes.bodega, que no existe como campo visible en cofmmt009 (combo oculto, ya excluido en el INPUT BY NAME de copcad009). Causaba "FORMS statement error -1102: Field (bodega) not found in form" al usar Buscar Ordenes de Compras. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-28 16:06:50 -04:00
jpeguero	f230a3002d	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-28 15:06:25 -04:00
jpeguero	817720127e	Merge remote-tracking branch 'origin/main'	2026-08-28 14:21:56 -04:00
Abel LópezandClaude Sonnet 5	a37d0336b5	Agregar coprrp001 (Catalogo Suplidores) y corregir bugs en coprcs009 - Registrar coprrp001/cofmrp001 en mbsERP.4pw - Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl - Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl - Corregir mascaras PICTURE de codigo en coprcs009.4gl - Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo - Corregir typo de base de datos en cofmwd016.per Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-28 11:38:43 -04:00
jsoto	c4169453ce	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-28 08:48:12 -04:00
jsoto	7f975157a5	JSOTO adicione --build-rdd al coprmt004 y el libgre.42x al programa coprmt009	2026-08-28 08:46:49 -04:00
jpeguero	69b4500eed	Corrige inprmt046, agrega inprmt036 y arreglos de fecha/impresion - inprmt046: agrega columnas Maquina/Clasf.Bloque faltantes en la tabla, ensancha combos para legibilidad, corrige formato de fecha (CONVERT 103 requiere DBDATE=DMY4/ configurado). Saca la funcion maquinaria() de un archivo local a una compartida (maquinaria.4gl) para evitar duplicado. - inprmt036 (Requisicion de Materiales): agrega formulario, campo Impresion (MATRICIAL/PDF), corrige nombre_d y agrega columna Existencia faltante en la tabla. - Agrega funcion compartida configureOutput (stub, Report Writer 2.0 no disponible en FGL 6.00.01). - Requiere variables de entorno DBDATE=DMY4/ y FGLSPOOL (carpeta PROYECTO/spool) al abrir Genero Studio para reportes/fechas.	2026-08-27 16:57:10 -04:00
Abel López	b7877d7c07	Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS	2026-08-27 16:19:01 -04:00
Abel LópezandClaude Sonnet 5	b05e858ac6	Añadir coprmt010, coprmt015, coprmt016, coprmt025 y coprcs005 (modulo COMPRAS) - coprmt010 (Paises): corregir condicion invertida en "Escoger" que bloqueaba editar registros activos y solo permitia editar los ya eliminados (status_t != "E" -> = "E"). - coprmt016 (Terminos de Pago): usar el formulario .4fd (el .per no tenia el grid "Tabla" que el codigo espera); agregar columna "dias" faltante al INSERT (la tabla real tiene 9 columnas, el INSERT solo daba 8 valores sin lista de columnas explicita). - coprmt025 (Requisicion Compras): agregar funciones faltantes (busca_departamento2 en depto.4gl, enviaemail en FUNCIONESEMAIL); sincronizar el RECORD "data" y la aridad de RETURNING de ApiMaintainC con el fix de api_test.4gl; reemplazar fgl_report_* (no disponible) por om.XmlWriter en las 3 rutas de impresion. - coprmt015 y coprcs005: sin cambios de codigo, solo registro en el proyecto. - mbsERP.4pw: registrar los 5 programas; investigar/configurar Java para coprmt025 (FGLJVMPATH/JAVA_HOME/CLASSPATH apuntando a un JRE Temurin 8u504 local). Pendiente: el puente Java de esta instalacion de Genero sigue fallando ("Can not create java VM") incluso con el ejemplo oficial de FGL: parece un problema de la instalacion misma, no de version de Java. Se sugirio reparar via MsiExec /f {3B1E10F3-FBCC-4737-8BDF-284359029D70} (Four Js Genero BDL with Web Services 6.00.02), pendiente de ejecutar. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>	2026-08-27 16:18:51 -04:00