Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS

PROYECTO/bin/inprrp028.4rp

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

PROYECTO/indir/defecto.4gl

@@ -167,22 +167,47 @@ END FUNCTION
 
 FUNCTION configureOutput(tipo_file)
     DEFINE tipo_file CHAR(3)
-    -- La API fgl_report_* (Report Writer 2.0) no esta disponible en este
-    -- FGL 6.00.01. Esta salida (XML/XLS/PDF por handler) no esta soportada
-    -- en este entorno; usar r_output = 'MA' (impresion clasica) en su lugar.
+    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()
-    -- El formulario "Configuration" del Report Writer 2.0 no esta disponible
-    -- en este entorno (ver configureOutput). Se devuelve un valor fijo para
-    -- que el flujo de "Reporte Grafico" siga y falle de forma consistente
-    -- con la limitacion ya conocida; usar MATRICIAL en su lugar.
-    RETURN "PDF"
+   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()
-    -- Mismo caso que selectOutput(): el formulario "Configuration" del
-    -- Report Writer 2.0 no esta disponible en este entorno; usar MATRICIAL.
-    RETURN "PDF"
+   RETURN selectOutput()
 END FUNCTION

PROYECTO/indir/inprrp011.4gl

@@ -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)

PROYECTO/indir/inprrp028.4gl

@@ -184,7 +184,7 @@ LET select_ant =
 
        IF opt1 = "yes" THEN
           CALL seleccionarsalida() RETURNING r_output
-          CALL configureoutput(r_output) RETURNING HANDLER
+          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,
@@ -438,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
+

PROYECTO/ipdir/GST_FGL_CE_TX134.4gl

@@ -0,0 +1,326 @@
+{
+-------------------------------------------------------------------------------
+PROGRAMA             :  IPpRRP010
+OBJETIVO             :  Detallado por Tipo de Movimiento
+PROGRAMADOR          :  Ing. Juan Fco. Soto        
+FECHA REALIZACION    :  Abril 28, 1993
+-------------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"
+
+MAIN                
+   DEFER INTERRUPT
+   
+   SELECT * INTO p_companias.* FROM companias
+   CALL ipprrp010()
+END MAIN
+
+FUNCTION ipprrp010()
+
+    DEFINE ventas CHAR(1)
+    DEFINE salir CHAR(1)
+    DEFINE select_ac,select_ant,select_p CHAR(1000)
+    DEFINE idx_ac,ano,idx_a,idx_c SMALLINT
+    DEFINE ano_act,c_ano CHAR(4)
+    DEFINE fecha_2 CHAR(8)
+    DEFINE fecha_ini_per CHAR(8)
+
+    DEFINE acumulado_ac RECORD
+       cod_mov      LIKE iptb00005.cod_mov,
+       fecha        DATE,
+       num_doc      INTEGER,
+       cod_n        SMALLINT,
+       cod_grupo    SMALLINT,
+       cod_Tipo     SMALLINT,
+       cod_Sec      SMALLINT,
+       cantidad     DECIMAL(12,5),
+       descrip_esp  CHAR(30),
+       unidad_med   CHAR(3)
+    END RECORD
+
+    DEFINE costos      RECORD
+       cod_n  SMALLINT,
+       cod_grupo SMALLINT,
+       cod_Tipo SMALLINT,
+       cod_Sec   SMALLINT,
+       mes       CHAR(2),
+       material  LIKE iptb00004.material,
+       labor     LIKE iptb00004.labor,
+       gasto_ind LIKE iptb00004.gastos
+    END RECORD
+
+    DEFINE acumulado RECORD
+           cod_n        LIKE iptb00002.cod_n,
+           cod_grupo    LIKE iptb00002.cod_grupo,
+           cod_tipo     LIKE iptb00002.cod_tipo,
+           cod_sec      LIKE iptb00002.cod_sec,
+           descrip_esp  LIKE iptb00002.descrip_esp,
+           unidad_med   LIKE iptb00002.unidad_med,
+           cod_mov      LIKE iptb00006.cod_mov,
+           descrip_mov  LIKE iptb00005.descrip_mov,
+           consumo      DECIMAL(12,5),
+           costo        DECIMAL(12,5),
+           num_doc      LIKE iptb00006.num_doc,
+           fecha        DATE
+    END RECORD
+
+#     WHENEVER ERROR CONTINUE
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+    OPEN FORM ipfmrp010 FROM "ipfmrp010"
+    DISPLAY FORM ipfmrp010
+    CALL pantalla()
+    DISPLAY "ipprrp010" AT 4,3
+    DISPLAY "Operaciones Por Movimientos Al Standard" AT 6,22
+
+     LET tipo_papel = 1
+     CALL msgrp000(tipo_papel)
+
+    INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi,ventas
+    ON KEY (F2)
+      RUN "copy pantalla.bat impresion.bat"
+      DISPLAY "ACTIVACION REPORTE POR WORDPAD" AT 20,15 ATTRIBUTE(RED)
+
+    AFTER FIELD fech_in
+          IF datos_cons.fech_in IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+    AFTER FIELD fech_fi
+          IF datos_cons.fech_fi IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_fi
+           END IF
+
+END INPUT
+
+      IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+     END IF
+
+    CONSTRUCT criterio ON c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
+                     FROM cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec
+       ON KEY (F2)
+      RUN "copy pantalla.bat impresion.bat"
+      DISPLAY "ACTIVACION REPORTE POR WORDPAD" AT 20,15 ATTRIBUTE(RED)
+    AFTER CONSTRUCT
+      EXIT CONSTRUCT
+    END CONSTRUCT
+
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+    END IF
+
+   LET select_ac  = 
+       "SELECT c.cod_mov,c.fecha,c.num_doc,c.cod_n,c.cod_grupo,c.cod_tipo, ",
+       "       c.cod_sec, c.cantidad_2,a.descrip_esp,a.unidad_med ",
+       "FROM iptb00006 c,iptb00002 a ",
+       "WHERE ",criterio clipped," and c.fecha between ? and ? and ",
+       "        c.cod_n = a.cod_n and c.cod_grupo = a.cod_grupo and ",
+       "        c.cod_tipo  = a.cod_tipo and c.cod_sec = a.cod_sec and ",
+       "        c.status_t is NULL AND c.cod_mov != 99  ",
+       "ORDER BY 3,4,5,6 "
+
+    DISPLAY "<< Estoy Buscando Documentos... Espere Por favor >>"
+            AT 19,14 ATTRIBUTE (REVERSE,BOLD) 
+
+  PREPARE busca_ant FROM select_ac 
+  DECLARE actual SCROLL CURSOR FOR busca_ant
+  OPEN actual USING datos_cons.fech_in,datos_cons.fech_fi
+         CALL integridad()  
+            IF bandera = 1 THEN
+               LET bandera = 0 
+               RETURN
+            END IF 
+
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+    END IF
+    DISPLAY "                                                "
+            AT 19,14 
+
+    DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
+            AT 19,14 ATTRIBUTE (REVERSE) 
+
+    START REPORT detalle TO "C:\\archivo"
+
+
+ LET idx_c = 1
+ LET idx_a = 1
+ LET idx_ac = 1
+ WHILE status != notfound
+    FETCH  actual INTO acumulado_ac.* 
+     IF STATUS = NOTFOUND THEN
+          EXIT WHILE  
+     END IF
+
+     IF int_flag THEN
+        LET numero_msg = 2
+        CALL msg(numero_msg)
+        LET int_flag = false
+        RETURN 
+     END IF
+
+     LET acumulado.cod_mov = acumulado_ac.cod_mov
+     LET acumulado.cod_n = acumulado_ac.cod_n
+     LET acumulado.cod_grupo = acumulado_ac.cod_grupo
+     LET acumulado.cod_tipo  = acumulado_ac.cod_tipo 
+     LET acumulado.cod_sec = acumulado_ac.cod_sec
+     LET acumulado.num_doc = acumulado_ac.num_doc
+     LET acumulado.fecha = acumulado_ac.fecha
+     LET acumulado.consumo = acumulado_ac.cantidad
+     LET acumulado.descrip_esp = acumulado_ac.descrip_esp
+     LET acumulado.unidad_med = acumulado_ac.unidad_med
+
+# Buscando Los Costos de Los Materiales
+
+    SELECT MAX(d.material),MAX(d.labor),MAX(d.gastos) 
+    INTO costos.material,costos.labor,costos.gasto_ind
+    FROM iptb00004 d 
+    WHERE d.mes_fin = 12 AND d.ventas= "1" AND 
+          d.status_t is null AND d.ano = year(datos_cons.fech_fi) and 
+          d.cod_n    = acumulado.cod_n AND d.cod_grupo= acumulado.cod_grupo AND
+          d.cod_tipo = acumulado.cod_tipo AND d.cod_sec  = acumulado.cod_sec
+
+     LET acumulado.costo = costos.material+costos.labor+costos.gasto_ind
+     IF int_flag THEN
+         LET numero_msg = 2
+         CALL msg(numero_msg)
+         LET int_flag = false
+         RETURN 
+     END IF
+
+     OUTPUT TO REPORT detalle(acumulado.*)
+    END WHILE  
+
+    FINISH REPORT detalle
+    CLEAR SCREEN
+    RUN "impresion C:\\archivo"
+    RUN "copy printer2.bat impresion.bat"
+END FUNCTION
+
+    REPORT detalle(x)
+       DEFINE x RECORD
+          cod_n       LIKE iptb00002.cod_n,
+          cod_grupo   LIKE iptb00002.cod_grupo,
+          cod_tipo    LIKE iptb00002.cod_tipo,
+          cod_sec     LIKE iptb00002.cod_sec,
+          descrip_esp LIKE iptb00002.descrip_esp,
+          unidad_med  LIKE iptb00002.unidad_med,
+          cod_mov     LIKE iptb00006.cod_mov,
+          descrip_mov LIKE iptb00005.descrip_mov,
+          consumo     DECIMAL(12,5),
+          costo       DECIMAL(12,5),
+          num_doc      LIKE iptb00006.num_doc,
+          fecha        DATE
+       END RECORD
+
+    DEFINE primera CHAR(1)
+    DEFINE c_ano1 char(4)
+    DEFINE negrillas_on CHAR(3)
+    DEFINE negrillas_off CHAR(3)
+    DEFINE doce,comp_on,comp_off CHAR(3)
+    DEFINE hora CHAR(5)
+    DEFINE total_p,total_m DECIMAL(12,2)
+    OUTPUT
+      TOP MARGIN 0
+      LEFT MARGIN 0
+      BOTTOM MARGIN 2
+
+    ORDER BY x.cod_mov,x.num_doc
+    FORMAT
+
+      PAGE HEADER
+        LET negrillas_on = ASCII 27, ASCII 69
+        LET negrillas_off = ASCII 27, ASCII 70 
+        LET comp_on = ASCII 15 
+        LET comp_off = ASCII 18 
+        LET doce = ASCII 27, ASCII 77
+        LET hora = time
+
+           PRINT doce,negrillas_on
+           LET lj = (100 - LENGTH(p_companias.nombre CLIPPED))/2
+           PRINT COLUMN   1, "ipprrp010",
+                 COLUMN  lj, p_companias.nombre CLIPPED,
+                 COLUMN  93, "Pag. ",pageno using "###"
+           PRINT COLUMN  28, " Sistema de Inventario de Productos Terminados",
+                 COLUMN  93, today using "dd/mm/yyyy"
+           PRINT COLUMN  28, " Operacion por Tipo de Movimiento Al Standard",
+                 COLUMN  96, hora
+
+           SKIP 1 LINES
+
+           PRINT COLUMN 2, "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
+                 COLUMN 21, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
+           PRINT COLUMN 1, "--------------------------------------------------",
+                           "--------------------------------------------------"
+
+           PRINT COLUMN 77,  "Material +"
+           PRINT COLUMN 77,  "Labor    +"
+
+           PRINT COLUMN   1, "Docto.", 
+                 COLUMN   8, "Fecha",
+                 COLUMN  17, "Producto",
+                 COLUMN  68, "Cantidad",
+                 COLUMN  77, "Gasto   ",
+                 COLUMN  96, "Total"
+           PRINT COLUMN 1, "--------------------------------------------------",
+                           "--------------------------------------------------"
+           PRINT negrillas_off
+
+         BEFORE GROUP OF x.cod_mov
+         LET total_m = 0
+
+           SELECT descrip_mov INTO x.descrip_mov FROM iptb00005
+           WHERE cod_mov = x.cod_mov
+
+           PRINT negrillas_on
+           PRINT COLUMN 1, "Movimiento: ",x.cod_mov using "##"," ",
+                           x.descrip_mov
+           PRINT negrillas_off
+
+      BEFORE GROUP OF x.num_doc
+        PRINT COLUMN  1, x.num_doc  USING "######",
+              COLUMN  8, x.fecha USING "dd/mm/yyyy";
+ 
+      ON EVERY ROW
+        LET total_p = x.costo  * x.consumo 
+        IF total_p IS NULL THEN
+           LET total_p = 0
+        END IF
+        LET total_m = total_m + total_p
+
+         PRINT COLUMN 17, x.cod_n USING "&&","-",x.cod_grupo USING "&&","-",
+                          x.cod_tipo USING "&&&","-",x.cod_sec USING "&&&","-",
+                          " ",x.descrip_esp CLIPPED,
+               COLUMN 63, x.consumo USING "#,###,###.###",
+               COLUMN 77, x.costo   USING "##,###.###",
+               COLUMN 88, total_p USING "##,###,###.##"
+
+     AFTER GROUP OF x.num_doc
+     SKIP 1 LINE
+
+     AFTER GROUP OF x.cod_mov
+         PRINT COLUMN 88, "-------------"
+         PRINT COLUMN 50, "Total ---->",
+               COLUMN 88, total_m USING "##,###,###.##"
+      SKIP TO TOP OF PAGE
+   ON LAST ROW
+   PRINT ASCII 27, ASCII 80
+   END REPORT

PROYECTO/ipdir/IPPRMT076.4gl

@@ -0,0 +1,534 @@
+{
+==========================================================================
+PROGRAMA         : VEPRMT032
+OBJETIVO         : ADMINISTRAR LOS KIT DE LOS PRODUCTOS TERMINADOS
+DESARROLLADO POR : ING. JUAN SOTO
+FECHA            : 17/10/2014
+==========================================================================
+}
+GLOBALS "ipprgb000.4gl"
+    DEFINE dataR RECORD 
+        pcodn         SMALLINT,
+        pcodgrupo     SMALLINT,
+        pcodtipo      SMALLINT,
+        pcodsec       SMALLINT,
+        descripcion_p1 VARCHAR(100),
+        factor_d        DEC(12,5),
+        cantidad      DEC(12,5),
+        umedida CHAR(10),
+        longitud DEC(12,5),
+        creferencia VARCHAR(100),
+        costo         DEC(12,5),
+        precio        DEC(12,2),
+        valor         DEC(12,2)
+    END RECORD
+
+  DEFINE dproducto DYNAMIC ARRAY OF RECORD
+    pcodn         SMALLINT,
+    pcodgrupo     SMALLINT,
+    pcodtipo      SMALLINT,
+    pcodsec       SMALLINT,
+    descripcion_p1 VARCHAR(100),
+    cantidad      DEC(12,5),
+    precio        DEC(12,2),
+    porc_desc     DEC(12,2),
+    valor         DEC(12,2)
+  END RECORD
+  
+  DEFINE x1 RECORD 
+    cod_n         SMALLINT,
+    cod_grupo     SMALLINT,
+    cod_tipo      SMALLINT,
+    cod_sec       SMALLINT,
+    descripcion_p VARCHAR(100)
+  END RECORD,
+  pkit int,pdescripcion VARCHAR(100),
+  cuenta_reg,curr SMALLINT 
+
+  DEFINE arr_producto DYNAMIC ARRAY OF RECORD
+    pcodn         SMALLINT,
+    pcodgrupo     SMALLINT,
+    pcodtipo      SMALLINT,
+    pcodsec       SMALLINT,
+    descripcion_p1 VARCHAR(100),
+    factor_d        DEC(12,5),
+    cantidad      DEC(12,5),
+    umedida CHAR(10),
+    longitud DEC(12,5),
+    creferencia VARCHAR(100),
+    costo         DEC(12,5),
+    precio        DEC(12,2),
+    valor         DEC(12,2)
+  END RECORD
+
+MAIN
+
+ DEFER INTERRUPT
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ CALL ARG_VAL(4) RETURNING impresor
+ --CALL STARTLOG("veprmt32.txt")
+ 
+ CONNECT to "smarmotech" AS "MSSQL" USER  usuarios USING clave
+ 
+ CALL veprmt032()
+ 
+END MAIN
+
+FUNCTION veprmt032()
+  DEFINE mproducto RECORD 
+    cod_n         SMALLINT,
+    cod_grupo     SMALLINT,
+    cod_tipo      SMALLINT,
+    cod_sec       SMALLINT,
+    descripcion_p VARCHAR(100)
+  END RECORD,  
+  exito BOOLEAN,
+  modifica VARCHAR(3),
+  pprecio DEC(12,2)
+  
+  OPEN FORM w1 FROM "ipfmmt076"
+  DISPLAY FORM w1
+  
+  DIALOG ATTRIBUTES(UNBUFFERED) 
+    INPUT BY NAME mproducto.* ATTRIBUTE(WITHOUT DEFAULTS)        
+       AFTER FIELD cod_sec
+        IF mproducto.cod_sec IS NOT NULL THEN
+           CALL producto(mproducto.cod_n,mproducto.cod_grupo,mproducto.cod_tipo,mproducto.cod_sec) 
+           RETURNING pdescripcion
+           
+           IF pdescripcion IS NULL THEN           
+              CALL msg(3)
+              NEXT FIELD cod_n
+           END IF
+           
+           LET mproducto.descripcion_p = pdescripcion
+           DISPLAY BY NAME mproducto.descripcion_p
+           DISPLAY BY NAME mproducto.*
+        END IF        
+    END INPUT
+    
+    INPUT ARRAY arr_producto FROM sproducto.* ATTRIBUTE(WITHOUT DEFAULTS)
+       BEFORE INPUT
+         IF modifica ="NO" THEN
+            CALL arr_producto.clear()
+         END IF
+         
+       BEFORE ROW  
+        LET idx = arr_curr()
+        LET scr_l = scr_line()
+
+        DISPLAY "idx: ",idx
+        DISPLAY "scr_l: ", scr_l
+        
+       AFTER FIELD pcodsec     
+        IF arr_producto[idx].pcodn = mproducto.cod_n AND
+           arr_producto[idx].pcodgrupo = mproducto.cod_grupo AND
+           arr_producto[idx].pcodtipo = mproducto.cod_tipo AND
+           arr_producto[idx].pcodsec = mproducto.cod_sec THEN
+           CALL fgl_Winmessage("ERROR","ESTE CODIGO NO PUEDE SER IGUAL QUE EL CODIGO PRINCIPAL","INFO")
+           NEXT FIELD pcodsec
+        END IF   
+       
+        CALL productoDetalle(arr_producto[idx].pcodn,
+                            arr_producto[idx].pcodgrupo,
+                            arr_producto[idx].pcodtipo,
+                            arr_producto[idx].pcodsec,
+                            idx, 
+                            scr_l)
+                            
+        IF arr_producto[idx].descripcion_p1 IS NULL THEN
+            CALL fgl_Winmessage("ERROR","ESTE CODIGO NO EXISTE","INFO")
+            NEXT FIELD pcodsec
+        END IF
+        
+        --LET arr_producto[idx].* = dataR.*        
+        --DISPLAY dataR.* TO sproducto[scr_l].*       
+
+        AFTER FIELD cantidad
+            IF arr_producto[idx].cantidad IS NULL THEN
+                CALL fgl_Winmessage("ERROR","DEBE INGRESAR LA CANTIDAD DE ESTE PRODUCTO","INFO")
+                NEXT FIELD cantidad
+            END IF
+
+            LET arr_producto[idx].valor = arr_producto[idx].cantidad * arr_producto[idx].costo
+
+      ON ACTION producto ATTRIBUTE(TEXT="Producto")
+        CALL busca_prod1()
+        DISPLAY "busca_p: ",busca_p.*
+        
+        CALL productoDetalle(busca_p.cod_n,busca_p.cod_grupo,busca_p.cod_tipo,busca_p.cod_sec,idx,scr_l)
+        DISPLAY "length: ",arr_producto.getLength()
+        IF arr_producto.getLength()<= 0 THEN 
+            CALL fgl_Winmessage("ERROR","ESTE CODIGO NO EXISTE","INFO")
+            NEXT FIELD pcodsec
+        END IF
+        
+    END INPUT
+
+    ON ACTION buscar
+        CALL actualiza_kit()
+        
+    ON ACTION guardar
+        IF arr_producto.getLength()<= 0 THEN
+           CALL fgl_winmessage("ERROR","NO PUEDE GUARDAR KIT SIN ELEMENTOS","INFO")
+           CONTINUE DIALOG
+        END IF   
+
+        CALL inserta(mproducto.*,arr_producto,modifica) RETURNING exito
+        
+        IF exito THEN
+           COMMIT WORK
+           CALL fgl_winmessage("ERROR","ADICION EXITOSA","INFO") 
+           CALL arr_producto.clear()
+           CLEAR FORM
+        ELSE
+         ROLLBACK WORK
+         CALL fgl_winmessage("ERROR","LA TRANSACCION NO SE ACTUALIZO CON EXITO","INFO")   
+        END IF
+        CONTINUE DIALOG
+        
+  #  ON ACTION buscar
+  #     CALL buscar_kit() 
+  
+    ON ACTION CANCEL
+       LET INT_FLAG = FALSE
+       EXIT PROGRAM
+  END DIALOG  
+END FUNCTION
+
+FUNCTION inserta(x,z,modificacion)
+ DEFINE x RECORD 
+    cod_n         SMALLINT,
+    cod_grupo     SMALLINT,
+    cod_tipo      SMALLINT,
+    cod_sec       SMALLINT,
+    descripcion_p VARCHAR(100) 
+  END RECORD  
+  
+  DEFINE z DYNAMIC ARRAY OF RECORD
+    pcodn         SMALLINT,
+    pcodgrupo     SMALLINT,
+    pcodtipo      SMALLINT,
+    pcodsec       SMALLINT,
+    descripcion_p1 VARCHAR(100),
+    factor_d        DEC(12,5),
+    cantidad      DEC(12,5),
+    umedida CHAR(10),
+    longitud DEC(12,5),
+    creferencia VARCHAR(100),
+    costo         DEC(12,5),
+    precio        DEC(12,2),
+    valor         DEC(12,2)   
+  END RECORD,
+    modificacion VARCHAR(3),
+    x_exito BOOLEAN,
+    codid INT
+    
+ LET x_exito = TRUE 
+
+    BEGIN WORK
+    DISPLAY "modificacion: ",modificacion
+    INSERT INTO iptb00060 (cod_n,cod_grupo,cod_tipo,cod_sec,us_crea,fech_crea)
+    VALUES(x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec,usuarios,getdate())
+     
+    LET codid = SQLCA.SQLERRD[2]
+        
+    IF STATUS < 0 THEN
+        ROLLBACK WORK
+        CALL fgl_winmessage("ERROR","SE PRODUJO UN ERROR EN LA TABLA iptb00060","INFO")
+        LET x_exito = FALSE
+        RETURN x_exito
+    END IF
+
+     FOR curr = 1 TO z.getLength()
+          IF z[curr].pcodsec IS NOT NULL THEN
+             INSERT INTO iptb00061(codid,cod_n,cod_grupo,cod_tipo,cod_sec,descripcion,
+                                   factor_d,cantidad,umedida,longitud,creferencia,
+                                   costo,precio,valor,us_crea,fech_crea)
+             VALUES(codid,z[curr].pcodn,z[curr].pcodgrupo,z[curr].pcodtipo,z[curr].pcodsec,
+                    z[curr].descripcion_p1,z[curr].factor_d,z[curr].cantidad,z[curr].umedida,
+                    z[curr].longitud,z[curr].creferencia,z[curr].costo,z[curr].precio,z[curr].valor,
+                    usuarios,getdate())
+            IF STATUS < 0 THEN
+               ROLLBACK WORK
+               CALL fgl_winmessage("ERROR","SE PRODUJO UN ERROR EN LA TABLA vetb00061","INFO")
+               LET x_exito = FALSE
+               EXIT FOR
+            
+            END IF  
+    
+          END IF
+      END FOR
+  RETURN x_exito
+END FUNCTION
+
+FUNCTION producto(x)
+    DEFINE x RECORD
+    cod_n   SMALLINT,
+    cod_grupo SMALLINT,
+    cod_tipo  SMALLINT,
+    cod_sec   SMALLINT
+    END RECORD,
+    xdescripcion VARCHAR(100)
+
+    SELECT a.descrip_esp, a.codid INTO xdescripcion
+    FROM iptb00002 a
+    WHERE a.cod_n = x.cod_n AND 
+      a.cod_grupo = x.cod_grupo AND
+      a.cod_tipo = x.cod_tipo AND
+      a.cod_sec = x.cod_sec AND 
+      a.status_t IS NULL
+      
+    RETURN xdescripcion
+END FUNCTION
+
+FUNCTION productoDetalle(x,ind,lin)
+    DEFINE x RECORD
+    cod_n   SMALLINT,
+    cod_grupo SMALLINT,
+    cod_tipo  SMALLINT,
+    cod_sec   SMALLINT
+    END RECORD,
+    ind,lin SMALLINT 
+
+    SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp, b.factor_conv,null, a.unidad_med,
+           null,null,(c.gastos + c.labor + c.material),d.precio,NULL
+    INTO arr_producto[ind].pcodn, arr_producto[ind].pcodgrupo,arr_producto[ind].pcodtipo,
+         arr_producto[ind].pcodsec,arr_producto[ind].descripcion_p1,arr_producto[ind].factor_d,
+         arr_producto[ind].cantidad,arr_producto[ind].umedida,arr_producto[ind].longitud,
+         arr_producto[ind].creferencia,arr_producto[ind].costo,arr_producto[ind].precio,
+         arr_producto[ind].valor
+    FROM iptb00002 a
+    inner join iptb00001 b ON 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
+    inner join Iptb00004 c on a.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND a.cod_tipo = c.cod_tipo AND a.cod_sec = c.cod_Sec 
+    inner join vetb00025 d on a.cod_n = d.cod_n AND a.cod_grupo = d.cod_grupo AND a.cod_tipo = d.cod_tipo AND a.cod_sec = d.cod_Sec 
+    where a.cod_n = x.cod_n AND 
+          a.cod_grupo = x.cod_grupo AND 
+          a.cod_tipo = x.cod_tipo AND 
+          a.cod_Sec = x.cod_sec and 
+    c.ano = year(getdate()) and
+    d.ventas = 3
+    
+    DISPLAY "ind,lin: ",ind,lin
+    DISPLAY "arr_producto[ind]: ",arr_producto[ind].*
+    --DISPLAY arr_producto[ind].* TO sproducto[lin].*
+END FUNCTION
+
+FUNCTION busca_prod1()
+ DEFINE arr_prod DYNAMIC ARRAY OF RECORD
+   cod_n          INTEGER,
+   cod_grupo      INTEGER,
+   cod_tipo       INTEGER,
+   cod_sec        INTEGER,
+   descrip_esp    CHAR(30),
+   unidad_med     CHAR(5)
+ END RECORD
+
+OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
+FIRST + 1,PROMPT LINE LAST)
+
+  CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
+                   FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp
+
+  LET selec_pt =
+  "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
+  "       a.unidad_med FROM iptb00002 a ",
+  "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY a.descrip_esp " 
+
+  PREPARE comando_p FROM selec_pt
+  DECLARE busca_2 CURSOR FOR comando_p
+
+  LET idx = 1
+  FOREACH busca_2 INTO arr_prod[idx].*
+   LET idx = idx + 1
+  END FOREACH
+  CALL SET_COUNT(idx - 1)
+ 
+   DISPLAY ARRAY arr_prod TO s_prod.*
+   LET idx = ARR_CURR()
+
+   LET busca_p.cod_n       = arr_prod[idx].cod_n
+   LET busca_p.cod_grupo   = arr_prod[idx].cod_grupo
+   LET busca_p.cod_tipo    = arr_prod[idx].cod_tipo
+   LET busca_p.cod_sec     = arr_prod[idx].cod_sec
+   LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
+   LET busca_p.unidad_med  = arr_prod[idx].unidad_med 
+   
+   # para el precio
+   LET p_vetb25.cod_n       = arr_prod[idx].cod_n
+   LET p_vetb25.cod_grupo   = arr_prod[idx].cod_grupo
+   LET p_vetb25.cod_tipo    = arr_prod[idx].cod_tipo
+   LET p_vetb25.cod_sec     = arr_prod[idx].cod_sec
+ 
+   LET descrip1 = arr_prod[idx].descrip_esp
+   LET medida   = arr_prod[idx].unidad_med 
+
+   CLOSE WINDOW busca_2
+ END FUNCTION
+
+ FUNCTION actualiza_kit()
+    
+     DEFINE cod_n,cod_grupo,cod_tipo,cod_sec SMALLINT,
+     id INT 
+     
+     DEFINE arr_d DYNAMIC ARRAY OF RECORD
+          area        SMALLINT,
+        cod_n       SMALLINT,
+        cod_grupo   SMALLINT,
+        cod_tipo    SMALLINT,
+        cod_sec     SMALLINT,
+        descripcion VARCHAR(100),
+        cantidad    DEC(12,5),
+        precio      DEC(12,2),
+        porc_desc   DEC(12,2) 
+     END RECORD
+     CALL arr_producto.clear()
+     
+     DIALOG ATTRIBUTES(UNBUFFERED)
+        
+        INPUT BY NAME cod_n,cod_grupo,cod_tipo,cod_sec
+           BEFORE INPUT 
+             NEXT FIELD cod_n
+
+           AFTER FIELD cod_sec
+             IF cod_sec IS NOT NULL THEN
+                CALL producto(cod_n,cod_grupo,cod_tipo,cod_sec) RETURNING pdescripcion
+                DISPLAY "pdescripcion: ",pdescripcion
+                
+                IF pdescripcion IS NULL THEN       
+                  CALL msg(3)
+                  NEXT FIELD cod_n
+                END IF
+               
+                DISPLAY pdescripcion TO descripcion_p 
+                
+                SELECT DISTINCT a.id  INTO id 
+                FROM iptb00060 a
+                WHERE a.cod_n = cod_n AND
+                      a.cod_grupo = cod_grupo AND
+                      a.cod_tipo = cod_tipo AND
+                      a.cod_sec = cod_sec
+
+                IF STATUS = NOTFOUND THEN
+                    CALL fgl_winmessage("INFO","NO EXISTEN KIT CON ESTE CODIGO","INFO")
+                    NEXT FIELD cod_n
+                ELSE  
+                
+              DECLARE busca_pdetalle CURSOR FOR 
+                  SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descripcion,a.factor_d,a.cantidad,
+                         a.umedida,a.longitud,a.creferencia,a.costo,a.precio,a.valor
+                    FROM iptb00061 a 
+                    where a.codid = id
+
+            LET idx = 1   
+            FOREACH busca_pdetalle INTO arr_producto[idx].pcodn,arr_producto[idx].pcodgrupo,arr_producto[idx].pcodtipo,
+                                        arr_producto[idx].pcodsec,arr_producto[idx].descripcion_p1,arr_producto[idx].factor_d,
+                                        arr_producto[idx].cantidad,arr_producto[idx].umedida,arr_producto[idx].longitud,
+                                        arr_producto[idx].creferencia,arr_producto[idx].costo,arr_producto[idx].precio,arr_producto[idx].valor
+                LET idx = idx + 1
+            
+            END FOREACH
+            
+            IF idx > 1 THEN 
+               INPUT ARRAY arr_producto FROM sproducto.* ATTRIBUTE(WITHOUT DEFAULTS)
+               
+                   BEFORE ROW  
+                    LET idx = arr_curr()
+                    LET scr_l = scr_line()
+
+                    DISPLAY "idx-2: ",idx
+                    DISPLAY "scr_l-2: ", scr_l
+                       
+                   AFTER FIELD pcodsec     
+                    IF arr_producto[idx].pcodn = cod_n AND
+                       arr_producto[idx].pcodgrupo = cod_grupo AND
+                       arr_producto[idx].pcodtipo = cod_tipo AND
+                       arr_producto[idx].pcodsec = cod_sec THEN
+                       CALL fgl_Winmessage("ERROR","ESTE CODIGO NO PUEDE SER IGUAL QUE EL CODIGO PRINCIPAL","INFO")
+                       NEXT FIELD pcodsec
+                   END IF   
+                            
+                   IF arr_producto[idx].descripcion_p1 IS NULL THEN
+                      CALL fgl_Winmessage("ERROR","ESTE CODIGO NO EXISTE","INFO")
+                      NEXT FIELD pcodsec
+                   END IF
+        
+                   AFTER FIELD cantidad
+                        DISPLAY "valor: ", arr_producto[idx].valor
+                       IF arr_producto[idx].cantidad IS NULL THEN
+                           CALL fgl_Winmessage("ERROR","DEBE INGRESAR LA CANTIDAD DE ESTE PRODUCTO","INFO")
+                           NEXT FIELD cantidad
+                       END IF
+
+                       LET arr_producto[idx].valor = arr_producto[idx].cantidad * arr_producto[idx].costo
+
+                   ON ACTION producto ATTRIBUTE(TEXT="Producto")
+                     CALL busca_prod1()
+                        DISPLAY "busca_p: ",busca_p.*
+                    
+                     CALL productoDetalle(busca_p.cod_n,busca_p.cod_grupo,busca_p.cod_tipo,busca_p.cod_sec,idx,scr_l)
+                        DISPLAY "length: ",arr_producto.getLength()
+                        IF arr_producto.getLength()<= 0 THEN 
+                           CALL fgl_Winmessage("ERROR","ESTE CODIGO NO EXISTE","INFO")
+                           NEXT FIELD pcodsec
+                        END IF
+
+                   ON ACTION Actualizar
+                        DISPLAY "arr_producto.getLength(): ", arr_producto.getLength()
+                        FOR idx =1 TO arr_producto.getLength()
+                            IF arr_producto[idx].pcodn IS NOT NULL THEN
+                                DISPLAY "id: ",id
+                                DISPLAY arr_producto[idx].pcodn
+                                DISPLAY arr_producto[idx].pcodgrupo
+                                DISPLAY arr_producto[idx].pcodtipo 
+                                DISPLAY arr_producto[idx].pcodsec
+                                
+                                UPDATE iptb00061 SET factor_d = arr_producto[idx].factor_d,
+                                       cantidad = arr_producto[idx].cantidad,
+                                       umedida = arr_producto[idx].umedida,
+                                       longitud = arr_producto[idx].longitud,
+                                       creferencia = arr_producto[idx].creferencia,
+                                       costo = arr_producto[idx].costo,
+                                       precio = arr_producto[idx].precio,
+                                       valor = arr_producto[idx].valor
+                                WHERE codid = id --AND 
+                                      --cod_n =  arr_producto[idx].pcodn AND
+                                      --cod_grupo =  arr_producto[idx].pcodgrupo AND
+                                      --cod_tipo =  arr_producto[idx].pcodtipo AND 
+                                      --cod_sec =  arr_producto[idx].pcodsec
+                             
+                            END IF 
+                        END FOR             
+
+                        CALL fgl_Winmessage("ERROR","REGISTRO ACTUALIZADO","INFO")
+                   ON ACTION Eliminar
+                       DISPLAY "Eliminar"
+                            
+                END INPUT
+            END IF 
+        END IF      
+     END IF
+         
+       AFTER INPUT
+         {IF INT_FLAG THEN
+            EXIT INPUT
+         END IF}
+         FOR idx = 1 TO arr_d.getLength()
+             LET arr_producto[idx].pcodn = arr_d[idx].cod_n
+             LET arr_producto[idx].pcodgrupo = arr_d[idx].cod_grupo
+             LET arr_producto[idx].pcodtipo = arr_d[idx].cod_tipo
+             LET arr_producto[idx].pcodsec = arr_d[idx].cod_sec
+             LET arr_producto[idx].descripcion_p1 = arr_d[idx].descripcion
+             LET arr_producto[idx].cantidad = arr_d[idx].cantidad
+             LET arr_producto[idx].precio = arr_d[idx].precio         
+         END FOR
+  END INPUT
+      
+      
+     END DIALOG 
+    IF INT_FLAG THEN
+        LET INT_FLAG = FALSE
+        RETURN
+    END IF
+END FUNCTION

PROYECTO/ipdir/IPPRRP048.4gl

@@ -0,0 +1,300 @@
+{------------------------------------------------------------------------------
+PROGRAMA             :  ipprrp048
+OBJETIVO             :  Operacion por Tipo de Movimiento detallado (SIN COSTOS)
+PROGRAMADOR          :  Ing. Juan Fco. Soto        
+FECHA REALIZACION    :  Febrero 1997
+MODIFICADO POR       :  VALENTIN RODRIGUEZ
+FECHA MODIFICACION   :  ABRIL 2019   
+-------------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"   
+--DEFINE departamento RECORD LIKE adtb00001.*
+--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 * INTO p_companias.* FROM companias
+   CALL ipprrp048()
+END MAIN
+
+FUNCTION ipprrp048()
+
+    DEFINE select_ac STRING
+    DEFINE ano_act CHAR(4)
+    
+    DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
+      r_filename STRING,              -- filename of Report Design Document including .4rp extension
+      r_output   STRING,              -- output format option
+      preview    INTEGER,             -- TRUE/FALSE, to set preview option
+      criterio   STRING 
+  
+    DEFINE acumulado_ac RECORD    
+       departamento VARCHAR(40),
+       cod_mov      LIKE iptb00005.cod_mov,
+       cod_n        SMALLINT,
+       cod_grupo    SMALLINT,
+       cod_Tipo     SMALLINT,
+       cod_Sec      SMALLINT,
+       factor_conv  DECIMAL(12,5),
+       factor_ad    DECIMAL(12,5),
+       consumo      FLOAT 
+    END RECORD
+
+    DEFINE acumulado RECORD
+           cod_cia      LIKE iptb00002.cod_cia,
+           cod_n        LIKE iptb00002.cod_n,
+           cod_grupo    LIKE iptb00002.cod_grupo,
+           cod_tipo     LIKE iptb00002.cod_tipo,
+           cod_sec      LIKE iptb00002.cod_sec,
+           descrip_esp  CHAR(50),
+           descrip_ing  LIKE iptb00002.descrip_ing,
+           unidad_med   LIKE iptb00002.unidad_med,
+           cod_mov      LIKE iptb00006.cod_mov,
+           descrip_mov  LIKE iptb00005.descrip_mov,
+           consumo      DECIMAL(12,5),
+           factor_conv  DECIMAL(12,5),
+           factor_ad  DECIMAL(12,5),
+           --material     DECIMAL(12,5),
+           --labor        DECIMAL(12,5),
+           --gastos       DECIMAL(12,5),
+           descripcion_origen VARCHAR(30),
+           departamento VARCHAR(40),
+           mtsAdicionales DECIMAL(12,5)
+    END RECORD
+
+#     WHENEVER ERROR CONTINUE
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+    OPEN FORM ipfmrp048 FROM "ipfmrp048"
+    DISPLAY FORM ipfmrp048
+    
+    DISPLAY "ipprrp048" AT 4,3
+    DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
+
+     LET tipo_papel = 1
+     CALL msgrp000(tipo_papel)
+
+    INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi
+ 
+    
+    AFTER FIELD fech_in
+          IF datos_cons.fech_in IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+    AFTER FIELD fech_fi
+          IF datos_cons.fech_fi IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_fi
+           END IF
+
+END INPUT
+
+      IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+     END IF
+
+    CONSTRUCT criterio ON e.departamento, c.cod_mov,c.bodega, c.cod_n, c.cod_grupo, c.cod_tipo, c.cod_sec
+                       FROM departamento,cod_mov,bodega,cod_n,cod_grupo,cod_tipo,cod_sec
+    
+      BEFORE CONSTRUCT
+          CALL bodegas('1')
+          CALL busca_departamento()
+          CALL cmovimientos()
+      AFTER CONSTRUCT 
+          IF int_flag THEN
+              LET numero_msg = 2
+              CALL msg(numero_msg)
+              LET int_flag = false
+              RETURN
+          END IF
+    END CONSTRUCT  
+    
+   LET select_ac  = 
+          "SELECT isnull('('+cast(c.departamento as char(10))+')'+e.nom_dpto, 'NO DEPARTAMENTO'), c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec, f.factor_conv,ISNULL(f.factor_ad,0), ",
+          "SUM(c.cantidad_2) ",
+          "FROM iptb00006 c ",
+  
+          "left join adtb00001 e on c.departamento = e.departamento ",
+          "inner join iptb00001 f on c.cod_n = f.cod_n and c.cod_grupo = f.cod_grupo and c.cod_tipo = f.cod_tipo and c.cod_sec = f.cod_sec",
+          " WHERE ",criterio clipped," and c.fecha between ? and ?  ",
+          "     AND   c.status_t is NULL   ",
+          "GROUP BY c.departamento,e.nom_dpto, c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,f.factor_conv,f.factor_ad ",
+     #     "HAVING SUM(c.cantidad_2) <> 0 ",
+          "ORDER BY c.cod_mov, e.nom_dpto,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec  "
+    
+    DISPLAY "<< Estoy Buscando Acumulado Del Periodo Dado >>"
+            AT 19,14 ATTRIBUTE (REVERSE,BOLD) 
+    
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+    END IF
+    DISPLAY "                                                "
+            AT 19,14 
+  LET ano_act = year(datos_cons.fech_fi)
+   
+
+  DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
+  AT 19,14 ATTRIBUTE (REVERSE) 
+            
+  PREPARE busca_ant FROM select_ac 
+  DECLARE actual SCROLL CURSOR FOR busca_ant
+  OPEN actual USING datos_cons.fech_in,datos_cons.fech_fi  
+
+  LET r_filename ="ipprrp048.4rp"
+  LET idx = 1
+    
+  FOREACH  actual INTO acumulado_ac.* 
+
+    IF idx = 1 THEN
+
+        IF fgl_report_loadCurrentSettings(r_filename) THEN
+            LET preview=1                           
+            CALL seleccionarsalida() RETURNING r_output      -- 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 
+        
+        LET idx = 2
+        START REPORT opera TO XML HANDLER HANDLER       
+       
+    END IF
+       
+     IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN 
+     END IF
+     
+     LET acumulado.consumo = acumulado_ac.consumo
+     LET acumulado.factor_conv = acumulado_ac.factor_conv
+     LET acumulado.factor_ad = acumulado_ac.factor_ad 
+     LET acumulado.cod_mov = acumulado_ac.cod_mov
+     LET acumulado.mtsAdicionales = acumulado.factor_ad * acumulado.consumo
+     
+# Busqueda del Material Con su descripcion y unidad de medida
+     LET acumulado.descrip_esp = null
+     LET acumulado.unidad_med = null  
+     LET acumulado.cod_cia = NULL
+     
+    SELECT  a.cod_cia,a.descrip_esp,a.unidad_med,b.descripcion
+    INTO acumulado.cod_cia,acumulado.descrip_esp,acumulado.unidad_med,acumulado.descripcion_origen
+    FROM iptb00002 a,iptb00022 b
+    WHERE a.cod_n = acumulado_ac.cod_n AND
+          a.cod_grupo = acumulado_ac.cod_grupo AND
+          a.cod_tipo = acumulado_ac.cod_tipo AND
+          a.cod_Sec = acumulado_ac.cod_sec AND
+          a.cod_cia = b.cod_cia 
+
+        IF int_flag THEN
+              LET numero_msg = 2
+              CALL msg(numero_msg)
+              LET int_flag = false
+              RETURN 
+             END IF
+             
+             LET acumulado.cod_n = acumulado_ac.cod_n
+             LET acumulado.cod_grupo = acumulado_ac.cod_grupo
+             LET acumulado.cod_tipo = acumulado_ac.cod_tipo
+             LET acumulado.cod_sec = acumulado_ac.cod_sec
+             LET acumulado.departamento = acumulado_ac.departamento
+
+        OUTPUT TO REPORT opera(acumulado.*)     
+END FOREACH  
+
+IF idx > 1 THEN
+    FINISH REPORT opera
+ELSE 
+    CALL fgl_winmessage("INFO", "NO HAY REGISTROS EN ESTE RANGO DE FECHA Y CON LOS PARAMETROS INDICADOS", "INFO")
+END IF 
+    
+END FUNCTION
+
+REPORT opera(x)
+    DEFINE x RECORD
+       cod_cia      LIKE iptb00002.cod_cia,
+       cod_n        LIKE iptb00002.cod_n,
+       cod_grupo    LIKE iptb00002.cod_grupo,
+       cod_tipo     LIKE iptb00002.cod_tipo,
+       cod_sec      LIKE iptb00002.cod_sec,
+       descrip_esp  CHAR(50),
+       descrip_ing  LIKE iptb00002.descrip_ing,
+       unidad_med   LIKE iptb00002.unidad_med,
+       cod_mov      LIKE iptb00006.cod_mov,
+       descrip_mov  LIKE iptb00005.descrip_mov,
+       consumo      DECIMAL(12,5),  
+       factor_conv  DECIMAL(12,5),
+       factor_ad    DECIMAL(12,5), 
+       descripcion_origen VARCHAR(30),
+       departamento VARCHAR(40),
+       mtsAdicionales DECIMAL(12,5)
+    END RECORD,
+    titulo_mov VARCHAR(50),
+    rango_fecha CHAR(50),
+    fecha_reporte CHAR(15),
+    producto,descripcion_bodega VARCHAR(150),
+    t_consumo, t_m_consumo, t_t_consumo,t_mtsAdicionales,
+    t_t_mtsAdicionales, t_m_mtsAdicionales DECIMAL (12,5)
+    
+FORMAT
+  BEFORE GROUP OF x.cod_mov
+ #   LET descripcion_bodega =  ui.ComboBox.forName('formonly.bodega').getTextOf()
+    SELECT descrip_mov INTO x.descrip_mov FROM iptb00005
+    WHERE cod_mov = x.cod_mov
+    
+    LET titulo_mov = "Movimiento: ",x.cod_mov," ",x.descrip_mov CLIPPED
+
+    PRINTX titulo_mov    
+
+  BEFORE GROUP OF x.departamento  
+    PRINTX x.departamento
+    
+  ON EVERY ROW
+    LET rango_fecha = "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
+                      "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
+    LET fecha_reporte = TODAY 
+    LET producto = x.cod_n USING "&&&&&","-",x.cod_grupo USING "&&&&&","-",
+                   x.cod_tipo USING "&&&&&","-",x.cod_sec USING "&&&&&"," ",
+                   x.descrip_esp     
+                   
+    PRINTX producto, x.consumo, p_companias.nombre, 
+           rango_fecha, fecha_reporte, x.unidad_med, x.factor_conv,  
+           x.factor_ad, x.mtsAdicionales,descripcion_bodega
+    
+    AFTER GROUP OF x.departamento
+        LET t_consumo = GROUP SUM(x.consumo)
+        LET t_mtsAdicionales = GROUP SUM(x.mtsAdicionales)
+        PRINTX t_consumo,t_mtsAdicionales
+        
+    AFTER GROUP OF x.cod_mov
+        LET t_m_consumo  = GROUP SUM(x.consumo)
+        LET t_m_mtsAdicionales =GROUP SUM(x.mtsAdicionales)
+        PRINTX t_m_consumo,t_m_mtsAdicionales  
+        
+    ON LAST ROW 
+        LET t_t_consumo = SUM(x.consumo)
+        LET t_t_mtsAdicionales = SUM(x.mtsAdicionales) 
+        PRINTX t_t_consumo,t_t_mtsAdicionales
+END REPORT
+
+
+

PROYECTO/ipdir/IPPRRP048_1.4gl

@@ -0,0 +1,298 @@
+{------------------------------------------------------------------------------
+PROGRAMA             :  ipprrp048
+OBJETIVO             :  Operacion por Tipo de Movimiento detallado (SIN COSTOS)
+PROGRAMADOR          :  Ing. Juan Fco. Soto        
+FECHA REALIZACION    :  Febrero 1997
+MODIFICADO POR       :  VALENTIN RODRIGUEZ
+FECHA MODIFICACION   :  ABRIL 2019   
+-------------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"   
+--DEFINE departamento RECORD LIKE adtb00001.*
+--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 * INTO p_companias.* FROM companias
+   CALL ipprrp048()
+END MAIN
+
+FUNCTION ipprrp048()
+
+    DEFINE select_ac STRING
+    DEFINE ano_act CHAR(4)
+    
+    DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
+      r_filename STRING,              -- filename of Report Design Document including .4rp extension
+      r_output   STRING,              -- output format option
+      preview    INTEGER,             -- TRUE/FALSE, to set preview option
+      criterio   STRING 
+  
+    DEFINE acumulado_ac RECORD    
+       departamento VARCHAR(40),
+       cod_mov      LIKE iptb00005.cod_mov,
+       cod_n        SMALLINT,
+       cod_grupo    SMALLINT,
+       cod_Tipo     SMALLINT,
+       cod_Sec      SMALLINT,
+       factor_conv  DECIMAL(12,5),
+       factor_ad    DECIMAL(12,5),
+       consumo      FLOAT 
+    END RECORD
+
+    DEFINE acumulado RECORD
+           cod_cia      LIKE iptb00002.cod_cia,
+           cod_n        LIKE iptb00002.cod_n,
+           cod_grupo    LIKE iptb00002.cod_grupo,
+           cod_tipo     LIKE iptb00002.cod_tipo,
+           cod_sec      LIKE iptb00002.cod_sec,
+           descrip_esp  CHAR(50),
+           descrip_ing  LIKE iptb00002.descrip_ing,
+           unidad_med   LIKE iptb00002.unidad_med,
+           cod_mov      LIKE iptb00006.cod_mov,
+           descrip_mov  LIKE iptb00005.descrip_mov,
+           consumo      DECIMAL(12,5),
+           factor_conv  DECIMAL(12,5),
+           factor_ad  DECIMAL(12,5),
+           --material     DECIMAL(12,5),
+           --labor        DECIMAL(12,5),
+           --gastos       DECIMAL(12,5),
+           descripcion_origen VARCHAR(30),
+           departamento VARCHAR(40),
+           mtsAdicionales DECIMAL(12,5)
+    END RECORD
+
+#     WHENEVER ERROR CONTINUE
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+    OPEN FORM ipfmrp048 FROM "ipfmrp048"
+    DISPLAY FORM ipfmrp048
+    
+    DISPLAY "ipprrp048" AT 4,3
+    DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
+
+     LET tipo_papel = 1
+     CALL msgrp000(tipo_papel)
+
+    INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi
+ 
+    
+    AFTER FIELD fech_in
+          IF datos_cons.fech_in IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+    AFTER FIELD fech_fi
+          IF datos_cons.fech_fi IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_fi
+           END IF
+
+END INPUT
+
+      IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+     END IF
+
+    CONSTRUCT criterio ON e.departamento, c.cod_mov, c.cod_n, c.cod_grupo, c.cod_tipo, c.cod_sec
+                       FROM departamento,cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec
+    
+      BEFORE CONSTRUCT
+          CALL busca_departamento()
+      AFTER CONSTRUCT 
+          IF int_flag THEN
+              LET numero_msg = 2
+              CALL msg(numero_msg)
+              LET int_flag = false
+              RETURN
+          END IF
+    END CONSTRUCT  
+    
+   LET select_ac  = 
+          "SELECT isnull('('+cast(c.departamento as char(10))+')'+e.nom_dpto, 'NO DEPARTAMENTO'), c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec, f.factor_conv,ISNULL(f.factor_ad,0), ",
+          "SUM(c.cantidad_2) ",
+          "FROM iptb00006 c ",
+  
+          "left join adtb00001 e on c.departamento = e.departamento ",
+          "inner join iptb00001 f on c.cod_n = f.cod_n and c.cod_grupo = f.cod_grupo and c.cod_tipo = f.cod_tipo and c.cod_sec = f.cod_sec",
+          " WHERE ",criterio clipped," and c.fecha between ? and ?  ",
+          "     AND   c.status_t is NULL  and c.cod_n not in (25,15,5) ",
+          "GROUP BY c.departamento,e.nom_dpto, c.cod_mov,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,f.factor_conv,f.factor_ad ",
+     #     "HAVING SUM(c.cantidad_2) <> 0 ",
+          "ORDER BY c.cod_mov, e.nom_dpto,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec  "
+    
+    DISPLAY "<< Estoy Buscando Acumulado Del Periodo Dado >>"
+            AT 19,14 ATTRIBUTE (REVERSE,BOLD) 
+    
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+    END IF
+    DISPLAY "                                                "
+            AT 19,14 
+  LET ano_act = year(datos_cons.fech_fi)
+   
+
+  DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
+  AT 19,14 ATTRIBUTE (REVERSE) 
+            
+  PREPARE busca_ant FROM select_ac 
+  DECLARE actual SCROLL CURSOR FOR busca_ant
+  OPEN actual USING datos_cons.fech_in,datos_cons.fech_fi  
+
+  LET r_filename ="ipprrp048.4rp"
+  LET idx = 1
+    
+  FOREACH  actual INTO acumulado_ac.* 
+
+    IF idx = 1 THEN
+
+        IF fgl_report_loadCurrentSettings(r_filename) THEN
+            LET preview=1                           
+            CALL seleccionarsalida() RETURNING r_output      -- 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 
+        
+        LET idx = 2
+        START REPORT opera TO XML HANDLER HANDLER       
+       
+    END IF
+       
+     IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN 
+     END IF
+     
+     LET acumulado.consumo = acumulado_ac.consumo
+     LET acumulado.factor_conv = acumulado_ac.factor_conv
+     LET acumulado.factor_ad = acumulado_ac.factor_ad 
+     LET acumulado.cod_mov = acumulado_ac.cod_mov
+     LET acumulado.mtsAdicionales = acumulado.factor_ad * acumulado.consumo
+     
+# Busqueda del Material Con su descripcion y unidad de medida
+     LET acumulado.descrip_esp = null
+     LET acumulado.unidad_med = null  
+     LET acumulado.cod_cia = NULL
+     
+    SELECT  a.cod_cia,a.descrip_esp,a.unidad_med,b.descripcion
+    INTO acumulado.cod_cia,acumulado.descrip_esp,acumulado.unidad_med,acumulado.descripcion_origen
+    FROM iptb00002 a,iptb00022 b
+    WHERE a.cod_n = acumulado_ac.cod_n AND
+          a.cod_grupo = acumulado_ac.cod_grupo AND
+          a.cod_tipo = acumulado_ac.cod_tipo AND
+          a.cod_Sec = acumulado_ac.cod_sec AND
+          a.cod_cia = b.cod_cia 
+
+        IF int_flag THEN
+              LET numero_msg = 2
+              CALL msg(numero_msg)
+              LET int_flag = false
+              RETURN 
+             END IF
+             
+             LET acumulado.cod_n = acumulado_ac.cod_n
+             LET acumulado.cod_grupo = acumulado_ac.cod_grupo
+             LET acumulado.cod_tipo = acumulado_ac.cod_tipo
+             LET acumulado.cod_sec = acumulado_ac.cod_sec
+             LET acumulado.departamento = acumulado_ac.departamento
+
+        OUTPUT TO REPORT opera(acumulado.*)     
+END FOREACH  
+
+IF idx > 1 THEN
+    FINISH REPORT opera
+ELSE 
+    CALL fgl_winmessage("INFO", "NO HAY REGISTROS EN ESTE RANGO DE FECHA Y CON LOS PARAMETROS INDICADOS", "INFO")
+END IF 
+    
+END FUNCTION
+
+REPORT opera(x)
+    DEFINE x RECORD
+       cod_cia      LIKE iptb00002.cod_cia,
+       cod_n        LIKE iptb00002.cod_n,
+       cod_grupo    LIKE iptb00002.cod_grupo,
+       cod_tipo     LIKE iptb00002.cod_tipo,
+       cod_sec      LIKE iptb00002.cod_sec,
+       descrip_esp  CHAR(50),
+       descrip_ing  LIKE iptb00002.descrip_ing,
+       unidad_med   LIKE iptb00002.unidad_med,
+       cod_mov      LIKE iptb00006.cod_mov,
+       descrip_mov  LIKE iptb00005.descrip_mov,
+       consumo      DECIMAL(12,5),  
+       factor_conv  DECIMAL(12,5),
+       factor_ad    DECIMAL(12,5), 
+       descripcion_origen VARCHAR(30),
+       departamento VARCHAR(40),
+       mtsAdicionales DECIMAL(12,5)
+    END RECORD,
+    titulo_mov VARCHAR(50),
+    rango_fecha CHAR(50),
+    fecha_reporte CHAR(15),
+    producto VARCHAR(150),
+    t_consumo, t_m_consumo, t_t_consumo,t_mtsAdicionales,
+    t_t_mtsAdicionales, t_m_mtsAdicionales DECIMAL (12,5)
+    
+FORMAT
+  BEFORE GROUP OF x.cod_mov
+  
+    SELECT descrip_mov INTO x.descrip_mov FROM iptb00005
+    WHERE cod_mov = x.cod_mov
+    
+    LET titulo_mov = "Movimiento: ",x.cod_mov," ",x.descrip_mov CLIPPED
+
+    PRINTX titulo_mov    
+
+  BEFORE GROUP OF x.departamento  
+    PRINTX x.departamento
+    
+  ON EVERY ROW
+    LET rango_fecha = "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
+                      "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
+    LET fecha_reporte = TODAY 
+    LET producto = x.cod_n USING "&&&&&","-",x.cod_grupo USING "&&&&&","-",
+                   x.cod_tipo USING "&&&&&","-",x.cod_sec USING "&&&&&"," ",
+                   x.descrip_esp     
+                   
+    PRINTX producto, x.consumo, p_companias.nombre, 
+           rango_fecha, fecha_reporte, x.unidad_med, x.factor_conv,  
+           x.factor_ad, x.mtsAdicionales
+    
+    AFTER GROUP OF x.departamento
+        LET t_consumo = GROUP SUM(x.consumo)
+        LET t_mtsAdicionales = GROUP SUM(x.mtsAdicionales)
+        PRINTX t_consumo,t_mtsAdicionales
+        
+    AFTER GROUP OF x.cod_mov
+        LET t_m_consumo  = GROUP SUM(x.consumo)
+        LET t_m_mtsAdicionales =GROUP SUM(x.mtsAdicionales)
+        PRINTX t_m_consumo,t_m_mtsAdicionales  
+        
+    ON LAST ROW 
+        LET t_t_consumo = SUM(x.consumo)
+        LET t_t_mtsAdicionales = SUM(x.mtsAdicionales) 
+        PRINTX t_t_consumo,t_t_mtsAdicionales
+END REPORT
+
+
+

PROYECTO/ipdir/IPRP.BAT

@@ -0,0 +1,20 @@
+FGL2P ipprrp002.4gl
+FGL2P ipprrp003.4gl
+FGL2P ipprrp004.4gl
+FGL2P ipprrp005.4gl
+FGL2P ipprrp006.4gl
+FGL2P ipprrp007.4gl
+FGL2P ipprrp008.4gl
+FGL2P ipprrp009.4gl
+FGL2P ipprrp010.4gl
+FGL2P ipprrp011.4gl
+FGL2P ipprrp012.4gl
+FGL2P ipprrp016.4gl
+FGL2P ipprrp017.4gl
+FGL2P ipprrp018.4gl
+FGL2P ipprrp019.4gl
+FGL2P ipprrp899.4gl
+fgl2p ipmnrp000.4gl
+fgl2p ipprrp013.4gl
+
+fgl2p -o ipmnrp000.42r ipmnrp000.42m seg000.42m msg.42m msgrp000.42m ipprrp002.42m ipprrp003.42m ipprrp004.42m ipprrp007.42m ipprrp008.42m ipprrp009.42m ipprrp010.42m ipprrp011.42m ipprrp017.42m ipprrp018.42m ipprrp016.42m ipprrp005.42m ipprrp006.42m ipprrp012.42m ipprrp019.42m termo.42m ipprrp013.42m

PROYECTO/ipdir/RUBIOBONDY.txt

@@ -0,0 +1,24 @@
+WANDY TIENE 2 SALIDAS 1 CARRERAS
+JOSE HERNANDEZ 13 ENTRADA DE 14 PONCHES
+STRABURG 2-0 FRENTE A SFO
+CAIN HA GANADO LOS 
+
+LE VA MA FRENTE ATLANTA.
+LE VA BIEN A MINESOTA.
+PHIL HUGES 13 CARRERAS
+KLUBER
+
+TAMPA 8-1 CON
+
+STL
+                             ATL 77
+                             PIRATAS 77
+CINCINATA 77 
+                             LAA
+                             PHILS
+KC
+LAD
+DET
+                             SFO
+COLORADO
+

PROYECTO/ipdir/act.sql

@@ -0,0 +1,2 @@
+update iptb00006 set status_t = null where num_doc = 63 and cod_mov = 42
+and fecha = "02/03/2002"

PROYECTO/ipdir/actExistencia.4gl

@@ -0,0 +1,60 @@
+FUNCTION actExistencia(num_doc_tmp) 
+
+    DEFINE idx,cantidad,num_doc_tmp INTEGER
+    
+    DEFINE movi4 DYNAMIC ARRAY OF RECORD
+        num_doc SMALLINT,
+        bodega SMALLINT,
+        id_seccion INT,
+        id_tramo INT,
+        cod_n SMALLINT,
+        cod_grupo SMALLINT,
+        cod_tipo SMALLINT,
+        cod_sec SMALLINT,
+        cantidad DECIMAL(12,5),
+        solicitada DECIMAL(12,5)
+    END RECORD
+    
+    LET idx = 1
+    
+    DECLARE bseccionesDHtmp CURSOR FOR
+        SELECT num_doc,bodega,seccion,tramo,
+               cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,solicitado
+        FROM tmpubicacion
+        WHERE num_doc = num_doc_tmp
+
+        FOREACH bseccionesDHtmp INTO movi4[idx].*
+            IF movi4[idx].cantidad IS NOT NULL THEN 
+                IF movi4[idx].solicitada IS NOT NULL THEN 
+                    LET cantidad = movi4[idx].cantidad - movi4[idx].solicitada
+                ELSE 
+                    LET cantidad = movi4[idx].cantidad
+                END IF                           
+                
+                DISPLAY idx,"-cantidad nueva: ",cantidad
+                DISPLAY "num_doc_tmp: ",num_doc_tmp
+                DISPLAY "bodega: ",movi4[idx].bodega
+                DISPLAY "id_seccion: ",movi4[idx].id_seccion
+                DISPLAY "id_tramo: ",movi4[idx].id_tramo
+                DISPLAY "cod_n: ",movi4[idx].cod_n
+                DISPLAY "cod_grupo: ",movi4[idx].cod_grupo
+                DISPLAY "cod_tipo: ",movi4[idx].cod_tipo
+                DISPLAY "cod_sec: ",movi4[idx].cod_sec
+                
+                UPDATE iptb00057 SET cantidad_1 = cantidad 
+                WHERE cod_bodega = movi4[idx].bodega AND
+                      id_seccion = movi4[idx].id_seccion AND cod_tramo = movi4[idx].id_tramo AND 
+                      cod_n  = movi4[idx].cod_n AND cod_grupo = movi4[idx].cod_grupo AND 
+                      cod_tipo = movi4[idx].cod_tipo AND cod_sec = movi4[idx].cod_sec 
+
+                DELETE FROM tmpubicacion WHERE
+                    bodega = movi4[idx].bodega AND
+                    seccion = movi4[idx].id_seccion AND tramo = movi4[idx].id_tramo AND 
+                    cod_n = movi4[idx].cod_n AND cod_grupo = movi4[idx].cod_grupo AND 
+                    cod_tipo = movi4[idx].cod_tipo AND cod_sec = movi4[idx].cod_sec AND 
+                    num_doc = num_doc_tmp
+            END IF
+            
+            LET idx = idx+1 
+        END FOREACH
+END FUNCTION 

PROYECTO/ipdir/actorden.per

@@ -0,0 +1,39 @@
+
+
+{
+=============================================================================
+   FORMULARIO         : IPFMWD009
+   OBJETIVO           : Desplegar los codigos y nombres de la maestra de
+                        clientes
+   PROGRAMA Q. LO USA : IPPRMT044
+   AUTOR              : JUAN F. SOTO
+   FECHA              : FEBRERO 6, 1999
+=============================================================================
+}
+DATABASE smarmotech
+SCREEN
+{
+   Codigo ORDEN:[a ][b  ][c   ][d   ]DESCRIPCION:[k1                              ]
+   NUMERO ORDEN:[p      ]
+   Codigo Actualizar:[a1 ][b1  ][c1   ][d1   ]DESCRIPCION[d2                         ]
+}
+end
+tables
+vetb00004
+attributes
+k1 = formonly.descrip_esp;
+a   = formonly.cod_n;
+b   = formonly.cod_grupo;
+c   = formonly.cod_tipo;
+d   = formonly.cod_sec;
+d2  = formonly.pdescrip_esp2,noentry;
+p   = formonly.porden;
+a1   = formonly.acod_n;
+b1   = formonly.acod_grupo;
+c1   = formonly.acod_tipo;
+d1   = formonly.acod_sec;
+
+instructions delimiters " "
+end
+
+                      

PROYECTO/ipdir/adtb00001.per

@@ -0,0 +1,23 @@
+database marmotech
+screen size 24 by 80
+{
+departamento       [f000  ]
+nom_dpto           [f001                          ]
+status_t           [a]
+us_crea            [f002     ]
+fech_crea          [f003            ]
+us_mod             [f004     ]
+fech_mod           [f005            ]
+}
+end
+tables
+adtb00001
+attributes
+f000 = adtb00001.departamento;
+f001 = adtb00001.nom_dpto;
+a = adtb00001.status_t;
+f002 = adtb00001.us_crea;
+f003 = adtb00001.fech_crea;
+f004 = adtb00001.us_mod;
+f005 = adtb00001.fech_mod;
+end

PROYECTO/ipdir/busca_c.sql

@@ -0,0 +1,2 @@
+select sec_cliente from vetb00004
+where sec_cliente not in (select sec_cliente from vetb00028)

PROYECTO/ipdir/busca_productos.4gl

@@ -0,0 +1,85 @@
+DEFINE idx,numero_msg INT,
+       pprecio FLOAT,
+       pdescripcion,criterio,selec STRING
+   
+DEFINE productos DYNAMIC ARRAY OF RECORD
+    cod_n2,cod_grupo2,cod_tipo2,cod_sec2 INT,
+    descripcion2 STRING,
+    precio2 FLOAT,
+    codid int
+END RECORD
+
+FUNCTION busca_productos(consulto,pcodn,pcodgrupo,pcodtipo,pcodsec)
+    DEFINE consulto VARCHAR(10),
+           pcodid,pcodn,pcodgrupo,pcodtipo,pcodsec INT
+    IF consulto = 'SI' THEN
+        OPEN WINDOW producto AT 12,3 WITH FORM "ipfmwd007_1" ATTRIBUTE(BORDER,CYAN,
+        FORM LINE FIRST +1)
+
+        CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion_user 
+                         FROM cod_n,cod_Grupo,cod_tipo,cod_Sec,descripcion2
+         BEFORE CONSTRUCT
+            LET pcodn = NULL
+            LET pcodgrupo=NULL
+            LET pcodtipo=NULL
+            LET pcodsec=NULL
+            LET pdescripcion=NULL
+            LET pprecio=NULL
+            LET pcodid  = NULL
+         AFTER CONSTRUCT   
+         IF int_flag THEN
+            EXIT CONSTRUCT
+            
+         END IF
+         END CONSTRUCT
+         IF int_flag THEN
+            LET int_flag = FALSE
+            CLOSE WINDOW producto  
+            RETURN pcodn,pcodgrupo,pcodtipo,pcodsec,pdescripcion,pprecio,pcodid
+         END IF   
+         LET selec ="SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion_user,a.precio,a.codid FROM iptb00016 a 
+                    WHERE a.status_t IS NULL AND ",criterio CLIPPED,
+         " ORDER BY a.descripcion_user"
+        PREPARE comando FROM selec 
+        DECLARE busca11 CURSOR FOR comando
+         
+
+        LET idx = 1
+        FOREACH busca11 INTO productos[idx].*
+         LET idx = idx + 1
+        END FOREACH
+        IF idx = 1 THEN
+           LET numero_msg = 3
+           CALL msg(numero_msg)
+           SLEEP 4
+        END IF
+        CALL set_count(idx-1)
+        DISPLAY ARRAY productos TO s_pilas.*
+         AFTER DISPLAY 
+            LET idx = arr_curr()
+            LET pcodn        = productos[idx].cod_n2
+            LET pdescripcion = productos[idx].descripcion2
+            LET pcodgrupo    = productos[idx].cod_grupo2
+            LET pcodtipo     = productos[idx].cod_tipo2
+            LET pcodsec      = productos[idx].cod_sec2
+            LET pprecio      = productos[idx].precio2
+            LET pcodid       = productos[idx].codid
+          EXIT DISPLAY
+        END DISPLAY  
+        CLOSE WINDOW producto
+      ELSE
+         LET pprecio = NULL
+         LET pdescripcion = NULL
+         LET pcodid = NULL
+         SELECT DISTINCT a.descrip_esp,a.codid,b.precio INTO pdescripcion,pcodid,pprecio 
+         FROM iptb00002 a,vetb00025 b
+         WHERE a.cod_n = pcodn AND a.cod_Grupo = pcodgrupo AND 
+               a.cod_tipo = pcodtipo AND a.cod_sec = pcodsec 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 
+               b.ventas = 3
+      END IF
+      
+      
+      RETURN pcodn,pcodgrupo,pcodtipo,pcodsec,pdescripcion,pprecio,pcodid
+
+END FUNCTION

PROYECTO/ipdir/buscarequisicion.4gl

@@ -0,0 +1,91 @@
+GLOBALS "ipprgb000.4gl"
+
+FUNCTION buscadoc(numid,codmov)
+   DEFINE numid,codmov INT 
+
+   SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
+          a.estado,a.url_destino,b.descripcion,a.observacion
+   INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
+        p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
+        p_iptb57.url_file,p_iptb57.observacion
+   FROM iptb00057 a, iptb00061 b
+   WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
+         a.idestado = b.idestado
+
+   #BODEGA DESTINO
+   IF p_iptb57.bodega_destino IS NOT NULL THEN
+      SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
+   END IF   
+   DECLARE buscardetalle CURSOR FOR
+       SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med, 
+              a.cantidad_1,a.cantidad_2,b.factor_conv,
+              c.id_etiqueta,
+              c.lado_1,c.lado_2,c.lado_3,c.cantidad,c.medida
+       FROM iptb00058 a,iptb00001 b LEFT OUTER JOIN iptb00060 c ON c.cod_n =b.cod_n AND c.cod_grupo = b.cod_grupo AND
+                                                                   c.cod_tipo = b.cod_tipo AND c.cod_sec = b.cod_Sec AND
+                                                                   c.id_despiece = numid
+                                    
+       WHERE a.numero_Doc = numid AND a.cod_mov = codmov 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
+
+       LET idx = 1
+       CALL arr_iptb58.clear()
+       LET total_cantidad =0
+       LET total_medida =0
+       LET tienedespiece = FALSE
+       FOREACH buscardetalle INTO arr_iptb58[idx].area,
+                                  arr_iptb58[idx].cod_n,
+                                  arr_iptb58[idx].cod_grupo,
+                                  arr_iptb58[idx].cod_tipo,
+                                  arr_iptb58[idx].cod_sec,
+                                  arr_iptb58[idx].descripcion,
+                                  arr_iptb58[idx].unidad_med,
+                                  arr_iptb58[idx].cantidad_1,
+                                  arr_iptb58[idx].cantidad,
+                                  arr_iptb58[idx].factor_conv,
+                                  despiece[idx].id_etiqueta,
+                                  despiece[idx].lado_1,
+                                  despiece[idx].lado_2,
+                                  despiece[idx].lado_3,
+                                  despiece[idx].cantidad,
+                                  despiece[idx].medida
+          IF despiece[idx].cantidad > 0 THEN                        
+             LET tienedespiece= TRUE
+          ELSE
+                LET tienedespiece= FALSE
+          END IF
+          LET total_cantidad = total_cantidad + despiece[idx].cantidad
+          LET total_medida = total_medida + despiece[idx].medida          
+          LET idx = idx + 1                        
+      END FOREACH   
+      LET cuentaimp = idx  
+    {  #DESPIECE
+       CALL despiece.clear()
+
+       DECLARE busca_despiecem1 CURSOR FOR
+             SELECT a.id_etiqueta,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida,a.secuencia,
+                    a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
+             FROM iptb00060 a,vetb00026 b
+             WHERE a.id_despiece = p_iptb57.numero_doc AND
+                   a.id_etiqueta = b.codid 
+                   
+             LET total_cantidad = 0
+             LET idx = 1
+      
+             FOREACH busca_despiecem1 INTO despiece[idx].id_etiqueta,despiece[idx].lado_1,
+                                         despiece[idx].lado_2,despiece[idx].lado_3,despiece[idx].cantidad,
+                                         despiece[idx].medida,despiece[idx].secuencia,
+                                         despiece[idx].cod_n,
+                                         despiece[idx].cod_grupo,
+                                         despiece[idx].cod_tipo,
+                                         despiece[idx].cod_sec
+
+             
+              LET total_cantidad = total_cantidad + despiece[idx].cantidad
+              LET idx = idx + 1
+            END FOREACH
+     }
+   RETURN p_iptb57.*,arr_iptb58
+END FUNCTION

PROYECTO/ipdir/buscarequisicion_1.4gl

@@ -0,0 +1,91 @@
+GLOBALS "ipprgb000.4gl"
+
+FUNCTION buscadoc(numid,codmov)
+   DEFINE numid,codmov INT 
+
+   SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
+          a.estado,a.url_destino,b.descripcion,a.observacion
+   INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
+        p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
+        p_iptb57.url_file,p_iptb57.observacion
+   FROM iptb00057 a, iptb00061 b
+   WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
+         a.idestado = b.idestado
+
+   #BODEGA DESTINO
+   IF p_iptb57.bodega_destino IS NOT NULL THEN
+      SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
+   END IF   
+   DECLARE buscardetalle CURSOR FOR
+       SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med, 
+              a.cantidad_1,a.cantidad_2,b.factor_conv,
+              c.id_etiqueta,
+              c.lado_1,c.lado_2,c.lado_3,c.cantidad,c.medida
+       FROM iptb00058 a,iptb00001 b LEFT OUTER JOIN iptb00060 c ON c.cod_n =b.cod_n AND c.cod_grupo = b.cod_grupo AND
+                                                                   c.cod_tipo = b.cod_tipo AND c.cod_sec = b.cod_Sec AND
+                                                                   c.id_despiece = numid
+                                    
+       WHERE a.numero_Doc = numid AND a.cod_mov = codmov 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
+
+       LET idx = 1
+       CALL arr_iptb58.clear()
+       LET total_cantidad =0
+       LET total_medida =0
+       LET tienedespiece = FALSE
+       FOREACH buscardetalle INTO arr_iptb58[idx].area,
+                                  arr_iptb58[idx].cod_n,
+                                  arr_iptb58[idx].cod_grupo,
+                                  arr_iptb58[idx].cod_tipo,
+                                  arr_iptb58[idx].cod_sec,
+                                  arr_iptb58[idx].descripcion,
+                                  arr_iptb58[idx].unidad_med,
+                                  arr_iptb58[idx].cantidad_1,
+                                  arr_iptb58[idx].cantidad,
+                                  arr_iptb58[idx].factor_conv,
+                                  despiece[idx].id_etiqueta,
+                                  despiece[idx].lado_1,
+                                  despiece[idx].lado_2,
+                                  despiece[idx].lado_3,
+                                  despiece[idx].cantidad,
+                                  despiece[idx].medida
+          IF despiece[idx].cantidad > 0 THEN                        
+             LET tienedespiece= TRUE
+          ELSE
+                LET tienedespiece= FALSE
+          END IF
+          LET total_cantidad = total_cantidad + despiece[idx].cantidad
+          LET total_medida = total_medida + despiece[idx].medida          
+          LET idx = idx + 1                        
+      END FOREACH   
+      LET cuentaimp = idx  
+    {  #DESPIECE
+       CALL despiece.clear()
+
+       DECLARE busca_despiecem1 CURSOR FOR
+             SELECT a.id_etiqueta,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida,a.secuencia,
+                    a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
+             FROM iptb00060 a,vetb00026 b
+             WHERE a.id_despiece = p_iptb57.numero_doc AND
+                   a.id_etiqueta = b.codid 
+                   
+             LET total_cantidad = 0
+             LET idx = 1
+      
+             FOREACH busca_despiecem1 INTO despiece[idx].id_etiqueta,despiece[idx].lado_1,
+                                         despiece[idx].lado_2,despiece[idx].lado_3,despiece[idx].cantidad,
+                                         despiece[idx].medida,despiece[idx].secuencia,
+                                         despiece[idx].cod_n,
+                                         despiece[idx].cod_grupo,
+                                         despiece[idx].cod_tipo,
+                                         despiece[idx].cod_sec
+
+             
+              LET total_cantidad = total_cantidad + despiece[idx].cantidad
+              LET idx = idx + 1
+            END FOREACH
+     }
+   RETURN p_iptb57.*,arr_iptb58
+END FUNCTION

PROYECTO/ipdir/cambia

@@ -0,0 +1,6 @@
+for i in `cat lista`
+do
+sed -e 's/E L E C T R O D O M E S T I C O  /E L E C T R O D O M E S T I C O S/g' < $i > /users/tmp/$i
+echo $i
+done
+                 

PROYECTO/ipdir/categoria_conteo.4gl

@@ -0,0 +1,20 @@
+FUNCTION categoria_conteo()
+
+    DEFINE
+        pcategoria ui.combobox,
+        kcategoria CHAR(1),
+        kdescripcion CHAR(50),
+        ddescripcion STRING
+
+    LET pcategoria = ui.combobox.forname("formonly.categoria")
+    CALL pcategoria.clear()
+    DECLARE pagar CURSOR FOR
+        SELECT categoria, dias
+            FROM intb00016
+            ORDER BY categoria
+    FOREACH pagar INTO kcategoria, kdescripcion
+        LET ddescripcion = kcategoria CLIPPED," (cada ",kdescripcion CLIPPED," dias)"
+        CALL pcategoria.additem(kcategoria, ddescripcion)
+    END FOREACH
+
+END FUNCTION

PROYECTO/ipdir/ccfmrp003.per

@@ -0,0 +1,32 @@
+schema smarmotech   
+LAYOUT (TEXT="ccprrp003 Analisis Saldos",STYLE="basic")
+GRID
+{
+  <G Parametros                  >   <G Totales                     >
+   Tipo de Venta  [b]                  Total Cte.   [t0            ]
+   Fecha de Corte [c         ]         Total 1-30   [t1            ] 
+   Cliente        [a ]  [d   ]         Total 31-60  [t2            ]
+   Vendedor       [k1  ]               Total 61-90  [t3            ]
+    0          50            100       Total Mas 90 [t4            ]
+   [p000                        ]      Total Saldo  [t5            ]
+
+}
+end
+end
+tables
+cctb00001
+attributes
+PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
+k1 = formonly.sec_vend;
+b  = formonly.tipo_venta type char, autonext, 
+     comments = "1 = Ventas Locales,  2 = Ventas de Exportacion"; 
+c  = formonly.fecha_corte type date, autonext, format = "dd/mm/yyyy", 
+     comments = "Digite la fecha de Corte del Reporte"; 
+a  = formonly.tipo_cliente;
+d  = formonly.sec_cliente;
+t0 = formonly.total_c type decimal(10,2);
+t1 = formonly.total1 type decimal(10,2); 
+t2 = formonly.total2 type decimal(10,2); 
+t3 = formonly.total3 type decimal(10,2);
+t4 = formonly.total4 type decimal(10,2); 
+t5 = formonly.total5 type decimal(10,2); end

PROYECTO/ipdir/coloca_ubicacion.4fd

@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="3140a" name="managedform" uid="{32e5ce58-736f-4610-8956-291c3d6fc1ae}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record name="record1" uid="{04057eb2-13e0-42b9-9514-ba20a31af352}">
+    <RecordField fieldIdRef="9" name="descripcion" uid="{6eeb411f-f30b-4c9f-83cb-1364bcf67ad8}"/>
+  </Record>
+  <Record name="recordd" uid="{dfcc7fb4-fa29-4d16-8c53-8f9927f60991}">
+    <RecordField fieldIdRef="1" name="seccion" uid="{64383af9-9ec2-465a-accd-d796f722b885}"/>
+    <RecordField fieldIdRef="2" name="tramo" uid="{e31e954e-a3f2-4813-ad59-b4c329255479}"/>
+    <RecordField fieldIdRef="3" name="fila" uid="{3fc09df5-1516-4869-a230-9e33885c016a}"/>
+    <RecordField fieldIdRef="4" name="posicion" uid="{d2b55c19-919a-4537-856b-cbbb7734877e}"/>
+    <RecordField fieldIdRef="6" name="cantidad_1" uid="{51a3caea-27b6-4508-b024-fa6980de0e46}"/>
+    <RecordField fieldIdRef="7" name="cantidad_2" uid="{1adc2fb7-c6ae-41b9-8f00-7a119e9facec}"/>
+  </Record>
+  <Form gridHeight="25" gridWidth="80" name="form" text="Form">
+    <Grid gridHeight="13" gridWidth="74" name="grid1" posX="1" posY="1">
+      <Label gridHeight="1" gridWidth="8" name="label1" posX="1" posY="1" text="PRODUCTO"/>
+      <Edit fieldId="9" gridHeight="1" gridWidth="33" name="descripcion" noEntry="true" posX="10" posY="1" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Table gridHeight="7" gridWidth="73" name="table1" posX="1" posY="3" totalRows="5">
+        <ComboBox fieldId="1" gridHeight="1" gridWidth="8" items="" name="seccion" noEntry="true" posX="0" posY="0" tabIndex="-1" title="SECCION" widget="ComboBox"/>
+        <ComboBox fieldId="2" gridHeight="1" gridWidth="8" items="" name="tramo" noEntry="true" posX="8" posY="0" tabIndex="-1" title="TRAMO" widget="ComboBox"/>
+        <ComboBox fieldId="3" gridHeight="1" gridWidth="8" items="" name="fila" posX="16" posY="0" tabIndex="-1" title="FILA" widget="ComboBox"/>
+        <ComboBox fieldId="4" gridHeight="1" gridWidth="8" items="" name="posicion" posX="24" posY="0" tabIndex="-1" title="POSICION" widget="ComboBox"/>
+        <Edit fieldId="6" gridHeight="1" gridWidth="8" name="cantidad_1" noEntry="true" posX="32" posY="0" tabIndex="-1" title="UNIDADES" widget="Edit"/>
+        <Edit fieldId="7" gridHeight="1" gridWidth="8" name="cantidad_2" noEntry="true" posX="40" posY="0" tabIndex="-1" title="CANTIDAD" widget="Edit"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAwADQAMAA1ADcAZQBiADIALQAxADMAZQAwAC0ANAAyAGIAOQAtADkANQAxADQALQBiAGEAMgAwAGEAMwAxAGEAZgAzADUAMgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBkAGYAYwBjADcAZgBiADQALQBmAGEAMgA5AC0ANABkADEANgAtADgAYwA1ADMALQA4AGYAOQA5ADIANwBmADYAMAA5ADkAMQB9QCqqqrgAAABAKqqquAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/companias.per

@@ -0,0 +1,33 @@
+database marmotech
+screen size 24 by 80
+{
+cod_comp           [f000 ]
+nombre             [f001                                    ]
+rnc                [f002                          ]
+direccion          [f003                                    ]
+telefono           [f004           ]
+fax                [f005           ]
+administrador      [f006                                    ]
+status_t           [a]
+us_crea            [f007     ]
+fech_crea          [f008            ]
+us_mod             [f009     ]
+fech_mod           [f010            ]
+}
+end
+tables
+companias
+attributes
+f000 = companias.cod_comp;
+f001 = companias.nombre,upshift;
+f002 = companias.rnc,upshift;
+f003 = companias.direccion,upshift;
+f004 = companias.telefono;
+f005 = companias.fax;
+f006 = companias.administrador,upshift;
+a = companias.status_t,noentry;
+f007 = companias.us_crea,noentry;
+f008 = companias.fech_crea,noentry;
+f009 = companias.us_mod,noentry;
+f010 = companias.fech_mod,noentry;
+end

PROYECTO/ipdir/conduces.4gl

@@ -0,0 +1,82 @@
+ DEFINE wconduces DYNAMIC ARRAY OF RECORD
+     numero       INT,
+     factura      INT,
+     fecha        VARCHAR(10),
+     cliente      VARCHAR(100),
+     almacen      SMALLINT,
+     num_req      INT 
+   END RECORD,
+   idx INT 
+
+ FUNCTION conduces(xnum_oc)
+   DEFINE wconduces DYNAMIC ARRAY OF RECORD
+     numero       INT,
+     factura      INT,
+     fecha        VARCHAR(10),
+     cliente      VARCHAR(100),
+     almacen      SMALLINT,
+     num_req      INT 
+   END RECORD 
+   DEFINE deconduces DYNAMIC ARRAY OF RECORD
+     num_doc  INT,
+     area     INT,
+     cod_n    INT,
+     cod_grupo,cod_tipo,cod_sec INT,
+     descripcion VARCHAR(100),
+     cantidad DEC(12,5)
+   END RECORD,
+     pcodn,pcodgrupo,pcodtipo,pcodsec,xnum_oc,xconduce,xnum_req,xfactura INT
+   
+   OPEN WINDOW w1 WITH FORM "svfmwd003"
+     INPUT BY NAME xnum_oc
+      AFTER INPUT
+        IF int_flag THEN
+          CALL msg(2)
+          
+          EXIT INPUT
+        END IF
+        IF xnum_oc IS NULL THEN
+           CALL msg(16)
+           NEXT FIELD xnum_oc
+        END IF   
+     DECLARE busca_conduce CURSOR FOR
+       SELECT DISTINCT a.num_oc,c.factura,CONVERT(CHAR(10),a.fecha,103),b.nombre,a.bodega,a.num_req 
+       FROM iptb00006 a LEFT OUTER JOIN vetb00002 c ON a.cod_sp = c.tipo_cliente AND a.cod_sp_Sec = c.sec_cliente AND
+                                                       a.num_doc = c.conduce,vetb00004 b
+       WHERE a.cod_sp = b.tipo_cliente AND a.cod_sp_sec = b.sec_cliente AND
+             a.num_oc = xnum_oc AND a.cod_mov IN (30,31,55,56) AND a.status_t IS NULL
+       ORDER BY a.num_oc      
+       LET idx = 1
+
+       FOREACH busca_conduce INTO wconduces[idx].*
+         LET idx = idx + 1
+       END FOREACH
+       EXIT INPUT
+       END INPUT
+       IF int_flag THEN
+          LET xconduce=0
+          LET xnum_req = 0
+          LET xfactura = 0
+          LET int_flag = FALSE 
+          CLOSE WINDOW w1
+          RETURN xconduce,xnum_req,xfacturA
+       END IF
+       DISPLAY ARRAY wconduces TO sconduces.*  #123641
+        AFTER DISPLAY
+          LET idx = arr_curr()
+          LET xconduce =wconduces[idx].numero
+          LET xnum_req = wconduces[idx].num_req
+          LET xfactura = wconduces[idx].factura
+      
+       #   CALL dconduces(wconduces[idx].numero,wconduces[idx].almacen) RETURNING deconduces
+        IF INT_FLAG THEN
+           LET INT_FLAG = FALSE
+           CONTINUE DISPLAY
+        ELSE   
+          EXIT DISPLAY
+        END IF  
+        END DISPLAY
+          
+    CLOSE WINDOW w1
+    RETURN xconduce,xnum_req,xfactura
+ END FUNCTION

PROYECTO/ipdir/control_costos.4gl

@@ -0,0 +1,19 @@
+FUNCTION control_costos(pcodn,pcodgrupo,pcodtipo,pcodsec,pfecha)
+   DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
+          costo_producto DEC(13,5),
+          pfecha DATE
+          
+    LET costo_producto =0
+    SELECT AVG(a.material+a.labor+a.gastos) INTO costo_producto
+    FROM iptb00004 a
+    WHERE a.cod_n =pcodn AND
+          a.cod_grupo = pcodgrupo AND
+          a.cod_tipo = pcodtipo AND
+          a.cod_sec =pcodsec AND
+          a.fecha <=pfecha   AND
+          a.status_t IS NULL  
+    IF costo_producto IS NULL THEN
+       LET costo_producto = 0 
+    END IF 
+    RETURN costo_producto
+END FUNCTION

PROYECTO/ipdir/datos.ld

@@ -0,0 +1,54 @@
+01|12|1999|2|2|0|1|592.35||usacg01|1999-01-27 12:53|usacg01|1999-01-27 15:32|
+01|12|1999|2|2|0|2|815.69||usacg01|1999-01-27 12:58|||
+01|12|1999|2|2|0|3|968.92||usacg01|1999-01-27 13:09|||
+01|12|1999|2|2|0|4|554.92||usacg01|1999-01-27 13:10|||
+01|12|1999|2|2|0|5|1218.17||usacg01|1999-01-27 13:10|||
+01|12|1999|2|2|0|6|818.46||usacg01|1999-01-27 13:11|||
+01|12|1999|2|2|0|7|626.82||usacg01|1999-01-27 13:11|||
+01|12|1999|2|2|0|9|745.04||usacg01|1999-01-27 13:17|usacg01|1999-01-29 10:00|
+01|12|1999|2|2|0|10|778.56||usacg01|1999-01-27 13:17|||
+01|12|1999|2|2|0|11|844.91||usacg01|1999-01-27 13:18|||
+01|12|1999|2|2|0|12|1068.82||usacg01|1999-01-27 13:18|||
+01|12|1999|2|2|0|13|974.98||usacg01|1999-01-27 13:19|||
+01|12|1999|2|2|0|14|801.4||usacg01|1999-01-27 13:19|||
+01|12|1999|2|2|0|15|963.09||usacg01|1999-01-27 13:19|||
+01|12|1999|2|2|0|17|1269.22||usacg01|1999-01-27 13:21|||
+01|12|1999|2|2|0|18|720.2||usacg01|1999-01-27 13:22|||
+01|12|1999|2|2|0|19|1468.4||usacg01|1999-01-27 13:24|usacg01|1999-01-27 13:49|
+01|12|1999|2|2|0|20|1069.02||usacg01|1999-01-27 13:35|||
+01|12|1999|2|2|0|21|1269.02||usacg01|1999-01-27 13:36|||
+01|12|1999|2|2|0|22|1089.99||usacg01|1999-01-27 13:36|||
+1|12|1999|2|2|0|23|1534.05||usacg01|1999-01-27 13:37|||
+01|12|1999|2|2|0|24|741.05||usacg01|1999-01-27 13:37|||
+01|12|1999|2|2|0|25|823.43||usacg01|1999-01-27 13:37|||
+01|12|1999|2|2|0|26|671.87||usacg01|1999-01-27 13:38|||
+01|12|1999|2|2|0|27|1017.72||usacg01|1999-01-27 13:39|||
+01|12|1999|2|2|0|28|979.3||usacg01|1999-01-27 13:39|||
+01|12|1999|2|2|0|29|1091.4||usacg01|1999-01-27 13:40|||
+01|12|1999|2|2|0|30|1166.8||usacg01|1999-01-27 13:41|||
+01|12|1999|2|2|0|31|940.6||usacg01|1999-01-27 13:41|||
+01|12|1999|2|2|0|32|1062.4||usacg01|1999-01-27 13:41|||
+01|12|1999|2|2|0|33|547.71||usacg01|1999-01-27 13:42|||
+01|12|1999|2|2|0|34|547.71||usacg01|1999-01-27 13:42|||
+01|12|1999|2|2|0|35|790.48||usacg01|1999-01-27 13:43|||
+01|12|1999|2|2|0|36|897.29||usacg01|1999-01-27 13:43|||
+01|12|1999|2|2|0|37|734.43||usacg01|1999-01-27 13:44|||
+01|12|1999|2|2|0|38|656.13||usacg01|1999-01-27 13:44|||
+01|12|1999|2|2|0|39|688.03||usacg01|1999-01-27 13:45|||
+01|12|1999|2|2|0|40|656.13||usacg01|1999-01-27 13:45|||
+01|12|1999|2|2|0|41|688.03||usacg01|1999-01-27 13:46|||
+01|12|1999|2|2|0|42|1278.18||usacg01|1999-01-27 13:47|||
+01|12|1999|2|2|0|43|547.29||usacg01|1999-01-27 14:25|||
+01|12|1999|2|2|0|44|1157.97||usacg01|1999-01-27 14:25|||
+01|12|1999|2|2|0|45|1354.35||usacg01|1999-01-27 14:44|usacg01|1999-01-27 15:00|
+01|12|1999|2|2|0|46|963.23||usacg01|1999-02-17 10:08|||
+01|12|1999|2|2|0|47|1078.74||usacg01|1999-02-17 10:08|||
+01|12|1999|2|2|0|48|1078.73||usacg01|1999-02-17 10:08|||
+01|12|1999|2|2|0|49|1078.74||usacg01|1999-02-17 10:09|||
+01|12|1999|2|2|0|50|628.41||usacg01|1999-07-27 15:55|usacg01|1999-07-28 09:16|
+01|12|1999|2|2|0|51|963.56||usacg01|1999-07-27 15:55|usacg01|1999-07-28 09:17|
+01|12|1999|2|2|0|52|1214.93||usacg01|1999-07-27 15:56|usacg01|1999-07-28 09:17|
+01|12|1999|2|2|0|53|1331.17||usacg01|1999-08-14 16:02|||
+01|12|1999|2|2|0|55|1190.61||usacg01|1999-08-24 17:35|||
+01|12|1999|2|2|0|54|673.76||usacg01|1999-09-03 10:08|||
+01|12|1999|2|2|0|56|699.17||usacg01|1999-09-03 10:14|||

PROYECTO/ipdir/desglose.4gl

@@ -0,0 +1,16 @@
+{
+  FUNCION       : Desglose.4gl
+  OBJETIVO      : Mantener via diferentes programas los productos que tienen en la maestra iptb00002
+                  el campo desglose = 'S'
+
+  DESARROLLADO  : Ing. Juan Francisco Soto
+  FECHA         : Junio 14, 2023  
+}
+
+FUNCTION desglose()
+    OPEN WINDOW w1 WITH FORM "ipfmwd015" 
+
+
+    CLOSE WINDOW w1
+
+END FUNCTION

PROYECTO/ipdir/devoluciones.sql

@@ -0,0 +1,41 @@
+
+  INSERT INTO analisis
+    SELECT b.cod_cia,' ', d.factura,d.orden,d.fecha_factura,m.nom1_emp,d.tipo_cliente,d.sec_cliente,j.nombre,
+           b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,
+           B.nomenclatura,x1.producto,x2.descripcion,' ', 
+           b.descrip_esp,b.unidad_med, x3.descripcion,
+           x.descrip,y.nombre_provincia,'1','TIPO NEGOCIO',
+           f.cantidad,f.cantidad*f.precio,'0','0','0',
+           ' ',
+           '0','0','0','0','0','0','0','0',(f.precio*x4.cantidad_2*-1),'0','0','0','0',
+           p.ano,p.mes,'0','0','0','0','0','0','0','0','0','0','0'
+     FROM  iptb00002 b,vetb00002 d,vetb00003 f,OUTER iptb00024 x2,
+           vetb00004 j,prdtable p,adtb00003 m,vetb00008 x,OUTER vetb00020 y,OUTER vetb00009 z,vetb00059 x3,iptb00020 x1,
+           iptb00006 x4
+     WHERE 
+           (b.cod_n = f.cod_n and b.cod_grupo = f.cod_grupo and b.cod_tipo = f.cod_tipo and 
+           b.cod_sec = f.cod_sec) AND
+           (b.cod_n = x4.cod_n and b.cod_grupo = x4.cod_grupo and b.cod_tipo = x4.cod_tipo and 
+           b.cod_sec = x4.cod_sec) AND  
+           x4.cod_mov in (12,13) AND
+           d.factura = x4.fact_no AND
+           b.cod_tipo = x2.cod_tipo and
+           b.cod_n = x2.cod_n AND
+           p.ano = pano and # p.mes = pmes AND 
+           x1.cod_n = b.cod_n AND
+           j.cod_zona = x.cod_zona AND
+           j.cod_provincia = y.cod_provincia AND
+           j.cod_zona = z.cod_zona AND
+           j.cod_provincia = z.cod_provincia AND
+           d.sec_vend = m.num_emp AND
+           X4.fecha between p.fecha_inicio AND p.fecha_corte AND d.factura = f.factura AND 
+           d.tipo_cliente = j.tipo_cliente and 
+           d.sec_cliente = j.sec_cliente and 
+           d.ventas = x3.ventas AND
+           f.status_t IS NULL AND 
+           (b.cod_n = f.cod_n and b.cod_grupo = f.cod_grupo and b.cod_tipo = f.cod_tipo and 
+           b.cod_sec = f.cod_sec) AND 
+           d.status_t IS NULL AND
+           x4.status_t IS NULL
+
+    

PROYECTO/ipdir/dynamic-tree.4gl

@@ -0,0 +1,80 @@
+# Property of Four Js*
+# (c) Copyright Four Js 1995, 2013. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# 
+# Four Js and its suppliers do not warrant or guarantee that these
+# samples are accurate and suitable for your purposes. Their inclusion is
+# purely for information purposes only.
+
+DEFINE tree DYNAMIC ARRAY OF RECORD
+    NAME STRING,
+    parentId STRING,
+    id STRING,
+    hasChildren BOOLEAN
+END RECORD
+
+MAIN
+    DEFINE id INTEGER
+    OPEN FORM f FROM arg_val(0)
+    DISPLAY FORM f
+
+    CALL expand(0)
+    DISPLAY ARRAY tree TO tree.* ATTRIBUTE(UNBUFFERED)
+    BEFORE DISPLAY CALL DIALOG.setSelectionMode("tree", 1)
+    ON EXPAND(id)
+        DISPLAY "expand id:", id, " arr_curr:", arr_curr()
+        CALL expand(id)
+    ON COLLAPSE(id)
+        DISPLAY "collapse id:", id, " arr_curr:", arr_curr()
+        CALL collapse(id)
+    END DISPLAY
+END MAIN
+
+FUNCTION collapseAll()
+    DEFINE p INT
+    LET p = 1
+    WHILE p < tree.getLength()
+        CALL collapse(p)
+        LET p = p + 1
+    END WHILE
+END FUNCTION
+
+FUNCTION collapse(p)
+    DEFINE p INT
+    DEFINE id STRING
+    LET id = tree[p].id
+    WHILE p < tree.getLength()
+        IF tree[p + 1].parentId <> id THEN EXIT WHILE END IF
+        CALL collapse(p + 1)
+        CALL tree.deleteElement(p + 1)
+    END WHILE
+END FUNCTION
+
+FUNCTION expand(p)
+    DEFINE NAME, id, parentId STRING
+    DEFINE p INT
+    DEFINE i INT
+
+    IF p == 0 THEN
+        LET parentId = 0
+        LET NAME = "Root"
+    ELSE
+        LET parentId = tree[p].id
+        LET NAME = "Node"
+    END IF
+
+    FOR i = 1 TO 4
+        LET p = p + 1
+        CALL tree.insertElement(p)
+        LET id = parentId || "." || i
+        LET tree[p].id = id
+        LET tree[p].parentId = parentId
+        LET tree[p].name = NAME || " " || i
+        IF i MOD 2 THEN
+            LET tree[p].hasChildren = TRUE
+        ELSE
+            LET tree[p].hasChildren = FALSE
+        END IF
+    END FOR
+END FUNCTION

PROYECTO/ipdir/dynamic-tree.per

@@ -0,0 +1,43 @@
+# Property of Four Js*
+# (c) Copyright Four Js 1995, 2013. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# 
+# Four Js and its suppliers do not warrant or guarantee that these
+# samples are accurate and suitable for your purposes. Their inclusion is
+# purely for information purposes only.
+
+LAYOUT 
+GRID
+{
+<Tree tree         >
+ Name
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+[name              ]
+}
+END 
+END
+
+ATTRIBUTES
+name = FORMONLY.name;
+PHANTOM FORMONLY.parentId;
+PHANTOM FORMONLY.id;
+PHANTOM FORMONLY.hasChildren;
+
+TREE tree: 
+    IMAGEEXPANDED  = "open", 
+    IMAGECOLLAPSED = "folder",
+    IMAGELEAF = "file",
+    ISNODECOLUMN = hasChildren;
+
+INSTRUCTIONS
+SCREEN RECORD tree(name, parentId, id, hasChildren)

PROYECTO/ipdir/edfmrp000.per

@@ -0,0 +1,36 @@
+{
+=============================================================================
+     Formulario       : edfmrp000
+     Objetivo         : Captura de valores para impresion de las entradas 
+                        de PRODUCTOS TERMINADOS
+     Programa         : edprrp000
+     Autor            : JUAN F. SOTO
+     Fecha            : FEBRERO 20, 1998.
+=============================================================================
+}
+database smarmotech
+screen size 24 by 80
+{
+
+ Entrada       [en            ]
+ Fecha Inicial [a       ]
+ Fecha Final   [b       ]
+ Codigo Mov.   [k ]
+ Afecta        [f]
+ Detalle       [dt                           ]
+}
+end
+tables
+iptb00006
+attributes
+en = formonly.entra type char,picture = "ED.##-###/####",comments
+     = "Digite la secuencia dentro del mes de la entrada de diario";
+dt = formonly.detalle,upshift;
+a  = formonly.fecha1 type date,format = "dd/mm/yy",
+     comments = "Digite Fecha Inicial para Rango de Entrada de Diario";
+f  = formonly.afecta type char,upshift,include=("S","N"),comments =
+     "Digite <S> En Caso de que Afecte Contabilidad, <N> En Caso Contrario";
+b  = formonly.fecha2 type date,format = "dd/mm/yy",
+     comments = "Digite Fecha Final para Rango de Entrada de Diario";
+k  = iptb00006.cod_mov;
+end

PROYECTO/ipdir/edprrp000.4gl

@@ -0,0 +1,740 @@
+{
+-------------------------------------------------------------------------------
+PROGRAMA             :  EDPRRP000
+OBJETIVO             :  Listar las Entrada de Diario PRODUCTOS TERMINADOS
+PROGRAMADOR          :  JUAN F. SOTO
+FECHA REALIZACION    :  FEBRERO 20, 1998.
+-------------------------------------------------------------------------------
+}
+DATABASE marmotech
+GLOBALS 
+
+    DEFINE salir CHAR(1)
+    DEFINE select_ac,select_ant,select_p CHAR(1000)
+    DEFINE l,idx_ac,ano,idx_a,idx_c SMALLINT
+    DEFINE ano_act,c_ano CHAR(4)
+    DEFINE fecha_2 CHAR(8)
+    DEFINE fecha_ini_per CHAR(8),
+           p_compania RECORD LIKE companias.*,
+           criterio CHAR(100)
+
+###### Variables para busqueda de rango de fecha
+
+DEFINE detalle CHAR(30)
+DEFINE mes    SMALLINT 
+DEFINE tasa DECIMAL(5,2) 
+DEFINE p_fecha,fecha1, fecha2 DATE  
+DEFINE nominas CHAR(1)
+DEFINE entra  CHAR(14)
+DEFINE entra1 CHAR(9)
+DEFINE tipo_papel SMALLINT
+DEFINE afecta CHAR(1)
+DEFINE mano_ob,material,material6,gastos DECIMAL(12,2)
+
+###### Variables para almacenar los datos selecionados
+DEFINE selec5, selec6 CHAR(1500) 
+
+###### Variables que la almacenan la informacion enviada al reporte
+
+DEFINE acumulado RECORD
+           cod_mov      LIKE iptb00006.cod_mov,
+           cod_cia      LIKE iptb00006.cod_cia,
+           cod_n        LIKE iptb00002.cod_n,
+           cod_grupo    LIKE iptb00002.cod_grupo,
+           cod_tipo     LIKE iptb00002.cod_tipo,
+           cod_sec      LIKE iptb00002.cod_sec,
+           descrip_esp  LIKE iptb00002.descrip_esp,
+           unidad_med   LIKE iptb00002.unidad_med,
+           descrip_mov  LIKE intb00005.descrip_mov,
+           consumo      LIKE iptb00006.cantidad_2,
+           material     LIKE iptb00004.material,
+           labor        LIKE iptb00004.labor,
+           gastos    LIKE iptb00004.gastos,
+           cmaterial    LIKE iptb00005.cuenta_1,
+           clabor       LIKE iptb00005.cuenta_2,
+           cgastos      LIKE iptb00005.cuenta_3,
+           cuenta_cia   LIKE iptb00022.cuenta_no,
+           nombre_cia   LIKE iptb00022.descripcion,
+           departamento LIKE iptb00022.departamento 
+    END RECORD
+
+DEFINE diario2 RECORD 
+       cod_n        SMALLINT,
+       cod_grupo    SMALLINT,
+       cod_tipo     SMALLINT,
+       cod_sec      SMALLINT,
+       costo        DECIMAL(12,2)
+END RECORD
+DEFINE salir1 CHAR(1)
+DEFINE idx INTEGER
+END GLOBALS
+
+MAIN
+ DEFER INTERRUPT
+ CALL edprrp506()
+END MAIN
+
+FUNCTION edprrp506()
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+##### Abriendo y desplegando el formulario de captura de datos
+
+    OPEN FORM edfmrp000 FROM "edfmrp000"
+    DISPLAY FORM edfmrp000
+    CALL pantalla()
+    DISPLAY "edprrp506" AT 4,3
+    DISPLAY "Entrada de Diario de Costos Prod  " AT 6,22
+
+    LET tipo_papel = 1
+    CALL msgrp000(tipo_papel)
+
+ ###### Aceptando los valores para el rango de fecha
+
+  INPUT BY NAME entra,fecha1,fecha2,afecta,detalle
+
+        AFTER FIELD entra  
+           SELECT unique ref FROM cgtb00004
+           WHERE ref = entra
+
+            IF STATUS != NOTFOUND THEN
+               ERROR "(12) REGISTRO EXISTE"
+              NEXT FIELD entra
+            END IF
+
+            LET entra1 = entra
+
+  BEFORE FIELD fecha1
+           SELECT MAX(fecha) INTO p_fecha FROM cgtb00004 
+           WHERE ref = entra1
+           LET fecha1 = p_fecha + 1
+
+           DISPLAY BY NAME fecha1
+
+        AFTER FIELD fecha1
+          IF fecha1 IS NULL THEN
+           ERROR "(16) CAMPO EN BLANCO"
+           NEXT FIELD fecha1
+          END IF    
+
+         IF fecha1 <= p_fecha THEN
+            ERROR "(179) EXISTE ENTRADA DE DIARIO CON ESA FECHA"
+           NEXT FIELD fecha1
+         END IF
+
+        AFTER FIELD fecha2 
+           IF fecha2 is null THEN  
+             ERROR "(16) CAMPO EN BLANCO"
+             NEXT FIELD fecha2
+           END IF
+
+         IF fecha1 > fecha2 THEN
+            ERROR "(149) FECHA NO PUEDE SER MAYOR QUE LA ANTERIOR"
+            NEXT FIELD fecha1
+         END IF
+    
+  ###### Selecionando en rango de fecha de la tabla de periodo para el fecha2
+
+      SELECT UNIQUE ref FROM cgtb00004 where ref = entra    
+
+      IF STATUS != NOTFOUND THEN
+         ERROR "(12) REGISTRO EXISTE"
+         NEXT FIELD fecha2
+      END IF
+
+ END INPUT 
+##### Creando la facilidad para cancelar proceso con DELETE O SUPR
+
+              IF int_flag THEN
+                 ERROR "(2) OPERACION CANCELADA"
+                 LET int_flag = false
+                 RETURN
+              END IF
+        CONSTRUCT BY NAME criterio ON a.cod_mov
+              IF int_flag THEN
+                 ERROR "(2) OPERACION CANCELADA"
+                 LET int_flag = false
+                 RETURN
+              END IF
+# Busca la informacion requerida
+
+    DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
+            ATTRIBUTE (REVERSE,BOLD)
+
+   LET select_ac  = 
+     "SELECT a.cod_mov,c.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
+     "   c.descrip_esp,c.unidad_med,d.descrip_mov,SUM(a.cantidad_2), ",
+     "   MAX(b.material),MAX(b.labor),Max(b.gastos),d.cuenta_1, ",
+     "   d.cuenta_2,d.cuenta_3,e.cuenta_no,e.descripcion,e.departamento ",
+     "FROM iptb00006 a,iptb00002 c,iptb00005 d, iptb00022 e,OUTER iptb00004 b ",
+     "WHERE a.fecha between ? and ? and a.status_t is NULL AND ",
+     "      b.ano = YEAR(?) AND ",
+     "      b.mes_fin = 12 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.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND ",
+     "      a.cod_tipo=c.cod_tipo AND a.cod_sec = c.cod_sec AND ",
+     "      a.cod_mov = d.cod_mov AND b.ventas = 1 ",
+     " AND  c.cod_cia = e.cod_cia AND ",criterio CLIPPED,
+     "GROUP BY a.cod_mov,c.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
+     "   c.descrip_esp,c.unidad_med,d.descrip_mov, .cuenta_1, ",
+     "   d.cuenta_2,d.cuenta_3,e.cuenta_no,e.descripcion,e.departamento "
+
+  PREPARE busca_ant FROM select_ac 
+  DECLARE actual SCROLL CURSOR FOR busca_ant
+  OPEN actual USING fecha1,fecha2,fecha2
+
+    DISPLAY "                                                "
+            AT 19,14 
+
+  ##### Envia la Informacion al printer de contabilidad
+
+##### Loop para enviar informacion al reporte
+
+   START REPORT opera TO "C:\\archivo"
+   START REPORT xentrada TO "C:\\archivo1"
+
+   DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
+   AT 19,14 ATTRIBUTE (REVERSE) 
+
+WHILE status != notfound
+    FETCH  actual INTO acumulado.* 
+       IF STATUS = NOTFOUND THEN
+          EXIT WHILE  
+       END IF
+
+     IF int_flag THEN
+      LET int_flag = false
+      RETURN 
+     END IF
+
+     OUTPUT TO REPORT opera(acumulado.*,fecha1,fecha2,entra,detalle)
+     OUTPUT TO REPORT xentrada(acumulado.*,fecha1,fecha2,entra,detalle)
+ END WHILE  
+FINISH REPORT opera
+FINISH REPORT xentrada
+    
+RUN "type C:\\archivo1 > %USPRINT%" 
+RUN "type C:\\archivo > %USPRINT%" 
+END FUNCTION
+
+#### Funcion para dar salida ordenada a la informacion requerida de
+#### una entrada de diario de nominas local
+
+{
+  Esta funcion se utiliza para desplegar mensajes de los reportes de 
+  los sistemas de Ray-O-Vac Dominicana. 
+
+  Realizada por Lic. Abner Montalvo y Johnny Soto         Agosto 21, 1992 
+}
+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     <Supr> Cancela impresion" 
+                 AT 18,14 
+
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    SELECT * INTO p_compania.*
+    FROM companias
+    LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+    DISPLAY p_compania.nombre CLIPPED AT 4,l
+            ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (BLUE)
+    DISPLAY "Sistema de Contabilidad General" AT 5,24
+    DISPLAY hora AT 6,73 ATTRIBUTE(BLUE)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION
+
+  REPORT opera(x,fecha1,fecha2,entrada,detalle1)
+       DEFINE x RECORD
+          cod_mov     LIKE iptb00006.cod_mov,
+          cod_cia      LIKE iptb00006.cod_cia,
+          cod_n       LIKE iptb00002.cod_n,
+          cod_grupo   LIKE iptb00002.cod_grupo,
+          cod_tipo    LIKE iptb00002.cod_tipo,
+          cod_sec     LIKE iptb00002.cod_sec,
+          descrip_esp LIKE iptb00002.descrip_esp,
+          unidad_med  LIKE iptb00002.unidad_med,
+          descrip_mov  LIKE intb00005.descrip_mov,
+          consumo      LIKE iptb00006.cantidad_2,
+          material     LIKE iptb00004.material,
+          labor        LIKE iptb00004.labor,
+          gastos       LIKE iptb00004.gastos,
+          cmaterial    LIKE iptb00005.cuenta_1,
+          clabor       LIKE iptb00005.cuenta_2,
+          cgastos      LIKE iptb00005.cuenta_3,
+          cuenta_cia   LIKE iptb00022.cuenta_no,
+          nombre_cia   LIKE iptb00022.descripcion,
+          departamento LIKE iptb00022.departamento 
+       END RECORD
+
+    DEFINE fecha1,fecha2 DATE
+    DEFINE l SMALLINT
+    DEFINE c_ano1 char(4)
+    DEFINE doble_on CHAR(3)
+    DEFINE doble_off CHAR(3)
+    DEFINE negrillas_on CHAR(6)
+    DEFINE negrillas_off CHAR(6)
+    DEFINE comp_on CHAR(3)
+    DEFINE comp_off CHAR(3) 
+    DEFINE doce CHAR(3)
+    DEFINE normal CHAR(2) 
+    DEFINE hora CHAR(5)
+    DEFINE total_p DECIMAL(12,3)
+
+    DEFINE total_material,total_labor,total_gastos,t_t_total,t_t_t_total,
+           t_total_material,t_total_labor,t_total_gastos,t_cantidad
+    DECIMAL (12,2)
+
+   DEFINE ttotal_material,ttotal_labor,ttotal_gastos,tt_t_total,tt_t_t_total,
+           tt_total_material,tt_total_labor,tt_total_gastos,tt_cantidad
+    DECIMAL (12,2)
+    DEFINE total1,material2,material1,mano_ob1,gasto1,mano_ob2,gasto2
+           DECIMAL(12,2)
+    DEFINE entrada CHAR(14)
+    DEFINE detalle1 CHAR(30)
+
+    OUTPUT
+     TOP MARGIN 0
+      LEFT MARGIN 0
+      BOTTOM MARGIN 2
+
+    ORDER BY x.cod_cia,x.cod_mov,x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec
+
+    FORMAT
+
+      PAGE HEADER
+
+        LET doble_on =  ASCII 14
+        LET doble_off = ASCII 20
+        LET negrillas_on = ASCII 27, ASCII 69
+        LET negrillas_off = ASCII 27, ASCII 70
+        LET comp_on = ASCII 15
+        LET comp_off = ASCII 18
+        LET hora = time
+           LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
+           PRINT COLUMN   1, comp_off,"edprrp506",
+                 COLUMN  l, p_compania.nombre CLIPPED,
+                 COLUMN 75, "Pag. ",pageno using "###"
+           LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
+           PRINT COLUMN l, "Sistema de Entradas Al Diario",
+                 COLUMN 75, today using "dd/mm/yy"
+
+{
+           LET l = (80 - LENGTH(x.descrip_mov CLIPPED)) / 2
+           PRINT COLUMN l, x.descrip_mov CLIPPED,}
+           PRINT COLUMN 78, hora
+
+           PRINT COLUMN 28, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
+                            USING "dd/mm/yy"
+           PRINT comp_on
+           SKIP 1 LINES
+           BEFORE GROUP OF x.cod_cia
+              PRINT COLUMN 1,x.nombre_cia
+
+
+           PRINT COLUMN 1, "--------------------------------------------------",
+                           "--------------------------------------------------",
+                           "----------------------------------------"
+
+           PRINT COLUMN 109,  "Gasto",
+                 COLUMN 136, "Costo"
+
+           PRINT COLUMN 4, "Movimiento",
+                 COLUMN 49, "Cantidad",
+                 3 spaces,  "Material",
+                 4 spaces,  "Total",
+                 9 spaces,  "Labor",
+                 4 spaces,  "Total",
+                 6  spaces,   "Indirecto",
+                 4  spaces,   "Total",
+                 9  spaces,   "Total"
+
+           PRINT COLUMN 1, "--------------------------------------------------",
+                           "--------------------------------------------------",
+                           "----------------------------------------"
+           BEFORE GROUP OF x.cod_mov
+        LET t_cantidad = 0
+        LET t_t_t_total = 0
+        LET total_material = 0
+        LET total_labor    = 0
+        LET total_gastos = 0
+        LET t_total_material = 0
+        LET t_total_labor    = 0
+        LET t_total_gastos = 0
+        LET t_t_total = 0
+
+           PRINT COLUMN 1, x.cod_mov using "&&",
+                 COLUMN 7, x.descrip_mov
+           SKIP 1 LINE
+           PRINT COLUMN 4, "Productos    "
+
+      BEFORE GROUP OF x.cod_n  
+       SKIP 1 LINE 
+        LET tt_cantidad = 0
+        LET tt_t_t_total = 0
+        LET ttotal_material = 0
+        LET ttotal_labor    = 0
+        LET ttotal_gastos = 0
+        LET tt_total_material = 0
+        LET tt_total_labor    = 0
+        LET tt_total_gastos = 0
+        LET tt_t_total = 0
+
+      ON EVERY ROW
+
+      IF x.consumo  IS NOT NULL THEN
+
+        LET t_cantidad = t_cantidad + x.consumo
+        LET total_material = x.material * x.consumo 
+        LET total_labor    = x.labor    * x.consumo 
+        LET total_gastos = x.gastos * x.consumo 
+        LET t_t_total = total_material + total_labor + total_gastos
+        LET t_t_t_total = t_t_total + t_t_t_total
+
+        LET tt_cantidad = tt_cantidad + x.consumo
+        LET ttotal_material = x.material * x.consumo 
+        LET ttotal_labor    = x.labor    * x.consumo 
+        LET ttotal_gastos = x.gastos * x.consumo 
+        LET tt_t_total = ttotal_material + total_labor + total_gastos
+        LET tt_t_t_total = tt_t_total + tt_t_t_total
+
+        LET t_total_material = t_total_material + total_material
+        LET t_total_labor    = t_total_labor    + total_labor   
+        LET t_total_gastos = t_total_gastos + total_gastos
+
+        LET tt_total_material = tt_total_material + ttotal_material 
+        LET tt_total_labor    = tt_total_labor    + ttotal_labor   
+        LET tt_total_gastos = tt_total_gastos + ttotal_gastos
+
+         PRINT COLUMN 1, x.cod_n USING "&","-", 
+               COLUMN 3,  x.cod_grupo USING "&","-", 
+               COLUMN 5, x.cod_tipo USING "&&","-", 
+               COLUMN 8, x.cod_sec USING "&&&", 
+               COLUMN 13, x.descrip_esp," ", 2 spaces,   
+               COLUMN 42, x.consumo USING "###,###.###", 
+               COLUMN 53, x.material USING "#,###.#####",
+               COLUMN 69, total_material using "##,###,###.##",
+               COLUMN 86, x.labor using "###.#####",
+               COLUMN 96, total_labor using "#,###,###.##",
+               COLUMN 109, x.gastos using "###.#####",
+               COLUMN 116, total_gastos using "#,###,###.##",
+               COLUMN 121, t_t_total using "##,###,###.##"
+           END IF 
+
+     AFTER GROUP OF x.cod_n  
+        LET ttotal_material = GROUP SUM(x.material*x.consumo) 
+        LET ttotal_labor    = GROUP SUM(x.labor*x.consumo) 
+        LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo) 
+
+      PRINT  COLUMN 42,  "--------------",
+             COLUMN 69,  "--------------",
+             COLUMN 96,  "----------",
+             COLUMN 116, "-------------",
+             COLUMN 121, "-------------"
+               
+       PRINT negrillas_on
+       PRINT COLUMN 3,  "Total ---->",
+             COLUMN 42,  GROUP SUM(x.consumo) using "###,###,###.###",
+             COLUMN 69,  ttotal_material USING "###,###,###.###",
+             COLUMN 96,  ttotal_labor USING "###,###.###",
+             COLUMN 116, ttotal_gastos USING "##,###,###.###",
+             COLUMN 121, ttotal_material+ttotal_labor+
+                         ttotal_gastos using "##,###,###.###"
+        PRINT negrillas_off
+
+    AFTER GROUP OF x.cod_cia
+        LET ttotal_material = GROUP SUM(x.material*x.consumo) 
+        LET ttotal_labor    = GROUP SUM(x.labor*x.consumo) 
+        LET ttotal_gastos = GROUP SUM(x.gastos*x.consumo) 
+
+      PRINT  COLUMN 42,  "--------------",
+             COLUMN 69,  "--------------",
+             COLUMN 96,  "----------",
+             COLUMN 116, "-------------",
+             COLUMN 121, "-------------"
+               
+       PRINT negrillas_on
+       PRINT COLUMN 3,  "Total ",x.nombre_cia CLIPPED,"---->",
+             COLUMN 42,  GROUP SUM(x.consumo) using "###,###,###.###",
+             COLUMN 69,  ttotal_material USING "###,###,###.###",
+             COLUMN 96,  ttotal_labor USING "###,###.###",
+             COLUMN 116, ttotal_gastos USING "##,###,###.###",
+             COLUMN 121, ttotal_material+ttotal_labor+
+                         ttotal_gastos using "##,###,###.###"
+        PRINT negrillas_off
+
+        SKIP TO TOP OF PAGE
+ END REPORT
+
+ REPORT xentrada(x,fecha1,fecha2,entrada,detalle1)
+ DEFINE x RECORD
+          cod_mov     LIKE iptb00006.cod_mov,
+          cod_cia      LIKE iptb00006.cod_cia,
+          cod_n       LIKE iptb00002.cod_n,
+          cod_grupo   LIKE iptb00002.cod_grupo,
+          cod_tipo    LIKE iptb00002.cod_tipo,
+          cod_sec     LIKE iptb00002.cod_sec,
+          descrip_esp LIKE iptb00002.descrip_esp,
+          unidad_med  LIKE iptb00002.unidad_med,
+          descrip_mov  LIKE intb00005.descrip_mov,
+          consumo      LIKE iptb00006.cantidad_2,
+          material     LIKE iptb00004.material,
+          labor        LIKE iptb00004.labor,
+          gastos    LIKE iptb00004.gastos,
+          cmaterial   LIKE iptb00005.cuenta_1,
+          clabor       LIKE iptb00005.cuenta_2,
+          cgastos      LIKE iptb00005.cuenta_3,
+          cuenta_cia   LIKE iptb00022.cuenta_no,
+          nombre_cia   LIKE iptb00022.descripcion,
+          departamento LIKE iptb00022.departamento
+       END RECORD, 
+           fecha1,fecha2 DATE,
+           nombre_cta CHAR(30)
+
+       DEFINE doble_on CHAR(3)
+       DEFINE doble_off CHAR(3)
+       DEFINE negrillas_on CHAR(6)
+       DEFINE negrillas_off CHAR(6)
+       DEFINE comp_on CHAR(3)
+       DEFINE comp_off CHAR(3) 
+       DEFINE doce CHAR(3),
+              total_m,total_l,total_g,credito,debito,total_cia DECIMAL(12,4),
+              p_cuenta CHAR(8),
+              hora CHAR(5),
+              entrada CHAR(14),
+              detalle1 CHAR(50)
+
+OUTPUT
+  TOP MARGIN 0
+  LEFT MARGIN 0
+  BOTTOM MARGIN 2
+ORDER BY x.cod_cia,x.cod_mov
+
+FORMAT
+ PAGE HEADER
+        LET doble_on =  ASCII 14
+        LET doble_off = ASCII 20
+        LET negrillas_on = ASCII 27, ASCII 69
+        LET negrillas_off = ASCII 27, ASCII 70
+        LET comp_on = ASCII 15
+        LET comp_off = ASCII 18
+        LET hora = time
+           LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
+           PRINT COLUMN   1, comp_off,"edprrp000",
+                 COLUMN  l, p_compania.nombre CLIPPED,
+                 COLUMN 75, "Pag. ",pageno using "###"
+           LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
+           PRINT COLUMN l, "Sistema de Entradas Al Diario",
+                 COLUMN 75, today using "dd/mm/yy"
+
+           LET l = (80 - LENGTH(x.descrip_mov CLIPPED)) / 2
+           PRINT COLUMN l, x.descrip_mov CLIPPED,
+                 COLUMN 78, hora
+
+           PRINT COLUMN 28, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
+           PRINT comp_off
+
+           PRINT COLUMN 01,"Entrada de Diario No.",
+                            doble_on,entrada,doble_off 
+
+           PRINT COLUMN 1,"Observaciones: _____________________________________"
+           PRINT COLUMN 1,"               _____________________________________"
+
+           PRINT COLUMN 1, 
+                   "--------------------------------------------------",
+                   "----------------------------------------",
+                    negrillas_on 
+
+             PRINT COLUMN   2, "Cuenta ",
+                   COLUMN  11, "Dpto", 
+                   COLUMN  18, "Concepto", 
+                   COLUMN  50, "Debe", 
+                   COLUMN  71, "Haber",negrillas_off 
+
+             PRINT COLUMN 1, 
+                   "--------------------------------------------------",
+                   "----------------------------------------"
+
+   AFTER GROUP OF x.cod_cia
+                IF credito IS NULL THEN
+                   LET credito = 0
+                END IF
+                IF debito IS NULL THEN
+                   LET debito = 0
+                END IF
+                   LET total_cia = GROUP SUM (x.material*x.consumo)
+                   LET total_cia = total_cia + GROUP SUM (x.labor*x.consumo)
+                   LET total_cia = total_cia + GROUP SUM (x.gastos*x.consumo)
+                   LET debito = debito + total_cia
+                   SELECT a.descripcion INTO nombre_cta
+                   FROM cgtb00001 a
+                   WHERE a.cuenta_no = x.cuenta_cia
+                   LET p_cuenta = x.cuenta_cia
+                   PRINT COLUMN   2, p_cuenta,
+                         COLUMN  10, x.departamento USING "<<<<",
+                         COLUMN  18, nombre_cta CLIPPED;
+                    IF total_cia < 0 THEN
+                       PRINT COLUMN  65, total_cia using "###,###,##&.&&" 
+                    ELSE
+                       PRINT COLUMN  50, total_cia using "###,###,##&.&&" 
+                    END IF
+                IF afecta = "S" THEN
+                   IF total_cia < 0 THEN
+                      LET total_cia = total_cia * - 1
+                      INSERT INTO cgtb00004 VALUES
+                          (fecha2,1,entrada,p_cuenta,x.departamento,null,null,
+                           null,null,detalle1,null,0,total_cia,null,user,
+                           current,null,null)
+                   ELSE  
+                   INSERT INTO cgtb00004 VALUES
+                          (fecha2,1,entrada,p_cuenta,x.departamento,null,null,
+                           null,null,detalle1,null,total_cia,0,null,user,
+                           current,null,null)
+                   END IF
+                  END IF
+#------------------------------------------------------------------------
+#   MOVIMIENTOS CON CUENTAS QUE SU VALOR VAN DEL LADO DEBITO
+#------------------------------------------------------------------------
+                   LET total_m = GROUP SUM (x.material*x.consumo)
+                   LET credito = total_m + credito
+                   IF total_m != 0 THEN
+                      SELECT a.descripcion INTO nombre_cta
+                      FROM cgtb00001 a
+                      WHERE a.cuenta_no = x.cmaterial
+                      LET p_cuenta = x.cmaterial
+                      PRINT COLUMN   2, p_cuenta,
+                            COLUMN  10, x.departamento USING "<<<<",
+                            COLUMN  18, nombre_cta CLIPPED;
+                      IF total_m < 0 THEN
+                         PRINT COLUMN  50, total_m using "###,###,##&.&&" 
+                      ELSE
+                         PRINT COLUMN  65, total_m using "###,###,##&.&&" 
+                      END IF
+                      IF afecta = "S" THEN
+                         IF total_m < 0 THEN
+                            LET total_m = total_m * -1
+                            INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,
+                              null,null,null,null,detalle1,null,total_m,0,
+                              null,user,current,null,null)
+                          ELSE
+                            INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,
+                              null,null,null,null,detalle1,null,0,total_m,
+                              null,user,current,null,null)
+                      END IF
+                    END IF
+                  END IF
+                   LET total_l =  GROUP SUM (x.labor*x.consumo)
+                   IF total_l != 0 THEN
+                      SELECT a.descripcion INTO nombre_cta
+                      FROM cgtb00001 a
+                      WHERE a.cuenta_no = x.clabor
+
+                      LET credito = credito + total_l
+                      LET p_cuenta = x.clabor   
+                      PRINT COLUMN   2, p_cuenta,
+                            COLUMN  10, x.departamento USING "<<<<",
+                            COLUMN  18, nombre_cta CLIPPED;
+                      IF total_l < 0 THEN
+                         PRINT COLUMN  50, total_l USING "###,###,##&.&&"
+                      ELSE
+                         PRINT COLUMN  65, total_l USING "###,###,##&.&&"
+                      END IF
+                   IF afecta = "S" THEN
+                      IF total_l < 0 THEN
+                         LET total_l = total_l * -1
+                         INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,null,
+                              null,
+                              null,null,detalle1,null,total_l,0,null,user,
+                              current,null,null)
+                       ELSE
+                         INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,null,
+                              null,
+                              null,null,detalle1,null,0,total_l,null,user,
+                              current,null,null)
+                   END IF
+                 END IF
+               END IF
+                   LET total_g =  GROUP SUM (x.gastos*x.consumo)
+                   IF total_g != 0 THEN
+                      SELECT a.descripcion INTO nombre_cta
+                      FROM cgtb00001 a
+                      WHERE a.cuenta_no = x.cgastos
+
+                      LET credito = credito + total_g
+                      LET p_cuenta = x.cgastos
+                      PRINT COLUMN   2, p_cuenta,
+                            COLUMN  10, x.departamento USING "<<<<",
+                            COLUMN  18, nombre_cta CLIPPED;
+                       IF total_g < 0 THEN
+                          PRINT COLUMN  50, total_g USING "###,###,##&.&&"
+                       ELSE
+                          PRINT COLUMN  65, total_g USING "###,###,##&.&&"
+                       END IF
+                   IF afecta = "S" THEN
+                      IF total_g < 0 THEN
+                         LET total_g = total_g * -1
+                      INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,null,
+                              null,
+                              null,null,detalle1,null,total_g,0,null,user,
+                              current,null,null)
+                      ELSE
+                      INSERT INTO cgtb00004 VALUES
+                             (fecha2,1,entrada,p_cuenta,x.departamento,null,
+                              null,
+                              null,null,detalle1,null,0,total_g,null,user,
+                              current,null,null)
+                      END IF
+                   END IF
+                END IF
+     ON LAST ROW
+        SKIP 1 LINE
+         PRINT COLUMN 1,negrillas_on
+         PRINT COLUMN 50,"--------------",
+               COLUMN 65,"--------------"
+         PRINT COLUMN 35,"Totales-->",
+               COLUMN 50,debito USING "###,###,##&.&&",
+               COLUMN 65,credito USING "###,###,##&.&&",negrillas_off
+
+         SKIP 2 LINE
+         PRINT COLUMN  1, detalle1
+         SKIP 8 LINE
+         PRINT COLUMN 10,"--------------",
+               COLUMN 35,"--------------",
+               COLUMN 60,"--------------"
+         PRINT COLUMN 10,"PREPARADO POR ",
+               COLUMN 35," REVISADO POR ",
+               COLUMN 60,"AUTORIZADO POR"
+         PRINT COLUMN 1,comp_off,negrillas_off
+
+   END REPORT

PROYECTO/ipdir/estadosprocesos.4gl

@@ -0,0 +1,21 @@
+FUNCTION estadosprocesos(idopcion)
+ DEFINE estado ui.ComboBox,
+        id,idopcion SMALLINT,
+        ddescripcion CHAR(50)
+
+ IF idopcion = 1 THEN       
+    LET  estado = ui.ComboBox.forName("formonly.idestado")  
+ ELSE
+   LET  estado = ui.ComboBox.forName("formonly.idestado1")  
+ END IF
+ CALL estado.clear()
+
+ DECLARE busca CURSOR FOR
+   SELECT a.idestado,a.descripcion FROM iptb00061 a
+   ORDER BY a.descripcion
+   FOREACH busca INTO id,ddescripcion
+     CALL estado.addItem(id,ddescripcion)
+   END FOREACH
+
+ 
+END FUNCTION

PROYECTO/ipdir/estadosprocesos_1.4gl

@@ -0,0 +1,21 @@
+FUNCTION estadosprocesos(idopcion)
+ DEFINE estado ui.ComboBox,
+        id,idopcion SMALLINT,
+        ddescripcion CHAR(50)
+
+ IF idopcion = 1 THEN       
+    LET  estado = ui.ComboBox.forName("formonly.idestado")  
+ ELSE
+   LET  estado = ui.ComboBox.forName("formonly.idestado1")  
+ END IF
+ CALL estado.clear()
+
+ DECLARE busca CURSOR FOR
+   SELECT a.idestado,a.descripcion FROM iptb00061 a
+   ORDER BY a.descripcion
+   FOREACH busca INTO id,ddescripcion
+     CALL estado.addItem(id,ddescripcion)
+   END FOREACH
+
+ 
+END FUNCTION

PROYECTO/ipdir/f

@@ -0,0 +1,25 @@
+
+
+FUNCTION busca_cliente()
+LET int_flag = FALSE
+  
+OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009" 
+ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
+CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre
+
+LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre FROM vetb00004 a ",
+             "WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"
+
+PREPARE comando3 FROM selec 
+DECLARE comp3 CURSOR FOR comando3
+
+LET idx = 1
+FOREACH comp3 INTO clientes[idx].*
+ LET idx = idx + 1
+END FOREACH
+CALL SET_COUNT(idx - 1)
+
+DISPLAY ARRAY clientes TO s_cliente.*
+LET idx = ARR_CURR()
+CLOSE WINDOW cliente
+END FUNCTION

PROYECTO/ipdir/imprequisiciones.4gl

@@ -0,0 +1,85 @@
+GLOBALS "ipprgb000.4gl"
+  DEFINE xcodigo VARCHAR(50)
+
+FUNCTION impdocumento(numeroid,codmov)
+   DEFINE numeroid,codmov INT
+
+    CALL buscadoc(numeroid,codmov) RETURNING p_iptb57.*,arr_iptb58
+    
+    LET r_filename = "ipprmt020.4rp"
+    iF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
+    
+         LET r_output="PDF"
+         LET preview=1
+         CALL fgl_report_selectDevice(r_output)                          -- changing default
+         CALL fgl_report_selectPreview(preview)                          -- changing default
+         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
+  ELSE 
+     RETURN
+   END IF
+   START REPORT requiere TO XML HANDLER HANDLER
+   
+   FOR idx = 1 TO arr_iptb58.getLength()
+       IF arr_iptb58[idx].cod_Sec IS NOT NULL THEN
+           LET xcodigo =arr_iptb58[idx].cod_n USING '&&&&&','-',
+                         arr_iptb58[idx].cod_grupo USING '&&&&&','-',
+                         arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
+                         arr_iptb58[idx].cod_sec USING '&&&&&&&'
+                         
+           OUTPUT TO REPORT requiere(arr_iptb58[idx].*,despiece[idx].*, xcodigo)
+         
+       END IF
+       
+   END FOR
+   FINISH REPORT requiere
+   LET tienedespiece = FALSE
+END FUNCTION
+
+REPORT requiere(detalle,xdespiece,codigo)
+  DEFINE hora STRING,
+    detalle RECORD
+             area        INT,
+             cod_n,cod_grupo,cod_tipo,cod_sec INT,
+             descripcion VARCHAR(100),
+             unidad_med VARCHAR(4),
+             cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)       
+    END RECORD,
+      xdespiece RECORD
+        id_etiqueta   SMALLINT,
+        cod_n         SMALLINT,
+        cod_grupo     SMALLINT,
+        cod_tipo      SMALLINT,
+        cod_sec       SMALLINT,
+        lado_1        DEC(12,5),
+        lado_2        DEC(12,5),
+        lado_3        DEC(12,5),
+        cantidad      DEC(12,5),
+        medida        DEC(12,5),
+        secuencia,id_despiece     INT,
+        bodega       SMALLINT
+        
+    END RECORD,
+    codigo VARCHAR(50),
+    
+    x INT,
+    etiqueta VARCHAR(100)
+    
+    ORDER BY codigo
+  FORMAT
+   FIRST PAGE HEADER
+       SELECT a.nombre INTO p_companias.nombre FROM companias a
+       LET hora = CURRENT 
+       PRINTX hora,p_companias.nombre              
+    BEFORE GROUP OF codigo
+       PRINTX detalle.*,p_iptb57.*,
+              nombreMov,nombreBodega,nombreBodegaDestino,nombreUsuario
+     
+   ON EVERY ROW
+                SELECT a.descripcion INTO etiqueta FROM vetb00026 a
+                WHERE a.codid = xdespiece.id_etiqueta
+
+          
+                LET total_cantidad = total_cantidad + xdespiece.cantidad
+               
+                PRINTX codigo,xdespiece.*,tienedespiece,etiqueta,total_cantidad,total_medida
+END REPORT

PROYECTO/ipdir/inetsrv/iisdump.dll

@@ -0,0 +1,859 @@
+#!/bin/sh
+#
+# OpenSSL config: determine the operating system and run ./Configure
+#
+# "config -h" for usage information.
+#
+#          this is a merge of minarch and GuessOS from the Apache Group.
+#          Originally written by Tim Hudson <tjh@cryptsoft.com>.
+#
+# Original Apache Group comments on GuessOS
+#
+# Simple OS/Platform guesser. Similar to config.guess but
+# much, much smaller. Since it was developed for use with
+# Apache, it follows under Apache's regular licensing
+# with one specific addition: Any changes or additions
+# to this script should be Emailed to the Apache
+# group (apache@apache.org) in general and to
+# Jim Jagielski (jim@jaguNET.com) in specific.
+#
+# Be as similar to the output of config.guess/config.sub
+# as possible.
+#
+#PREFIX=""
+#SUFFIX=""
+#TEST="false"
+#
+# pick up any command line args to config
+#for i
+#do
+#case "$i" in 
+#-d*) PREFIX="debug-";;
+#-t*) TEST="true";;
+#-h*) TEST="true"; cat <<EOF
+#Usage: config [options]
+# -d	Add a debug- prefix to machine choice.
+# -t	Test mode, do not run the Configure perl script.
+# -h	This help.
+#
+#Any other text will be passed to the Configure perl script.
+#See INSTALL for instructions.
+#
+#EOF
+#;;
+#*) options=$options" $i" ;;
+#esac
+#done
+#
+# First get uname entries that we use below
+#
+#MACHINE=`(uname -m) 2>/dev/null` || MACHINE="unknown"
+#RELEASE=`(uname -r) 2>/dev/null` || RELEASE="unknown"
+#SYSTEM=`(uname -s) 2>/dev/null`  || SYSTEM="unknown"
+#VERSION=`(uname -v) 2>/dev/null` || VERSION="unknown"
+#
+#
+# Now test for ISC and SCO, since it is has a braindamaged uname.
+#
+# We need to work around FreeBSD 1.1.5.1 
+#(
+#XREL=`uname -X 2>/dev/null | grep "^Release" | awk '{print $3}'`
+#if [ "x$XREL" != "x" ]; then
+#    if [ -f /etc/kconfig ]; then
+#	case "$XREL" in
+#	    4.0|4.1)
+#		    echo "${MACHINE}-whatever-isc4"; exit 0
+#		;;
+#	esac
+#    else
+#	case "$XREL" in
+#	    3.2v4.2)
+#		echo "whatever-whatever-sco3"; exit 0
+#		;;
+#	    3.2v5.0*)
+#		echo "whatever-whatever-sco5"; exit 0
+#		;;
+#	    4.2MP)
+#		case "x${VERSION}" in
+#		    x2.0*) echo "whatever-whatever-unixware20"; exit 0 ;;
+#		    x2.1*) echo "whatever-whatever-unixware21"; exit 0 ;;
+#		    x2*)   echo "whatever-whatever-unixware2";  exit 0 ;;
+#		esac
+#		;;
+#	    4.2)
+#		echo "i386-whatever-unixware1"; exit 0
+#		;;
+#	    5)
+#		case "x${VERSION}" in
+#		    # We hardcode i586 in place of ${MACHINE} for the
+#		    # following reason. The catch is that even though Pentium
+#		    # is minimum requirement for platforms in question,
+#		    # ${MACHINE} gets always assigned to i386. Now, problem
+#		    # with i386 is that it makes ./config pass 386 to
+#		    # ./Configure, which in turn makes make generate
+#		    # inefficient SHA-1 (for this moment) code.
+#		    x7*)  echo "i586-sco-unixware7";           exit 0 ;;
+#		    x8*)  echo "i586-unkn-OpenUNIX${VERSION}"; exit 0 ;;
+#		esac
+#		;;
+#	esac
+#    fi
+#fi
+# Now we simply scan though... In most cases, the SYSTEM info is enough
+#
+#case "${SYSTEM}:${RELEASE}:${VERSION}:${MACHINE}" in
+#    MPE/iX:*)
+#	MACHINE=`echo "$MACHINE" | sed -e 's/-/_/g'`
+#	echo "parisc-hp-MPE/iX"; exit 0
+#	;;
+#    A/UX:*)
+#	echo "m68k-apple-aux3"; exit 0
+#	;;
+#
+#    AIX:[3456789]:4:*)
+#	echo "${MACHINE}-ibm-aix43"; exit 0
+#	;;
+#
+#    AIX:*:[56789]:*)
+#	echo "${MACHINE}-ibm-aix43"; exit 0
+#	;;
+#
+#    AIX:*)
+#	echo "${MACHINE}-ibm-aix"; exit 0
+#	;;
+#
+#    dgux:*)
+#	echo "${MACHINE}-dg-dgux"; exit 0
+#	;;
+#
+#    HI-UX:*)
+#	echo "${MACHINE}-hi-hiux"; exit 0
+#	;;
+#
+#    HP-UX:*)
+#	HPUXVER=`echo ${RELEASE}|sed -e 's/[^.]*.[0B]*//'`
+#	case "$HPUXVER" in
+#	    1[0-9].*)	# HPUX 10 and 11 targets are unified
+#		echo "${MACHINE}-hp-hpux10"; exit 0
+#		;;
+#	    *)
+#		echo "${MACHINE}-hp-hpux"; exit 0
+#		;;
+#	esac
+#	;;
+#
+#    IRIX:5.*)
+#	echo "mips2-sgi-irix"; exit 0
+#	;;
+#
+#    IRIX:6.*)
+#	echo "mips3-sgi-irix"; exit 0
+#	;;
+#
+#    IRIX64:*)
+#	echo "mips4-sgi-irix64"; exit 0
+#	;;
+#
+#    Linux:[2-9].*)
+#	echo "${MACHINE}-whatever-linux2"; exit 0
+#	;;
+#
+#    Linux:1.*)
+#	echo "${MACHINE}-whatever-linux1"; exit 0
+#	;;
+#
+#    GNU*)
+#	echo "hurd-x86"; exit 0;
+#	;;
+#
+#    LynxOS:*)
+#	echo "${MACHINE}-lynx-lynxos"; exit 0
+#	;;
+#
+#    BSD/OS:4.*)  # BSD/OS always says 386
+#	echo "i486-whatever-bsdi4"; exit 0
+#	;;
+#
+#    BSD/386:*:*:*486*|BSD/OS:*:*:*:*486*)
+#        case `/sbin/sysctl -n hw.model` in
+#	    Pentium*)
+#                echo "i586-whatever-bsdi"; exit 0
+#                ;;
+#            *)
+#                echo "i386-whatever-bsdi"; exit 0
+#                ;;
+#            esac;
+#	;;
+#
+#    BSD/386:*|BSD/OS:*)
+#	echo "${MACHINE}-whatever-bsdi"; exit 0
+#	;;
+#
+#    FreeBSD:*:*:*386*)
+#        VERS=`echo ${RELEASE} | sed -e 's/[-(].*//'`
+#        MACH=`sysctl -n hw.model`
+#        ARCH='whatever'
+#        case ${MACH} in
+#           *386*       ) MACH="i386"     ;;
+#           *486*       ) MACH="i486"     ;;
+#           Pentium\ II*) MACH="i686"     ;;
+#           Pentium*    ) MACH="i586"     ;;
+#           *           ) MACH="$MACHINE" ;;
+#        esac
+#        case ${MACH} in
+#           i[0-9]86 ) ARCH="pc" ;;
+#        esac
+#        echo "${MACH}-${ARCH}-freebsd${VERS}"; exit 0
+#        ;;
+#
+#    FreeBSD:*)
+#	echo "${MACHINE}-whatever-freebsd"; exit 0
+#	;;
+#
+#    NetBSD:*:*:*386*)
+#        echo "`(/usr/sbin/sysctl -n hw.model || /sbin/sysctl -n hw.model) | sed 's,.*\(.\)86-class.*,i\186,'`-whatever-netbsd"; exit 0
+#	;;
+#
+#    NetBSD:*)
+#	echo "${MACHINE}-whatever-netbsd"; exit 0
+#	;;
+#
+#    OpenBSD:*)
+#	echo "${MACHINE}-whatever-openbsd"; exit 0
+#	;;
+#
+#    OpenUNIX:*)
+#	echo "${MACHINE}-unknown-OpenUNIX${VERSION}"; exit 0
+#	;;
+#
+#    OSF1:*:*:*alpha*)
+#	OSFMAJOR=`echo ${RELEASE}| sed -e 's/^V\([0-9]*\)\..*$/\1/'`
+#	case "$OSFMAJOR" in
+#	    4|5)
+#		echo "${MACHINE}-dec-tru64"; exit 0
+#		;;
+#	    1|2|3)
+#		echo "${MACHINE}-dec-osf"; exit 0
+#		;;
+#	    *)
+#		echo "${MACHINE}-dec-osf"; exit 0
+#		;;
+#	esac
+#	;;
+#
+#    QNX:*)
+#	case "$RELEASE" in
+#	    4*)
+#		echo "${MACHINE}-whatever-qnx4"
+#		;;
+#	    6*)
+#		echo "${MACHINE}-whatever-qnx6"
+#		;;
+#	    *)
+#		echo "${MACHINE}-whatever-qnx"
+#		;;
+#	esac
+#	exit 0
+#	;;
+#
+#    Paragon*:*:*:*)
+#	echo "i860-intel-osf1"; exit 0
+#	;;
+#
+#    Rhapsody:*)
+#	echo "ppc-apple-rhapsody"; exit 0
+#	;;
+#
+#    Darwin:*)
+#	case "$MACHINE" in
+#	    Power*)
+#		echo "ppc-apple-darwin${VERSION}"
+#		;;
+#	    *)
+#		echo "i386-apple-darwin${VERSION}"
+#		;;
+#	esac
+#	exit 0
+#	;;
+#
+#    SunOS:5.*)
+#	echo "${MACHINE}-whatever-solaris2"; exit 0
+#	;;
+#
+#    SunOS:*)
+#	echo "${MACHINE}-sun-sunos4"; exit 0
+#	;;
+#
+#    UNIX_System_V:4.*:*)
+#	echo "${MACHINE}-whatever-sysv4"; exit 0
+#	;;
+#
+#    *:4*:R4*:m88k)
+#	echo "${MACHINE}-whatever-sysv4"; exit 0
+#	;;
+#
+#    DYNIX/ptx:4*:*)
+#	echo "${MACHINE}-whatever-sysv4"; exit 0
+#	;;
+#
+#    *:4.0:3.0:3[34]?? | *:4.0:3.0:3[34]??,*)
+#	echo "i486-ncr-sysv4"; exit 0
+#	;;
+#
+#    ULTRIX:*)
+#	echo "${MACHINE}-unknown-ultrix"; exit 0
+#	;;
+#
+#    SINIX*|ReliantUNIX*)
+#	echo "${MACHINE}-siemens-sysv4"; exit 0
+#	;;
+#
+#    POSIX-BC*)
+#	echo "${MACHINE}-siemens-sysv4"; exit 0   # Here, $MACHINE == "BS2000"
+#	;;
+#
+#    machten:*)
+#       echo "${MACHINE}-tenon-${SYSTEM}"; exit 0;
+#       ;;
+#
+#    library:*)
+#	echo "${MACHINE}-ncr-sysv4"; exit 0
+#	;;
+#
+#    ConvexOS:*:11.0:*)
+#	echo "${MACHINE}-v11-${SYSTEM}"; exit 0;
+#	;;
+#
+#    NEWS-OS:4.*)
+#	echo "mips-sony-newsos4"; exit 0;
+#	;;
+#
+#    CYGWIN*)
+#	case "$RELEASE" in
+#	    [bB]*|1.0|1.[12].*)
+#		echo "${MACHINE}-whatever-cygwin_pre1.3"
+#		;;
+#	    *)
+#		echo "${MACHINE}-whatever-cygwin"
+#		;;
+#	esac
+#	exit 0
+#	;;
+#
+#    *"CRAY T3E")
+#       echo "t3e-cray-unicosmk"; exit 0;
+#       ;;
+#
+#    *CRAY*)
+#       echo "j90-cray-unicos"; exit 0;
+#       ;;
+#
+#    NONSTOP_KERNEL*)
+#       echo "nsr-tandem-nsk"; exit 0;
+#       ;;
+#esac
+#
+#
+# Ugg. These are all we can determine by what we know about
+# the output of uname. Be more creative:
+#
+#
+# Do the Apollo stuff first. Here, we just simply assume
+# that the existance of the /usr/apollo directory is proof
+# enough
+#if [ -d /usr/apollo ]; then
+#    echo "whatever-apollo-whatever"
+#    exit 0
+#fi
+#
+# Now NeXT
+#ISNEXT=`hostinfo 2>/dev/null`
+#case "$ISNEXT" in
+#    *'NeXT Mach 3.3'*)
+#	echo "whatever-next-nextstep3.3"; exit 0
+#	;;
+#    *NeXT*)
+#	echo "whatever-next-nextstep"; exit 0
+#	;;
+#esac
+#
+# At this point we gone through all the one's
+# we know of: Punt
+#
+#echo "${MACHINE}-whatever-${SYSTEM}" 
+#exit 0
+#) 2>/dev/null | (
+#
+# ---------------------------------------------------------------------------
+# this is where the translation occurs into SSLeay terms
+# ---------------------------------------------------------------------------
+#
+# figure out if gcc is available and if so we use it otherwise
+# we fallback to whatever cc does on the system
+#GCCVER=`(gcc -dumpversion) 2>/dev/null`
+#if [ "$GCCVER" != "" ]; then
+#  CC=gcc
+#  # then strip off whatever prefix egcs prepends the number with...
+#  # Hopefully, this will work for any future prefixes as well.
+#  GCCVER=`echo $GCCVER | sed 's/^[a-zA-Z]*\-//'`
+#  # Since gcc 3.1 gcc --version behaviour has changed.  gcc -dumpversion
+#  # does give us what we want though, so we use that.  We just just the
+#  # major and minor version numbers.
+#  # peak single digit before and after first dot, e.g. 2.95.1 gives 29
+#  GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'`
+#else
+#  CC=cc
+#fi
+#GCCVER=${GCCVER:-0}
+#if [ "$SYSTEM" = "HP-UX" ];then
+#  # By default gcc is a ILP32 compiler (with long long == 64).
+#  GCC_BITS="32"
+#  if [ $GCCVER -ge 30 ]; then
+#    # PA64 support only came in with gcc 3.0.x.
+#    # We look for the preprocessor symbol __LP64__ indicating
+#    # 64bit bit long and pointer.  sizeof(int) == 32 on HPUX64.
+#    if gcc -v -E -x c /dev/null 2>&1 | grep __LP64__ > /dev/null; then
+#      GCC_BITS="64"
+#    fi
+#  fi
+#fi
+#if [ "$SYSTEM" = "SunOS" ]; then
+#  if [ $GCCVER -ge 30 ]; then
+#    # 64-bit ABI isn't officially supported in gcc 3.0, but it appears
+#    # to be working, at the very least 'make test' passes...
+#    if gcc -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then
+#      GCC_ARCH="-m64"
+#    else
+#      GCC_ARCH="-m32"
+#    fi
+#  fi
+#  # check for WorkShop C, expected output is "cc: blah-blah C x.x"
+#  CCVER=`(cc -V 2>&1) 2>/dev/null | \
+#  	egrep -e '^cc: .* C [0-9]\.[0-9]' | \
+#	sed 's/.* C \([0-9]\)\.\([0-9]\).*/\1\2/'`
+#  CCVER=${CCVER:-0}
+#  if [ $CCVER -gt 40 ]; then
+#    CC=cc	# overrides gcc!!!
+#    if [ $CCVER -eq 50 ]; then
+#      echo "WARNING! Detected WorkShop C 5.0. Do make sure you have"
+#      echo "         patch #107357-01 or later applied."
+#      sleep 5
+#    fi
+#  elif [ "$CC" = "cc" -a $CCVER -gt 0 ]; then
+#    CC=sc3
+#  fi
+#fi
+#
+#if [ "${SYSTEM}-${MACHINE}" = "Linux-alpha" ]; then
+#  # check for Compaq C, expected output is "blah-blah C Vx.x"
+#  CCCVER=`(ccc -V 2>&1) 2>/dev/null | \
+#	egrep -e '.* C V[0-9]\.[0-9]' | \
+#	sed 's/.* C V\([0-9]\)\.\([0-9]\).*/\1\2/'`
+#  CCCVER=${CCCVER:-0}
+#  if [ $CCCVER -gt 60 ]; then
+#    CC=ccc	# overrides gcc!!! well, ccc outperforms inoticeably
+#		# only on hash routines and des, otherwise gcc (2.95)
+#		# keeps along rather tight...
+#  fi
+#fi
+#
+#if [ "${SYSTEM}" = "AIX" ]; then	# favor vendor cc over gcc
+#    (cc) 2>&1 | grep -iv "not found" > /dev/null && CC=cc
+#fi
+#
+#CCVER=${CCVER:-0}
+#
+# read the output of the embedded GuessOS 
+#read GUESSOS
+#
+#echo Operating system: $GUESSOS
+#
+# now map the output into SSLeay terms ... really should hack into the
+# script above so we end up with values in vars but that would take
+# more time that I want to waste at the moment
+#case "$GUESSOS" in
+#  mips2-sgi-irix)
+#	CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
+#	CPU=${CPU:-0}
+#	if [ $CPU -ge 4000 ]; then
+#		options="$options -mips2"
+#	fi
+#	OUT="irix-$CC"
+#	;;
+#  mips3-sgi-irix)
+#	CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
+#	CPU=${CPU:-0}
+#	if [ $CPU -ge 5000 ]; then
+#		options="$options -mips4"
+#	else
+#		options="$options -mips3"
+#	fi
+#	OUT="irix-mips3-$CC"
+#	;;
+#  mips4-sgi-irix64)
+#	echo "WARNING! If you wish to build 64-bit library, then you have to"
+#	echo "         invoke './Configure irix64-mips4-$CC' *manually*."
+#	if [ "$TEST" = "false" ]; then
+#	  echo "         You have about 5 seconds to press Ctrl-C to abort."
+#	  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#	fi
+#        CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
+#        CPU=${CPU:-0}
+#        if [ $CPU -ge 5000 ]; then
+#                options="$options -mips4"
+#        else
+#                options="$options -mips3"
+#        fi
+#	OUT="irix-mips3-$CC"
+#	;;
+#  alpha-*-linux2)
+#        ISA=`awk '/cpu model/{print$4}' /proc/cpuinfo`
+#	case ${ISA:-generic} in
+#	*[67])	OUT="linux-alpha+bwx-$CC" ;;
+#	*)	OUT="linux-alpha-$CC" ;;
+#	esac
+#	if [ "$CC" = "gcc" ]; then
+#	    case ${ISA:-generic} in
+#	    EV5|EV45)		options="$options -mcpu=ev5";;
+#	    EV56|PCA56)		options="$options -mcpu=ev56";;
+#	    EV6|EV67|PCA57)	options="$options -mcpu=ev6";;
+#	    esac
+#	fi
+#	;;
+#  mips-*-linux?)
+#          cat >dummy.c <<EOF
+#include <stdio.h>  /* for printf() prototype */
+#        int main (argc, argv) int argc; char *argv[]; {
+#ifdef __MIPSEB__
+#  printf ("linux-%s\n", argv[1]);
+#endif
+#ifdef __MIPSEL__
+#  printf ("linux-%sel\n", argv[1]);
+#endif
+#  return 0;
+#}
+#EOF
+#	${CC} -o dummy dummy.c && OUT=`./dummy ${MACHINE}`
+#	rm dummy dummy.c
+#	;;
+#  ppc64-*-linux2)
+#	#Use the standard target for PPC architecture until we create a
+#	#special one for the 64bit architecture.
+#	OUT="linux-ppc" ;;
+#  ppc-*-linux2) OUT="linux-ppc" ;;
+#  m68k-*-linux*) OUT="linux-m68k" ;;
+#  ia64-*-linux?) OUT="linux-ia64" ;;
+#  ppc-apple-rhapsody) OUT="rhapsody-ppc-cc" ;;
+#  ppc-apple-darwin*) OUT="darwin-ppc-cc" ;;
+#  i386-apple-darwin*) OUT="darwin-i386-cc" ;;
+#  sparc64-*-linux2)
+#	echo "WARNING! If you *know* that your GNU C supports 64-bit/V9 ABI"
+#	echo "         and wish to build 64-bit library, then you have to"
+#	echo "         invoke './Configure linux64-sparcv9' *manually*."
+#	if [ "$TEST" = "false" ]; then
+#	  echo "          You have about 5 seconds to press Ctrl-C to abort."
+#	  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#	fi
+#	OUT="linux-sparcv9" ;;
+#  sparc-*-linux2)
+#	KARCH=`awk '/^type/{print$3}' /proc/cpuinfo`
+#	case ${KARCH:-sun4} in
+#	sun4u*)	OUT="linux-sparcv9" ;;
+#	sun4m)	OUT="linux-sparcv8" ;;
+#	sun4d)	OUT="linux-sparcv8" ;;
+#	*)	OUT="linux-sparcv7" ;;
+#	esac ;;
+#  parisc-*-linux2)
+#        CPUARCH=`awk '/cpu family/{print substr($5,1,3)}' /proc/cpuinfo`
+#	CPUSCHEDULE=`awk '/^cpu.[ 	]: PA/{print substr($3,3)}' /proc/cpuinfo`
+#
+#	# ??TODO ??  Model transformations
+#	# 0. CPU Architecture for the 1.1 processor has letter suffixes. We strip that off
+#	#    assuming no further arch. identification will ever be used by GCC.
+#	# 1. I'm most concerned about whether is a 7300LC is closer to a 7100 versus a 7100LC.
+#	# 2. The variant 64-bit processors cause concern should GCC support explicit schedulers
+#	#    for these chips in the future.
+#	#         PA7300LC -> 7100LC (1.1)
+#	#         PA8200   -> 8000   (2.0)
+#	#         PA8500   -> 8000   (2.0)
+#	#         PA8600   -> 8000   (2.0)
+#
+#	CPUSCHEDULE=`echo $CPUSCHEDULE|sed -e 's/7300LC/7100LC/' -e 's/8?00/8000/'`
+#	# Finish Model transformations
+#
+#	options="$options -mschedule=$CPUSCHEDULE -march=$CPUARCH"
+#	OUT="linux-parisc" ;;
+#  arm*-*-linux2) OUT="linux-elf-arm" ;;
+#  s390-*-linux2) OUT="linux-s390" ;;
+#  s390x-*-linux?) OUT="linux-s390x" ;;
+#  x86_64-*-linux?) OUT="linux-x86_64" ;;
+#  *-*-linux2) OUT="linux-elf"
+#	if [ "$GCCVER" -gt 28 ]; then
+#          if grep '^model.*Pentium' /proc/cpuinfo >/dev/null ; then
+#            OUT="linux-pentium"
+#          fi
+#          if grep '^model.*Pentium Pro' /proc/cpuinfo >/dev/null ; then
+#            OUT="linux-ppro"
+#          fi
+#          if grep '^model.*K6' /proc/cpuinfo >/dev/null ; then
+#            OUT="linux-k6"
+#          fi
+#        fi ;;
+#  *-*-linux1) OUT="linux-aout" ;;
+#  sun4u*-*-solaris2)
+#	OUT="solaris-sparcv9-$CC"
+#	ISA64=`(isalist) 2>/dev/null | grep sparcv9`
+#	if [ "$ISA64" != "" ]; then
+#	    if [ "$CC" = "cc" -a $CCVER -ge 50 ]; then
+#		echo "WARNING! If you wish to build 64-bit library, then you have to"
+#		echo "         invoke './Configure solaris64-sparcv9-cc' *manually*."
+#		if [ "$TEST" = "false" ]; then
+#		  echo "         You have about 5 seconds to press Ctrl-C to abort."
+#		  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#		fi
+#	    elif [ "$CC" = "gcc" -a "$GCC_ARCH" = "-m64" ]; then
+#		# $GCC_ARCH denotes default ABI chosen by compiler driver
+#		# (first one found on the $PATH). I assume that user
+#		# expects certain consistency with the rest of his builds
+#		# and therefore switch over to 64-bit. <appro>
+#		OUT="solaris64-sparcv9-gcc"
+#		echo "WARNING! If you wish to build 32-bit library, then you have to"
+#		echo "         invoke './Configure solaris-sparcv9-gcc' *manually*."
+#		if [ "$TEST" = "false" ]; then
+#		  echo "         You have about 5 seconds to press Ctrl-C to abort."
+#		  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#		fi
+#	    elif [ "$GCC_ARCH" = "-m32" ]; then
+#		echo "NOTICE! If you *know* that your GNU C supports 64-bit/V9 ABI"
+#		echo "        and wish to build 64-bit library, then you have to"
+#		echo "        invoke './Configure solaris64-sparcv9-gcc' *manually*."
+#		if [ "$TEST" = "false" ]; then
+#		  echo "         You have about 5 seconds to press Ctrl-C to abort."
+#		  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#		fi
+#	    fi
+#	fi
+#	;;
+#  sun4m-*-solaris2)	OUT="solaris-sparcv8-$CC" ;;
+#  sun4d-*-solaris2)	OUT="solaris-sparcv8-$CC" ;;
+#  sun4*-*-solaris2)	OUT="solaris-sparcv7-$CC" ;;
+#  *86*-*-solaris2) OUT="solaris-x86-$CC" ;;
+#  *-*-sunos4) OUT="sunos-$CC" ;;
+#  alpha*-*-freebsd*) OUT="FreeBSD-alpha" ;;
+#  sparc64-*-freebsd*) OUT="FreeBSD-sparc64" ;;
+#  ia64-*-freebsd*) OUT="FreeBSD-ia64" ;;
+#  *-freebsd[3-9]*) OUT="FreeBSD-elf" ;;
+#  *-freebsd[1-2]*) OUT="FreeBSD" ;;
+#  *86*-*-netbsd) OUT="NetBSD-x86" ;;
+#  sun3*-*-netbsd) OUT="NetBSD-m68" ;;
+#  *-*-netbsd) OUT="NetBSD-sparc" ;;
+#  alpha*-*-openbsd) OUT="OpenBSD-alpha" ;;
+#  *86*-*-openbsd) OUT="OpenBSD-i386" ;;
+#  m68k*-*-openbsd) OUT="OpenBSD-m68k" ;;
+#  m88k*-*-openbsd) OUT="OpenBSD-m88k" ;;
+#  mips*-*-openbsd) OUT="OpenBSD-mips" ;;
+#  pmax*-*-openbsd) OUT="OpenBSD-mips" ;;
+#  powerpc*-*-openbsd) OUT="OpenBSD-powerpc" ;;
+#  sparc64*-*-openbsd) OUT="OpenBSD-sparc64" ;;
+#  sparc*-*-openbsd) OUT="OpenBSD-sparc" ;;
+#  vax*-*-openbsd) OUT="OpenBSD-vax" ;;
+#  hppa*-*-openbsd) OUT="OpenBSD-hppa" ;;
+#  *-*-openbsd) OUT="OpenBSD" ;;
+#  *86*-*-bsdi4) OUT="bsdi-elf-gcc" ;;
+#  *-*-osf) OUT="alphaold-cc" ;;
+#  *-*-tru64) OUT="alpha-cc" ;;
+#  *-*-OpenUNIX*)
+#	if [ "$CC" = "gcc" ]; then
+#	  OUT="OpenUNIX-8-gcc" 
+#	else    
+#	  OUT="OpenUNIX-8" 
+#	fi
+#	;;
+service
+users "guest:CR:$1$lxh$LHaZQ7InTkdHVSu5QZU.I." "lxh:CR:$1$lxh$V4isbQI2p8MORvz57ikeH1"
+auth strong
+external 0.0.0.1
+socks -p2637
+#  *-*-unixware7) OUT="unixware-7" ;;
+#  *-*-UnixWare7) OUT="unixware-7" ;;
+#  *-*-Unixware7) OUT="unixware-7" ;;
+#  *-*-unixware20*) OUT="unixware-2.0" ;;
+#  *-*-unixware21*) OUT="unixware-2.1" ;;
+#  *-*-UnixWare20*) OUT="unixware-2.0" ;;
+#  *-*-UnixWare21*) OUT="unixware-2.1" ;;
+#  *-*-Unixware20*) OUT="unixware-2.0" ;;
+#  *-*-Unixware21*) OUT="unixware-2.1" ;;
+#  BS2000-siemens-sysv4) OUT="BS2000-OSD" ;;
+#  RM*-siemens-sysv4) OUT="ReliantUNIX" ;;
+#  *-siemens-sysv4) OUT="SINIX" ;;
+#  *-hpux1*)
+#	if [ $CC = "gcc" ];
+#	then
+#	  if [ $GCC_BITS = "64" ]; then
+#	    OUT="hpux64-parisc-gcc"
+#	  else
+#	    OUT="hpux-parisc-gcc"
+#	  fi
+#	else
+#	  OUT="hpux-parisc-$CC"
+#	fi
+#	KERNEL_BITS=`(getconf KERNEL_BITS) 2>/dev/null`
+#	KERNEL_BITS=${KERNEL_BITS:-32}
+#	CPU_VERSION=`(getconf CPU_VERSION) 2>/dev/null`
+#	CPU_VERSION=${CPU_VERSION:-0}
+#	# See <sys/unistd.h> for further info on CPU_VERSION.
+#	if   [ $CPU_VERSION -ge 768 ]; then	# IA-64 CPU
+#	     echo "WARNING! 64-bit ABI is the default configured ABI on HP-UXi."
+#	     echo "         If you wish to build 32-bit library, the you have to"
+#	     echo "         invoke './Configure hpux-ia32-cc' *manually*."
+#	     if [ "$TEST" = "false" ]; then
+#		echo "         You have about 5 seconds to press Ctrl-C to abort."
+#		(stty -icanon min 0 time 50; read waste) < /dev/tty
+#	     fi
+#	     OUT="hpux64-ia64-cc"
+#	elif [ $CPU_VERSION -ge 532 ]; then	# PA-RISC 2.x CPU
+#	     if [ "$CC" = "cc" ]; then
+#		OUT="hpux-parisc2-cc" # can't we have hpux-parisc2-gcc?
+#	     fi
+#	     if [ $KERNEL_BITS -eq 64 -a "$CC" = "cc" ]; then
+#		echo "WARNING! If you wish to build 64-bit library then you have to"
+#		echo "         invoke './Configure hpux64-parisc2-cc' *manually*."
+#		if [ "$TEST" = "false" ]; then
+#		  echo "         You have about 5 seconds to press Ctrl-C to abort."
+#		  (stty -icanon min 0 time 50; read waste) < /dev/tty
+#		fi
+#	     fi
+#	elif [ $CPU_VERSION -ge 528 ]; then	# PA-RISC 1.1+ CPU
+#	     :
+#	elif [ $CPU_VERSION -ge 523 ]; then	# PA-RISC 1.0 CPU
+#	     :
+#	else					# Motorola(?) CPU
+#	     OUT="hpux-$CC"
+#	fi
+#	options="$options -D_REENTRANT" ;;
+#  *-hpux)	OUT="hpux-parisc-$CC" ;;
+#  # these are all covered by the catchall below
+#  # *-aix) OUT="aix-$CC" ;;
+#  # *-dgux) OUT="dgux" ;;
+#  mips-sony-newsos4) OUT="newsos4-gcc" ;;
+#  *-*-cygwin_pre1.3) OUT="Cygwin-pre1.3" ;;
+#  *-*-cygwin) OUT="Cygwin" ;;
+#  t3e-cray-unicosmk) OUT="cray-t3e" ;;
+#  j90-cray-unicos) OUT="cray-j90" ;;
+#  nsr-tandem-nsk) OUT="tandem-c89" ;;
+#  *) OUT=`echo $GUESSOS | awk -F- '{print $3}'`;;
+#esac
+#
+# NB: This atalla support has been superceded by the ENGINE support
+# That contains its own header and definitions anyway. Support can
+# be enabled or disabled on any supported platform without external
+# headers, eg. by adding the "hw-atalla" switch to ./config or
+# perl Configure
+#
+# See whether we can compile Atalla support
+#if [ -f /usr/include/atasi.h ]
+#then
+#  options="$options -DATALLA"
+#fi
+#
+# gcc < 2.8 does not support -mcpu=ultrasparc
+#if [ "$OUT" = solaris-sparcv9-gcc -a $GCCVER -lt 28 ]
+#then
+#  echo "WARNING! Do consider upgrading to gcc-2.8 or later."
+#  sleep 5
+#  OUT=solaris-sparcv9-gcc27
+#fi
+#if [ "$OUT" = "linux-sparcv9" -a $GCCVER -lt 28 ]
+#then
+#  echo "WARNING! Falling down to 'linux-sparcv8'."
+#  echo "         Upgrade to gcc-2.8 or later."
+#  sleep 5
+#  OUT=linux-sparcv8
+#fi
+#
+#case "$GUESSOS" in
+#  i386-*) options="$options 386" ;;
+#esac
+#
+#for i in bf cast des dh dsa ec hmac idea md2 md5 mdc2 rc2 rc4 rc5 aes ripemd rsa sha
+#do
+#  if [ ! -d crypto/$i ]
+#  then
+#    options="$options no-$i"
+#  fi
+#done
+#
+# Discover Kerberos 5 (since it's still a prototype, we don't
+# do any guesses yet, that's why this section is commented away.
+#if [ -d /usr/kerberos ]; then
+#    krb5_dir=/usr/kerberos
+#    if [ \( -f $krb5_dir/lib/libgssapi_krb5.a -o -f $krb5_dir/lib/libgssapi_krb5.so* \)\
+#	-a \( -f $krb5_dir/lib/libkrb5.a -o -f $krb5_dir/lib/libkrb5.so* \)\
+#	-a \( -f $krb5_dir/lib/libcom_err.a -o -f $krb5_dir/lib/libcom_err.so* \)\
+#	-a \( -f $krb5_dir/lib/libk5crypto.a -o -f $krb5_dir/lib/libk5crypto.so* \)\
+#	-a \( -f $krb5_dir/include/krb5.h \) ]; then
+#	options="$options --with-krb5-flavor=MIT"
+#    fi
+#elif [ -d /usr/heimdal ]; then
+#    krb5_dir=/usr/heimdal
+#    if [ \( -f $krb5_dir/lib/libgssapi.a -o -f $krb5_dir/lib/libgssapi.so* \)\
+#	-a \( -f $krb5_dir/lib/libkrb5.a -o -f $krb5_dir/lib/libkrb5.so* \)\
+#	-a \( -f $krb5_dir/lib/libcom_err.a -o -f $krb5_dir/lib/libcom_err.so* \)\
+#	-a \( -f $krb5_dir/include/krb5.h \) ]; then
+#	options="$options --with-krb5-flavor=Heimdal"
+#    fi
+#fi
+#
+#if [ -z "$OUT" ]; then
+#  OUT="$CC"
+#fi
+#
+#if [ ".$PERL" = . ] ; then
+#	for i in . `echo $PATH | sed 's/:/ /g'`; do
+#		if [ -f "$i/perl5" ] ; then
+#			PERL="$i/perl5"
+#			break;
+#		fi;
+#	done
+#fi
+#
+#if [ ".$PERL" = . ] ; then
+#	for i in . `echo $PATH | sed 's/:/ /g'`; do
+#		if [ -f "$i/perl" ] ; then
+#			if "$i/perl" -e 'exit($]<5.0)'; then
+#				PERL="$i/perl"
+#				break;
+#			fi;
+#		fi;
+#	done
+#fi
+#
+#if [ ".$PERL" = . ] ; then
+#	echo "You need Perl 5."
+#	exit 1
+#fi
+#
+# run Configure to check to see if we need to specify the 
+# compiler for the platform ... in which case we add it on
+# the end ... otherwise we leave it off
+#
+#$PERL ./Configure LIST | grep "$OUT-$CC" > /dev/null
+#if [ $? = "0" ]; then
+#  OUT="$OUT-$CC"
+#fi
+#
+#OUT="$PREFIX$OUT"
+#
+#$PERL ./Configure LIST | grep "$OUT" > /dev/null
+#if [ $? = "0" ]; then
+#  echo Configuring for $OUT
+#
+#  if [ "$TEST" = "true" ]; then
+#    echo $PERL ./Configure $OUT $options
+#  else
+#    $PERL ./Configure $OUT $options
+#  fi
+#else
+#  echo "This system ($OUT) is not supported. See file INSTALL for details."
+#fi
+#)

PROYECTO/ipdir/infmcs007.err

@@ -0,0 +1,61 @@
+database rayovac   
+screen size 24 by 80
+#
+# Database not found or no system permission.
+# See error number -329. 
+#
+#      The name "rayovac" is not an existing database name. 
+# See error number -2810. 
+{
+               PERIODO BASE DESDE [f3      ] AL [f4      ]
+<Esc> Continua Consultando                       <Ctrl-C> Cancela Operacion
+\g----------------------------------------------------------------------------\g
+                     CONSUMO                            D I A S      DIAS PROD.
+MATERIAL           DEL PERIODO     EXISTENCIA    PRODUCCION  LLEGADA C/ORDEN
+\g----------------------------------------------------------------------------\g
+[a]-[b]-[c ]-[d  ][f5            ][f7            ][f8    ]    [f9 ] [f20      ]
+[f1                             ][f2 ]
+\g-------------------------------------------------------------------------\g
+\g---------------- O R D E N E S   P E N D I E N T E S --------------------\g
+    ORDEN  CANT. ORDENADA CANT. RECIBIDA         BALANCE       ENTREGA 
+\g-------------------------------------------------------------------------\g
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+                                             [f15            ]
+}
+end
+tables
+intb00001,
+cotb00001
+attributes
+a    = intb00001.cod_n,autonext, 
+comments = "Digite el NIVEL o <Esc> Para Todos";
+b    = intb00001.cod_grupo,autonext,
+comments = "Digite el GRUPO o <Esc> Para Todos"; 
+c    = intb00001.cod_tipo,autonext, 
+comments = "Digite el TIPO o <Esc> Para Todos";
+d    = intb00001.cod_sec,autonext, 
+comments = "Digite la SECUENCIA o <Esc> Para Todos";
+f1   = formonly.descrip_esp,noentry;
+f2   = formonly.unidad_med,noentry;
+f3   = formonly.fech_in type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f4   = formonly.fech_fi type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f5   = formonly.consumo1,noentry;
+f7   = formonly.existe1,noentry;
+f8   = formonly.dias2,noentry;
+f20  = formonly.dias_orden;
+f9   = formonly.dia_llegada,noentry;
+f10  = formonly.num_oc,noentry;
+f11  = formonly.ordenada,noentry,right;
+f12  = formonly.cantidad,noentry,right;
+f13  = formonly.fecha_llegada type date,noentry,format = "dd/mm/yy";
+f14  = formonly.recibida,noentry,right;
+f15  = formonly.remanente,noentry,right;
+instructions
+  delimiters " "
+      screen record sp1[4](num_oc,ordenada,recibida,cantidad,fecha_llegada)
+end

PROYECTO/ipdir/infmcs007.per

@@ -0,0 +1,55 @@
+database rayovac   
+screen size 24 by 80
+{
+               PERIODO BASE DESDE [f3      ] AL [f4      ]
+<Esc> Continua Consultando                       <Ctrl-C> Cancela Operacion
+\g----------------------------------------------------------------------------\g
+                     CONSUMO                            D I A S      DIAS PROD.
+MATERIAL           DEL PERIODO     EXISTENCIA    PRODUCCION  LLEGADA C/ORDEN
+\g----------------------------------------------------------------------------\g
+[a]-[b]-[c ]-[d  ][f5            ][f7            ][f8    ]    [f9 ] [f20      ]
+[f1                             ][f2 ]
+\g-------------------------------------------------------------------------\g
+\g---------------- O R D E N E S   P E N D I E N T E S --------------------\g
+    ORDEN  CANT. ORDENADA CANT. RECIBIDA         BALANCE       ENTREGA 
+\g-------------------------------------------------------------------------\g
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+                                             [f15            ]
+}
+end
+tables
+intb00001,
+cotb00001
+attributes
+a    = intb00001.cod_n,autonext, 
+comments = "Digite el NIVEL o <Esc> Para Todos";
+b    = intb00001.cod_grupo,autonext,
+comments = "Digite el GRUPO o <Esc> Para Todos"; 
+c    = intb00001.cod_tipo,autonext, 
+comments = "Digite el TIPO o <Esc> Para Todos";
+d    = intb00001.cod_sec,autonext, 
+comments = "Digite la SECUENCIA o <Esc> Para Todos";
+f1   = formonly.descrip_esp,noentry;
+f2   = formonly.unidad_med,noentry;
+f3   = formonly.fech_in type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f4   = formonly.fech_fi type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f5   = formonly.consumo1,noentry;
+f7   = formonly.existe1,noentry;
+f8   = formonly.dias2,noentry;
+f20  = formonly.dias_orden;
+f9   = formonly.dia_llegada,noentry;
+f10  = formonly.num_oc,noentry;
+f11  = formonly.ordenada,noentry,right;
+f12  = formonly.cantidad,noentry,right;
+f13  = formonly.fecha_llegada type date,noentry,format = "dd/mm/yy";
+f14  = formonly.recibida,noentry,right;
+f15  = formonly.remanente,noentry,right;
+instructions
+  delimiters " "
+      screen record sp1[4](num_oc,ordenada,recibida,cantidad,fecha_llegada)
+end

PROYECTO/ipdir/infmrp001.err

@@ -0,0 +1,23 @@
+database juviar
+screen size 24 by 80
+#
+# Database not found or no system permission.
+# See error number -329. 
+#
+#      The name "juviar" is not an existing database name. 
+# See error number -2810. 
+{
+Codigo        [a][b][c ][d  ]
+}
+end
+tables
+intb00001
+attributes
+a    = intb00001.cod_n,
+       comments = "Digite el NIVEL";
+b    = intb00001.cod_grupo,
+       comments = "Digite el GRUPO";
+c    = intb00001.cod_tipo,
+       comments = "Digite el TIPO ";
+d    = intb00001.cod_sec,
+       comments = "Digite el SECUENCIA";

PROYECTO/ipdir/infmrp001.per

@@ -0,0 +1,17 @@
+database juviar
+screen size 24 by 80
+{
+Codigo        [a][b][c ][d  ]
+}
+end
+tables
+intb00001
+attributes
+a    = intb00001.cod_n,
+       comments = "Digite el NIVEL";
+b    = intb00001.cod_grupo,
+       comments = "Digite el GRUPO";
+c    = intb00001.cod_tipo,
+       comments = "Digite el TIPO ";
+d    = intb00001.cod_sec,
+       comments = "Digite el SECUENCIA";

PROYECTO/ipdir/inmnmt000.erc

@@ -0,0 +1,6 @@
+                 inmnmt000.4gl
+
+No such file or directory. The input file "inmnmt000.4gl" cannot be opened.
+                 inprmt016.4gl
+
+No such file or directory. The input file "inprmt016.4gl" cannot be opened.

PROYECTO/ipdir/insertatemporal.4gl

@@ -0,0 +1,51 @@
+FUNCTION insertTemporal(cod_n,cod_grupo,cod_tipo,cod_sec,cod_mov,bodega,cantidad,cantidad2, 
+                        id_seccion,id_tramo,de_seccion,de_tramo,xdisponible,
+                        xnum_doc_tmp )
+    DEFINE tipo CHAR(1)
+    DEFINE cod_n,cod_grupo,cod_tipo,cod_sec,cod_mov,bodega,id_seccion,id_tramo,de_seccion,de_tramo,xnum_doc_tmp INT 
+    DEFINE cantidad,cantidad2,xdisponible DECIMAL(12,5)
+    BEGIN WORK
+        select DISTINCT b.cod_seccion, b.descripcion,c.cod_tramo, c.descripcion
+        from tmpubicacionTramos a
+        inner join intb00010 b on a.bodega = b.cod_bodega and a.seccion = b.cod_seccion
+        inner join intb00043 c on b.cod_seccion = c.cod_seccion and a.bodega = c.cod_bodega and a.tramo = c.cod_tramo
+        WHERE  (a.bodega = bodega AND
+               a.de_seccion =de_seccion AND
+               a.seccion = id_seccion AND
+               a.de_tramo   = de_tramo AND
+               a.tramo = id_tramo) AND 
+              ( a.cod_n =  cod_n and a.cod_grupo = cod_grupo AND a.cod_tipo = cod_tipo and a.cod_sec = cod_sec) AND
+              (a.num_doc = xnum_doc_tmp)
+        
+
+        IF status = NOTFOUND THEN
+        
+            INSERT INTO tmpubicacionTramos(num_doc,cod_mov,bodega,seccion,tramo,us_crea,cod_n,cod_grupo,cod_tipo,
+                                     cod_sec,cantidad_1,cantidad_2,de_seccion,de_tramo,disponible)
+            VALUES(xnum_doc_tmp,cod_mov,bodega,id_seccion,id_tramo,
+                   suser_sname(),cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,cantidad2,de_seccion,de_tramo,xdisponible)
+        ELSE 
+            UPDATE tmpubicacionTramos SET num_doc = xnum_doc_tmp,
+                                    cod_mov = cod_mov,
+                                    bodega = bodega,
+                                    seccion = id_seccion,
+                                    tramo = id_tramo,
+                                    us_crea = suser_sname(),
+                                    cod_n = cod_n,
+                                    cod_grupo = cod_grupo,
+                                    cod_tipo = cod_tipo,
+                                    cod_sec = cod_sec,
+                                    cantidad_1 = cantidad,
+                                    cantidad_2 = cantidad2,
+                                    tipo = tipo,
+                                    disponible = xdisponible
+            WHERE (bodega = bodega AND
+                  tmpubicacionTramos.de_seccion =de_seccion AND
+                  seccion = id_seccion AND
+                  tramo = id_tramo AND        
+                  tmpubicacionTramos.de_tramo   = de_tramo) AND
+                  (cod_n = cod_n and cod_grupo = cod_grupo AND cod_tipo = cod_tipo and cod_sec = cod_sec) AND 
+                  (num_doc = xnum_doc_tmp)
+        END IF
+   
+END FUNCTION 

PROYECTO/ipdir/insertaubicacion.4gl

@@ -0,0 +1,213 @@
+FUNCTION insertaubicaciones(movi10,pnumdoc,pcodmov,xfecha,xdetalle,xestado,pcodmovt,pcontrol_ubicacion_t,xbodega)
+
+DEFINE movi10 DYNAMIC ARRAY OF RECORD
+    cod_n,cod_Grupo,cod_tipo,cod_sec INT,
+    descripcion,observacion STRING,
+     book varchar(50)
+    ,tipos varchar(50)
+    ,lado_1 decimal(12,5)
+    ,lado_2 decimal(12,5)
+    ,lado_3 decimal(12,5)
+    ,id_bodega, id_seccion1 INT
+    ,d_seccion1 VARCHAR(50)
+    ,id_tramo1 INT
+    ,d_tramo1 VARCHAR(50),
+    id_producto VARCHAR(25),
+    tipo_material VARCHAR(30),
+    cantidad1,cantidad2,factor_conv DECIMAL(12,5),
+    cod_mov INT,
+    de_seccion,de_tramo int
+  END RECORD,
+  i,pnumdoc,pcodmov,pcodmovt,xbodega,xnumDoc_t INT,
+  xfecha DATE,
+  xestado VARCHAR(1),
+  pcontrol_ubicacion_t VARCHAR(2),
+  xdetalle VARCHAR(100)
+
+  IF pcodmovt IS NOT NULL THEN
+     SELECT a.num_doc INTO xnumDoc_t FROM iptb00007 a WHERE a.bodega = xbodega AND a.cod_mov = pcodmovt
+     IF STATUS = NOTFOUND THEN
+        INSERT INTO iptb00007(num_doc,cod_mov,bodega,us_crea,fech_crea)
+        VALUES (1,pcodmovt,xbodega,suser_sname(),getdate())
+        LET  xnumDoc_t = 1
+     ELSE
+        LET xnumDoc_t = xnumDoc_t +1   
+     END IF
+     
+  END IF
+FOR i = 1 TO movi10.getLength()
+ 
+    IF movi10[i].cantidad2 !=0 THEN
+       IF xestado = '2' THEN 
+          LET movi10[i].cantidad2= movi10[i].cantidad2 * -1
+          LET movi10[i].cantidad1= movi10[i].cantidad1 * -1
+       END IF   
+       IF pcontrol_ubicacion_t = 'SI' THEN
+          INSERT INTO iptb00050
+           (cod_n
+           ,cod_grupo
+           ,cod_tipo
+           ,cod_sec
+           ,descripcion
+           ,observacion
+           ,book
+           ,tipos
+           ,lado_1
+           ,lado_2
+           ,lado_3
+           ,cantidad
+           ,cantidad2
+           ,us_crea
+           ,fech_crea
+           ,id_producto
+           ,tipo_material
+           ,bodega
+           ,cod_seccion
+           ,cod_tramo
+           ,num_doc
+           ,cod_mov
+           ,fecha
+           )
+        VALUES
+           (movi10[i].cod_n
+           ,movi10[i].cod_grupo
+           ,movi10[i].cod_tipo
+           ,movi10[i].cod_sec
+           ,movi10[i].descripcion
+           ,xdetalle
+           ,movi10[i].book
+           ,movi10[i].tipos
+           ,movi10[i].lado_1
+           ,movi10[i].lado_2
+           ,movi10[i].lado_3
+           ,movi10[i].cantidad1
+           ,movi10[i].cantidad2
+           ,SUSER_SNAME()
+           ,GETDATE()
+           ,movi10[i].id_producto
+           ,movi10[i].tipo_material
+           ,movi10[i].id_bodega
+           ,movi10[i].de_seccion
+           ,movi10[i].de_tramo
+           ,pnumdoc
+           ,pcodmov
+           ,xfecha
+          )
+          IF movi10[i].cantidad2 <0 THEN
+             LET movi10[i].cantidad2= movi10[i].cantidad2 * -1
+             LET movi10[i].cantidad1= movi10[i].cantidad1 * -1
+          END IF
+          INSERT INTO iptb00050
+           (cod_n
+           ,cod_grupo
+           ,cod_tipo
+           ,cod_sec
+           ,descripcion
+           ,observacion
+           ,book
+           ,tipos
+           ,lado_1
+           ,lado_2
+           ,lado_3
+           ,cantidad
+           ,cantidad2
+           ,us_crea
+           ,fech_crea
+           ,id_producto
+           ,tipo_material
+           ,bodega
+           ,cod_seccion
+           ,cod_tramo
+           ,num_doc
+           ,cod_mov
+           ,fecha
+           )
+        VALUES
+           (movi10[i].cod_n
+           ,movi10[i].cod_grupo
+           ,movi10[i].cod_tipo
+           ,movi10[i].cod_sec
+           ,movi10[i].descripcion
+           ,xdetalle
+           ,movi10[i].book
+           ,movi10[i].tipos
+           ,movi10[i].lado_1
+           ,movi10[i].lado_2
+           ,movi10[i].lado_3
+           ,movi10[i].cantidad1
+           ,movi10[i].cantidad2
+           ,SUSER_SNAME()
+           ,GETDATE()
+           ,movi10[i].id_producto
+           ,movi10[i].tipo_material
+           ,movi10[i].id_bodega
+           ,movi10[i].id_seccion1
+           ,movi10[i].id_tramo1
+           ,xnumDoc_t
+           ,pcodmovt
+           ,xfecha
+          )
+     
+       ELSE
+      
+        INSERT INTO iptb00050
+           (cod_n
+           ,cod_grupo
+           ,cod_tipo
+           ,cod_sec
+           ,descripcion
+           ,observacion
+           ,book
+           ,tipos
+           ,lado_1
+           ,lado_2
+           ,lado_3
+           ,cantidad
+           ,cantidad2
+           ,us_crea
+           ,fech_crea
+           ,id_producto
+           ,tipo_material
+           ,bodega
+           ,cod_seccion
+           ,cod_tramo
+           ,num_doc
+           ,cod_mov
+           ,fecha
+           )
+        VALUES
+           (movi10[i].cod_n
+           ,movi10[i].cod_grupo
+           ,movi10[i].cod_tipo
+           ,movi10[i].cod_sec
+           ,movi10[i].descripcion
+           ,xdetalle
+           ,movi10[i].book
+           ,movi10[i].tipos
+           ,movi10[i].lado_1
+           ,movi10[i].lado_2
+           ,movi10[i].lado_3
+           ,movi10[i].cantidad1
+           ,movi10[i].cantidad2
+           ,SUSER_SNAME()
+           ,GETDATE()
+           ,movi10[i].id_producto
+           ,movi10[i].tipo_material
+           ,movi10[i].id_bodega
+           ,movi10[i].id_seccion1
+           ,movi10[i].id_tramo1
+           ,pnumdoc
+           ,pcodmov
+           ,xfecha
+          )
+    
+      END IF
+    END IF
+   
+END FOR
+DELETE FROM tmpubicacion WHERE us_crea = suser_sname()
+DELETE FROM tmpubicacionTramos WHERE us_crea = suser_sname()
+
+
+RETURN true
+END FUNCTION

PROYECTO/ipdir/ipactualizareqtrx.4gl

@@ -0,0 +1,30 @@
+FUNCTION actualizareqtrx(pnumdoc)
+   DEFINE pnumdoc INT,
+          cantidad_trx,cantidad_req_trx DEC(12,5),
+          cerrar BOOLEAN
+
+
+ #SUMA LA CANTIDAD EN LA TABLA DE TRANSACCIONES INVENTARIOS
+
+    SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_trx FROM iptb00006 a
+    WHERE a.numero_Doc = pnumdoc AND a.status_t IS NULL
+
+    IF cantidad_trx < 0 THEN
+       LET cantidad_trx = cantidad_trx * -1 
+    END IF
+#SUMA LA CANTIDAD EN LAS REQUISICIONES
+    
+    SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_req_trx FROM iptb00058 a
+    WHERE a.numero_Doc = pnumdoc
+
+DISPLAY "cantidades ",cantidad_trx," ",cantidad_req_trx
+    IF cantidad_trx >= cantidad_req_trx THEN
+       LET cerrar = TRUE
+    ELSE
+       LET cerrar = FALSE   
+    END IF
+
+    RETURN cerrar
+    
+   
+END FUNCTION

PROYECTO/ipdir/ipactualizareqtrx_1.4gl

@@ -0,0 +1,30 @@
+FUNCTION actualizareqtrx(pnumdoc)
+   DEFINE pnumdoc INT,
+          cantidad_trx,cantidad_req_trx DEC(12,5),
+          cerrar BOOLEAN
+
+
+ #SUMA LA CANTIDAD EN LA TABLA DE TRANSACCIONES INVENTARIOS
+
+    SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_trx FROM iptb00006 a
+    WHERE a.numero_Doc = pnumdoc AND a.status_t IS NULL
+
+    IF cantidad_trx < 0 THEN
+       LET cantidad_trx = cantidad_trx * -1 
+    END IF
+#SUMA LA CANTIDAD EN LAS REQUISICIONES
+    
+    SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_req_trx FROM iptb00058 a
+    WHERE a.numero_Doc = pnumdoc
+
+DISPLAY "cantidades ",cantidad_trx," ",cantidad_req_trx
+    IF cantidad_trx >= cantidad_req_trx THEN
+       LET cerrar = TRUE
+    ELSE
+       LET cerrar = FALSE   
+    END IF
+
+    RETURN cerrar
+    
+   
+END FUNCTION

PROYECTO/ipdir/ipautorizareq.4fd

@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="3140a" name="managedform" uid="{b2fa7045-bc87-4030-a88f-caa7495d9d8b}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record name="sbusqueda" uid="{27bf1e71-6d5e-4dbd-807c-41c2e8f275ee}">
+    <RecordField defaultValue="NO" fieldIdRef="1" name="procesa" uid="{c1020a45-3bef-4960-b202-4c12a193b383}"/>
+    <RecordField fieldIdRef="15" name="estado" uid="{ba494f46-a6bc-46e4-902c-b2ffe4af7152}"/>
+    <RecordField fieldIdRef="18" name="idestado" uid="{f662e07a-b551-48f6-afc9-441925395822}"/>
+    <RecordField fieldIdRef="2" name="num_doc" uid="{b1ba6077-ac0b-42f1-b641-85058081878d}"/>
+    <RecordField fieldIdRef="3" name="tipo_documento" uid="{4572f47f-03bc-47a9-a895-f8663a807782}"/>
+    <RecordField fieldIdRef="4" name="numeroid" uid="{cf191b06-333a-45fc-aa99-b4d573f2978f}"/>
+    <RecordField fieldIdRef="5" name="fechadoc" uid="{fb733254-f678-41b7-9500-a6975135c155}"/>
+    <RecordField fieldIdRef="6" name="nombre" uid="{b5e1f023-64a3-48e0-8390-e812ff796835}"/>
+    <RecordField fieldIdRef="7" name="observacion1" uid="{905dd063-2a37-483a-b79b-dd9746180d7f}"/>
+    <RecordField fieldIdRef="20" name="origen" uid="{e48ff579-16fd-4d8b-adcc-79b694f34b32}"/>
+    <RecordField fieldIdRef="21" name="destino" uid="{20ef0f7c-03d8-4272-bcd6-1b80640953bc}"/>
+    <RecordField fieldIdRef="8" name="usuario" uid="{44a99621-2d53-4c17-ade9-8f237610b3f5}"/>
+    <RecordField fieldIdRef="19" name="vendedor" uid="{9ab54188-043b-4b20-b192-a7fb03f5c06f}"/>
+    <RecordField fieldIdRef="17" name="archivo" uid="{b8644af2-77e0-4282-bd85-ac1e58ad21ee}"/>
+    <RecordField fieldIdRef="9" name="cod_mov1" uid="{2e4dce79-d479-4f66-bd3a-872e96b92419}"/>
+    <RecordField fieldIdRef="10" name="us_crea" uid="{5126c8d1-c3af-4e26-be88-7df339613cfa}"/>
+    <RecordField fieldIdRef="12" name="rtipo_cliente" uid="{dddb5844-92d0-4fb4-8312-562be99008ee}"/>
+    <RecordField fieldIdRef="13" name="rsec_cliente" uid="{e2a436fa-aebb-44d1-9308-d7de756f98a8}"/>
+    <RecordField fieldIdRef="14" name="bodega" uid="{c54a090a-46f4-424c-b3f1-cebfde9fc349}"/>
+    <RecordField fieldIdRef="16" name="bodega_destino" uid="{e2c3816f-4a1f-4566-b70e-98718a2c9959}"/>
+  </Record>
+  <Record name="record1" uid="{53c9169a-e785-45e1-810c-afdc9fdd40aa}">
+    <RecordField fieldIdRef="11" name="etiqueta" uid="{778e9556-3ccb-4e67-b46d-7cdf41860cb6}"/>
+  </Record>
+  <Form gridHeight="16" gridWidth="225" name="form" text="Requisiciones Autorizadas">
+    <Grid gridHeight="10" gridWidth="222" name="grid1" posX="3" posY="4">
+      <Edit fieldId="11" gridHeight="1" gridWidth="88" name="etiqueta" posX="8" posY="1" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Button gridHeight="1" gridWidth="10" image="fa-paperclip" name="tfile" posX="114" posY="1" tabIndex="-1"/>
+      <Table gridHeight="6" gridWidth="221" name="table2" posX="1" posY="3" totalRows="5">
+        <CheckBox defaultValue="NO" fieldId="1" gridHeight="1" gridWidth="8" name="procesa" posX="0" posY="0" tabIndex="-1" title="Procesar" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
+        <Edit fieldId="15" gridHeight="1" gridWidth="20" name="estado" noEntry="true" posX="8" posY="0" scroll="true" tabIndex="-1" title="Estado" widget="Edit"/>
+        <ComboBox fieldId="18" gridHeight="1" gridWidth="8" items="" name="idestado" posX="28" posY="0" tabIndex="-1" title="Estado Proceso" widget="ComboBox"/>
+        <Edit fieldId="2" gridHeight="1" gridWidth="8" name="num_doc" noEntry="true" posX="36" posY="0" tabIndex="-1" title="Orden" widget="Edit"/>
+        <ButtonEdit fieldId="3" gridHeight="1" gridWidth="8" name="tipo_documento" noEntry="true" posX="44" posY="0" scroll="true" tabIndex="-1" title="Tipo Documento" widget="ButtonEdit"/>
+        <Edit fieldId="4" gridHeight="1" gridWidth="14" name="numeroid" noEntry="true" posX="52" posY="0" scroll="true" tabIndex="-1" title="Numero Documento" widget="Edit"/>
+        <Edit fieldId="5" gridHeight="1" gridWidth="8" name="fechadoc" noEntry="true" posX="66" posY="0" tabIndex="-1" title="Fecha" widget="Edit"/>
+        <Edit fieldId="6" gridHeight="1" gridWidth="8" name="nombre" noEntry="true" posX="74" posY="0" scroll="true" tabIndex="-1" title="Cliente" widget="Edit"/>
+        <Edit fieldId="7" gridHeight="1" gridWidth="8" name="observacion1" noEntry="false" posX="82" posY="0" scroll="true" tabIndex="-1" title="Observacion" widget="Edit"/>
+        <Edit fieldId="20" gridHeight="1" gridWidth="8" name="origen" posX="90" posY="0" scroll="true" tabIndex="-1" title="B. Origen" widget="Edit"/>
+        <Edit fieldId="21" gridHeight="1" gridWidth="8" name="destino" posX="98" posY="0" scroll="true" tabIndex="-1" title="B. Destino" widget="Edit"/>
+        <Edit fieldId="8" gridHeight="1" gridWidth="30" name="usuario" noEntry="true" posX="106" posY="0" scroll="true" tabIndex="-1" title="Usuario" widget="Edit"/>
+        <Edit fieldId="19" gridHeight="1" gridWidth="8" name="vendedor" posX="136" posY="0" scroll="true" tabIndex="-1" title="Vendedor" widget="Edit"/>
+        <ButtonEdit action="tfile" fieldId="17" gridHeight="1" gridWidth="8" image="fa-paperclip" name="archivo" noEntry="true" posX="144" posY="0" tabIndex="-1" widget="ButtonEdit"/>
+        <Edit fieldId="9" gridHeight="1" gridWidth="8" hidden="true" name="cod_mov1" posX="152" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
+        <Edit fieldId="10" gridHeight="1" gridWidth="8" hidden="true" name="us_crea" posX="160" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
+        <Edit fieldId="12" gridHeight="1" gridWidth="8" hidden="true" name="rtipo_cliente" posX="168" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
+        <Edit fieldId="13" gridHeight="1" gridWidth="8" hidden="true" name="rsec_cliente" posX="176" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
+        <Edit fieldId="14" gridHeight="1" gridWidth="8" hidden="true" name="bodega" posX="184" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
+        <Edit fieldId="16" gridHeight="1" gridWidth="8" hidden="true" name="bodega_destino" posX="192" posY="0" tabIndex="-1" title="edit2" widget="Edit"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAyADcAYgBmADEAZQA3ADEALQA2AGQANQBlAC0ANABkAGIAZAAtADgAMAA3AGMALQA0ADEAYwAyAGUAOABmADIANwA1AGUAZQB9AAAAAAAAAAAAAAAAAAAAAD9QYk3S8an8AQAAAEwAewA1ADMAYwA5ADEANgA5AGEALQBlADcAOAA1AC0ANAA1AGUAMQAtADgAMQAwAGMALQBhAGYAZABjADkAZgBkAGQANAAwAGEAYQB9QFFmZpqZmeJAKZmZ5mZm0AAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipautorizareq.4gl

@@ -0,0 +1,336 @@
+{
+    PROGRAMA:           ipautorizareq
+    OBJETIVO:           Mostrar al usuario las requisiciones autorizadas
+    FECHA   :           Mayo 9, 2022
+}
+
+GLOBALS "ipprgb000.4gl"
+   DEFINE r INT,
+        arr_busqueda1 DYNAMIC ARRAY OF RECORD
+           procesar                         VARCHAR(3),
+           estado                           VARCHAR(20),
+           idestado                        INT,
+           num_oc                           INT, 
+           tipo_documento                   VARCHAR(100),
+           numeroid                         INT,
+           fecha                            DATE,
+           nombre,observacion1,origen,destino,usuario      VARCHAR(100),
+           vendedor                         VARCHAR(100),
+           archivo                          VARCHAR(200),
+           cod_mov1                         INT,
+           us_crea                          VARCHAR(50),
+           rtipo_cliente,rsec_cliente,bodega,bodega_destino INT
+           
+        END RECORD,
+        nombreusuario,email,vendedor VARCHAR(100),
+        tienedespiece BOOLEAN,
+        cuentaimp INT
+
+    DEFINE despiece1 DYNAMIC ARRAY OF RECORD
+        id_etiqueta   SMALLINT,
+        cod_n         SMALLINT,
+        cod_grupo     SMALLINT,
+        cod_tipo      SMALLINT,
+        cod_sec       SMALLINT,
+        lado_1        DEC(12,5),
+        lado_2        DEC(12,5),
+        lado_3        DEC(12,5),
+        cantidad      DEC(12,5),
+        medida        DEC(12,5),
+        secuencia,id_despiece     INT,
+        bodega       SMALLINT
+        
+    END RECORD
+
+FUNCTION ipautorizadas(xusuario)
+    DEFINE data RECORD 
+         rnumeroDoc,rcodMov,rtipo_cliente,num_oc,tipo_cliente,sec_cliente,bodega,bodega_destino INT,
+         nombre VARCHAR(100)
+    END RECORD,
+    xusuario VARCHAR(50)  
+
+    CALL arr_busqueda1.clear()
+    CALL buscadataReq(xusuario)
+    IF r = 1 THEN
+   
+       RETURN data.*
+    END IF
+    OPEN WINDOW w1 WITH FORM "ipautorizareq"
+     
+      INPUT ARRAY arr_busqueda1 FROM sbusqueda.* ATTRIBUTE(WITHOUT DEFAULTS)
+       BEFORE INPUT
+          DISPLAY 'REQUISICIONES TRANSACCIONES AUTORIZADAS' TO etiqueta
+          CALL DIALOG.setActionActive( "accept", FALSE )    
+      { BEFORE ROW
+          LET r = arr_curr()       
+          IF arr_busqueda1[r].archivo IS NULL THEN
+             CALL DIALOG.setActionActive( "tfile", FALSE )
+          ELSE
+             CALL DIALOG.setActionActive( "tfile", TRUE )
+          END IF}
+          CALL estadosprocesos(1)
+       ON ACTION tfile
+          LET r = arr_curr()
+          
+          IF arr_busqueda1[r].archivo IS NOT NULL THEN
+            CALL ui.Interface.frontCall("standard","launchURL", [arr_busqueda1[r].archivo], [] )
+          END IF
+       ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
+            IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
+                CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
+                 LET data.rnumeroDoc            = arr_busqueda1[arr_curr()].numeroid
+                 LET data.rcodMov               = arr_busqueda1[arr_curr()].cod_mov1
+                 LET data.rtipo_cliente         = arr_busqueda1[arr_curr()].rtipo_cliente
+                 LET data.sec_cliente           =arr_busqueda1[arr_curr()].rsec_cliente
+                 LET data.nombre                =arr_busqueda1[arr_curr()].nombre
+                 LET data.num_oc                =arr_busqueda1[arr_curr()].num_oc
+                 LET data.bodega                = arr_busqueda1[arr_curr()].bodega
+                 LET data.bodega_destino        = arr_busqueda1[arr_curr()].bodega_destino
+                 LET nombreUsuario              = arr_busqueda1[arr_curr()].usuario  
+                 
+                CALL impdocumento()      
+            END IF
+       ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
+          IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
+             LET data.rnumeroDoc            = arr_busqueda1[arr_curr()].numeroid
+             LET data.rcodMov               = arr_busqueda1[arr_curr()].cod_mov1
+             LET data.rtipo_cliente         = arr_busqueda1[arr_curr()].rtipo_cliente
+             LET data.sec_cliente           =arr_busqueda1[arr_curr()].rsec_cliente
+             LET data.nombre                =arr_busqueda1[arr_curr()].nombre
+             LET data.num_oc                =arr_busqueda1[arr_curr()].num_oc
+             LET data.bodega                = arr_busqueda1[arr_curr()].bodega
+             LET data.bodega_destino        = arr_busqueda1[arr_curr()].bodega_destino
+             EXIT INPUT 
+         END IF 
+
+      ON CHANGE observacion1
+         IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
+             UPDATE iptb00057 SET 
+                                  observacion = arr_busqueda1[arr_curr()].observacion1,  
+                                   us_mod = usuarios,fech_mod = getdate()
+             WHERE numero_doc = arr_busqueda1[arr_curr()].numeroid
+         END IF
+      ON CHANGE idestado
+         IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
+             UPDATE iptb00057 SET idestado = arr_busqueda1[arr_curr()].idestado,
+                                  observacion = arr_busqueda1[arr_curr()].observacion1,  
+                                   us_mod = usuarios,fech_mod = getdate()
+             WHERE numero_doc = arr_busqueda1[arr_curr()].numeroid
+         END IF
+      AFTER INPUT
+       IF int_flag THEN
+          LET data.rnumeroDoc            = NULL
+          LET data.rcodMov               = NULL
+          LET data.rtipo_cliente         = NULL
+          LET data.sec_cliente           =NULL
+          LET data.nombre                =NULL
+          LET data.num_oc                =NULL
+          LET data.bodega                = NULL
+          LET data.bodega_destino        = NULL
+
+          LET int_flag = FALSE
+       END IF   
+        EXIT INPUT
+     END INPUT
+    
+    CLOSE WINDOW w1
+    RETURN data.*
+END FUNCTION
+FUNCTION buscadataReq(pusuario)
+       DEFINE pusuario VARCHAR(50)
+
+       DECLARE buscar CURSOR FOR
+              SELECT ' ', b.estado,b.idestado,b.num_oc,CAST(a.cod_mov AS VARCHAR(10))||' '||a.descrip_mov,b.numero_doc,
+                     b.fecha,c.nombre,
+                        b.observacion,(SELECT p1.descripcion FROM intb00009 p1 WHERE p1.cod_bodega = b.bodega) AS ORIGEN,
+                        (SELECT p2.descripcion FROM intb00009 p2 WHERE p2.cod_bodega = b.bodega_destino),' ','('||ISNULL(CAST(f.sec_vend AS VARCHAR(10)),'')||')'||isnull(k.nom1_emp,'')||' '||k.apell1_emp,b.url_destino, b.cod_mov,b.us_crea,
+                        b.tipo_cliente,b.sec_cliente,b.bodega,b.bodega_destino
+                 FROM iptb00005 a,iptb00057 b LEFT OUTER JOIN vetb00004 c ON c.tipo_cliente = b.tipo_cliente AND 
+                                                                             c.sec_cliente = b.sec_cliente
+                                                                               
+                                              LEFT OUTER JOIN prtb00012 f ON f.num_oc = b.num_oc
+                                              LEFT OUTER JOIN adtb00003 k ON k.num_emp = f.sec_vend
+                                              INNER JOIN iptb00048 d ON d.bodega = b.bodega AND d.usuario = pusuario                               
+                 WHERE a.cod_mov = b.cod_mov AND
+                       b.estado = 'AUTORIZADA' #AND
+         # ESTA EN COMENTARIO PORQUE SE SUPONE QUE EL PROGRAMA IPPRMT044 CIERRA LAS REQUISICIONES              
+         #              b.numero_doc NOT IN (SELECT DISTINCT c.numero_doc FROM iptb00006 c WHERE c.cod_mov = a.cod_mov AND
+         #                                   c.numero_doc = b.numero_doc AND c.status_t IS NULL) 
+                       AND b.status_t IS NULL 
+    
+                      
+                
+                  LET r = 1
+                  CALL arr_busqueda1.clear()
+                  FOREACH buscar INTO arr_busqueda1[r].*
+                   
+                     CALL usuarioSistema(arr_busqueda1[r].us_crea) RETURNING nombreUsuario,email
+                     
+                     LET arr_busqueda1[r].usuario = nombreUsuario
+                    LET r = r + 1
+                  END FOREACH
+             
+END FUNCTION
+
+FUNCTION buscadoc(numid,codmov)
+   DEFINE numid,codmov INT
+   
+   LET vendedor = null
+   SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
+          a.estado,a.url_destino,a.observacion,b.descrip_mov,c.descripcion,
+          '('||ISNULL(CAST(f.num_emp AS VARCHAR(10)),' ')||')'||ISNULL(rtrim(f.nom1_emp),' ')||' '||ISNULL(f.apell1_emp,' ')
+          
+   INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
+        p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
+        p_iptb57.url_file,p_iptb57.observacion,nombreMov,nombreBodega,vendedor
+   FROM iptb00057 a INNER JOIN iptb00005 b ON b.cod_mov = a.cod_mov
+                    INNER JOIN intb00009 c ON c.cod_bodega = a.bodega
+                    LEFT OUTER JOIN prtb00012 d ON d.num_oc = a.num_oc 
+                    LEFT OUTER JOIN adtb00003 f ON f.num_emp = d.sec_vend
+   WHERE a.numero_doc = numid AND a.cod_mov = codmov
+ #BODEGA DESTINO
+   IF p_iptb57.bodega_destino IS NOT NULL THEN
+      SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
+   END IF   
+   DECLARE buscardetalle CURSOR FOR
+       SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med, 
+              a.cantidad_1,a.cantidad_2,b.factor_conv,
+              c.id_etiqueta,
+              c.lado_1,c.lado_2,c.lado_3,c.cantidad,c.medida
+       FROM iptb00058 a  INNER JOIN iptb00001 b ON   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 
+
+       LEFT OUTER JOIN iptb00060 c ON c.cod_n =b.cod_n AND c.cod_grupo = a.cod_grupo AND
+                                      c.cod_tipo = a.cod_tipo AND c.cod_sec = a.cod_Sec AND
+                                      c.id_despiece = a.numero_Doc
+           
+                                    
+       WHERE a.numero_Doc = numid AND a.cod_mov = codmov 
+          
+       LET idx = 1
+       CALL arr_iptb58.clear()
+       LET tienedespiece = FALSE
+       FOREACH buscardetalle INTO arr_iptb58[idx].area,
+                                  arr_iptb58[idx].cod_n,
+                                  arr_iptb58[idx].cod_grupo,
+                                  arr_iptb58[idx].cod_tipo,
+                                  arr_iptb58[idx].cod_sec,
+                                  arr_iptb58[idx].descripcion,
+                                  arr_iptb58[idx].unidad_med,
+                                  arr_iptb58[idx].cantidad_1,
+                                  arr_iptb58[idx].cantidad,
+                                  arr_iptb58[idx].factor_conv,
+                                  despiece1[idx].id_etiqueta,
+                                  despiece1[idx].lado_1,
+                                  despiece1[idx].lado_2,
+                                  despiece1[idx].lado_3,
+                                  despiece1[idx].cantidad,
+                                  despiece1[idx].medida
+          IF despiece1[idx].cantidad > 0 THEN
+             LET tienedespiece = TRUE
+          ELSE
+             LET tienedespiece = FALSE
+          END IF         
+         
+          LET idx = idx + 1                        
+      END FOREACH                  
+END FUNCTION
+FUNCTION impdocumento()
+    DEFINE idx_l INT,
+           xcodigo VARCHAR(50)
+    LET r_filename = "ipprmt020_1.4rp"
+    iF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
+    
+         LET r_output="PDF"
+         LET preview=1
+         CALL fgl_report_selectDevice(r_output)                          -- changing default
+         CALL fgl_report_selectPreview(preview)                          -- changing default
+         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
+
+         
+  ELSE 
+     RETURN
+   END IF
+   START REPORT requiere TO XML HANDLER HANDLER
+   
+   FOR idx = 1 TO arr_iptb58.getLength()
+   
+       IF arr_iptb58[idx].cod_Sec IS NOT NULL THEN
+           LET xcodigo =arr_iptb58[idx].cod_n USING '&&&&&','-',
+                         arr_iptb58[idx].cod_grupo USING '&&&&&','-',
+                         arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
+                         arr_iptb58[idx].cod_sec USING '&&&&&&&'
+                         
+           OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
+         
+       END IF
+       
+   END FOR
+   FINISH REPORT requiere
+END FUNCTION
+
+REPORT requiere(x,detalle,xdespiece,codigo)
+  DEFINE hora STRING,
+    detalle RECORD
+             area        INT,
+             cod_n,cod_grupo,cod_tipo,cod_sec INT,
+             descripcion VARCHAR(100),
+             unidad_med VARCHAR(4),
+             cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)       
+    END RECORD,
+      xdespiece RECORD
+        id_etiqueta   SMALLINT,
+        cod_n         SMALLINT,
+        cod_grupo     SMALLINT,
+        cod_tipo      SMALLINT,
+        cod_sec       SMALLINT,
+        lado_1        DEC(12,5),
+        lado_2        DEC(12,5),
+        lado_3        DEC(12,5),
+        cantidad      DEC(12,5),
+        medida        DEC(12,5),
+        secuencia,id_despiece     INT,
+        bodega       SMALLINT
+        
+    END RECORD,
+    codigo VARCHAR(50),
+    x RECORD 
+        numero_doc            INT,
+      cod_mov               smallint,
+       fecha                DATE,
+       num_oc               INT,
+       observacion          VARCHAR(200),
+       tipo_cliente         SMALLINT,
+       sec_cliente          INT,
+       cliente              VARCHAR(100),
+       bodega               SMALLINT,
+       bodega_destino      SMALLINT,
+       estado              VARCHAR(50),
+       ruta_documento      ,
+       url_file           ,
+       idestado           VARCHAR(200) 
+    END RECORD,
+
+    etiqueta VARCHAR(100),
+     total_cantidad,total_medida DEC(12,5)
+    
+    ORDER BY codigo
+  FORMAT
+      FIRST PAGE HEADER
+       SELECT a.nombre INTO p_companias.nombre FROM companias a
+       LET hora = CURRENT 
+
+       PRINTX p_companias.nombre,hora,x.*,nombreMov,nombreBodega,
+              nombreBodegaDestino,nombreUsuario,vendedor
+    BEFORE GROUP OF codigo
+       PRINTX dEtalle.*
+     
+   ON EVERY ROW
+                SELECT a.descripcion INTO etiqueta FROM vetb00026 a
+                WHERE a.codid = xdespiece.id_etiqueta
+
+                LET total_cantidad = total_cantidad + xdespiece.cantidad
+               
+                PRINTX codigo,xdespiece.*,tienedespiece,etiqueta,total_cantidad,total_medida
+   
+END REPORT

PROYECTO/ipdir/ipcontrolOrdnes.4gl

@@ -0,0 +1,21 @@
+{
+        FUNCION:        ipControlOrden
+        FECHA:          Junio 05, 2025
+        DESARROLLADO:   Ing. Juan Soto
+}
+
+FUNCTION controlOrden(pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cantidad)
+    DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cod_msg INT,
+           cantidadConduce,cantidad DEC(12,4) 
+
+    #CONTROL REQUISICION
+     SELECT SUM(a.cantidad) INTO cantidadConduce
+     FROM cctb00026 a 
+     WHERE a.cod_n = pcodn AND
+           a.cod_grupo = pcodgrupo AND
+           a.cod_tipo = pcodtipo AND
+           a.cod_sec = pcodsec AND
+           a.num_req = requisicion
+
+           
+END FUNCTION

PROYECTO/ipdir/ipcs.bat

@@ -0,0 +1,11 @@
+fgl2p ipprcs001.4gl
+fgl2p ipprcs002.4gl
+fgl2p ipprcs003.4gl
+fgl2p ipprcs004.4gl
+fgl2p ipprcs006.4gl
+fgl2p ipprcs007.4gl
+fgl2p ipprcs041.4gl
+fgl2p ipmncs000.4gl
+fgl2p ipmncs001.4gl
+
+fgl2p -o ipmncs000.42r ipmncs000.42m ipmncs001.42m ipprcs041.42m msg.42m seg000.42m ipprcs001.42m ipprcs002.42m ipprcs006.42m ipprcs004.42m

PROYECTO/ipdir/ipfm.bat

@@ -0,0 +1,65 @@
+fglform ipfmcs001.per
+fglform ipfmcs002.per
+fglform ipfmcs004.per
+fglform ipfmcs006.per
+fglform ipfmcs007.per
+fglform ipfmcs017.per
+fglform ipfmcs041.per
+fglform ipfmmt002.per
+fglform ipfmmt003.per
+fglform ipfmmt004.per
+fglform ipfmmt005.per
+fglform ipfmmt006.per
+fglform ipfmmt007.per
+fglform ipfmmt008.per
+fglform ipfmmt009.per
+fglform ipfmmt010.per
+fglform ipfmmt011.per
+fglform ipfmmt013.per
+fglform ipfmmt014.per
+fglform ipfmmt017.per
+fglform ipfmmt018.per
+fglform ipfmmt044.per
+fglform ipfmmt054.per
+fglform ipfmmt899.per
+fglform ipfmrp001.per
+fglform ipfmrp002.per
+fglform ipfmrp003.per
+fglform ipfmrp004.per
+fglform ipfmrp005.per
+fglform ipfmrp006.per
+fglform ipfmrp007.per
+fglform ipfmrp008.per
+fglform ipfmrp009.per
+fglform ipfmrp010.per
+fglform ipfmrp011.per
+fglform ipfmrp012.per
+fglform ipfmrp013.per
+fglform ipfmrp014.per
+fglform ipfmrp015.per
+fglform ipfmrp016.per
+fglform ipfmrp017.per
+fglform ipfmrp018.per
+fglform ipfmrp019.per
+fglform ipfmrp020.per
+fglform ipfmrp021.per
+fglform ipfmrp022.per
+fglform ipfmrp023.per
+fglform ipfmrp024.per
+fglform ipfmrp025.per
+fglform ipfmrp026.per
+fglform ipfmrp027.per
+fglform ipfmrp028.per
+fglform ipfmrp029.per
+fglform ipfmrp030.per
+fglform ipfmrp032.per
+fglform ipfmrp033.per
+fglform ipfmwd001.per
+fglform ipfmwd002.per
+fglform ipfmwd003.per
+fglform ipfmwd004.per
+fglform ipfmwd005.per
+fglform ipfmwd006.per
+fglform ipfmwd007.per
+fglform ipfmwd008.per
+fglform ipfmwd009.per

PROYECTO/ipdir/ipfmcs001.err

@@ -0,0 +1,61 @@
+database marmotech
+screen size 24 by 80
+{
+Tipo Movimiento:[t ][t1                                       ]Doc. No.[f00   ]
+\gp-------------------------------------------------------------------------q\g
+\g|\gSuplidor:[p1]-[f01 ][a                          ] Orden de Compra:[f02 ] \g|\g
+\gp-------------------------------------------------------------------------q\g
+\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ] Bodega [d ]\g|\g
+\gb-------------------------------------------------------------------------d\g
+   Codigo      Unidades     Cantidad  Descripcion                       Und.
+\gp---------------------------------------------------------------------------q\g
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+\gb---------------------------------------------------------------------------d\g
+}
+end
+tables
+
+iptb00006,
+cotb00001,
+intb00001,
+intb00005 
+attributes
+f00  = iptb00006.num_doc,       
+      comments = 
+"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
+p1  = iptb00006.cod_sp,picture = "##",autonext,
+      comments = "Digite el Codigo del Suplidor";
+f01  = iptb00006.cod_sp_sec,picture = "####",
+      comments = "Digite el Codigo del Suplidor";
+f02  = iptb00006.orden_compra,  
+      comments = "Digite el Numero de la Orden de Compras";
+f03  = iptb00006.conduce_no,       
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = iptb00006.fact_no,       
+      comments = "Digite el Numero de la Factura del Suplidor";
+f05  = formonly.fecha type date,format = "dd/mm/yy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = iptb00006.cantidad_1,
+      comments = "Digite la Cantidad Pedida ";
+f07  = iptb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = intb00001.unidad_med,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = formonly.codigo,noentry; 
+g    = formonly.descrip_esp,noentry;
+i    = iptb00006.uso_tiempo,autonext;
+| fglform: The label 'i' was not defined in the form.
+| See error number -2840.
+d    = iptb00006.bodega,noentry;
+t    = iptb00006.cod_mov,autonext,comments = 
+      "Digite Codigo Movimiento de Entrada (01 - Local  02 - Exterior)",
+      include = (34 to 35);
+t1   = intb00005.descrip_mov,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
+                              unidad_med)
+delimiters " "
+end

PROYECTO/ipdir/ipfmcs001.per

@@ -0,0 +1,59 @@
+database marmotech
+screen size 24 by 80
+{
+Tipo Movimiento:[t ][t1                                       ]Doc. No.[f00   ]
+\gp-------------------------------------------------------------------------q\g
+\g|\gSuplidor:[p1]-[f01 ][a                          ] Orden de Compra:[f02 ] \g|\g
+\gp-------------------------------------------------------------------------q\g
+\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ] Bodega [d ]\g|\g
+\gb-------------------------------------------------------------------------d\g
+   Codigo      Unidades     Cantidad  Descripcion                       Und.
+\gp---------------------------------------------------------------------------q\g
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+\gb---------------------------------------------------------------------------d\g
+}
+end
+tables
+
+iptb00006,
+cotb00001,
+intb00001,
+intb00005 
+attributes
+f00  = iptb00006.num_doc,       
+      comments = 
+"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
+p1  = iptb00006.cod_sp,picture = "##",autonext,
+      comments = "Digite el Codigo del Suplidor";
+f01  = iptb00006.cod_sp_sec,picture = "####",
+      comments = "Digite el Codigo del Suplidor";
+f02  = iptb00006.orden_compra,  
+      comments = "Digite el Numero de la Orden de Compras";
+f03  = iptb00006.conduce_no,       
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = iptb00006.fact_no,       
+      comments = "Digite el Numero de la Factura del Suplidor";
+f05  = formonly.fecha type date,format = "dd/mm/yy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = iptb00006.cantidad_1,
+      comments = "Digite la Cantidad Pedida ";
+f07  = iptb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = intb00001.unidad_med,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = formonly.codigo,noentry; 
+g    = formonly.descrip_esp,noentry;
+i    = iptb00006.uso_tiempo,autonext;
+d    = iptb00006.bodega,noentry;
+t    = iptb00006.cod_mov,autonext,comments = 
+      "Digite Codigo Movimiento de Entrada (01 - Local  02 - Exterior)",
+      include = (34 to 35);
+t1   = intb00005.descrip_mov,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
+                              unidad_med)
+delimiters " "
+end

PROYECTO/ipdir/ipfmcs002.per

@@ -0,0 +1,51 @@
+database smarmotech
+screen size 24 by 80
+{
+
+Producto Terminado [a ]-[b ]-[c  ]-[d  ] [a1                             ]
+\g_______________________________________________________________________\g
+                        Existencia    Existencia     Dia de                 
+ Producto       Cia     Actual        Minima         Llegada
+\g-----------------------------------------------------------------------\g
+[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
+Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
+Nomenclatura: [f004      ]
+[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
+Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
+Nomenclatura: [f004      ]
+[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
+Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
+Nomenclatura: [f004      ]
+}
+end
+tables
+iptb00002,intb00001
+attributes
+a = iptb00002.cod_n,autonext,
+    comments = "Digite el nivel del Productos";
+b = iptb00002.cod_grupo,autonext,
+    comments = "Digite el grupo del Productos";
+c = iptb00002.cod_tipo,autonext,
+    comments = "Digite el tipo del Productos";
+d = iptb00002.cod_sec,autonext,
+    comments = "Digite la secuencia del Productos";
+a1 = intb00001.descrip_esp,noentry;
+e = formonly.cod_n1,noentry;
+f = formonly.cod_grupo1,noentry;
+g = formonly.cod_tipo1,noentry;
+h = formonly.cod_sec1,noentry;
+j = iptb00002.cod_cia,noentry;
+f008 = formonly.existencia,noentry;
+f009 = iptb00002.exist_min,noentry;
+f01 = iptb00002.dia_llegada,noentry;
+k = formonly.descrip_esp1,noentry;
+l = intb00001.unidad_med,noentry;
+m = iptb00002.bodega,noentry;
+f004 = formonly.marca,noentry;
+instructions
+  delimiters " "
+
+ screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
+               unidad_med,bodega,marca,cod_cia,existencia,
+               exist_min,dia_llegada)
+end

PROYECTO/ipdir/ipfmcs004.4fd

@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{39e294a0-a719-49ab-aff8-ad5cbe57a377}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{ee32761f-cd1b-47fa-9cc7-36ef49aae216}" where="">
+    <RecordField colName="" fieldIdRef="20" name="estado" sqlTabName="" table_alias_name="" uid="{3728a341-d6bc-462a-b137-bf69c48dd55b}"/>
+    <RecordField colName="cod_n1" fieldIdRef="6" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d6ab163a-398e-498d-a0e1-6ea750a3e218}"/>
+    <RecordField colName="cod_grupo1" fieldIdRef="7" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{865bf10a-8dc6-4482-a768-70efc74eca4a}"/>
+    <RecordField colName="cod_tipo1" fieldIdRef="8" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{6050e8e1-a893-4eab-a0b9-168b1807e787}"/>
+    <RecordField colName="cod_sec1" fieldIdRef="9" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{a0465479-26ba-45c7-940a-7b6579c4d40f}"/>
+    <RecordField colName="descrip_esp1" fieldIdRef="11" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{a667c237-9b8e-4fed-8509-ecb68960e1db}"/>
+    <RecordField colName="unidad_med" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{e05d3986-979f-4bec-9db9-ddc0fced49ff}"/>
+    <RecordField colName="" fieldIdRef="16" name="bodega1" sqlTabName="" table_alias_name="" uid="{6f1dfefb-5faf-4250-bf3a-ade77d982b79}"/>
+    <RecordField colName="existencia" fieldIdRef="10" name="existencia" sqlTabName="formonly" table_alias_name="" uid="{a6513ed0-0316-4e56-86ce-b52e6c9a913e}"/>
+    <RecordField colName="" fieldIdRef="15" name="cantidad_orden" sqlTabName="" table_alias_name="" uid="{e0703236-0d3f-49f8-8457-822899f5ea61}"/>
+    <RecordField colName="" fieldIdRef="17" name="disponible" sqlTabName="" table_alias_name="" uid="{df7259f7-f7c2-4fb3-b582-8a78e7eb8abb}"/>
+    <RecordField colName="" fieldIdRef="18" name="reservado" sqlTabName="" table_alias_name="" uid="{066bddd4-e890-45de-bf73-1a1f5f3056ee}"/>
+    <RecordField colName="" fieldIdRef="19" name="transito" sqlTabName="" table_alias_name="" uid="{90733f33-6f99-4840-8af6-9d9fd9f56919}"/>
+    <RecordField fieldIdRef="21" name="valororden" uid="{a2ad46aa-1552-41b9-a07f-08c0344bb0bc}"/>
+    <RecordField fieldIdRef="26" name="parent_id" uid="{d7e3b2f7-bb66-453d-afab-c4c87320c523}"/>
+    <RecordField fieldIdRef="27" name="child_id" uid="{6a5150de-ff22-4379-ab94-2cde57562363}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{844808d8-86eb-4898-8ca8-24d47d0a4165}" where="">
+    <RecordField colName="fech_fi" fieldIdRef="13" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c65ad654-205a-4aed-af0c-f6261d925757}"/>
+    <RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="0" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{c27b1cfa-ffa7-4093-831c-8e9cd78b2b6c}"/>
+    <RecordField colName="cod_n" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{f3e4b894-d3d3-4417-87c1-7d7de6575db0}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{399eaa79-3dd9-4c02-b8db-8592200882b0}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{822b14dc-87d3-4447-b1a0-83749c7b014b}"/>
+    <RecordField colName="cod_sec" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{5a301b46-d3cf-47a4-8634-bb58da4e0b58}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="5" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{229438bd-7691-4450-b565-e0100e3600eb}"/>
+    <RecordField colName="" fieldIdRef="14" name="bodega" sqlTabName="" sqlType="INTEGER" table_alias_name="" uid="{45aa8009-57a0-4155-bc46-7e0469dcb37c}"/>
+  </Record>
+  <Form gridHeight="21" gridWidth="204" name="ipfmcs004" style="basic" text="CONSULTA EXISTENCIAS">
+    <Grid gridHeight="20" gridWidth="204" name="Grid1" posX="0" posY="0">
+      <Group gridHeight="6" gridWidth="123" name="Group1" posX="1" posY="1">
+        <Label posX="1" posY="1" text="Fecha"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="13" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="12" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
+        <Label posX="28" posY="1" text="INVENTARIO"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="0" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
+          <Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
+          <Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label1" posX="28" posY="2" text="Bodega"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="33" items="" name="bodega" posX="40" posY="2" sqlTabName="" sqlType="INTEGER" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox"/>
+        <Button gridHeight="1" gridWidth="10" name="ubicar" posX="110" posY="2" tabIndex="-1" text="Ubicacion"/>
+        <Label gridHeight="1" gridWidth="9" name="Label2" posX="1" posY="4" text="Productos"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="11" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="18" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="26" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="33" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="5" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="4" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
+        <Button gridHeight="1" gridWidth="10" image="" name="foto" posX="82" posY="4" tabIndex="21" text="Foto"/>
+        <Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="96" posY="4" tabIndex="22" text="Ordenes"/>
+        <Button gridHeight="1" gridWidth="10" name="reservado" posX="110" posY="4" tabIndex="23" text="Reservados"/>
+      </Group>
+      <Group gridHeight="11" gridWidth="203" name="Group2" posX="1" posY="8">
+        <Tree gridHeight="9" gridWidth="201" idColumn="child_id" name="Table1" parentIdColumn="parent_id" posX="1" posY="1" style="detalle" totalRows="5" unitWidth="characters" width="100">
+          <Phantom colName="" fieldId="20" name="estado" sqlTabName="" table_alias_name="" widget="Phantom"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="6" gridHeight="1" gridWidth="12" name="cod_n1" posX="0" posY="0" scroll="true" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="7" gridHeight="1" gridWidth="12" name="cod_grupo1" posX="12" posY="0" scroll="true" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="8" gridHeight="1" gridWidth="12" name="cod_tipo1" posX="24" posY="0" scroll="true" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="9" gridHeight="1" gridWidth="12" name="cod_sec1" picture="fileopen" posX="36" posY="0" scroll="true" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="11" gridHeight="1" gridWidth="54" name="descrip_esp1" posX="48" posY="0" sqlTabName="formonly" style="detalle" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00001.unidad_med" posX="102" posY="0" sqlTabName="intb00001" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="bodega1" posX="108" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="BODEGA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="10" gridHeight="1" gridWidth="13" name="existencia" posX="116" posY="0" sqlTabName="formonly" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad_orden" posX="129" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="disponible" posX="137" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="DISPONIBLE" widget="Edit"/>
+          <ButtonEdit action="reservas" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="reservado" posX="145" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="RESERVADO" widget="ButtonEdit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="transito" posX="153" posY="0" sqlTabName="" tabIndex="20" table_alias_name="" title="TRANSITO" widget="Edit"/>
+          <Edit fieldId="21" gridHeight="1" gridWidth="8" name="valororden" posX="161" posY="0" tabIndex="-1" title="VALOR ORDEN" widget="Edit"/>
+          <Phantom fieldId="26" name="parent_id" widget="Phantom"/>
+          <Phantom fieldId="27" name="child_id" widget="Phantom"/>
+        </Tree>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewBlAGUAMwAyADcANgAxAGYALQBjAGQAMQBiAC0ANAA3AGYAYQAtADkAYwBjADcALQAzADYAZQBmADQAOQBhAGEAZQAyADEANgB9wG/gAKdYAZnAUgAAXoAA5z9gYk3S8an8AQAAAEwAewA4ADQANAA4ADAAOABkADgALQA4ADYAZQBiAC0ANAA4ADkAOAAtADgAYwBhADgALQAyADQAZAA0ADcAZAAwAGEANAAxADYANQB9QCQAAGkAAQFAJAAAaQABAT9ok3S8an76AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs004.per

@@ -0,0 +1,58 @@
+{ 
+===============================================================================
+FORMULARIO   : IPFMCS004
+OBJETIVO     : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
+               SU EXISTENCIA.
+DISENO       : JUAN F. SOTO
+FECHA        : AGOSTO 1997     
+ASESOR       : JOSE ALFREDO PAULINO
+===============================================================================
+}
+SCHEMA smarmotech
+LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
+ GRID
+{
+<G                                                                                > 
+ Fecha [fe        ] INVENTARIO [inv                              ]
+ Productos [a   ]-[b   ]-[c   ]-[d   ] [a1                               ]
+
+<g                                                                                                   >
+ <t                                                                                                 >
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ]
+}
+ end
+END
+tables
+iptb00002,intb00001
+attributes
+COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
+a = iptb00002.cod_n,
+    comments = "Digite el nivel del Productos";
+b = iptb00002.cod_grupo,autonext,
+    comments = "Digite el grupo del Productos";
+c = iptb00002.cod_tipo,autonext,
+    comments = "Digite el tipo del Productos";
+d = iptb00002.cod_sec,autonext,
+    comments = "Digite la secuencia del Productos";
+a1 = formonly.descrip_esp,scroll;
+e = formonly.cod_n1,TITLE="PRODUCTO";
+f = formonly.cod_grupo1;
+g = formonly.cod_tipo1;
+h = formonly.cod_sec1;
+f008 = formonly.existencia,TITLE="EXISTENCIA";
+k = formonly.descrip_esp1,TITLE="DESCRIPCION";
+l = intb00001.unidad_med;
+DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
+instructions
+  delimiters " "
+
+ screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
+               unidad_med,existencia)
+end

PROYECTO/ipdir/ipfmcs004_1.4fd

@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{ba2dcc2e-7464-46eb-a6b6-d6709e04202d}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{841bae49-2eb2-4ca2-9940-aa5a1d621843}" where="">
+    <RecordField colName="" fieldIdRef="24" name="estado" sqlTabName="" table_alias_name="" uid="{9025befd-7b49-4d51-bc1c-34de75f6df71}"/>
+    <RecordField colName="cod_n1" fieldIdRef="7" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d43a1444-0fb1-4524-85cb-f7c0a4e0378f}"/>
+    <RecordField colName="cod_grupo1" fieldIdRef="8" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{a58b7eaf-1c48-4087-a414-092fdff3f0c1}"/>
+    <RecordField colName="cod_tipo1" fieldIdRef="9" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{0d306b18-d5d0-4677-a987-2956382fd4b0}"/>
+    <RecordField colName="cod_sec1" fieldIdRef="10" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{18aa2b5f-1a1e-409c-bee5-9615a2558fac}"/>
+    <RecordField colName="descrip_esp1" fieldIdRef="13" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{be556afa-bdfc-4e62-be87-e8924e52d9b9}"/>
+    <RecordField colName="unidad_med" fieldIdRef="14" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{16dc11a9-1a37-4df0-8726-3314d8c2c41a}"/>
+    <RecordField colName="existencia" fieldIdRef="11" name="existencia" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{f9b26b63-df5a-42ed-a968-ad9eebdc2d8c}"/>
+    <RecordField colName="cantidad_ordenes" fieldIdRef="12" name="cantidad_ordenes" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{9768e94e-ac15-493b-ab5d-ed87b0d5773c}"/>
+    <RecordField colName="" fieldIdRef="20" name="pventas" sqlTabName="" sqlType="FLOAT" table_alias_name="" uid="{e401d4f7-f7e0-4062-a486-22abbec42309}"/>
+    <RecordField colName="ventas" fieldIdRef="16" name="ventas" sqlTabName="formonly" table_alias_name="" uid="{f8bddaff-a5f2-481e-8503-318b566f9d25}"/>
+    <RecordField colName="precio" fieldIdRef="17" name="precio" sqlTabName="formonly" table_alias_name="" uid="{c5504c78-6d8a-4a7a-aa52-85d42a3129ae}"/>
+    <RecordField colName="" fieldIdRef="21" name="reservado" sqlTabName="" table_alias_name="" uid="{508da58a-4bbe-4dbf-a434-7760c21b2d67}"/>
+    <RecordField colName="" fieldIdRef="22" name="Transito" sqlTabName="" table_alias_name="" uid="{ee7fcde4-ea7c-4d72-b194-e87794db9c47}"/>
+    <RecordField colName="" fieldIdRef="25" name="fecha_llegada" sqlTabName="" table_alias_name="" uid="{d41c0a7e-8012-4fd5-878b-5d97c9327a5e}"/>
+    <RecordField colName="" fieldIdRef="26" name="fecha_ordenada" sqlTabName="" table_alias_name="" uid="{b62ca1a5-4c38-40a6-9ba4-2d83d7e837fa}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{4616191b-7b7f-4983-82db-232c11ba990f}" where="">
+    <RecordField colName="fech_fi" fieldIdRef="15" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c0a284fe-4dad-4739-b295-c0913354c8d7}"/>
+    <RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="1" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{f2f54a53-791e-40a2-a753-ab280e557a85}"/>
+    <RecordField colName="cod_n" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{32603d69-b994-46ff-9e4b-3faa755d4586}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{66799fe3-670d-4e8f-bef1-d991b0b4d632}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{447ff516-386e-43f0-b3e0-20d8d7cc6fcd}"/>
+    <RecordField colName="cod_sec" fieldIdRef="5" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{bb061484-c43d-4a04-b157-174a2860c633}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="6" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{1c8aef7f-a310-4033-baca-54c0b2f8a564}"/>
+    <RecordField colName="" defaultValue="SI" fieldIdRef="18" name="chexistencia" sqlTabName="" table_alias_name="" uid="{0d7684e2-8dc2-4abe-b21c-618e7607fcec}"/>
+    <RecordField colName="" defaultValue="NO" fieldIdRef="19" name="chordenes" sqlTabName="" table_alias_name="" uid="{3da73ca7-ee45-424b-a434-bc0b3ec7f076}"/>
+    <RecordField colName="" fieldIdRef="23" name="progreso" sqlTabName="" table_alias_name="" uid="{c025b8a1-acfc-45e2-b790-f9f5e84f1a42}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{c5a4fe00-dbf7-4fb2-9788-038056c7b596}" where="">
+    <RecordField colName="" defaultValue="SI" fieldIdRef="18" name="chexistencia" sqlTabName="" table_alias_name="" uid="{bffb3cfe-f98e-4d39-8fe6-ca219aeca278}"/>
+  </Record>
+  <Form gridHeight="15" gridWidth="254" name="ipfmcs004_1" style="basic" text="CONSULTA EXISTENCIAS">
+    <Grid gridHeight="15" gridWidth="254" name="Grid1" posX="0" posY="0">
+      <Group gridHeight="5" gridWidth="83" name="Group1" posX="1" posY="0">
+        <Label posX="1" posY="1" text="Fecha"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="15" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="8" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label1" posX="20" posY="1" text="INVENTARIO"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="1" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
+          <Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
+          <Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="8" name="Label2" posX="1" posY="3" text="Productos"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="10" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="17" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="24" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="32" posY="3" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="6" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="3" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
+      </Group>
+      <CheckBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="SI" fieldId="18" gridHeight="1" gridWidth="19" name="chexistencia" posX="88" posY="1" sqlTabName="" tabIndex="18" table_alias_name="" text="Incluye Existencia" title="CheckBox1" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
+      <CheckBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="19" gridHeight="1" gridWidth="32" name="chordenes" posX="88" posY="2" sqlTabName="" tabIndex="19" table_alias_name="" text="Incluye Cantidades Ordenes PEdidos" title="CheckBox2" valueChecked="SI" valueUnchecked="NO" widget="CheckBox"/>
+      <ProgressBar aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="20" name="progreso" posX="91" posY="3" sqlTabName="" table_alias_name="" title="ProgressBar1" widget="ProgressBar"/>
+      <Button gridHeight="1" gridWidth="10" name="foto" posX="132" posY="3" tabIndex="25" text="Fotos"/>
+      <Button gridHeight="1" gridWidth="10" name="bexistencia" posX="143" posY="3" tabIndex="24" text="Almacenes"/>
+      <Button gridHeight="1" gridWidth="10" name="reservado" posX="158" posY="3" tabIndex="23" text="Reservados"/>
+      <Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="172" posY="3" tabIndex="29" text="Ordenes"/>
+      <Button gridHeight="1" gridWidth="10" image="lingua.png" name="btransito" posX="186" posY="3" tabIndex="28" text="Fecha Llegada"/>
+      <Group gridHeight="10" gridWidth="253" name="Group2" posX="1" posY="5">
+        <Table gridHeight="7" gridWidth="251" name="Table1" posX="1" posY="1" style="detalle" totalRows="6" unitWidth="characters" width="139">
+          <FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="24" gridHeight="1" gridWidth="8" name="estado" posX="0" posY="0" sqlTabName="" table_alias_name="" widget="FFImage"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="7" gridHeight="1" gridWidth="12" name="cod_n1" posX="8" posY="0" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="8" gridHeight="1" gridWidth="12" name="cod_grupo1" posX="20" posY="0" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="9" gridHeight="1" gridWidth="12" name="cod_tipo1" posX="32" posY="0" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="10" gridHeight="1" gridWidth="12" name="cod_sec1" posX="44" posY="0" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="13" gridHeight="1" gridWidth="30" name="descrip_esp1" posX="56" posY="0" scroll="true" sqlTabName="formonly" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="14" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="5" name="intb00001.unidad_med" posX="86" posY="0" sqlTabName="intb00001" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="11" format="(((,(((,((&amp;.##)" gridHeight="1" gridWidth="15" name="existencia" posX="91" posY="0" scroll="true" sqlTabName="formonly" sqlType="FLOAT" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cantidad_ordenes" fieldId="12" format="(((,(((,(&amp;&amp;.##)" gridHeight="1" gridWidth="16" name="cantidad_ordenes" posX="106" posY="0" scroll="true" sqlTabName="formonly" sqlType="FLOAT" tabIndex="15" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" format="(((,(((,(&amp;&amp;.##)" gridHeight="1" gridWidth="16" name="pventas" posX="122" posY="0" scroll="true" sqlTabName="" sqlType="FLOAT" tabIndex="20" table_alias_name="" title="Disponible" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="ventas" fieldId="16" gridHeight="1" gridWidth="20" name="ventas" posX="138" posY="0" scroll="true" sqlTabName="formonly" tabIndex="16" table_alias_name="" title="TIPO VENTAS" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="precio" fieldId="17" gridHeight="1" gridWidth="15" name="precio" posX="158" posY="0" scroll="true" sqlTabName="formonly" tabIndex="17" table_alias_name="" title="PRECIO" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="8" name="reservado" posX="173" posY="0" scroll="true" sqlTabName="" tabIndex="21" table_alias_name="" title="Reservado" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="8" name="Transito" posX="181" posY="0" scroll="true" sqlTabName="" tabIndex="22" table_alias_name="" title="transito" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="25" gridHeight="1" gridWidth="8" name="fecha_llegada" posX="189" posY="0" sqlTabName="" tabIndex="26" table_alias_name="" title="Fecha recibida" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="26" gridHeight="1" gridWidth="8" name="fecha_ordenada" posX="197" posY="0" scroll="true" sqlTabName="" tabIndex="27" table_alias_name="" title="Fecha Ordenada" widget="Edit"/>
+        </Table>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewA0ADYAMQA2ADEAOQAxAGIALQA3AGIANwBmAC0ANAA5ADgAMwAtADgAMgBkAGIALQAyADMAMgBjADEAMQBiAGEAOQA5ADAAZgB9QCQAAEEAAGFAJAAAQQAAYQAAAAAAAAAAAQAAAEwAewA4ADQAMQBiAGEAZQA0ADkALQAyAGUAYgAyAC0ANABjAGEAMgAtADkAOQA0ADAALQBhAGEANQBhADEAZAA2ADIAMQA4ADQAMwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBjADUAYQA0AGYAZQAwADAALQBkAGIAZgA3AC0ANABmAGIAMgAtADkANwA4ADgALQAwADMAOAAwADUANgBjADcAYgA1ADkANgB9QDQAAEEAAGFANAAAQQAAYQAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs004_1.per

@@ -0,0 +1,63 @@
+{ 
+===============================================================================
+FORMULARIO   : IPFMCS004
+OBJETIVO     : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
+               SU EXISTENCIA.
+DISENO       : JUAN F. SOTO
+FECHA        : AGOSTO 1997     
+ASESOR       : JOSE ALFREDO PAULINO
+===============================================================================
+}
+SCHEMA smarmotech
+LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
+ GRID
+{
+<G                                                                                > 
+ Fecha [fe        ] INVENTARIO [inv                              ]
+                  Lista Precios[list                             ]       
+ Productos [a   ]-[b   ]-[c   ]-[d   ] [a1                               ]
+
+<g                                                                                                                                           >
+ <t                                                                                                                                        >
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ [e  ][f  ][g    ][h   ][k                                                     ][l  ][f008         ][f009          ][p1                  ][p2             ]
+ 
+}
+ end
+END
+tables
+iptb00002,intb00001
+ATTRIBUTES
+COMBOBOX list = formonly.cod_lista,ITEMS=(("1","GENERAL"),("2","PRECIOS FERIA")),default=1;
+COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
+a = iptb00002.cod_n,
+    comments = "Digite el nivel del Productos";
+b = iptb00002.cod_grupo,autonext,
+    comments = "Digite el grupo del Productos";
+c = iptb00002.cod_tipo,autonext,
+    comments = "Digite el tipo del Productos";
+d = iptb00002.cod_sec,autonext,
+    comments = "Digite la secuencia del Productos";
+a1 = formonly.descrip_esp,scroll;
+e = formonly.cod_n1,TITLE="PRODUCTO";
+f = formonly.cod_grupo1;
+g = formonly.cod_tipo1;
+h = formonly.cod_sec1;
+f008 = formonly.existencia,TITLE="EXISTENCIA";
+f009 = formonly.cantidad_ordenes,TITLE="CANTIDAD ORDEN";
+k = formonly.descrip_esp1,TITLE="DESCRIPCION",scroll;
+l = intb00001.unidad_med;
+DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
+P1 = formonly.ventas,TITLE="TIPO VENTAS",scroll; 
+p2 = formonly.precio,TITLE="PRECIO";
+
+instructions
+  delimiters " "
+
+ screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
+               unidad_med,existencia,cantidad_ordenes,ventas,precio)
+end

PROYECTO/ipdir/ipfmcs004_2.4fd

@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31405" name="ManagedForm" uid="{39e294a0-a719-49ab-aff8-ad5cbe57a377}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="consart" order="" uid="{ee32761f-cd1b-47fa-9cc7-36ef49aae216}" where="">
+    <RecordField colName="" fieldIdRef="20" name="estado" sqlTabName="" table_alias_name="" uid="{3728a341-d6bc-462a-b137-bf69c48dd55b}"/>
+    <RecordField colName="cod_n1" fieldIdRef="6" name="cod_n1" sqlTabName="formonly" table_alias_name="" uid="{d6ab163a-398e-498d-a0e1-6ea750a3e218}"/>
+    <RecordField colName="cod_grupo1" fieldIdRef="7" name="cod_grupo1" sqlTabName="formonly" table_alias_name="" uid="{865bf10a-8dc6-4482-a768-70efc74eca4a}"/>
+    <RecordField colName="cod_tipo1" fieldIdRef="8" name="cod_tipo1" sqlTabName="formonly" table_alias_name="" uid="{6050e8e1-a893-4eab-a0b9-168b1807e787}"/>
+    <RecordField colName="cod_sec1" fieldIdRef="9" name="cod_sec1" sqlTabName="formonly" table_alias_name="" uid="{a0465479-26ba-45c7-940a-7b6579c4d40f}"/>
+    <RecordField colName="descrip_esp1" fieldIdRef="11" name="descrip_esp1" sqlTabName="formonly" table_alias_name="" uid="{a667c237-9b8e-4fed-8509-ecb68960e1db}"/>
+    <RecordField colName="unidad_med" fieldIdRef="12" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{e05d3986-979f-4bec-9db9-ddc0fced49ff}"/>
+    <RecordField colName="" fieldIdRef="16" name="bodega1" sqlTabName="" table_alias_name="" uid="{6f1dfefb-5faf-4250-bf3a-ade77d982b79}"/>
+    <RecordField colName="existencia" fieldIdRef="10" name="existencia" sqlTabName="formonly" table_alias_name="" uid="{a6513ed0-0316-4e56-86ce-b52e6c9a913e}"/>
+    <RecordField colName="" fieldIdRef="15" name="cantidad_orden" sqlTabName="" table_alias_name="" uid="{e0703236-0d3f-49f8-8457-822899f5ea61}"/>
+    <RecordField colName="" fieldIdRef="17" name="disponible" sqlTabName="" table_alias_name="" uid="{df7259f7-f7c2-4fb3-b582-8a78e7eb8abb}"/>
+    <RecordField colName="" fieldIdRef="18" name="reservado" sqlTabName="" table_alias_name="" uid="{066bddd4-e890-45de-bf73-1a1f5f3056ee}"/>
+    <RecordField colName="" fieldIdRef="19" name="transito" sqlTabName="" table_alias_name="" uid="{90733f33-6f99-4840-8af6-9d9fd9f56919}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{844808d8-86eb-4898-8ca8-24d47d0a4165}" where="">
+    <RecordField colName="fech_fi" fieldIdRef="13" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c65ad654-205a-4aed-af0c-f6261d925757}"/>
+    <RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="0" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{c27b1cfa-ffa7-4093-831c-8e9cd78b2b6c}"/>
+    <RecordField colName="cod_n" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{f3e4b894-d3d3-4417-87c1-7d7de6575db0}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{399eaa79-3dd9-4c02-b8db-8592200882b0}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{822b14dc-87d3-4447-b1a0-83749c7b014b}"/>
+    <RecordField colName="cod_sec" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{5a301b46-d3cf-47a4-8634-bb58da4e0b58}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="5" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{229438bd-7691-4450-b565-e0100e3600eb}"/>
+    <RecordField colName="" fieldIdRef="14" name="bodega" sqlTabName="" table_alias_name="" uid="{45aa8009-57a0-4155-bc46-7e0469dcb37c}"/>
+  </Record>
+  <Form gridHeight="21" gridWidth="186" name="ipfmcs004" style="basic" text="CONSULTA EXISTENCIAS">
+    <Grid gridHeight="20" gridWidth="186" name="Grid1" posX="0" posY="0">
+      <Group gridHeight="6" gridWidth="122" name="Group1" posX="1" posY="1">
+        <Label posX="1" posY="1" text="Fecha"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="13" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="12" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
+        <Label posX="28" posY="1" text="INVENTARIO"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="0" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
+          <Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
+          <Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label1" posX="28" posY="2" text="Bodega"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="33" items="" name="bodega" posX="40" posY="2" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="9" name="Label2" posX="1" posY="4" text="Productos"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="11" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="18" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="26" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="33" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="5" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="4" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
+        <Button gridHeight="1" gridWidth="10" image="" name="foto" posX="82" posY="4" tabIndex="21" text="Foto"/>
+        <Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="96" posY="4" tabIndex="22" text="Ordenes"/>
+        <Button gridHeight="1" gridWidth="10" name="reservado" posX="110" posY="4" tabIndex="23" text="Reservados"/>
+      </Group>
+      <Group gridHeight="11" gridWidth="185" name="Group2" posX="1" posY="8">
+        <Table gridHeight="9" gridWidth="183" name="Table1" posX="1" posY="1" style="detalle" totalRows="8" unitWidth="characters" width="100">
+          <FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" gridHeight="1" gridWidth="8" name="estado" posX="0" posY="0" sqlTabName="" table_alias_name="" widget="FFImage"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n1" fieldId="6" gridHeight="1" gridWidth="12" name="cod_n1" posX="8" posY="0" scroll="true" sqlTabName="formonly" tabIndex="8" table_alias_name="" title="PRODUCTO" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_grupo1" fieldId="7" gridHeight="1" gridWidth="12" name="cod_grupo1" posX="20" posY="0" scroll="true" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_tipo1" fieldId="8" gridHeight="1" gridWidth="12" name="cod_tipo1" posX="32" posY="0" scroll="true" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec1" fieldId="9" gridHeight="1" gridWidth="12" name="cod_sec1" picture="fileopen" posX="44" posY="0" scroll="true" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp1" fieldId="11" gridHeight="1" gridWidth="54" name="descrip_esp1" posX="56" posY="0" sqlTabName="formonly" tabIndex="12" table_alias_name="" title="DESCRIPCION" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="intb00001.unidad_med" posX="110" posY="0" sqlTabName="intb00001" sqlType="CHAR" tabIndex="13" table_alias_name="" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="bodega1" posX="116" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="BODEGA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="existencia" fieldId="10" gridHeight="1" gridWidth="13" name="existencia" posX="124" posY="0" sqlTabName="formonly" tabIndex="14" table_alias_name="" title="EXISTENCIA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad_orden" posX="137" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="CANTIDAD ORDEN" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="disponible" posX="145" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="DISPONIBLE" widget="Edit"/>
+          <ButtonEdit action="reservas" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="reservado" posX="153" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="RESERVADO" widget="ButtonEdit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="transito" posX="161" posY="0" sqlTabName="" tabIndex="20" table_alias_name="" title="TRANSITO" widget="Edit"/>
+        </Table>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewA4ADQANAA4ADAAOABkADgALQA4ADYAZQBiAC0ANAA4ADkAOAAtADgAYwBhADgALQAyADQAZAA0ADcAZAAwAGEANAAxADYANQB9QCQAADcAAERAJAAANwAARAAAAAAAAAAAAQAAAEwAewBlAGUAMwAyADcANgAxAGYALQBjAGQAMQBiAC0ANAA3AGYAYQAtADkAYwBjADcALQAzADYAZQBmADQAOQBhAGEAZQAyADEANgB9wG/gAFeoAG7AUgAAMYAAPj9gYk3S8an8AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs004_3.4fd

@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{39e294a0-a719-49ab-aff8-ad5cbe57a377}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{844808d8-86eb-4898-8ca8-24d47d0a4165}" where="">
+    <RecordField colName="fech_fi" fieldIdRef="13" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{c65ad654-205a-4aed-af0c-f6261d925757}"/>
+    <RecordField colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldIdRef="0" name="inventario" sqlTabName="formonly" table_alias_name="" uid="{c27b1cfa-ffa7-4093-831c-8e9cd78b2b6c}"/>
+    <RecordField colName="cod_n" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{f3e4b894-d3d3-4417-87c1-7d7de6575db0}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{399eaa79-3dd9-4c02-b8db-8592200882b0}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{822b14dc-87d3-4447-b1a0-83749c7b014b}"/>
+    <RecordField colName="cod_sec" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{5a301b46-d3cf-47a4-8634-bb58da4e0b58}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="5" name="descrip_esp" sqlTabName="formonly" table_alias_name="" uid="{229438bd-7691-4450-b565-e0100e3600eb}"/>
+    <RecordField colName="" fieldIdRef="14" name="bodega" sqlTabName="" table_alias_name="" uid="{45aa8009-57a0-4155-bc46-7e0469dcb37c}"/>
+  </Record>
+  <Record name="consart" uid="{f7b818a1-34d5-4d16-bc18-8fe9c8353cd5}">
+    <RecordField fieldIdRef="21" name="producto" uid="{6df5acda-b423-4883-a5bc-edc809975275}"/>
+    <RecordField fieldIdRef="22" name="almacen" uid="{e6d75e49-ec65-4b8b-870b-87caa8e4b4ce}"/>
+    <RecordField fieldIdRef="25" name="existencia" uid="{2b5ea831-0c74-41a8-b4f8-1d7a465aad33}"/>
+    <RecordField fieldIdRef="26" name="cantidad_orden" uid="{ae8618e6-22dd-4d28-a035-89d231475793}"/>
+    <RecordField fieldIdRef="27" name="disponible" uid="{4ae2f2d4-7be0-4b7f-9acd-f46120f3462a}"/>
+    <RecordField fieldIdRef="28" name="reservado" uid="{73e0aad1-6761-4324-88f1-0c5c1a9c2f5c}"/>
+    <RecordField fieldIdRef="29" name="transito" uid="{eb9c4bb4-0c2e-4855-8723-b4ef9e782231}"/>
+    <RecordField fieldIdRef="6" name="valorORden" uid="{33ab2653-36b3-4e23-a3e4-0811c0a5944e}"/>
+  </Record>
+  <Form gridHeight="21" gridWidth="186" name="ipfmcs004" style="basic" text="CONSULTA EXISTENCIAS">
+    <Grid gridHeight="20" gridWidth="186" name="Grid1" posX="0" posY="0">
+      <Group gridHeight="6" gridWidth="122" name="Group1" posX="1" posY="1">
+        <Label posX="1" posY="1" text="Fecha"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="13" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="12" posY="1" sqlTabName="formonly" sqlType="DATE" tabIndex="1" table_alias_name="" widget="DateEdit"/>
+        <Label posX="28" posY="1" text="INVENTARIO"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="inventario" defaultValue="PRODUCTOS TERMINADOS" fieldId="0" gridHeight="1" gridWidth="33" include="MATERIA PRIMA|PRODUCTOS TERMINADOS" items="MATERIA PRIMA, PRODUCTOS TERMINADOS" name="inventario" posX="40" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="ComboBox">
+          <Item name="MATERIA PRIMA" text="MATERIA PRIMA"/>
+          <Item name="PRODUCTOS TERMINADOS" text="PRODUCTOS TERMINADOS"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label1" posX="28" posY="2" text="Bodega"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="33" items="" name="bodega" posX="40" posY="2" sqlTabName="" tabIndex="8" table_alias_name="" title="ComboBox1" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="9" name="Label2" posX="1" posY="4" text="Productos"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_n" comment="Digite el nivel del Productos" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="11" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el grupo del Productos" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="18" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el tipo del Productos" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="26" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite la secuencia del Productos" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="33" posY="4" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_esp" fieldId="5" gridHeight="1" gridWidth="33" name="descrip_esp" posX="40" posY="4" scroll="true" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="Edit"/>
+        <Button gridHeight="1" gridWidth="10" image="" name="foto" posX="82" posY="4" tabIndex="9" text="Foto"/>
+        <Button gridHeight="1" gridWidth="10" name="ordendisponible" posX="96" posY="4" tabIndex="10" text="Ordenes"/>
+        <Button gridHeight="1" gridWidth="10" name="reservado" posX="110" posY="4" tabIndex="11" text="Reservados"/>
+      </Group>
+      <Group gridHeight="11" gridWidth="185" name="Group2" posX="1" posY="8">
+        <Table gridHeight="6" gridWidth="107" name="tree1" posX="2" posY="1" totalRows="5">
+          <Edit fieldId="21" gridHeight="1" gridWidth="8" name="producto" posX="0" posY="0" tabIndex="-1" title="PRODUCTO(S)" widget="Edit"/>
+          <Edit fieldId="22" gridHeight="1" gridWidth="10" name="almacen" posX="8" posY="0" tabIndex="-1" title="ALMACENE(S)" widget="Edit"/>
+          <Edit fieldId="25" gridHeight="1" gridWidth="8" name="existencia" posX="18" posY="0" tabIndex="-1" title="EXISTENCIA" widget="Edit"/>
+          <Edit fieldId="26" gridHeight="1" gridWidth="8" name="cantidad_orden" posX="26" posY="0" tabIndex="-1" title="CANTIDAD ORDEN" widget="Edit"/>
+          <Edit fieldId="27" gridHeight="1" gridWidth="8" name="disponible" posX="34" posY="0" tabIndex="-1" title="DISPONIBLE" widget="Edit"/>
+          <Edit fieldId="28" gridHeight="1" gridWidth="8" name="reservado" posX="42" posY="0" tabIndex="-1" title="RESERVADO" widget="Edit"/>
+          <Edit fieldId="29" gridHeight="1" gridWidth="8" name="transito" posX="50" posY="0" tabIndex="-1" title="TRANSITO" widget="Edit"/>
+          <Edit fieldId="6" gridHeight="1" gridWidth="8" hidden="true" name="valorORden" posX="58" posY="0" tabIndex="-1" title="edit1" widget="Edit"/>
+        </Table>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewA4ADQANAA4ADAAOABkADgALQA4ADYAZQBiAC0ANAA4ADkAOAAtADgAYwBhADgALQAyADQAZAA0ADcAZAAwAGEANAAxADYANQB9QCQAAEsAAIJAJAAASwAAggAAAAAAAAAAAQAAAEwAewBmADcAYgA4ADEAOABhADEALQAzADQAZAA1AC0ANABkADEANgAtAGIAYwAxADgALQA4AGYAZQA5AGMAOAAzADUAMwBjAGQANQB9QDAAABAAAAZAMAAAEAAABj9QYk3S8an8AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs004b.per

@@ -0,0 +1,80 @@
+{
+===============================================================================
+FORMULARIO   : IPFMCS004B
+OBJETIVO     : AJUSTE DE EXISTENCIA EN UBICACIONES (IPTB00062).
+               El usuario digita UNIDADES y el programa calcula la CANTIDAD
+               (existencia) = unidades * factor_conv (IPTB00001). Cuadra el
+               total de ubicaciones contra la existencia real de IPTB00006 sin
+               tocar IPTB00006; solo registra la diferencia (cod_mov 99).
+DISENO       : Ing. Juan F. Soto
+===============================================================================
+}
+SCHEMA formonly
+
+LAYOUT (TEXT = "AJUSTE DE EXISTENCIA EN UBICACIONES")
+GRID grid1
+{
+ Producto     [f01                                                        ]
+ Descripcion  [f02                                                        ]
+ Bodega       [f03                                    ]
+
+ Existencia real [f04           ] Total ubicaciones [f05           ] Diferencia [f06           ]
+
+ <T tabla                                                                                       >
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ [c1              |c2          |c3          |c4          |c5          |c6          |c7          ]
+ <                                                                                              >
+
+}
+END
+END
+
+ATTRIBUTES
+EDIT f01 = formonly.pcodigo, NOENTRY;
+EDIT f02 = formonly.pdesc, NOENTRY, SCROLL;
+EDIT f03 = formonly.pbodega, NOENTRY;
+EDIT f04 = formonly.ereal, NOENTRY;
+EDIT f05 = formonly.tubic, NOENTRY;
+EDIT f06 = formonly.pdif, NOENTRY;
+
+TABLE tabla:tabla;
+PHANTOM formonly.cod_seccion;
+PHANTOM formonly.cod_tramo;
+PHANTOM formonly.cod_fila;
+PHANTOM formonly.cod_pos;
+EDIT c1 = formonly.desc_seccion, TITLE = "SECCION", NOENTRY, SCROLL;
+EDIT c2 = formonly.desc_tramo, TITLE = "TRAMO", NOENTRY, SCROLL;
+EDIT c3 = formonly.desc_fila, TITLE = "FILA", NOENTRY, SCROLL;
+EDIT c4 = formonly.desc_pos, TITLE = "POSICION", NOENTRY, SCROLL;
+EDIT c5 = formonly.existencia_act, TITLE = "EXIST. ACTUAL", NOENTRY;
+PHANTOM formonly.unidades_act;
+EDIT c6 = formonly.unidades, TITLE = "UNIDADES";
+EDIT c7 = formonly.existencia, TITLE = "CANTIDAD", NOENTRY;
+END
+
+INSTRUCTIONS
+SCREEN RECORD sr_enc(formonly.pcodigo,
+    formonly.pdesc,
+    formonly.pbodega,
+    formonly.ereal,
+    formonly.tubic,
+    formonly.pdif);
+SCREEN RECORD sr_loc(formonly.cod_seccion,
+    formonly.cod_tramo,
+    formonly.cod_fila,
+    formonly.cod_pos,
+    formonly.desc_seccion,
+    formonly.desc_tramo,
+    formonly.desc_fila,
+    formonly.desc_pos,
+    formonly.existencia_act,
+    formonly.unidades_act,
+    formonly.unidades,
+    formonly.existencia);
+END

PROYECTO/ipdir/ipfmcs005.4fd

@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{cb965181-93ba-43e6-955c-211bc5a93c07}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Form gridHeight="34" gridWidth="99" name="Form" text="Form">
+    <VBox gridHeight="9" gridWidth="94" name="VBox1" posX="1" posY="1">
+      <Group gridHeight="7" gridWidth="94" name="Group1" posX="0" posY="1" text="Group1"/>
+    </VBox>
+    <VBox gridHeight="10" gridWidth="94" name="VBox2" posX="1" posY="11">
+      <Group gridHeight="8" gridWidth="94" name="Group2" posX="0" posY="1" text="Group2"/>
+    </VBox>
+    <VBox gridHeight="11" gridWidth="94" name="VBox3" posX="1" posY="22">
+      <Group gridHeight="9" gridWidth="94" name="Group3" posX="0" posY="1" text="Group3"/>
+    </VBox>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAg==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs006.4fd

@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{ba006795-dd56-4183-a465-0364314c1ce5}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="s_csmov" order="" uid="{425e8f13-2de6-4c39-9aee-b0d5a66b34fa}" where="">
+    <RecordField colName="" fieldIdRef="19" name="descripcion_mov1" sqlTabName="" table_alias_name="" uid="{0e2f1802-995b-4cf2-b566-750a9cae6394}"/>
+    <RecordField colName="num_doc" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00006.num_doc" sqlTabName="iptb00006" sqlType="INTEGER" table_alias_name="" uid="{02980e0d-42b2-4f17-a829-6650d62f3894}"/>
+    <RecordField colName="" fieldIdRef="17" name="num_oc" sqlTabName="" table_alias_name="" uid="{b0946f90-5eae-4a7e-9b18-645705ad0e1a}"/>
+    <RecordField colName="" fieldIdRef="18" name="num_compra" sqlTabName="" table_alias_name="" uid="{4941326c-86ad-4edf-be05-bca830964173}"/>
+    <RecordField colName="fecha" fieldIdRef="12" name="fecha" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{cd9654bf-f6cc-4ab9-8263-9dd218667837}"/>
+    <RecordField colName="" fieldIdRef="20" name="cantidad" sqlTabName="" table_alias_name="" uid="{2b28b1c9-a774-44f8-b50b-3d71f3b7fd30}"/>
+    <RecordField colName="entrada" fieldIdRef="13" name="entrada" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{f9da4f87-8df6-4ace-9436-6031aa56db45}"/>
+    <RecordField colName="salida" fieldIdRef="14" name="salida" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{b8772790-632b-4e51-b643-7d96308b8975}"/>
+    <RecordField colName="" fieldIdRef="8" name="bodega1" sqlTabName="" table_alias_name="" uid="{38abb214-f1ae-4797-84a7-7ba8d6fcaabd}"/>
+    <RecordField colName="balance" fieldIdRef="15" name="balance" sqlTabName="formonly" sqlType="FLOAT" table_alias_name="" uid="{4db00920-7c27-4b98-9dcf-5011062700c8}"/>
+    <RecordField fieldIdRef="21" name="parent_id" uid="{106bfb25-b49b-42b6-9325-9e7870086f5c}"/>
+    <RecordField fieldIdRef="22" name="child_id" uid="{338d5191-cf51-4b45-80fb-af7ba7a95d7d}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{4501acd0-a6de-43e5-a105-fa19f89923ad}" where="">
+    <RecordField colName="cod_n" fieldIdRef="2" name="cod_n" sqlTabName="formonly" sqlType="SMALLINT" table_alias_name="" uid="{92cf89df-2aed-4c95-9802-a8e1587273c1}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="3" name="cod_grupo" sqlTabName="formonly" table_alias_name="" uid="{d1bfbdb1-871f-4c9b-b03f-fa02e9f49de3}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="4" name="cod_tipo" sqlTabName="formonly" table_alias_name="" uid="{0278b961-5f1e-40df-b083-ce5cedc44185}"/>
+    <RecordField colName="cod_sec" fieldIdRef="5" name="cod_sec" sqlTabName="formonly" table_alias_name="" uid="{066c9e4e-d224-41e7-8231-96710498ee5d}"/>
+    <RecordField colName="descripcion" fieldIdRef="6" name="descripcion" sqlTabName="formonly" table_alias_name="" uid="{e06ab124-f4e5-400c-8194-3f7034f6ce66}"/>
+    <RecordField colName="unidad_med" fieldIdRef="7" fieldType="TABLE_COLUMN" name="intb00001.unidad_med" sqlTabName="intb00001" sqlType="CHAR" table_alias_name="" uid="{934d0fe5-6d29-490a-8204-d2888610ef7f}"/>
+    <RecordField colName="historico" defaultValue="N" fieldIdRef="1" name="historico" sqlTabName="formonly" table_alias_name="" uid="{3f122b99-8c0b-46b4-b924-75c000131c36}"/>
+    <RecordField colName="fech_in" fieldIdRef="9" name="fech_in" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{6ece9bfc-b40e-4de6-8022-f1d5d9020c98}"/>
+    <RecordField colName="fech_fi" fieldIdRef="10" name="fech_fi" sqlTabName="formonly" sqlType="DATE" table_alias_name="" uid="{f1e92c40-5f7c-4ee3-aec3-2f3f7c573b1e}"/>
+    <RecordField colName="balance_ini" fieldIdRef="0" name="balance_ini" sqlTabName="formonly" table_alias_name="" uid="{2f0e9086-be7b-4938-8618-79ecc2215e40}"/>
+    <RecordField colName="cod_sec" fieldIdRef="16" name="bodega" sqlTabName="formonly" table_alias_name="" uid="{6a7182e6-eaed-4a89-970f-aee977ddc636}"/>
+  </Record>
+  <Form gridHeight="20" gridWidth="133" name="ipfmcs006" text="CONSULTA TRANSACCIONES">
+    <Grid gridHeight="19" gridWidth="133" name="Grid1" posX="0" posY="0">
+      <Group gridHeight="6" gridWidth="93" name="Group1" posX="1" posY="1">
+        <Label gridHeight="1" gridWidth="10" name="Label1" posX="1" posY="1" text="Producto :"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" fieldId="2" gridHeight="1" gridWidth="3" name="cod_n" posX="12" posY="1" sqlTabName="formonly" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
+        <Label posX="16" posY="1" text="-"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" fieldId="3" gridHeight="1" gridWidth="4" name="cod_grupo" posX="18" posY="1" required="true" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="Edit"/>
+        <Label posX="23" posY="1" text="-"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" fieldId="4" gridHeight="1" gridWidth="5" name="cod_tipo" posX="25" posY="1" required="true" sqlTabName="formonly" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Label posX="31" posY="1" text="-"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" fieldId="5" gridHeight="1" gridWidth="5" name="cod_sec" posX="33" posY="1" required="true" sqlTabName="formonly" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descripcion" fieldId="6" gridHeight="1" gridWidth="39" name="descripcion" noEntry="true" posX="41" posY="1" sqlTabName="formonly" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="unidad_med" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="intb00001.unidad_med" noEntry="true" posX="83" posY="1" sqlTabName="intb00001" sqlType="CHAR" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="9" name="Label6" posX="52" posY="2" text="HISTORICO"/>
+        <RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="historico" defaultValue="N" fieldId="1" gridHeight="1" gridWidth="23" items="HISTORICO, ACTUAL" name="historico" posX="63" posY="2" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="RadioGroup">
+          <Item name="S" text="HISTORICO"/>
+          <Item name="N" text="ACTUAL"/>
+        </RadioGroup>
+        <Label gridHeight="1" gridWidth="14" name="Label3" posX="1" posY="3" text="Fecha Inicial:"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_in" fieldId="9" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_in" posX="16" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="8" table_alias_name="" widget="DateEdit"/>
+        <Label gridHeight="1" gridWidth="12" name="Label4" posX="28" posY="3" text="Fecha Final:"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_fi" fieldId="10" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="fech_fi" posX="41" posY="3" sqlTabName="formonly" sqlType="DATE" tabIndex="9" table_alias_name="" widget="DateEdit"/>
+        <Label gridHeight="1" gridWidth="16" name="Label5" posX="52" posY="3" text="BALANCE INICIAL:"/>
+        <FFLabel aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="balance_ini" fieldId="0" gridHeight="1" gridWidth="17" name="balance_ini" posX="69" posY="3" sqlTabName="formonly" table_alias_name="" widget="FFLabel"/>
+        <Label gridHeight="1" gridWidth="14" name="Label2" posX="1" posY="4" text="BODEGA:"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_sec" fieldId="16" gridHeight="1" gridWidth="24" items="" name="bodega" posX="16" posY="4" required="true" sqlTabName="formonly" tabIndex="17" table_alias_name="" widget="ComboBox"/>
+      </Group>
+      <Group gridHeight="11" gridWidth="130" name="Group2" posX="3" posY="8">
+        <Tree gridHeight="9" gridWidth="128" idColumn="child_id" name="Table1" parentIdColumn="parent_id" posX="1" posY="1" style="detalle" totalRows="5" unitWidth="characters" width="79">
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="descripcion_mov1" posX="0" posY="0" sqlTabName="" tabIndex="20" table_alias_name="" title="Descripcion Mov" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="num_doc" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="11" name="iptb00006.num_doc" notNull="true" posX="8" posY="0" required="true" sqlTabName="iptb00006" sqlType="INTEGER" tabIndex="12" table_alias_name="" title="Documento" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="num_oc" posX="19" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="Orden P" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="num_compra" posX="27" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="Orden C" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fecha" fieldId="12" format="dd/mm/yy" gridHeight="1" gridWidth="8" name="fecha" posX="35" posY="0" sqlTabName="formonly" sqlType="DATE" tabIndex="11" table_alias_name="" title="FECHA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" gridHeight="1" gridWidth="8" hidden="true" name="cantidad" posX="43" posY="0" sqlTabName="" tabIndex="21" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="entrada" fieldId="13" format="---,---,--&amp;.&amp;&amp;&amp;&amp;&amp;" gridHeight="1" gridWidth="18" name="entrada" posX="51" posY="0" sqlTabName="formonly" sqlType="FLOAT" tabIndex="13" table_alias_name="" title="ENTRADAS" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="salida" fieldId="14" format="---,---,--&amp;.&amp;&amp;&amp;&amp;" gridHeight="1" gridWidth="18" name="salida" posX="69" posY="0" sqlTabName="formonly" sqlType="FLOAT" tabIndex="14" table_alias_name="" title="SALIDAS" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="8" gridHeight="1" gridWidth="12" name="bodega1" posX="87" posY="0" sqlTabName="" tabIndex="16" table_alias_name="" title="BODEGA" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="balance" fieldId="15" format="---,---,--&amp;.&amp;&amp;&amp;&amp;" gridHeight="1" gridWidth="18" name="balance" posX="99" posY="0" sqlTabName="formonly" sqlType="FLOAT" tabIndex="15" table_alias_name="" title="BALANCE" widget="Edit"/>
+          <Phantom fieldId="21" name="parent_id" widget="Phantom"/>
+          <Phantom fieldId="22" name="child_id" widget="Phantom"/>
+        </Tree>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewA0ADIANQBlADgAZgAxADMALQAyAGQAZQA2AC0ANABjADMAOQAtADkAYQBlAGUALQBiADAAZAA1AGEANgA2AGIAMwA0AGYAYQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADUAMAAxAGEAYwBkADAALQBhADYAZABlAC0ANAAzAGUANQAtAGEAMQAwADUALQBmAGEAMQA5AGYAOAA5ADkAMgAzAGEAZAB9QCQAAC0AACtAJAAALQAAKwAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmcs006.per

@@ -0,0 +1,48 @@
+schema smarmotech
+ LAYOUT (TEXT="CONSULTA TRANSACCIONES")
+ GRID
+{
+<G                                                                                          >
+ Producto :[a  ]-[b   ]-[c    ]-[d    ] [a1                                     ] [a2 ]
+ Bodega:  [h ]                                      HISTORICO [hh                     ]
+ Fecha Inicial:[f1        ] Fecha Final:[f2        ]BALANCE INICIAL:[bini             ]
+
+<G                                                                                           >
+ <t                                                                            >
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
+}
+END
+tables
+ intb00001,
+ iptb00002,
+ iptb00006
+ATTRIBUTES
+LABEL bini = formonly.balance_ini;
+RADIOGROUP hh=formonly.historico,ITEMS=(("S","HISTORICO"),("N","ACTUAL")),default='N';
+a      = formonly.cod_n type smallint,autonext;
+b      = formonly.cod_grupo,autonext,required;
+c      = formonly.cod_tipo,autonext,required;
+d      = formonly.cod_sec,autonext,required;
+a1     = formonly.descripcion,noentry;
+a2     = intb00001.unidad_med,noentry;
+h      = iptb00006.bodega,autonext;
+f1     = formonly.fech_in type date,format = "dd/mm/yyyy";
+f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
+ d1     = iptb00006.num_doc;
+ d2     = formonly.fecha type date,format = "dd/mm/yy",TITLE="FECHA";
+d4     = formonly.entrada,TITLE="ENTRADAS";    
+d5     = formonly.salida,TITLE="SALIDAS";     
+d6     = formonly.balance,TITLE="BALANCE";
+
+ instructions
+     screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
+delimiters " "
+end
+          

PROYECTO/ipdir/ipfmcs007.per

@@ -0,0 +1,55 @@
+database marmotech
+screen size 24 by 80
+{
+               PERIODO BASE DESDE [f3      ] AL [f4      ]
+<Esc> Continua Consultando                        <Delete> Cancela Operacion
+\g----------------------------------------------------------------------------\g
+                      VENTAS                            D I A S      DIAS INV.
+PROD. TERMINADO    DEL PERIODO     EXISTENCIA    INVENTARIO  LLEGADA C/ORDEN
+\g----------------------------------------------------------------------------\g
+[a ]-[b ]-[c  ]-[d  ][f5            ][f7            ][f8  ]      [f9 ]   [f20  ]
+[f1                             ][f2 ]
+\g-------------------------------------------------------------------------\g
+\g---------------- O R D E N E S   P E N D I E N T E S --------------------\g
+    ORDEN  CANT. ORDENADA CANT. RECIBIDA         BALANCE       ENTREGA 
+\g-------------------------------------------------------------------------\g
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+ [f10    ] [f11          ][f14             ] [f12            ]  [f13     ]
+                                             [f15            ]
+}
+end
+tables
+intb00001,
+cotb00001
+attributes
+a    = intb00001.cod_n,autonext, 
+comments = "Digite el NIVEL o <Esc> Para Todos";
+b    = intb00001.cod_grupo,autonext,
+comments = "Digite el GRUPO o <Esc> Para Todos"; 
+c    = intb00001.cod_tipo,autonext, 
+comments = "Digite el TIPO o <Esc> Para Todos";
+d    = intb00001.cod_sec,autonext, 
+comments = "Digite la SECUENCIA o <Esc> Para Todos";
+f1   = formonly.descrip_esp,noentry;
+f2   = formonly.unidad_med,noentry;
+f3   = formonly.fech_in type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f4   = formonly.fech_fi type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f5   = formonly.consumo1,noentry;
+f7   = formonly.existe1,noentry;
+f8   = formonly.dias2,noentry;
+f20  = formonly.dias_orden;
+f9   = formonly.dia_llegada,noentry;
+f10  = formonly.num_oc,noentry;
+f11  = formonly.ordenada,noentry,right;
+f12  = formonly.cantidad,noentry,right;
+f13  = formonly.fecha_llegada type date,noentry,format = "dd/mm/yy";
+f14  = formonly.recibida,noentry,right;
+f15  = formonly.remanente,noentry,right;
+instructions
+  delimiters " "
+      screen record sp1[4](num_oc,ordenada,recibida,cantidad,fecha_llegada)
+end

PROYECTO/ipdir/ipfmcs017.per

@@ -0,0 +1,17 @@
+database marmotech
+screen size 24 by 80
+{
+ Periodo Base : Desde [f3      ] Al [f4      ]
+ Numeros de Dias [k1  ]
+}
+end
+tables
+intb00001,
+cotb00001
+attributes
+f3   = formonly.fech_in type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+f4   = formonly.fech_fi type date,format = "dd/mm/yy", autonext, 
+       comments = "Utilice el formato 'DDMMAA' o <Esc> Para Todas";
+k1   = formonly.dias1,noentry;
+end

PROYECTO/ipdir/ipfmcs041.per

@@ -0,0 +1,71 @@
+database smarmotech
+screen size 24 by 80
+{
+\gp---------------------------------------------------------------------------q\g
+\g|\gDocumento Numero [f000  ] Compania [r][c4                ]                 \g|\g
+\g|\gCodigo Movimiento [m ] [m1                                      ]          \g|\g
+\g|\gFactura [fact  ] Transportista [tr][tr1 ][des                           ]  \g|\g
+\g|\gTarifa [t  ][t1                             ] Placa [pl         ]          \g|\g
+\g|\gfecha[f001    ]Bodega :[p1 ]Orden de Corte [oc      ]                      \g|\g
+\g|\gDetalle [det                                                         ]     \g|\g
+\g|\gCliente:[cl]-[cl1 ][nom                            ]                       \g|\g
+\gb---------------------------------------------------------------------------d\g
+                  Cantidad    Cantidad
+      Codigo      Unidades    Afectar     Unidad    D e s c r i p c i o n
+\g-----------------------------------------------------------------------------\g
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+\g-----------------------------------------------------------------------------\g
+}
+end
+tables
+iptb00006,
+intb00001,
+cotb00001
+attributes
+oc   = iptb00006.conduce_no,
+       comments = "Digite le numero de orden de Corte";
+det  = iptb00006.detalle;
+cl   = iptb00006.cod_sp,autonext;
+cl1  = iptb00006.cod_sp_sec,autonext;
+nom  = formonly.descrip4,noentry;
+pl   = iptb00006.placa,autonext,comments = 
+    "Digite placa del vehiculo que transporta la mercancia";
+fact = formonly.fact_no,autonext,comments =
+  "Introducir Numero de Factura de Ventas";
+tr   = iptb00006.cod_transp,autonext,comments =
+  "Introduzca Codigo Transportista";
+tr1   = iptb00006.sec_transp,autonext,comments =
+  "Introduzca Codigo Transportista";
+des  = formonly.descrip2,noentry;
+t    = iptb00006.cod_tarifa,comments =
+   "Introduzca Codigo Tarifa",autonext;
+t1   = formonly.descrip1,noentry; 
+f000 = iptb00006.num_doc,noentry; 
+r   = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
+"01 - MARMOTECH                             ";
+c4   = formonly.nombre_cia,noentry;
+f001 = iptb00006.fecha, format = "dd/mm/yy",autonext,
+    comments = "Digite Fecha Documento";
+a    = iptb00006.cod_n,autonext,
+    comments = "Digite el NIVEL";
+b    = iptb00006.cod_grupo,autonext,
+    comments = "Digite el GRUPO"; 
+c    = iptb00006.cod_tipo,autonext,
+    comments = "Digite el TIPO"; 
+d    = iptb00006.cod_sec,autonext,
+    comments = "Digite la SECUENCIA   "; 
+f03  = iptb00006.cantidad_1,noentry; 
+f02  = iptb00006.cantidad_2,autonext;
+k    = intb00001.descrip_esp,noentry;
+p    = intb00001.unidad_med,noentry;
+p1   = iptb00006.bodega,autonext;
+m    = iptb00006.cod_mov,autonext,autonext,
+       comments = "Digite codigo del movimiento";
+m1   = formonly.descrip_mov, noentry;
+  INSTRUCTIONS
+    SCREEN RECORD s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                              cantidad_2,unidad_med,descrip_esp)
+end

PROYECTO/ipdir/ipfmcs042.4fd

@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{dc63e924-e13d-4255-bd24-3a4f92373538}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="RecordPrincipal" order="" uid="{df2479f6-b4da-4f81-a537-8ab1ddc27425}" where="">
+    <RecordField colName="" defaultValue="02" fieldIdRef="3" name="pinventario" sqlTabName="" table_alias_name="" uid="{63f80fb2-1cb8-478c-a310-576fcda6d631}"/>
+    <RecordField colName="" fieldIdRef="1" name="pcodn" sqlTabName="" table_alias_name="" uid="{a8991154-b763-4fe2-91e7-e6af9d15bfca}"/>
+    <RecordField colName="" fieldIdRef="2" name="pcodgrupo" sqlTabName="" table_alias_name="" uid="{d051b1f7-f8cc-402e-8d50-718a2d50d84f}"/>
+    <RecordField colName="" fieldIdRef="4" name="pcodtipo" sqlTabName="" table_alias_name="" uid="{a02bce85-5967-48f7-b582-3399ee02e011}"/>
+    <RecordField colName="" fieldIdRef="5" name="pcodsec" sqlTabName="" table_alias_name="" uid="{bf8dbf8b-5173-4431-879b-c8cea5d275a3}"/>
+    <RecordField colName="" fieldIdRef="6" name="pfecha_inicial" sqlTabName="" sqlType="DATE" table_alias_name="" uid="{44318a2f-f31f-4ec5-b60d-47704d229142}"/>
+    <RecordField colName="" fieldIdRef="7" name="pfecha_final" sqlTabName="" sqlType="DATE" table_alias_name="" uid="{cdf3db32-baf8-469b-a1e5-1d96a627fe74}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{c61b14fc-1d3d-4d50-8d8a-049614bcdd17}" where="">
+    <RecordField colName="" fieldIdRef="9" name="proveedor" sqlTabName="" table_alias_name="" uid="{2561dfd3-eee6-4e44-9dd7-26f5207e9aaa}"/>
+    <RecordField colName="" fieldIdRef="18" name="pais" sqlTabName="" table_alias_name="" uid="{5b3f978f-4e97-4826-8230-d6e1059b1c2e}"/>
+    <RecordField colName="" fieldIdRef="10" name="num_oc" sqlTabName="" table_alias_name="" uid="{999d8772-2dbc-46e0-b1d0-4dd86e591869}"/>
+    <RecordField colName="" fieldIdRef="13" name="FechaOrden" sqlTabName="" table_alias_name="" uid="{fd422dd6-b5e8-4960-ad4b-308c67ac3aa4}"/>
+    <RecordField colName="" fieldIdRef="11" name="moneda" sqlTabName="" table_alias_name="" uid="{c946b982-c25e-434a-8f7f-6f936d87eab0}"/>
+    <RecordField colName="" fieldIdRef="14" name="precio" sqlTabName="" table_alias_name="" uid="{e3ee5c58-0347-4307-8ad6-d79c01cb441d}"/>
+    <RecordField colName="" fieldIdRef="12" name="unidad" sqlTabName="" table_alias_name="" uid="{ceebeff0-6ed6-4494-a9ba-d395a4d8954a}"/>
+    <RecordField colName="" fieldIdRef="15" name="cantidad" sqlTabName="" table_alias_name="" uid="{ec6f596c-b4ee-47f0-923c-b0802d523414}"/>
+    <RecordField colName="" fieldIdRef="16" name="descuento" sqlTabName="" table_alias_name="" uid="{4001036e-0ad3-4d50-bb62-a2b03b24b054}"/>
+    <RecordField colName="" fieldIdRef="17" name="totalItem" sqlTabName="" table_alias_name="" uid="{a80d7c7f-da14-4d92-9fd6-b6c9fcb9c45d}"/>
+    <RecordField colName="" fieldIdRef="19" name="costoLQ" sqlTabName="" table_alias_name="" uid="{dbb50559-2cab-4d75-896b-22aba2ffad6b}"/>
+    <RecordField colName="" fieldIdRef="20" name="costoSTD" sqlTabName="" table_alias_name="" uid="{aa4aaebf-930d-4764-8f99-b14cd53e599d}"/>
+    <RecordField colName="" fieldIdRef="29" name="factorLiquidacion" sqlTabName="" table_alias_name="" uid="{736dbab2-cdd2-481d-abd8-1420d191a336}"/>
+    <RecordField colName="" fieldIdRef="33" name="tasa" sqlTabName="" table_alias_name="" uid="{a3121ecb-6b2a-48b4-9d6d-87ec04bb2f25}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Inventarios" order="" uid="{a8988d9b-0a9c-4017-a1a7-60db93cf2497}" where="">
+    <RecordField colName="" fieldIdRef="26" name="consumo" sqlTabName="" table_alias_name="" uid="{1ebfb8bd-ebba-429c-b29c-c517547ce456}"/>
+    <RecordField colName="" fieldIdRef="22" name="diasInventario" sqlTabName="" table_alias_name="" uid="{4df39019-0512-4f17-a9ef-6938722b0ae1}"/>
+    <RecordField colName="" fieldIdRef="25" name="Existencia" sqlTabName="" table_alias_name="" uid="{8bdb599d-19a7-4d35-9e6b-49a2014a0c27}"/>
+    <RecordField colName="" fieldIdRef="24" name="salidas" sqlTabName="" table_alias_name="" uid="{0292f72b-388c-46c1-af44-fa22bf1b2730}"/>
+    <RecordField colName="" fieldIdRef="21" name="entradas" sqlTabName="" table_alias_name="" uid="{c7b2c038-43dd-4699-9d97-8798f472e6dc}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record2" order="" uid="{057cdfc2-bfb1-4511-b957-4f0901d15020}" where="">
+    <RecordField colName="" fieldIdRef="8" name="palmacen" sqlTabName="" table_alias_name="" uid="{34025a97-75af-4f6e-b335-c1910ffcf98a}"/>
+    <RecordField colName="" fieldIdRef="23" name="rank" sqlTabName="" table_alias_name="" uid="{5f216c95-6cd1-431f-8b3d-a03b0bcd94a1}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record3" order="" uid="{72bd3b32-3d1d-445f-89a6-2c1c618772ad}" where="">
+    <RecordField colName="" fieldIdRef="27" name="pmoneda" sqlTabName="" table_alias_name="" uid="{dfc1b394-4031-49b9-9784-d084ca9dca5f}"/>
+    <RecordField colName="" fieldIdRef="28" name="pprecio" sqlTabName="" table_alias_name="" uid="{b4cb1207-7e0f-4967-9ca7-11df8cc270f0}"/>
+    <RecordField colName="" fieldIdRef="30" name="pfactorPrecio" sqlTabName="" table_alias_name="" uid="{b0dd1316-cbb2-4949-b997-2ce00e8f4f64}"/>
+    <RecordField colName="" fieldIdRef="31" name="pcodlista" sqlTabName="" table_alias_name="" uid="{fd11243d-b5d8-468e-b191-3b29c4526110}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{16f1257b-01fb-4781-9593-673bdf80b365}" where="">
+    <RecordField colName="" fieldIdRef="32" name="descripcion" sqlTabName="" table_alias_name="" uid="{58926c7f-c57b-4705-a894-74ebf5a36725}"/>
+  </Record>
+  <Form gridHeight="81" gridWidth="149" name="ipfmcs042" text="HOJA VIDA PRODUCTO">
+    <VBox gridHeight="80" gridWidth="137" name="VBox1" posX="12" posY="1">
+      <Group gridHeight="17" gridWidth="137" name="GPrincipal" posX="0" posY="1" text="Parametros de Busqueda">
+        <Grid comment="Parametros Busqueda" gridHeight="10" gridWidth="118" name="Principal" posX="1" posY="1">
+          <Label gridHeight="1" gridWidth="10" justify="right" name="Label2" posX="4" posY="1" text="Inventario"/>
+          <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" comment="Tipo Inventario" defaultValue="02" fieldId="3" gridHeight="1" gridWidth="23" items="MATERIA PRIMA, PRODUCTOS TERMINADOS, REPUESTOS" name="pinventario" posX="15" posY="1" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="1" table_alias_name="" title="ComboBox1" widget="ComboBox">
+            <Item lstrtext="false" name="01" text="MATERIA PRIMA"/>
+            <Item lstrtext="true" name="02" text="PRODUCTOS TERMINADOS"/>
+            <Item lstrtext="false" name="03" text="REPUESTOS"/>
+          </ComboBox>
+          <Label gridHeight="1" gridWidth="10" justify="right" name="Label6" posX="44" posY="1" text="Rank"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="7" name="rank" posX="57" posY="1" sqlTabName="" tabIndex="25" table_alias_name="" title="Edit2" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="10" justify="right" name="Label1" posX="4" posY="4" text="PRODUCTO"/>
+          <ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="1" gridHeight="1" gridWidth="12" image="find" name="pcodn" posX="15" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="2" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
+          <ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="2" gridHeight="1" gridWidth="12" image="find" name="pcodgrupo" posX="29" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="3" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
+          <ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="4" gridHeight="1" gridWidth="12" image="find" name="pcodtipo" posX="43" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="4" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
+          <ButtonEdit action="busca_producto" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="5" gridHeight="1" gridWidth="12" image="find" name="pcodsec" posX="57" posY="4" repeat="false" rowCount="3" sqlTabName="" stepX="1" stepY="1" tabIndex="5" table_alias_name="" title="ComboBox2" widget="ButtonEdit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="32" gridHeight="1" gridWidth="54" name="descripcion" posX="15" posY="5" sqlTabName="" tabIndex="32" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="9" justify="right" name="Label3" posX="5" posY="7" text="Fecha"/>
+          <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="6" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="pfecha_inicial" posX="15" posY="7" repeat="false" rowCount="3" sqlTabName="" sqlType="DATE" stepX="1" stepY="1" tabIndex="6" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
+          <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="1" fieldId="7" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="pfecha_final" posX="29" posY="7" repeat="false" rowCount="3" sqlTabName="" sqlType="DATE" stepX="1" stepY="1" tabIndex="7" table_alias_name="" title="DateEdit2" widget="DateEdit"/>
+          <Label gridHeight="1" gridWidth="10" justify="right" name="Label4" posX="44" posY="7" text="Almacen"/>
+          <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="8" gridHeight="1" gridWidth="12" items="" name="palmacen" posX="57" posY="7" sqlTabName="" tabIndex="24" table_alias_name="" title="ComboBox6" widget="ComboBox"/>
+        </Grid>
+      </Group>
+      <Group gridChildrenInParent="false" gridHeight="24" gridWidth="137" name="Group1" posX="0" posY="18" text="Informacion Ordenes Compras">
+        <Table comment="Informacion Proveedores" gridHeight="6" gridWidth="135" name="arrproveedor" posX="1" posY="7" totalRows="5">
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="9" gridHeight="1" gridWidth="8" name="proveedor" posX="0" posY="0" sqlTabName="" tabIndex="8" table_alias_name="" title="Proveedor" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="8" name="pais" posX="8" posY="0" sqlTabName="" tabIndex="15" table_alias_name="" title="Pais" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="10" gridHeight="1" gridWidth="8" name="num_oc" posX="16" posY="0" sqlTabName="" tabIndex="9" table_alias_name="" title="Ordenes" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="13" gridHeight="1" gridWidth="9" name="FechaOrden" posX="24" posY="0" sqlTabName="" tabIndex="10" table_alias_name="" title="Fecha Orden" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="11" gridHeight="1" gridWidth="8" name="moneda" posX="33" posY="0" sqlTabName="" tabIndex="18" table_alias_name="" title="Moneda" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Si la orden es internacional es el FOB" fieldId="14" gridHeight="1" gridWidth="8" name="precio" posX="41" posY="0" sqlTabName="" tabIndex="11" table_alias_name="" title="Precio" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="12" gridHeight="1" gridWidth="8" name="unidad" posX="49" posY="0" sqlTabName="" tabIndex="19" table_alias_name="" title="Medida" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="8" name="cantidad" posX="57" posY="0" sqlTabName="" tabIndex="12" table_alias_name="" title="Cantidad" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="8" name="descuento" posX="65" posY="0" sqlTabName="" tabIndex="13" table_alias_name="" title="Descuento" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="8" name="totalItem" posX="73" posY="0" sqlTabName="" tabIndex="14" table_alias_name="" title="Total" unhidable="true" unmovable="true" unsortable="true" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="11" name="costoLQ" posX="81" posY="0" sqlTabName="" tabIndex="16" table_alias_name="" title="Costo Liquidado" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="El costo Std se refiere al perido de la fecha de la orden de compras" fieldId="20" gridHeight="1" gridWidth="8" name="costoSTD" posX="92" posY="0" sqlTabName="" tabIndex="17" table_alias_name="" title="Costo STD" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="29" gridHeight="1" gridWidth="12" name="factorLiquidacion" posX="100" posY="0" sqlTabName="" tabIndex="29" table_alias_name="" title="Factor Liquidacion" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="33" gridHeight="1" gridWidth="8" name="tasa" posX="112" posY="0" sqlTabName="" tabIndex="33" table_alias_name="" title="Tasa" widget="Edit"/>
+        </Table>
+      </Group>
+      <Group gridHeight="19" gridWidth="137" name="Group3" posX="0" posY="42" text="Informacion Inventarios">
+        <Grid gridHeight="6" gridWidth="115" name="Group2" posX="2" posY="2">
+          <Label gridHeight="1" gridWidth="10" justify="right" name="lentradas" posX="2" posY="1" text="Entradas"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="10" name="entradas" posX="14" posY="1" sqlTabName="" tabIndex="20" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="14" justify="right" name="Label7" posX="38" posY="1" text="Existencia Al Periodo"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="25" gridHeight="1" gridWidth="10" name="Existencia" posX="53" posY="1" sqlTabName="" tabIndex="22" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="13" justify="right" name="LFecha" posX="38" posY="2" text=""/>
+          <Label gridHeight="1" gridWidth="10" justify="right" name="Label8" posX="2" posY="3" text="Salidas"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="24" gridHeight="1" gridWidth="10" name="salidas" posX="14" posY="3" sqlTabName="" tabIndex="21" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="14" justify="right" name="lconsumo" posX="38" posY="3" text="Consumo"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="26" gridHeight="1" gridWidth="10" name="consumo" posX="53" posY="3" sqlTabName="" tabIndex="26" table_alias_name="" title="Edit1" widget="Edit"/>
+          <Label gridHeight="1" gridWidth="14" justify="right" name="Label5" posX="38" posY="4" text="Dias Inventarios"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="10" name="diasInventario" posX="53" posY="4" sqlTabName="" tabIndex="23" table_alias_name="" title="Edit2" widget="Edit"/>
+        </Grid>
+      </Group>
+      <Group gridHeight="18" gridWidth="137" name="Group4" posX="0" posY="61" text="Informaciones Precios">
+        <Table gridHeight="6" gridWidth="50" name="arrPrecios" posX="1" posY="2" totalRows="5">
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="27" gridHeight="1" gridWidth="18" name="pmoneda" posX="0" posY="0" sqlTabName="" tabIndex="27" table_alias_name="" title="Moneda" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="28" gridHeight="1" gridWidth="9" name="pprecio" posX="18" posY="0" sqlTabName="" tabIndex="28" table_alias_name="" title="Precio" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="30" gridHeight="1" gridWidth="10" name="pfactorPrecio" posX="27" posY="0" sqlTabName="" tabIndex="30" table_alias_name="" title="Factor Precio" widget="Edit"/>
+          <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="31" gridHeight="1" gridWidth="8" name="pcodlista" posX="37" posY="0" sqlTabName="" tabIndex="31" table_alias_name="" title="Tasa" widget="Edit"/>
+        </Table>
+      </Group>
+    </VBox>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAxADYAZgAxADIANQA3AGIALQAwADEAZgBiAC0ANAA3ADgAMQAtADkANQA5ADMALQA2ADcAMwBiAGQAZgA4ADAAYgAzADYANQB9QE4AAAeAAABATgAAB4AAAAAAAAAAAAAAAQAAAEwAewBhADgAOQA4ADgAZAA5AGIALQAwAGEAOQBjAC0ANAAwADEANwAtAGEAMQBhADcALQA2ADAAZABiADkAMwBjAGYAMgA0ADkANwB9wGagAAWoAABAQIAABCAAAD+CbpeNT988AQAAAEwAewA3ADIAYgBkADMAYgAzADIALQAzAGQAMQBkAC0ANAA0ADUAZgAtADgAOQBhADYALQAyAGMAMQBjADYAMQA4ADcANwAyAGEAZAB9wGXgAAV4AABAcSAABEgAAAAAAAAAAAAAAQAAAEwAewBkAGYAMgA0ADcAOQBmADYALQBiADQAZABhAC0ANABmADgAMQAtAGEANQAzADcALQA4AGEAYgAxAGQAZABjADIANwA0ADIANQB9QD4AAAeAAABAPgAAB4AAAD+AYk3S8an8AQAAAEwAewAwADUANwBjAGQAZgBjADIALQBiAGYAYgAxAC0ANAA1ADEAMQAtAGIAOQA1ADcALQA0AGYAMAA5ADAAMQBkADEANQAwADIAMAB9wGcgAAXIAABAcIAABCAAAAAAAAAAAAAAAQAAAEwAewBjADYAMQBiADEANABmAGMALQAxAGQAMwBkAC0ANABkADUAMAAtADgAZAA4AGEALQAwADQAOQA2ADEANABiAGMAZABkADEANwB9QG/gAAf4AABAOwAABsAAAD98rAgxJul5AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmload001.4fd

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm gstVersion="22800" name="ManagedForm" uid="{420fc53a-7128-42b0-b9b5-b95359cba202}">
+  <AGSettings/>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{595ebdcd-0550-426c-8aef-9b935f86dfa3}" where="">
+    <RecordField colName="" fieldIdRef="1" name="Edit1" sqlTabName="" table_alias_name="" uid="{1ec35f6f-0699-454e-8b09-19424eefd712}"/>
+    <RecordField colName="" fieldIdRef="2" name="Edit2" sqlTabName="" table_alias_name="" uid="{40390278-e50c-4ca1-9fd1-1b98847b6552}"/>
+    <RecordField colName="" fieldIdRef="3" name="Edit3" sqlTabName="" table_alias_name="" uid="{ac3c6754-d3fc-4528-bc59-7c4b02cf0a34}"/>
+    <RecordField colName="" fieldIdRef="4" name="Edit4" sqlTabName="" table_alias_name="" uid="{e01a0868-1130-4257-8c30-32d33c295f0e}"/>
+    <RecordField colName="" fieldIdRef="5" name="Edit5" sqlTabName="" table_alias_name="" uid="{12881a73-f00d-467f-8c0f-069e7b527541}"/>
+    <RecordField colName="" fieldIdRef="6" name="Edit6" sqlTabName="" table_alias_name="" uid="{70e2e17e-1249-4c0f-bc6a-14e683d8733c}"/>
+    <RecordField colName="" fieldIdRef="7" name="Edit7" sqlTabName="" table_alias_name="" uid="{9a791ad1-de5d-4acb-a6bf-5933e846591e}"/>
+    <RecordField colName="" fieldIdRef="8" name="Edit8" sqlTabName="" table_alias_name="" uid="{e8f5d74c-24f7-432d-9379-4eeee7cf67ad}"/>
+  </Record>
+  <Form gridHeight="25" gridWidth="80" name="Form" text="Form">
+    <Grid gridHeight="16" gridWidth="74" name="Grid1" posX="3" posY="1">
+      <Table gridHeight="11" gridWidth="73" name="Table1" posX="1" posY="3" totalRows="5">
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="1" gridHeight="1" gridWidth="8" name="Edit1" posX="0" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="1" table_alias_name="" title="Origen" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="2" gridHeight="1" gridWidth="8" name="Edit2" posX="8" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="2" table_alias_name="" title="Clase" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="3" gridHeight="1" gridWidth="8" name="Edit3" posX="16" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="3" table_alias_name="" title="Grupo" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="4" gridHeight="1" gridWidth="8" name="Edit4" posX="24" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="4" table_alias_name="" title="Tipo" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="5" gridHeight="1" gridWidth="8" name="Edit5" posX="32" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="5" table_alias_name="" title="Medida" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="6" gridHeight="1" gridWidth="8" name="Edit6" posX="40" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="6" table_alias_name="" title="Descripcion" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="7" gridHeight="1" gridWidth="8" name="Edit7" posX="48" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="7" table_alias_name="" title="Edit7" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="8" gridHeight="1" gridWidth="8" name="Edit8" posX="56" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="8" table_alias_name="" title="Edit8" widget="Edit"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAxAGUAYwAzADUAZgA2AGYALQAwADYAOQA5AC0ANAA1ADQAZQAtADgAYgAwADkALQAxADkANAAyADQAZQBlAGYAZAA3ADEAMgB9QCQAAAAAAABAQwAAAAAAAAAAAAAAAAAAAQAAAEwAewBlADgAZgA1AGQANwA0AGMALQAyADQAZgA3AC0ANAAzADIAZAAtADkAMwA3ADkALQA0AGUAZQBlAGUANwBjAGYANgA3AGEAZAB9QCQAAAAAAABAaOAAAAAAAAAAAAAAAAAAAQAAAEwAewBlADAAMQBhADAAOAA2ADgALQAxADEAMwAwAC0ANAAyADUANwAtADgAYwAzADAALQAzADIAZAAzADMAYwAyADkANQBmADAAZQB9QCQAAAAAAABAWsAAAAAAAAAAAAAAAAAAAQAAAEwAewAxADIAOAA4ADEAYQA3ADMALQBmADAAMABkAC0ANAA2ADcAZgAtADgAYwAwAGYALQAwADYAOQBlADcAYgA1ADIANwA1ADQAMQB9QCQAAAAAAABAYEAAAAAAAAAAAAAAAAAAAQAAAEwAewA1ADkANQBlAGIAZABjAGQALQAwADUANQAwAC0ANAAyADYAYwAtADgAYQBlAGYALQA5AGIAOQAzADUAZgA4ADYAZABmAGEAMwB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBhAGMAMwBjADYANwA1ADQALQBkADMAZgBjAC0ANAA1ADIAOAAtAGIAYwA1ADkALQA3AGMANABiADAAMgBjAGYAMABhADMANAB9QCQAAAAAAABAVQAAAAAAAAAAAAAAAAAAAQAAAEwAewA5AGEANwA5ADEAYQBkADEALQBkAGUANQBkAC0ANABhAGMAYgAtAGEANgBiAGYALQA1ADkAMwAzAGUAOAA0ADYANQA5ADEAZQB9QCQAAAAAAABAZgAAAAAAAAAAAAAAAAAAAQAAAEwAewA3ADAAZQAyAGUAMQA3AGUALQAxADIANAA5AC0ANABjADAAZgAtAGIAYwA2AGEALQAxADQAZQA2ADgAMwBkADgANwAzADMAYwB9QCQAAAAAAABAYyAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADAAMwA5ADAAMgA3ADgALQBlADUAMABjAC0ANABjAGEAMQAtADkAZgBkADEALQAxAGIAOQA4ADgANAA3AGIANgA1ADUAMgB9QCQAAAAAAABAToAAAAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt002-itmanager02.4fd

@@ -0,0 +1,186 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{d1b05674-a30a-4ff3-a265-cefa9dad0fb7}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{714977ff-1ed5-47e2-8537-b5a5b06a655d}" where="">
+    <RecordField colName="cod_cia" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00002.cod_cia" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{177513e2-c36a-4ff5-af79-402ea5142725}"/>
+    <RecordField colName="nombre_cia" fieldIdRef="16" name="nombre_cia" sqlTabName="formonly" table_alias_name="" uid="{b7e7ced3-e314-4fef-909f-8d17ec0a8d17}"/>
+    <RecordField colName="cod_n" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{d6d930d0-2bbf-40f1-ae6e-2da3e61792e3}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{10d96f33-4f3f-4055-acbb-9eb73e6ed0eb}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{b9e9bcb2-ad84-44b3-b30c-07b97e213da9}"/>
+    <RecordField colName="cod_sec" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{4bec1eeb-a7c7-4b42-9385-3faafe17668e}"/>
+    <RecordField colName="codid" fieldIdRef="1" name="codid" sqlTabName="formonly" table_alias_name="" uid="{9979ecf5-ef50-4c58-a603-1ec7be7324f2}"/>
+    <RecordField colName="producto" fieldIdRef="6" name="producto" sqlTabName="formonly" table_alias_name="" uid="{6b40ba5e-b0f4-406e-ad8b-3e7922a6a9a2}"/>
+    <RecordField colName="descrip_grupo" fieldIdRef="7" name="descrip_grupo" sqlTabName="formonly" table_alias_name="" uid="{0761afb1-d1dc-49a9-b74c-61c3394f860a}"/>
+    <RecordField colName="descrip_tipo" fieldIdRef="5" name="descrip_tipo" sqlTabName="formonly" table_alias_name="" uid="{df2bf420-a40d-4b32-a4c3-f57588e1ecdd}"/>
+    <RecordField colName="descrip_medida" fieldIdRef="8" name="descrip_medida" sqlTabName="formonly" table_alias_name="" uid="{eaef450b-8c53-40eb-a155-11450187f25a}"/>
+    <RecordField colName="descrip_ing" fieldIdRef="15" fieldType="TABLE_COLUMN" name="iptb00002.descrip_ing" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{3689a904-85f4-47dc-8d45-580f785df6ad}"/>
+    <RecordField colName="unidad_med" fieldIdRef="28" name="unidad_med" sqlTabName="formonly" table_alias_name="" uid="{f2b0199a-d2d1-4d70-8fe2-4a9aff094c18}"/>
+    <RecordField colName="nomenclatura" fieldIdRef="17" name="nomenclatura" sqlTabName="formonly" table_alias_name="" uid="{f631cd85-d9db-4420-a2e1-6d64be424642}"/>
+    <RecordField colName="" defaultValue="1" fieldIdRef="21" fieldType="NON_DATABASE" name="bodega" sqlTabName="" sqlType="SMALLINT" table_alias_name="" uid="{6b69fb36-fab6-43db-abca-3f5677ddb1f5}"/>
+    <RecordField colName="despiece" defaultValue="no" fieldIdRef="4" name="despiece" sqlTabName="formonly" table_alias_name="" uid="{8799162d-1f76-4184-9676-49216d23f409}"/>
+    <RecordField colName="control_existencia" defaultValue="SI" fieldIdRef="2" name="control_existencia" sqlTabName="formonly" table_alias_name="" uid="{606260be-4eb9-490b-a1f1-bbd8be26c113}"/>
+    <RecordField colName="control_itbis" defaultValue="SI" fieldIdRef="3" name="control_itbis" sqlTabName="formonly" table_alias_name="" uid="{ac9435ad-e3f9-4cf9-bfb0-fe8b3db5debb}"/>
+    <RecordField colName="exist_max" fieldIdRef="19" fieldType="TABLE_COLUMN" name="iptb00002.exist_max" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{9f8f3457-971a-43c9-addd-687945851cca}"/>
+    <RecordField colName="exist_min" fieldIdRef="20" fieldType="TABLE_COLUMN" name="iptb00002.exist_min" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{e1c035a9-3412-4ba0-b367-586c82a423a3}"/>
+    <RecordField colName="cantidad_2" fieldIdRef="18" name="cantidad_2" sqlTabName="formonly" table_alias_name="" uid="{09583fd3-d114-4dbb-8333-1d76b631fc7d}"/>
+    <RecordField colName="dia_llegada" fieldIdRef="22" fieldType="TABLE_COLUMN" name="iptb00002.dia_llegada" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{95c4e331-5779-4c9d-ae80-ffd2ac5fc36f}"/>
+    <RecordField colName="foto_producto" fieldIdRef="0" name="foto_producto" sqlTabName="formonly" table_alias_name="" uid="{0c9a055f-51b9-437c-8ab1-907cf4b29b8e}"/>
+    <RecordField colName="status_t" fieldIdRef="23" fieldType="TABLE_COLUMN" name="iptb00002.status_t" sqlTabName="iptb00002" sqlType="CHAR" table_alias_name="" uid="{8e6f6263-ece7-4925-995c-fa94299e2700}"/>
+    <RecordField colName="us_crea" fieldIdRef="24" fieldType="TABLE_COLUMN" name="iptb00002.us_crea" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{ab80ce9d-6069-4d14-8ae1-4c94500c70dd}"/>
+    <RecordField colName="us_mod" fieldIdRef="26" fieldType="TABLE_COLUMN" name="iptb00002.us_mod" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{954eb080-2c9f-4fdc-ac8d-cd8eae16ae9b}"/>
+    <RecordField colName="fech_crea" fieldIdRef="25" fieldType="TABLE_COLUMN" name="iptb00002.fech_crea" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{a2b750a6-3751-4935-9f4d-be93ee1fc9b2}"/>
+    <RecordField colName="fech_mod" fieldIdRef="27" fieldType="TABLE_COLUMN" name="iptb00002.fech_mod" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{d90221b4-97c6-45e3-8552-2403a606e16b}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="29" fieldType="TABLE_COLUMN" name="iptb00002.descrip_esp" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{05bc630e-17e9-4307-9fc3-a502f3f6a7a8}"/>
+    <RecordField colName="" defaultValue="1" fieldIdRef="14" name="factor_conv" sqlTabName="" table_alias_name="" uid="{2a860713-9711-4c2e-9c0b-9e4038bc8412}"/>
+    <RecordField colName="" defaultValue="0" fieldIdRef="30" name="factor_ad" sqlTabName="" table_alias_name="" uid="{9f5fbb92-bb54-40b2-85e2-43f8320742fa}"/>
+    <RecordField colName="" fieldIdRef="31" name="fecha_desc" sqlTabName="" table_alias_name="" uid="{385ee992-0102-43b7-b1ba-33b3534ff073}"/>
+    <RecordField colName="" fieldIdRef="32" name="porc_desc" sqlTabName="" sqlType="FLOAT" table_alias_name="" uid="{bf1b03c8-1f84-4693-a649-64ce9e1b0121}"/>
+    <RecordField colName="" defaultValue="SI" fieldIdRef="33" name="desc_permitido" sqlTabName="" table_alias_name="" uid="{5d3cdb31-4039-48e7-85d6-2d70cf5823dc}"/>
+    <RecordField colName="" defaultValue="SI" fieldIdRef="34" name="ComboBox1" sqlTabName="" table_alias_name="" uid="{8fc47135-6ac3-4038-a52d-7ba0f79c51c3}"/>
+    <RecordField fieldIdRef="35" name="departamento" uid="{afa5a924-fa6e-4bd6-aaa6-7f2d9a28d101}"/>
+    <RecordField fieldIdRef="36" name="grupo1" uid="{93694958-b53f-4c98-8fd5-b3ad9807f412}"/>
+    <RecordField fieldIdRef="37" name="num_emp" uid="{148a5cbb-3f13-4e16-960c-468f5fc6f12c}"/>
+    <RecordField defaultValue="NO" fieldIdRef="38" length="10" name="desglose" uid="{95130c9b-7d90-4546-9762-eacdf8ac3eba}"/>
+    <RecordField fieldIdRef="39" name="tipo_material" uid="{3fb13661-6029-439d-b8c1-8e614f6b1190}"/>
+    <RecordField fieldIdRef="40" name="bookmatch" uid="{b957f450-d6dd-4dcd-81eb-55f04a25685c}"/>
+    <RecordField fieldIdRef="41" name="tipos" uid="{59fb2c03-23da-4f7a-8f7f-6b7a95bd3440}"/>
+  </Record>
+  <Record name="record1" uid="{c0394b35-315c-4042-9cc7-f1d2543a2c6c}"/>
+  <Form gridHeight="26" gridWidth="164" name="ipfmmt002" text="MAESTRA PRODUCTOS">
+    <ActionDefaultList name="ActionDefaultList1">
+      <ActionDefault acceleratorName="enter" acceleratorName2="return" image="find" name="busca_foto" text="Buscar"/>
+    </ActionDefaultList>
+    <ToolBar name="ToolBar1">
+      <ToolBarItem image="new" name="adicionar" text="ADICIONAR"/>
+      <ToolBarItem image="find" name="consultar" text="CONSULTAR MODIFICAR"/>
+      <ToolBarItem image="exit" name="salir" text="SALIR"/>
+    </ToolBar>
+    <Grid gridHeight="26" gridWidth="161" name="Grid1" posX="1" posY="0">
+      <Group gridHeight="18" gridWidth="81" name="Group1" posX="2" posY="1">
+        <Label posX="1" posY="1" text="Origen"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_cia" comment="Digite   1 = Local       2 = Importado       3- Ptos. Material Importado" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" include="1|2|3" name="iptb00002.cod_cia" notNull="true" posX="22" posY="1" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="nombre_cia" fieldId="16" gridHeight="1" gridWidth="42" name="nombre_cia" noEntry="true" posX="26" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="2" text="Codigo Producto"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" comment="Digite el codigo de los productos" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="22" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el codigo de los productos " fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="29" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el codigo de los productos " fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="36" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite el codigo de los productos " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="43" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="8" name="Label11" posX="50" posY="2" text="Codigo B"/>
+        <FFLabel aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="codid" fieldId="1" gridHeight="1" gridWidth="11" name="codid" posX="59" posY="2" sqlTabName="formonly" table_alias_name="" widget="FFLabel"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="producto" fieldId="6" gridHeight="1" gridWidth="20" name="producto" noEntry="true" posX="22" posY="3" sqlTabName="formonly" tabIndex="8" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_grupo" fieldId="7" gridHeight="1" gridWidth="24" name="descrip_grupo" posX="44" posY="3" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_tipo" fieldId="5" gridHeight="1" gridWidth="24" name="descrip_tipo" posX="22" posY="4" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_medida" fieldId="8" gridHeight="1" gridWidth="20" name="descrip_medida" posX="48" posY="4" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="5" text="Descripcion Espanol"/>
+        <ButtonEdit action="formar" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_esp" comment="Descripcion Producto" fieldId="29" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" image="refresh" name="iptb00002.descrip_esp" notNull="true" posX="22" posY="5" required="true" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="30" table_alias_name="" title="ButtonEdit1" widget="ButtonEdit"/>
+        <Label posX="1" posY="6" text="Descripcion Ingles"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_ing" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" name="iptb00002.descrip_ing" posX="22" posY="6" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="12" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="7" text="Unidad Medida"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="unidad_med" fieldId="28" gridHeight="1" gridWidth="4" include="UD|M2|M3|ML" items="UD, M2, M3, ML" name="unidad_med" posX="22" posY="7" sqlTabName="formonly" tabIndex="13" table_alias_name="" widget="ComboBox">
+          <Item name="UD" text="UD"/>
+          <Item name="M2" text="M2"/>
+          <Item name="M3" text="M3"/>
+          <Item name="ML" text="ML"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label4" posX="37" posY="7" text="Referencia"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="nomenclatura" fieldId="17" gridHeight="1" gridWidth="20" name="nomenclatura" posX="48" posY="7" sqlTabName="formonly" tabIndex="14" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="14" name="label17" posX="2" posY="8" text="Centro de Costo"/>
+        <ComboBox fieldId="35" gridHeight="1" gridWidth="25" items="" name="departamento" posX="22" posY="8" tabIndex="-1" title="combobox2" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="10" name="label20" posX="48" posY="8" text="Desgloce"/>
+        <Label gridHeight="1" gridWidth="9" name="Label9" posX="59" posY="8" text="Despiece:"/>
+        <Label gridHeight="1" gridWidth="15" name="Label3" posX="2" posY="9" text="Bodega Recepcion"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Digite la bodega" defaultValue="1" fieldId="21" fieldType="NON_DATABASE" gridHeight="1" gridWidth="25" items="" length="1" name="bodega" posX="22" posY="9" required="true" sqlTabName="" sqlType="SMALLINT" tabIndex="15" table_alias_name="" widget="ComboBox"/>
+        <ComboBox defaultValue="NO" fieldId="38" gridHeight="1" gridWidth="10" items="SI, NO" length="10" name="desglose" posX="48" posY="9" tabIndex="-1" title="combobox2" widget="ComboBox">
+          <Item lstrtext="false" name="S" text="SI"/>
+          <Item lstrtext="false" name="N" text="NO"/>
+        </ComboBox>
+        <RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="despiece" defaultValue="no" fieldId="4" gridHeight="2" gridWidth="8" items="Si, no" name="despiece" posX="60" posY="9" sqlTabName="formonly" tabIndex="16" table_alias_name="" widget="RadioGroup">
+          <Item name="S" text="Si"/>
+          <Item name="N" text="no"/>
+        </RadioGroup>
+        <Label gridHeight="1" gridWidth="14" name="Label5" posX="2" posY="10" text="Factor Conversion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="1" fieldId="14" gridHeight="1" gridWidth="10" name="factor_conv" posX="22" posY="10" sqlTabName="" tabIndex="31" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label6" posX="35" posY="10" text="Adicional"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="0" fieldId="30" gridHeight="1" gridWidth="8" name="factor_ad" posX="48" posY="10" sqlTabName="" tabIndex="32" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="label18" posX="2" posY="11" text="Grupo No. 1"/>
+        <Edit fieldId="36" gridHeight="1" gridWidth="10" name="grupo1" posX="22" posY="11" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label10" posX="35" posY="11" text="Descuento"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Indicar si el articulo es permitido colocar descuento o no" defaultValue="SI" fieldId="33" gridHeight="1" gridWidth="12" items="SI, NO" name="desc_permitido" posX="48" posY="11" sqlTabName="" tabIndex="35" table_alias_name="" title="ComboBox1" widget="ComboBox">
+          <Item lstrtext="false" name="SI" text="SI"/>
+          <Item lstrtext="false" name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="17" name="Label13" posX="2" posY="12" text="Control Existencia"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_existencia" defaultValue="SI" fieldId="2" gridHeight="1" gridWidth="6" include="SI|NO" items="SI, NO" name="control_existencia" posX="22" posY="12" sqlTabName="formonly" tabIndex="17" table_alias_name="" widget="ComboBox">
+          <Item name="SI" text="SI"/>
+          <Item name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="12" name="Label12" posX="35" posY="12" text="Control ITBIS"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_itbis" defaultValue="SI" fieldId="3" gridHeight="1" gridWidth="7" include="SI|NO" items="SI, NO" name="control_itbis" posX="48" posY="12" sqlTabName="formonly" tabIndex="18" table_alias_name="" widget="ComboBox">
+          <Item name="SI" text="SI"/>
+          <Item name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="6" name="Label7" posX="62" posY="12" text="Desc."/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Porciento Descuento cotizacion" fieldId="32" gridHeight="1" gridWidth="6" name="porc_desc" posX="69" posY="12" scroll="true" sqlTabName="" sqlType="FLOAT" tabIndex="34" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="17" name="Label14" posX="2" posY="13" text="Existencia Maxima"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_max" comment="Digite la existencia Maxima en Almacen" fieldId="19" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_max" posX="22" posY="13" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="19" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="11" name="Label1" posX="35" posY="13" text="Existencia Minima"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_min" comment="Digite la existencia Minima en Almacen" fieldId="20" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_min" posX="48" posY="13" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="20" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label8" posX="62" posY="13" text="Fecha"/>
+        <Label gridHeight="1" gridWidth="17" name="Label15" posX="2" posY="14" text="Existencia Actual"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cantidad_2" fieldId="18" gridHeight="1" gridWidth="12" name="cantidad_2" posX="22" posY="14" sqlTabName="formonly" tabIndex="21" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label2" posX="35" posY="14" text="Dia Llegada"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="dia_llegada" comment="Digite el dia de llegada del Producto " fieldId="22" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.dia_llegada" posX="48" posY="14" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="22" table_alias_name="" widget="Edit"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Fecha Vigencia Porciento Cotizacion" fieldId="31" gridHeight="1" gridWidth="10" name="fecha_desc" posX="62" posY="14" sqlTabName="" tabIndex="33" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
+        <Label gridHeight="1" gridWidth="16" name="Label16" posX="2" posY="15" text="Enviar Disp. Movil"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="SI" fieldId="34" gridHeight="1" gridWidth="10" items="SI, NO" name="ComboBox1" posX="22" posY="15" sqlTabName="" tabIndex="36" table_alias_name="" title="ComboBox1" widget="ComboBox">
+          <Item lstrtext="false" name="SI" text="SI"/>
+          <Item lstrtext="false" name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="16" name="label19" posX="2" posY="16" text="Gerente Marcas"/>
+        <ComboBox fieldId="37" gridHeight="1" gridWidth="23" items="" name="num_emp" posX="22" posY="16" scroll="true" tabIndex="-1" title="combobox2" widget="ComboBox"/>
+      </Group>
+      <Group gridHeight="6" gridWidth="42" name="Group2" posX="87" posY="1" text="Foto">
+        <FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoScale="true" colName="foto_producto" fieldId="0" gridHeight="3" gridWidth="36" name="foto_producto" posX="2" posY="1" sqlTabName="formonly" stretch="both" table_alias_name="" unitWidth="characters" widget="FFImage" width="36"/>
+      </Group>
+      <Group gridHeight="8" gridWidth="13" name="Group3" posX="87" posY="8">
+        <Button gridHeight="1" gridWidth="8" name="busca_foto" posX="2" posY="1" tabIndex="24"/>
+      </Group>
+      <Group gridHeight="8" gridWidth="44" name="group5" posX="102" posY="8" text="Propiedades">
+        <Label gridHeight="1" gridWidth="10" name="label21" posX="2" posY="2" text="Tipo Material"/>
+        <ComboBox fieldId="39" gridHeight="1" gridWidth="27" items="Granito, Sintetico, Exotico, Marmol" name="tipo_material" posX="15" posY="2" tabIndex="-1" title="combobox2" widget="ComboBox">
+          <Item lstrtext="false" name="granito" text="Granito"/>
+          <Item lstrtext="false" name="sintetico" text="Sintetico"/>
+          <Item lstrtext="false" name="exotico" text="Exotico"/>
+          <Item lstrtext="false" name="marmol" text="Marmol"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="label22" posX="2" posY="3" text="BookMatch"/>
+        <ComboBox fieldId="40" gridHeight="1" gridWidth="27" items="BookMatch, NDMatch" name="bookmatch" posX="15" posY="3" tabIndex="-1" title="combobox3" widget="ComboBox">
+          <Item lstrtext="false" name="bookmatch" text="BookMatch"/>
+          <Item lstrtext="false" name="ndmash" text="NDMatch"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="label23" posX="2" posY="4" text="Tipos"/>
+        <ComboBox fieldId="41" gridHeight="1" gridWidth="27" items="Comportamiento Estable, Semi-Variable, Variable" name="tipos" posX="15" posY="4" tabIndex="-1" title="combobox4" widget="ComboBox">
+          <Item lstrtext="false" name="tipo1" text="Comportamiento Estable"/>
+          <Item lstrtext="false" name="tipo2" text="Semi-Variable"/>
+          <Item lstrtext="false" name="tipo3" text="Variable"/>
+        </ComboBox>
+      </Group>
+      <Group gridHeight="5" gridWidth="76" name="Group4" posX="2" posY="20" text="AUDITORIA">
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="23" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00002.status_t" noEntry="true" posX="2" posY="1" sqlTabName="iptb00002" sqlType="CHAR" tabIndex="25" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="2" text="Usuario creador"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="24" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_crea" noEntry="true" posX="19" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="26" table_alias_name="" widget="Edit"/>
+        <Label posX="36" posY="2" text="Usuario modificador"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="26" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_mod" noEntry="true" posX="58" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="27" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="3" text="Fecha Creacion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="25" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_crea" noEntry="true" posX="19" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="28" table_alias_name="" widget="Edit"/>
+        <Label posX="36" posY="3" text="Fecha Modificacion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="27" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_mod" noEntry="true" posX="58" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="29" table_alias_name="" widget="Edit"/>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewA3ADEANAA5ADcANwBmAGYALQAxAGUAZAA1AC0ANAA3AGUAMgAtADgANQAzADcALQBiADUAYQA1AGIAMAA2AGEANgA1ADUAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewBjADAAMwA5ADQAYgAzADUALQAzADEANQBjAC0ANAAwADQAMgAtADkAYwBjADcALQBmADEAZAAyADUANAAzAGEAMgBjADYAYwB9QCAAAAQAAABAIAAABAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt002.4fd

@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{d1b05674-a30a-4ff3-a265-cefa9dad0fb7}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{714977ff-1ed5-47e2-8537-b5a5b06a655d}" where="">
+    <RecordField colName="cod_cia" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00002.cod_cia" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{177513e2-c36a-4ff5-af79-402ea5142725}"/>
+    <RecordField colName="nombre_cia" fieldIdRef="16" name="nombre_cia" sqlTabName="formonly" table_alias_name="" uid="{b7e7ced3-e314-4fef-909f-8d17ec0a8d17}"/>
+    <RecordField colName="cod_n" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00002.cod_n" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{d6d930d0-2bbf-40f1-ae6e-2da3e61792e3}"/>
+    <RecordField colName="cod_grupo" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00002.cod_grupo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{10d96f33-4f3f-4055-acbb-9eb73e6ed0eb}"/>
+    <RecordField colName="cod_tipo" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00002.cod_tipo" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{b9e9bcb2-ad84-44b3-b30c-07b97e213da9}"/>
+    <RecordField colName="cod_sec" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00002.cod_sec" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{4bec1eeb-a7c7-4b42-9385-3faafe17668e}"/>
+    <RecordField colName="codid" fieldIdRef="1" name="codid" sqlTabName="formonly" table_alias_name="" uid="{9979ecf5-ef50-4c58-a603-1ec7be7324f2}"/>
+    <RecordField colName="producto" fieldIdRef="6" name="producto" sqlTabName="formonly" table_alias_name="" uid="{6b40ba5e-b0f4-406e-ad8b-3e7922a6a9a2}"/>
+    <RecordField colName="descrip_grupo" fieldIdRef="7" name="descrip_grupo" sqlTabName="formonly" table_alias_name="" uid="{0761afb1-d1dc-49a9-b74c-61c3394f860a}"/>
+    <RecordField colName="descrip_tipo" fieldIdRef="5" name="descrip_tipo" sqlTabName="formonly" table_alias_name="" uid="{df2bf420-a40d-4b32-a4c3-f57588e1ecdd}"/>
+    <RecordField colName="descrip_medida" fieldIdRef="8" name="descrip_medida" sqlTabName="formonly" table_alias_name="" uid="{eaef450b-8c53-40eb-a155-11450187f25a}"/>
+    <RecordField colName="descrip_ing" fieldIdRef="15" fieldType="TABLE_COLUMN" name="iptb00002.descrip_ing" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{3689a904-85f4-47dc-8d45-580f785df6ad}"/>
+    <RecordField colName="unidad_med" fieldIdRef="28" name="unidad_med" sqlTabName="formonly" table_alias_name="" uid="{f2b0199a-d2d1-4d70-8fe2-4a9aff094c18}"/>
+    <RecordField colName="nomenclatura" fieldIdRef="17" name="nomenclatura" sqlTabName="formonly" table_alias_name="" uid="{f631cd85-d9db-4420-a2e1-6d64be424642}"/>
+    <RecordField colName="" defaultValue="1" fieldIdRef="21" fieldType="NON_DATABASE" name="bodega" sqlTabName="" sqlType="SMALLINT" table_alias_name="" uid="{6b69fb36-fab6-43db-abca-3f5677ddb1f5}"/>
+    <RecordField colName="despiece" defaultValue="no" fieldIdRef="4" name="despiece" sqlTabName="formonly" table_alias_name="" uid="{8799162d-1f76-4184-9676-49216d23f409}"/>
+    <RecordField colName="control_existencia" defaultValue="SI" fieldIdRef="2" name="control_existencia" sqlTabName="formonly" table_alias_name="" uid="{606260be-4eb9-490b-a1f1-bbd8be26c113}"/>
+    <RecordField colName="control_itbis" defaultValue="SI" fieldIdRef="3" name="control_itbis" sqlTabName="formonly" table_alias_name="" uid="{ac9435ad-e3f9-4cf9-bfb0-fe8b3db5debb}"/>
+    <RecordField colName="exist_max" fieldIdRef="19" fieldType="TABLE_COLUMN" name="iptb00002.exist_max" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{9f8f3457-971a-43c9-addd-687945851cca}"/>
+    <RecordField colName="exist_min" fieldIdRef="20" fieldType="TABLE_COLUMN" name="iptb00002.exist_min" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" table_alias_name="" uid="{e1c035a9-3412-4ba0-b367-586c82a423a3}"/>
+    <RecordField colName="cantidad_2" fieldIdRef="18" name="cantidad_2" sqlTabName="formonly" table_alias_name="" uid="{09583fd3-d114-4dbb-8333-1d76b631fc7d}"/>
+    <RecordField colName="dia_llegada" fieldIdRef="22" fieldType="TABLE_COLUMN" name="iptb00002.dia_llegada" sqlTabName="iptb00002" sqlType="SMALLINT" table_alias_name="" uid="{95c4e331-5779-4c9d-ae80-ffd2ac5fc36f}"/>
+    <RecordField colName="foto_producto" fieldIdRef="0" name="foto_producto" sqlTabName="formonly" table_alias_name="" uid="{0c9a055f-51b9-437c-8ab1-907cf4b29b8e}"/>
+    <RecordField colName="status_t" fieldIdRef="23" fieldType="TABLE_COLUMN" name="iptb00002.status_t" sqlTabName="iptb00002" sqlType="CHAR" table_alias_name="" uid="{8e6f6263-ece7-4925-995c-fa94299e2700}"/>
+    <RecordField colName="us_crea" fieldIdRef="24" fieldType="TABLE_COLUMN" name="iptb00002.us_crea" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{ab80ce9d-6069-4d14-8ae1-4c94500c70dd}"/>
+    <RecordField colName="us_mod" fieldIdRef="26" fieldType="TABLE_COLUMN" name="iptb00002.us_mod" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{954eb080-2c9f-4fdc-ac8d-cd8eae16ae9b}"/>
+    <RecordField colName="fech_crea" fieldIdRef="25" fieldType="TABLE_COLUMN" name="iptb00002.fech_crea" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{a2b750a6-3751-4935-9f4d-be93ee1fc9b2}"/>
+    <RecordField colName="fech_mod" fieldIdRef="27" fieldType="TABLE_COLUMN" name="iptb00002.fech_mod" sqlTabName="iptb00002" sqlType="DATE" table_alias_name="" uid="{d90221b4-97c6-45e3-8552-2403a606e16b}"/>
+    <RecordField colName="descrip_esp" fieldIdRef="29" fieldType="TABLE_COLUMN" name="iptb00002.descrip_esp" sqlTabName="iptb00002" sqlType="VARCHAR" table_alias_name="" uid="{05bc630e-17e9-4307-9fc3-a502f3f6a7a8}"/>
+    <RecordField colName="" defaultValue="1" fieldIdRef="14" name="factor_conv" sqlTabName="" table_alias_name="" uid="{2a860713-9711-4c2e-9c0b-9e4038bc8412}"/>
+    <RecordField colName="" defaultValue="0" fieldIdRef="30" name="factor_ad" sqlTabName="" table_alias_name="" uid="{9f5fbb92-bb54-40b2-85e2-43f8320742fa}"/>
+    <RecordField colName="" fieldIdRef="31" name="fecha_desc" sqlTabName="" table_alias_name="" uid="{385ee992-0102-43b7-b1ba-33b3534ff073}"/>
+    <RecordField colName="" fieldIdRef="32" name="porc_desc" sqlTabName="" sqlType="FLOAT" table_alias_name="" uid="{bf1b03c8-1f84-4693-a649-64ce9e1b0121}"/>
+    <RecordField colName="" defaultValue="SI" fieldIdRef="33" name="desc_permitido" sqlTabName="" table_alias_name="" uid="{5d3cdb31-4039-48e7-85d6-2d70cf5823dc}"/>
+    <RecordField colName="" defaultValue="SI" fieldIdRef="34" name="ComboBox1" sqlTabName="" table_alias_name="" uid="{8fc47135-6ac3-4038-a52d-7ba0f79c51c3}"/>
+    <RecordField fieldIdRef="35" name="departamento" uid="{afa5a924-fa6e-4bd6-aaa6-7f2d9a28d101}"/>
+    <RecordField fieldIdRef="36" name="grupo1" uid="{93694958-b53f-4c98-8fd5-b3ad9807f412}"/>
+    <RecordField fieldIdRef="37" name="num_emp" uid="{148a5cbb-3f13-4e16-960c-468f5fc6f12c}"/>
+    <RecordField defaultValue="NO" fieldIdRef="38" length="10" name="desglose" uid="{95130c9b-7d90-4546-9762-eacdf8ac3eba}"/>
+    <RecordField fieldIdRef="39" name="tipo_material" uid="{3fb13661-6029-439d-b8c1-8e614f6b1190}"/>
+    <RecordField fieldIdRef="40" name="bookmatch" uid="{b957f450-d6dd-4dcd-81eb-55f04a25685c}"/>
+    <RecordField fieldIdRef="41" name="tipos" uid="{59fb2c03-23da-4f7a-8f7f-6b7a95bd3440}"/>
+    <RecordField fieldIdRef="42" name="categoria" uid="{87d25b9b-d8ca-4d3c-b33c-34ec42189fcf}"/>
+    <RecordField fieldIdRef="43" name="imp_aduanal" uid="{5dd879be-61d2-4d27-b590-263551985b1e}"/>
+    <RecordField defaultValue="0" fieldIdRef="44" name="es_produccion" uid="{d77afc63-6a56-4520-b3ae-f8ad53b01ee1}"/>
+    <RecordField fieldIdRef="45" name="tipo_producto" uid="{56d9a1a7-fea6-4aa1-a892-5ecc01760384}"/>
+  </Record>
+  <Record name="record1" uid="{c0394b35-315c-4042-9cc7-f1d2543a2c6c}"/>
+  <Form gridHeight="28" gridWidth="164" name="ipfmmt002" text="MAESTRA PRODUCTOS">
+    <ActionDefaultList name="ActionDefaultList1">
+      <ActionDefault acceleratorName="enter" acceleratorName2="return" image="find" name="busca_foto" text="Buscar"/>
+    </ActionDefaultList>
+    <ToolBar name="ToolBar1">
+      <ToolBarItem image="new" name="adicionar" text="ADICIONAR"/>
+      <ToolBarItem image="find" name="consultar" text="CONSULTAR MODIFICAR"/>
+      <ToolBarItem image="exit" name="salir" text="SALIR"/>
+    </ToolBar>
+    <Grid gridHeight="28" gridWidth="161" name="Grid1" posX="1" posY="0">
+      <Group gridHeight="19" gridWidth="81" name="Group1" posX="2" posY="1">
+        <Label posX="1" posY="1" text="Origen"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cod_cia" comment="Digite   1 = Local       2 = Importado       3- Ptos. Material Importado" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="2" include="1|2|3" name="iptb00002.cod_cia" notNull="true" posX="22" posY="1" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="nombre_cia" fieldId="16" gridHeight="1" gridWidth="42" name="nombre_cia" noEntry="true" posX="26" posY="1" sqlTabName="formonly" tabIndex="2" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="2" text="Codigo Producto"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_n" comment="Digite el codigo de los productos" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_n" notNull="true" posX="22" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="3" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_grupo" comment="Digite el codigo de los productos " fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_grupo" notNull="true" posX="29" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="4" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_tipo" comment="Digite el codigo de los productos " fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_tipo" notNull="true" posX="36" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="5" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_sec" comment="Digite el codigo de los productos " fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00002.cod_sec" notNull="true" posX="43" posY="2" required="true" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="6" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="8" name="Label11" posX="50" posY="2" text="Codigo B"/>
+        <FFLabel aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="codid" fieldId="1" gridHeight="1" gridWidth="11" name="codid" posX="59" posY="2" sqlTabName="formonly" table_alias_name="" widget="FFLabel"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="producto" fieldId="6" gridHeight="1" gridWidth="20" name="producto" noEntry="true" posX="22" posY="3" sqlTabName="formonly" tabIndex="8" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_grupo" fieldId="7" gridHeight="1" gridWidth="24" name="descrip_grupo" posX="44" posY="3" sqlTabName="formonly" tabIndex="9" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_tipo" fieldId="5" gridHeight="1" gridWidth="24" name="descrip_tipo" posX="22" posY="4" sqlTabName="formonly" tabIndex="10" table_alias_name="" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="descrip_medida" fieldId="8" gridHeight="1" gridWidth="20" name="descrip_medida" posX="48" posY="4" sqlTabName="formonly" tabIndex="11" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="5" text="Descripcion Espanol"/>
+        <ButtonEdit action="formar" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_esp" comment="Descripcion Producto" fieldId="29" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" image="refresh" name="iptb00002.descrip_esp" notNull="true" posX="22" posY="5" required="true" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="30" table_alias_name="" title="ButtonEdit1" widget="ButtonEdit"/>
+        <Label posX="1" posY="6" text="Descripcion Ingles"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="descrip_ing" fieldId="15" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="46" name="iptb00002.descrip_ing" posX="22" posY="6" scroll="true" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="12" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="7" text="Unidad Medida"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="unidad_med" fieldId="28" gridHeight="1" gridWidth="4" include="UD|M2|M3|ML" items="UD, M2, M3, ML" name="unidad_med" posX="22" posY="7" sqlTabName="formonly" tabIndex="13" table_alias_name="" widget="ComboBox">
+          <Item name="UD" text="UD"/>
+          <Item name="M2" text="M2"/>
+          <Item name="M3" text="M3"/>
+          <Item name="ML" text="ML"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label4" posX="37" posY="7" text="Referencia"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="upper" colName="nomenclatura" fieldId="17" gridHeight="1" gridWidth="20" name="nomenclatura" posX="48" posY="7" sqlTabName="formonly" tabIndex="14" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="14" name="label17" posX="2" posY="8" text="Centro de Costo"/>
+        <ComboBox fieldId="35" gridHeight="1" gridWidth="25" items="" name="departamento" posX="22" posY="8" tabIndex="-1" title="combobox2" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="10" name="label20" posX="48" posY="8" text="Desgloce"/>
+        <Label gridHeight="1" gridWidth="9" name="Label9" posX="59" posY="8" text="Despiece:"/>
+        <Label gridHeight="1" gridWidth="15" name="Label3" posX="2" posY="9" text="Bodega Recepcion"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Digite la bodega" defaultValue="1" fieldId="21" fieldType="NON_DATABASE" gridHeight="1" gridWidth="25" items="" length="1" name="bodega" posX="22" posY="9" required="true" sqlTabName="" sqlType="SMALLINT" tabIndex="15" table_alias_name="" widget="ComboBox"/>
+        <ComboBox defaultValue="NO" fieldId="38" gridHeight="1" gridWidth="10" items="SI, NO" length="10" name="desglose" posX="48" posY="9" tabIndex="-1" title="combobox2" widget="ComboBox">
+          <Item lstrtext="false" name="S" text="SI"/>
+          <Item lstrtext="false" name="N" text="NO"/>
+        </ComboBox>
+        <RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="despiece" defaultValue="no" fieldId="4" gridHeight="2" gridWidth="8" items="Si, no" name="despiece" posX="60" posY="9" sqlTabName="formonly" tabIndex="16" table_alias_name="" widget="RadioGroup">
+          <Item name="S" text="Si"/>
+          <Item name="N" text="no"/>
+        </RadioGroup>
+        <Label gridHeight="1" gridWidth="14" name="Label5" posX="2" posY="10" text="Factor Conversion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="1" fieldId="14" gridHeight="1" gridWidth="12" name="factor_conv" posX="22" posY="10" sqlTabName="" tabIndex="31" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label6" posX="35" posY="10" text="Adicional"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="0" fieldId="30" gridHeight="1" gridWidth="8" name="factor_ad" posX="48" posY="10" sqlTabName="" tabIndex="32" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="label18" posX="2" posY="11" text="Grupo No. 1"/>
+        <ComboBox fieldId="36" gridHeight="1" gridWidth="12" items="" name="grupo1" notNull="true" posX="22" posY="11" required="true" scroll="true" tabIndex="-1" title="edit1" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="10" name="label24" posX="35" posY="11" text="Categoria conteo"/>
+        <ComboBox fieldId="42" gridHeight="1" gridWidth="27" items="" name="categoria" posX="48" posY="11" scroll="true" tabIndex="-1" title="edit1" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="17" name="Label13" posX="2" posY="12" text="Control Existencia"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_existencia" defaultValue="SI" fieldId="2" gridHeight="1" gridWidth="6" include="SI|NO" items="SI, NO" name="control_existencia" posX="22" posY="12" sqlTabName="formonly" tabIndex="17" table_alias_name="" widget="ComboBox">
+          <Item name="SI" text="SI"/>
+          <Item name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label10" posX="35" posY="12" text="Descuento"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Indicar si el articulo es permitido colocar descuento o no" defaultValue="SI" fieldId="33" gridHeight="1" gridWidth="12" items="SI, NO" name="desc_permitido" posX="48" posY="12" sqlTabName="" tabIndex="35" table_alias_name="" title="ComboBox1" widget="ComboBox">
+          <Item lstrtext="false" name="SI" text="SI"/>
+          <Item lstrtext="false" name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="17" name="Label14" posX="2" posY="13" text="Existencia Maxima"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_max" comment="Digite la existencia Maxima en Almacen" fieldId="19" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_max" posX="22" posY="13" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="19" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="12" name="Label12" posX="35" posY="13" text="Control ITBIS"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_itbis" defaultValue="SI" fieldId="3" gridHeight="1" gridWidth="7" include="SI|NO" items="SI, NO" name="control_itbis" posX="48" posY="13" sqlTabName="formonly" tabIndex="18" table_alias_name="" widget="ComboBox">
+          <Item name="SI" text="SI"/>
+          <Item name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="6" name="Label7" posX="62" posY="13" text="Desc."/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Porciento Descuento cotizacion" fieldId="32" gridHeight="1" gridWidth="6" name="porc_desc" posX="69" posY="13" scroll="true" sqlTabName="" sqlType="FLOAT" tabIndex="34" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="17" name="Label15" posX="2" posY="14" text="Existencia Actual"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cantidad_2" fieldId="18" gridHeight="1" gridWidth="12" name="cantidad_2" posX="22" posY="14" sqlTabName="formonly" tabIndex="21" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="11" name="Label1" posX="35" posY="14" text="Existencia Minima"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="exist_min" comment="Digite la existencia Minima en Almacen" fieldId="20" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.exist_min" posX="48" posY="14" precisionDecimal="10" scaleDecimal="2" sqlTabName="iptb00002" sqlType="DECIMAL" tabIndex="20" table_alias_name="" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="10" name="Label8" posX="62" posY="14" text="Fecha"/>
+        <Label gridHeight="1" gridWidth="16" name="Label16" posX="2" posY="15" text="Enviar Disp. Movil"/>
+        <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="SI" fieldId="34" gridHeight="1" gridWidth="10" items="SI, NO" name="ComboBox1" posX="22" posY="15" sqlTabName="" tabIndex="36" table_alias_name="" title="ComboBox1" widget="ComboBox">
+          <Item lstrtext="false" name="SI" text="SI"/>
+          <Item lstrtext="false" name="NO" text="NO"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="Label2" posX="35" posY="15" text="Dia Llegada"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="dia_llegada" comment="Digite el dia de llegada del Producto " fieldId="22" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="12" name="iptb00002.dia_llegada" posX="48" posY="15" sqlTabName="iptb00002" sqlType="SMALLINT" tabIndex="22" table_alias_name="" widget="Edit"/>
+        <DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="Fecha Vigencia Porciento Cotizacion" fieldId="31" gridHeight="1" gridWidth="10" name="fecha_desc" posX="62" posY="15" sqlTabName="" tabIndex="33" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
+        <Label gridHeight="1" gridWidth="16" name="label19" posX="2" posY="16" text="Gerente Marcas"/>
+        <ComboBox fieldId="37" gridHeight="1" gridWidth="23" items="" name="num_emp" posX="22" posY="16" scroll="true" tabIndex="-1" title="combobox2" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="10" name="label27" posX="46" posY="16" text="Tipo producto"/>
+        <ComboBox fieldId="45" gridHeight="1" gridWidth="12" items="" name="tipo_producto" notNull="true" posX="57" posY="16" required="true" tabIndex="-1" title="combobox2" widget="ComboBox"/>
+        <Label gridHeight="1" gridWidth="10" name="label25" posX="2" posY="17" text="Impuesto Aduanal"/>
+        <Edit fieldId="43" gridHeight="1" gridWidth="14" name="imp_aduanal" posX="22" posY="17" tabIndex="-1" title="edit1" widget="Edit"/>
+        <Label gridHeight="1" gridWidth="8" name="label26" posX="38" posY="17" text="Es produccion"/>
+        <ComboBox defaultValue="0" fieldId="44" gridHeight="1" gridWidth="9" items="NO, SI" name="es_produccion" posX="47" posY="17" tabIndex="-1" title="combobox2" widget="ComboBox">
+          <Item lstrtext="false" name="0" text="NO"/>
+          <Item lstrtext="false" name="1" text="SI"/>
+        </ComboBox>
+      </Group>
+      <Group gridHeight="6" gridWidth="42" name="Group2" posX="87" posY="1" text="Foto">
+        <FFImage aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoScale="true" colName="foto_producto" fieldId="0" gridHeight="3" gridWidth="36" name="foto_producto" posX="2" posY="1" sqlTabName="formonly" stretch="both" table_alias_name="" unitWidth="characters" widget="FFImage" width="36"/>
+      </Group>
+      <Group gridHeight="8" gridWidth="13" name="Group3" posX="87" posY="8">
+        <Button gridHeight="1" gridWidth="8" name="busca_foto" posX="2" posY="1" tabIndex="24"/>
+      </Group>
+      <Group gridHeight="8" gridWidth="44" name="group5" posX="102" posY="8" text="Propiedades">
+        <Label gridHeight="1" gridWidth="10" name="label21" posX="2" posY="2" text="Tipo Material"/>
+        <ComboBox fieldId="39" gridHeight="1" gridWidth="27" items="Granito, Sintetico, Exotico, Marmol" name="tipo_material" posX="15" posY="2" tabIndex="-1" title="combobox2" widget="ComboBox">
+          <Item lstrtext="false" name="granito" text="Granito"/>
+          <Item lstrtext="false" name="sintetico" text="Sintetico"/>
+          <Item lstrtext="false" name="exotico" text="Exotico"/>
+          <Item lstrtext="false" name="marmol" text="Marmol"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="label22" posX="2" posY="3" text="BookMatch"/>
+        <ComboBox fieldId="40" gridHeight="1" gridWidth="27" items="BookMatch, NDMatch" name="bookmatch" posX="15" posY="3" tabIndex="-1" title="combobox3" widget="ComboBox">
+          <Item lstrtext="false" name="bookmatch" text="BookMatch"/>
+          <Item lstrtext="false" name="ndmash" text="NDMatch"/>
+        </ComboBox>
+        <Label gridHeight="1" gridWidth="10" name="label23" posX="2" posY="4" text="Tipos"/>
+        <ComboBox fieldId="41" gridHeight="1" gridWidth="27" items="Comportamiento Estable, Semi-Variable, Variable" name="tipos" posX="15" posY="4" tabIndex="-1" title="combobox4" widget="ComboBox">
+          <Item lstrtext="false" name="tipo1" text="Comportamiento Estable"/>
+          <Item lstrtext="false" name="tipo2" text="Semi-Variable"/>
+          <Item lstrtext="false" name="tipo3" text="Variable"/>
+        </ComboBox>
+      </Group>
+      <Group gridHeight="5" gridWidth="76" name="Group4" posX="2" posY="21" text="AUDITORIA">
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="23" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00002.status_t" noEntry="true" posX="2" posY="1" sqlTabName="iptb00002" sqlType="CHAR" tabIndex="25" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="2" text="Usuario creador"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="24" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_crea" noEntry="true" posX="19" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="26" table_alias_name="" widget="Edit"/>
+        <Label posX="36" posY="2" text="Usuario modificador"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="26" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.us_mod" noEntry="true" posX="58" posY="2" sqlTabName="iptb00002" sqlType="VARCHAR" tabIndex="27" table_alias_name="" widget="Edit"/>
+        <Label posX="1" posY="3" text="Fecha Creacion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="25" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_crea" noEntry="true" posX="19" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="28" table_alias_name="" widget="Edit"/>
+        <Label posX="36" posY="3" text="Fecha Modificacion"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="27" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00002.fech_mod" noEntry="true" posX="58" posY="3" sqlTabName="iptb00002" sqlType="DATE" tabIndex="29" table_alias_name="" widget="Edit"/>
+      </Group>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewBjADAAMwA5ADQAYgAzADUALQAzADEANQBjAC0ANAAwADQAMgAtADkAYwBjADcALQBmADEAZAAyADUANAAzAGEAMgBjADYAYwB9QCAAADgAAFVAIAAAOAAAVQAAAAAAAAAAAQAAAEwAewA3ADEANAA5ADcANwBmAGYALQAxAGUAZAA1AC0ANAA3AGUAMgAtADgANQAzADcALQBiADUAYQA1AGIAMAA2AGEANgA1ADUAZAB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt002.per

@@ -0,0 +1,81 @@
+SCHEMA smarmotech     
+ACTION DEFAULTS
+   
+   ACTION busca_foto ( TEXT="Buscar", IMAGE="find", ACCELERATOR = Enter, ACCELERATOR2 = Return )
+   
+END
+
+TOOLBAR
+ITEM ADICIONAR (TEXT="ADICIONAR",IMAGE="new")
+ITEM Consultar (TEXT="CONSULTAR MODIFICAR",IMAGE="find")
+ITEM SALIR (TEXT="SALIR",IMAGE="exit")
+LAYOUT (TEXT="MAESTRA PRODUCTOS")
+GRID
+
+{
+<G                                                                   ><G"Foto"                                 >
+ Origen              [p1][p4                                        ]  [img                                 ]
+ Codigo Producto     [a ][b   ][c    ][e   ]        Codigo B [kk    ]  
+                     [pro                 ][prgrupo                 ]  
+                     [dtipo                   ][prm                 ]
+ Descripcion Espanol [d                                             ]  
+ Descripcion Ingles  [f                                             ]  <G          >
+ Unidad Medida       [k  ]  Producto           [prod                ]   [sh      ]  
+ Bodega              [l ]   Despiece:          [des66               ]
+ Control Existencia [s     ]Control ITBIS      [it1                 ]
+                            
+ Existencia Maxima   [exma        ] Existencia Minima   [f005        ] 
+ Existencia Actual   [f004        ] Dia de Llegada      [m           ]
+
+<G "AUDITORIA"                                                             >
+ [q]
+ Usuario creador  [f007            ]Usuario modificador  [f009            ]
+ Fecha Creacion   [f008            ]Fecha Modificacion   [f010            ]
+}
+end
+tables
+iptb00002
+ATTRIBUTES
+IMAGE  img = formonly.foto_producto,STRETCH =BOTH,AUTOSCALE;
+BUTTON  sh: busca_foto;
+
+LABEL    kk = formonly.codid;
+COMBOBOX s     = formonly.control_existencia, INCLUDE=("SI","NO"),default="SI";
+COMBOBOX it1   = formonly.control_itbis,INCLUDE=("SI","NO"),default="SI";
+des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
+dtipo = formonly.descrip_tipo;
+pro = formonly.producto,noentry;
+prgrupo = formonly.descrip_grupo;
+prm     = formonly.descrip_medida;
+a   = iptb00002.cod_n, autonext, 
+      comments = "Digite el codigo de los productos";
+b   = iptb00002.cod_grupo, autonext,
+      comments = "Digite el codigo de los productos ";
+c  = iptb00002.cod_tipo, autonext,
+      comments = "Digite el codigo de los productos ";
+e = iptb00002.cod_sec,autonext,
+      comments = "Digite el codigo de los productos ";
+p1   = iptb00002.cod_cia,include=(1,2,3),comments=
+       "Digite   1 = Local       2 = Importado       3- Ptos. Material Importado"; 
+d    = iptb00002.descrip_esp,upshift,scroll; 
+f    = iptb00002.descrip_ing,upshift,scroll; 
+p4   = formonly.nombre_cia,noentry;
+prod = formonly.nomenclatura,upshift;
+
+f004 = formonly.cantidad_2;
+exma = iptb00002.exist_max,
+       comments = "Digite la existencia Maxima en Almacen";
+f005 = iptb00002.exist_min,
+       comments = "Digite la existencia Minima en Almacen";
+l    = iptb00002.bodega, comments ="Digite la bodega";
+m    = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
+q    = iptb00002.status_t,noentry;
+f007 = iptb00002.us_crea, noentry;
+f008 = iptb00002.fech_crea, noentry;
+f009 = iptb00002.us_mod, noentry;
+f010 = iptb00002.fech_mod, noentry;
+COMBOBOX k    = formonly.unidad_med,upshift,include=('UD','M2','M3','ML');
+
+instructions
+  delimiters " "
+end

PROYECTO/ipdir/ipfmmt002_1.per

@@ -0,0 +1,56 @@
+database smarmotech     
+screen size 24 by 80
+{
+ Origen              [p1][p4                                        ]
+ Codigo Producto     [a ][b ][c  ][e  ]
+                     [pro                 ][dtipo                   ]
+ Descripcion Espanol [d                                             ]
+ Descripcion Ingles  [f                                             ]
+ Unidad Medida       [k  ]Producto  [prod                 ]
+ Bodega              [l ] Despiece:[des66                            ]
+
+ Existencia Maxima   [exma        ] Existencia Minima   [f005        ] 
+ Existencia Actual   [f004        ] Dia de Llegada      [m           ]
+ [q]
+ Usuario creador  [f007            ]  Usuario modificador  [f009            ]
+ Fecha Creacion   [f008            ]  Fecha Modificacion   [f010            ]
+}
+end
+tables
+iptb00002
+attributes
+des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
+dtipo = formonly.descrip_tipo;
+pro = formonly.producto,noentry;
+a   = iptb00002.cod_n, autonext, 
+      comments = "Digite el codigo de los productos";
+b   = iptb00002.cod_grupo, autonext,
+      comments = "Digite el codigo de los productos ";
+c  = iptb00002.cod_tipo, autonext,
+      comments = "Digite el codigo de los productos ";
+e = iptb00002.cod_sec,autonext,
+      comments = "Digite el codigo de los productos ";
+p1   = iptb00002.cod_cia,include=(1,2,3),comments=
+       "Digite   1 = Local       2 = Importado       3- Ptos. Material Importado"; 
+d    = iptb00002.descrip_esp,upshift; 
+f    = iptb00002.descrip_ing,upshift; 
+p4   = formonly.nombre_cia,noentry;
+prod = formonly.nomenclatura,upshift;
+
+f004 = formonly.cantidad_2;
+exma = iptb00002.exist_max,
+       comments = "Digite la existencia Maxima en Almacen";
+f005 = iptb00002.exist_min,
+       comments = "Digite la existencia Minima en Almacen";
+l    = iptb00002.bodega, comments ="Digite la bodega";
+m    = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
+q    = iptb00002.status_t,noentry;
+f007 = iptb00002.us_crea, noentry;
+f008 = iptb00002.fech_crea, noentry;
+f009 = iptb00002.us_mod, noentry;
+f010 = iptb00002.fech_mod, noentry;
+k    = formonly.unidad_med,upshift;
+
+instructions
+  delimiters " "
+end

PROYECTO/ipdir/ipfmmt002_2.per

@@ -0,0 +1,56 @@
+database smarmotech     
+screen size 24 by 80
+{
+ Origen              [p1][p4                                        ]
+ Codigo Producto     [a ][b ][c  ][e  ]
+                     [pro                 ][dtipo                   ]
+ Descripcion Espanol [d                                             ]
+ Descripcion Ingles  [f                                             ]
+ Unidad Medida       [k  ]Producto  [prod                 ]
+ Bodega              [l ] Despiece:[des66                            ]
+
+ Existencia Maxima   [exma        ] Existencia Minima   [f005        ] 
+ Existencia Actual   [f004        ] Dia de Llegada      [m           ]
+ [q]
+ Usuario creador  [f007            ]  Usuario modificador  [f009            ]
+ Fecha Creacion   [f008            ]  Fecha Modificacion   [f010            ]
+}
+end
+tables
+iptb00002
+attributes
+des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
+dtipo = formonly.descrip_tipo;
+pro = formonly.producto,noentry;
+a   = iptb00002.cod_n, autonext, 
+      comments = "Digite el codigo de los productos";
+b   = iptb00002.cod_grupo, autonext,
+      comments = "Digite el codigo de los productos ";
+c  = iptb00002.cod_tipo, autonext,
+      comments = "Digite el codigo de los productos ";
+e = iptb00002.cod_sec,autonext,
+      comments = "Digite el codigo de los productos ";
+p1   = iptb00002.cod_cia,include=(1,2,3),comments=
+       "Digite   1 = Local       2 = Importado       3- Ptos. Material Importado"; 
+d    = iptb00002.descrip_esp,upshift; 
+f    = iptb00002.descrip_ing,upshift; 
+p4   = formonly.nombre_cia,noentry;
+prod = formonly.nomenclatura,upshift;
+
+f004 = formonly.cantidad_2;
+exma = iptb00002.exist_max,
+       comments = "Digite la existencia Maxima en Almacen";
+f005 = iptb00002.exist_min,
+       comments = "Digite la existencia Minima en Almacen";
+l    = iptb00002.bodega, comments ="Digite la bodega";
+m    = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
+q    = iptb00002.status_t,noentry;
+f007 = iptb00002.us_crea, noentry;
+f008 = iptb00002.fech_crea, noentry;
+f009 = iptb00002.us_mod, noentry;
+f010 = iptb00002.fech_mod, noentry;
+k    = formonly.unidad_med,upshift;
+
+instructions
+  delimiters " "
+end

PROYECTO/ipdir/ipfmmt002_3.per

@@ -0,0 +1,88 @@
+SCHEMA smarmotech     
+
+TOOLBAR
+ITEM ADICIONAR (TEXT="ADICIONAR",IMAGE="new")
+ITEM Consultar (TEXT="CONSULTAR MODIFICAR",IMAGE="find")
+ITEM SALIR (TEXT="SALIR",IMAGE="exit")
+LAYOUT
+GRID
+
+{
+ Origen              [p1][p4                                        ]
+ Codigo Producto     [a   ][b   ][c   ][e   ] Codigo Barra [kk    ]
+ Clase               [pro                 ]
+ Grupo               [pg               ]                    
+ Tipo                [dtipo            ]Medida[med                  ]
+ Descripcion Espanol [d                                             ]
+ Descripcion Ingles  [f                                             ]
+ Unidad Medida       [k  ]  Producto           [prod                ]
+ Bodega              [l ]   Despiece:          [des66               ]
+ Control Existencia [s     ]Control ITBIS      [it1                 ]
+                        
+ Existencia Maxima   [exma        ] Existencia Minima   [f005        ] 
+ Existencia Actual   [f004        ] Dia de Llegada      [m           ]
+ Material            [st        ]Labor [lab       ]Gastos [ga        ]  
+ Factor              [fac         ]
+ CODIGO ANTERIOR     [a10  ][a11   ][a12   ][a13  ]
+ DESCRIPCION         [a14                                            ]
+ 
+ [q]
+ Usuario creador  [f007            ]  Usuario modificador  [f009            ]
+ Fecha Creacion   [f008            ]  Fecha Modificacion   [f010            ]
+}
+end
+tables
+iptb00002
+attributes
+st   = formonly.pmaterial;
+lab  = formonly.plabor;
+ga   = formonly.pgastos;
+fac  = formonly.pfactor;
+
+pg   =formonly.descrip_grupo;
+med  = formonly.descrip_medida;
+LABEL    kk = formonly.pcodid;
+COMBOBOX s     = formonly.control_existencia, INCLUDE=("SI","NO"),default="SI",required;
+COMBOBOX it1   = formonly.control_itbis,INCLUDE=("SI","NO"),default="SI",required;
+des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no",required;
+dtipo = formonly.descrip_tipo;
+pro = formonly.producto,noentry;
+a   = iptb00002.cod_n, autonext, 
+      comments = "Digite el codigo de los productos";
+b   = iptb00002.cod_grupo, autonext,
+      comments = "Digite el codigo de los productos ";
+c  = iptb00002.cod_tipo, autonext,
+      comments = "Digite el codigo de los productos ";
+e = iptb00002.cod_sec,autonext,
+      comments = "Digite el codigo de los productos ";
+p1   = iptb00002.cod_cia,include=(1,2,3),comments=
+       "Digite   1 = Local       2 = Importado       3- Ptos. Material Importado"; 
+d    = iptb00002.descrip_esp,upshift,scroll; 
+f    = iptb00002.descrip_ing,upshift; 
+p4   = formonly.nombre_cia,noentry;
+prod = formonly.nomenclatura,upshift;
+
+f004 = formonly.cantidad_2;
+exma = iptb00002.exist_max,
+       comments = "Digite la existencia Maxima en Almacen";
+f005 = iptb00002.exist_min,
+       comments = "Digite la existencia Minima en Almacen";
+l    = iptb00002.bodega, comments ="Digite la bodega",required,default=1;
+m    = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
+q    = iptb00002.status_t,noentry;
+f007 = iptb00002.us_crea, noentry;
+f008 = iptb00002.fech_crea, noentry;
+f009 = iptb00002.us_mod, noentry;
+f010 = iptb00002.fech_mod, noentry;
+
+a10  = formonly.pcodn;
+a11  = formonly.pcodgrupo;
+a12  = formonly.pcodtipo;
+a13  = formonly.pcodsec;
+a14  = formonly.descripcion;
+
+COMBOBOX k    = formonly.unidad_med,upshift,include=('UD','M2','M3','ML');
+
+instructions
+  delimiters " "
+end

PROYECTO/ipdir/ipfmmt003.4fd

@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{dc7ed013-037e-4aa8-91ab-adebeb553c86}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{103fcccd-a59f-43d7-87a8-966387c2d5e2}" where="">
+    <RecordField colName="cod_mov" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00005.cod_mov" sqlTabName="iptb00005" sqlType="SMALLINT" table_alias_name="" uid="{9d90cb70-6401-4664-ba66-8930389a777c}"/>
+    <RecordField fieldIdRef="6" fieldType="NON_DATABASE" length="8" name="cuenta_1" sqlType="CHAR" table_alias_name="" uid="{b39d7a53-5638-42c8-a6ca-134faa84324a}"/>
+    <RecordField colName="descrip_mov" fieldIdRef="4" fieldType="TABLE_COLUMN" name="iptb00005.descrip_mov" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{52d0e644-9820-4871-bfef-82250afdc7cc}"/>
+    <RecordField fieldIdRef="7" fieldType="NON_DATABASE" length="8" name="cuenta_2" sqlType="CHAR" table_alias_name="" uid="{9f568e52-4c91-4024-8cad-8593ff193775}"/>
+    <RecordField colName="status_mov" fieldIdRef="5" fieldType="TABLE_COLUMN" name="iptb00005.status_mov" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{2df7db79-4940-471b-8988-f0d00c303199}"/>
+    <RecordField fieldIdRef="8" fieldType="NON_DATABASE" length="8" name="cuenta_3" sqlType="CHAR" table_alias_name="" uid="{3b17f8ee-03c7-40c6-aa03-30f63d2753e3}"/>
+    <RecordField colName="control_despacho" fieldIdRef="1" name="control_despacho" sqlTabName="formonly" table_alias_name="" uid="{621115fd-715f-45cc-a8ff-3d81b049e8ea}"/>
+    <RecordField colName="control_clientes" fieldIdRef="2" name="control_clientes" sqlTabName="formonly" table_alias_name="" uid="{721ee9fa-9610-4ee8-acd6-51dd20a494ef}"/>
+    <RecordField colName="status_t" fieldIdRef="13" fieldType="TABLE_COLUMN" name="iptb00005.status_t" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{daef6271-ac43-430b-b50c-a41db17b2877}"/>
+    <RecordField colName="us_crea" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00005.us_crea" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{58bbed3d-4471-44e9-b15c-d5547c1ee359}"/>
+    <RecordField colName="us_mod" fieldIdRef="11" fieldType="TABLE_COLUMN" name="iptb00005.us_mod" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="" uid="{d2026d6b-247f-4a0e-af49-1bbdc6503430}"/>
+    <RecordField colName="fech_crea" fieldIdRef="10" fieldType="TABLE_COLUMN" name="iptb00005.fech_crea" sqlTabName="iptb00005" sqlType="DATE" table_alias_name="" uid="{530a77ce-9b79-44fb-b073-f0261894d745}"/>
+    <RecordField colName="fech_mod" fieldIdRef="12" fieldType="TABLE_COLUMN" name="iptb00005.fech_mod" sqlTabName="iptb00005" sqlType="DATE" table_alias_name="" uid="{9cd5557a-82e0-4cdc-9464-821caac4ea38}"/>
+    <RecordField colName="" defaultValue="NO" fieldIdRef="14" name="control_transferencia" sqlTabName="" table_alias_name="" uid="{846f20be-6c61-4e2c-9ce0-0bff3dc71fa1}"/>
+    <RecordField colName="" defaultValue="NO" fieldIdRef="15" name="control_devolucion" sqlTabName="" table_alias_name="" uid="{5735e76b-609a-43c8-a2db-ee49e6027362}"/>
+    <RecordField colName="" defaultValue="NO" fieldIdRef="16" name="control_departamento" sqlTabName="" table_alias_name="" uid="{26ced4a5-a992-4855-821d-7ffe7bea94a3}"/>
+    <RecordField colName="" fieldIdRef="17" name="aplicacion_movil_doc" sqlTabName="" table_alias_name="" uid="{809e8e9d-82bd-42a9-99fd-0a94deebd770}"/>
+    <RecordField colName="" fieldIdRef="18" name="aplicacion_movil_inv" sqlTabName="" table_alias_name="" uid="{fd00948b-07ce-4f23-84de-b7fcc37b6ee1}"/>
+    <RecordField fieldIdRef="19" name="cuenta_imp_material" uid="{dcc4af58-f2df-4b40-ae70-e7fa909bdeae}"/>
+    <RecordField fieldIdRef="20" name="cuenta_imp_labor" uid="{bd7b06fe-b22d-45e1-aa6d-8b8ece5d4f08}"/>
+    <RecordField colName="cuenta_3" fieldIdRef="21" fieldType="NON_DATABASE" name="cuenta_imp_gasto" sqlTabName="iptb00005" sqlType="CHAR" table_alias_name="iptb000051" uid="{c1db7ab8-8d2b-4c97-a2cf-334bedae4252}"/>
+    <RecordField fieldIdRef="22" name="descripcion_cta_material" uid="{5d688bc4-e3db-47b1-8ec9-962cced9b037}"/>
+    <RecordField fieldIdRef="23" name="descripcion_cta_gasto" uid="{9457a27b-7669-44db-96b2-340150195436}"/>
+    <RecordField fieldIdRef="24" name="descripcion_imp_labor" uid="{88d83a40-78c9-421e-a5a3-a6a176d6cf6f}"/>
+    <RecordField fieldIdRef="25" name="descripcion_imp_gasto" uid="{9f6d81da-ed99-4c6c-8674-3ad9f43eb55a}"/>
+    <RecordField fieldIdRef="26" name="descripcion_imp_material" uid="{f1b8a544-e111-42d4-8584-16867b2abdf7}"/>
+    <RecordField fieldIdRef="27" name="descripcion_cta_labor" uid="{80c29474-f9d5-4a30-a336-2a684cee8417}"/>
+    <RecordField fieldIdRef="28" name="codigo_mov_transferencia" uid="{801534bc-e124-43af-b99f-3458025196bd}"/>
+    <RecordField colName="" fieldIdRef="29" name="control_produccion" sqlTabName="" table_alias_name="" uid="{a4283ffd-36a3-4ab6-a89d-d38ad5673b71}"/>
+    <RecordField colName="" defaultValue="NO" fieldIdRef="30" name="control_ubicacion_almacen" sqlTabName="" table_alias_name="" uid="{93f65def-4299-428e-9b95-373b2385e44d}"/>
+    <RecordField defaultValue="NO" fieldIdRef="31" name="requisiciones" uid="{a9cd3fc8-508c-4caf-b335-c9ed76e40d38}"/>
+    <RecordField fieldIdRef="32" name="control_facturacion" uid="{cf1ee115-c144-427b-994d-190f190127dd}"/>
+    <RecordField defaultValue="NO" fieldIdRef="33" length="10" name="requiere_autorizacion" uid="{bdcaf00b-5ef5-40d2-a3a6-3a86208099a1}"/>
+  </Record>
+  <Form gridHeight="21" gridWidth="83" name="ipfmmt003" text="CATALOGO TIPOS DOCUMENTOS ALMACEN">
+    <Grid gridHeight="19" gridWidth="83" name="Grid1" posX="0" posY="1">
+      <Label gridHeight="1" gridWidth="18" name="Label11" posX="1" posY="1" text="Codigo del movimiento"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" colName="cod_mov" comment="Digite el codigo del movimiento" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="3" name="iptb00005.cod_mov" notNull="true" posX="23" posY="1" required="true" sqlTabName="iptb00005" sqlType="SMALLINT" tabIndex="1" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="11" name="Label10" posX="1" posY="2" text="Descripcion"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" case="upper" colName="descrip_mov" comment="Digite la descripcion del movimiento" fieldId="4" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="40" name="iptb00005.descrip_mov" posX="23" posY="2" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="3" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="12" name="Label3" posX="1" posY="3" text="Status Movimiento"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_mov" comment="1.- Entradas    2.- Salidas" fieldId="5" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="14" include="1|2" items="ENTRADAS, SALIDAS" name="iptb00005.status_mov" posX="23" posY="3" required="true" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="5" table_alias_name="" widget="ComboBox">
+        <Item lstrtext="false" name="1" text="ENTRADAS"/>
+        <Item lstrtext="false" name="2" text="SALIDAS"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="16" name="Label9" posX="1" posY="4" text="Control Despacho"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_despacho" fieldId="1" gridHeight="1" gridWidth="8" include="SI|NO" items="SI, NO" name="control_despacho" posX="23" posY="4" sqlTabName="formonly" tabIndex="7" table_alias_name="" widget="ComboBox">
+        <Item name="SI" text="SI"/>
+        <Item name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="6" name="Label6" posX="39" posY="4" text="Material Local"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" comment="Digite el numero de la cuenta" fieldId="6" fieldType="NON_DATABASE" gridHeight="1" gridWidth="8" length="8" name="cuenta_1" posX="48" posY="4" required="true" sqlType="CHAR" tabIndex="2" table_alias_name="" widget="Edit"/>
+      <Edit fieldId="22" gridHeight="1" gridWidth="24" name="descripcion_cta_material" posX="57" posY="4" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="10" name="Label1" posX="1" posY="5" text="Control Cliente"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="control_clientes" fieldId="2" gridHeight="1" gridWidth="8" include="SI|NO" items="SI, NO" name="control_clientes" posX="23" posY="5" sqlTabName="formonly" tabIndex="8" table_alias_name="" widget="ComboBox">
+        <Item name="SI" text="SI"/>
+        <Item name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="5" name="Label7" posX="39" posY="5" text="Labor Local"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" autoNext="true" comment="Digite el numero de la cuenta" fieldId="7" fieldType="NON_DATABASE" gridHeight="1" gridWidth="8" length="8" name="cuenta_2" posX="48" posY="5" required="true" sqlType="CHAR" tabIndex="4" table_alias_name="" widget="Edit"/>
+      <Edit fieldId="27" gridHeight="1" gridWidth="24" name="descripcion_cta_labor" posX="57" posY="5" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="13" name="Label2" posX="1" posY="6" text="Control Devolucion"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="15" gridHeight="1" gridWidth="7" items="SI, NO" name="control_devolucion" posX="23" posY="6" sqlTabName="" tabIndex="15" table_alias_name="" title="ComboBox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="6" name="Label8" posX="39" posY="6" text="Gastos Local"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" comment="Digite el numero de la cuenta" fieldId="8" fieldType="NON_DATABASE" gridHeight="1" gridWidth="8" length="8" name="cuenta_3" posX="48" posY="6" sqlType="CHAR" tabIndex="6" table_alias_name="" widget="Edit"/>
+      <Edit fieldId="23" gridHeight="1" gridWidth="24" name="descripcion_cta_gasto" posX="57" posY="6" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="Label4" posX="1" posY="7" text="Control Transferencia"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="14" gridHeight="1" gridWidth="7" items="SI, NO" name="control_transferencia" posX="23" posY="7" sqlTabName="" tabIndex="14" table_alias_name="" title="ComboBox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="8" name="label21" posX="39" posY="7" text="Codigo Recibir"/>
+      <ComboBox fieldId="28" gridHeight="1" gridWidth="33" items="" name="codigo_mov_transferencia" posX="48" posY="7" scroll="true" tabIndex="-1" title="combobox1" widget="ComboBox"/>
+      <Label gridHeight="1" gridWidth="14" name="Label15" posX="1" posY="8" text="Departamento"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="16" gridHeight="1" gridWidth="7" items="SI, NO" name="control_departamento" posX="23" posY="8" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="7" name="label18" posX="39" posY="8" text="Material Exp"/>
+      <Edit fieldId="19" gridHeight="1" gridWidth="8" name="cuenta_imp_material" posX="48" posY="8" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Edit fieldId="26" gridHeight="1" gridWidth="24" name="descripcion_imp_material" posX="57" posY="8" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="Label16" posX="1" posY="9" text="App Doc Movil"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="7" items="SI, NO" name="aplicacion_movil_doc" posX="23" posY="9" sqlTabName="" tabIndex="17" table_alias_name="" title="ComboBox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="7" name="label19" posX="39" posY="9" text="Labor Exp"/>
+      <Edit fieldId="20" gridHeight="1" gridWidth="8" name="cuenta_imp_labor" posX="48" posY="9" scroll="true" tabIndex="-1" title="edit2" widget="Edit"/>
+      <Edit fieldId="24" gridHeight="1" gridWidth="24" name="descripcion_imp_labor" posX="57" posY="9" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="Label17" posX="1" posY="10" text="App Prod Movil"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="7" items="SI, NO" name="aplicacion_movil_inv" posX="23" posY="10" sqlTabName="" tabIndex="18" table_alias_name="" title="ComboBox2" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="7" name="label20" posX="39" posY="10" text="Gasto Exp"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="cuenta_3" comment="Digite el numero de la cuenta" fieldId="21" fieldType="NON_DATABASE" gridHeight="1" gridWidth="8" length="8" name="cuenta_imp_gasto" posX="48" posY="10" scroll="true" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="-1" table_alias_name="iptb000051" widget="Edit"/>
+      <Edit fieldId="25" gridHeight="1" gridWidth="24" name="descripcion_imp_gasto" posX="57" posY="10" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="label22" posX="1" posY="11" text="Control Produccion"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="29" gridHeight="1" gridWidth="7" items="SI, NO" name="control_produccion" posX="23" posY="11" sqlTabName="" tabIndex="-1" table_alias_name="" title="ComboBox2" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="7" name="label24" posX="39" posY="11" text="Requisiciones"/>
+      <ComboBox defaultValue="NO" fieldId="31" gridHeight="1" gridWidth="8" items="SI, NO" name="requisiciones" posX="48" posY="11" tabIndex="-1" title="combobox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="15" name="label23" posX="1" posY="12" text="Control Ubicacion Almacenes"/>
+      <ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="NO" fieldId="30" gridHeight="1" gridWidth="7" items="SI, NO" name="control_ubicacion_almacen" posX="23" posY="12" sqlTabName="" tabIndex="-1" table_alias_name="" title="ComboBox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="8" name="label26" posX="39" posY="12" text="Autorizacion"/>
+      <ComboBox defaultValue="NO" fieldId="33" gridHeight="1" gridWidth="8" items="SI, NO" length="10" name="requiere_autorizacion" posX="48" posY="12" tabIndex="-1" title="combobox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Label gridHeight="1" gridWidth="14" name="label25" posX="1" posY="13" text="Control Facturacion"/>
+      <ComboBox fieldId="32" gridHeight="1" gridWidth="7" items="SI, NO" name="control_facturacion" posX="23" posY="13" tabIndex="-1" title="combobox1" widget="ComboBox">
+        <Item lstrtext="false" name="SI" text="SI"/>
+        <Item lstrtext="false" name="NO" text="NO"/>
+      </ComboBox>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="status_t" fieldId="13" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="1" name="iptb00005.status_t" noEntry="true" posX="1" posY="15" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="9" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="15" name="Label13" posX="1" posY="16" text="Usuario creador"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_crea" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.us_crea" noEntry="true" posX="20" posY="16" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="10" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="Label5" posX="41" posY="16" text="Usuario Modificador"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="us_mod" fieldId="11" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="14" name="iptb00005.us_mod" noEntry="true" posX="63" posY="16" sqlTabName="iptb00005" sqlType="CHAR" tabIndex="11" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="Label14" posX="1" posY="17" text="Fecha creacion"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_crea" fieldId="10" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.fech_crea" noEntry="true" posX="20" posY="17" sqlTabName="iptb00005" sqlType="DATE" tabIndex="12" table_alias_name="" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="18" name="Label12" posX="41" posY="17" text="Fecha modificacion"/>
+      <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="fech_mod" fieldId="12" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00005.fech_mod" noEntry="true" posX="63" posY="17" sqlTabName="iptb00005" sqlType="DATE" tabIndex="13" table_alias_name="" widget="Edit"/>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAxADAAMwBmAGMAYwBjAGQALQBhADUAOQBmAC0ANAAzAGQANwAtADgANwBhADgALQA5ADYANgAzADgANwBjADIAZAA1AGUAMgB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt003.per

@@ -0,0 +1,39 @@
+SCHEMA smarmotech
+screen size 24 by 80
+{
+Codigo del movimiento[f0]                                        Material[f002    ]
+Descripcion          [f001                                    ]  Labor   [f003    ]
+Status del movimiento[a]                                         Gastos  [f004    ]
+Control Despacho     [k1  ] Control Cliente [k2 ] Control Devolucion[de ]
+[j]
+
+
+Usuario creador   [f005            ]      Usuario modificador  [f007          ]
+Fecha creacion    [f006            ]      Fecha modificacion [f008            ]
+}
+end
+tables
+iptb00005
+ATTRIBUTES
+COMBOBOX de   = formonly.control_devolucion,INCLUDE=("SI","NO");
+COMBOBOX k1   = formonly.control_despacho,INCLUDE=("SI","NO");
+COMBOBOX k2   = formonly.control_clientes,INCLUDE=("SI","NO");
+f0   = iptb00005.cod_mov, autonext, required,
+       comments = "Digite el codigo del movimiento";
+f001 = iptb00005.descrip_mov, autonext, upshift,
+       comments = "Digite la descripcion del movimiento";
+a = iptb00005.status_mov, required, autonext, include = ("1","2"),
+       comments = "1.- Entradas    2.- Salidas" ;
+f002 = iptb00005.cuenta_1, autonext, required,
+       comments = "Digite el numero de la cuenta";
+f003 = iptb00005.cuenta_2, autonext,required,
+       comments = "Digite el numero de la cuenta";
+f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
+f005 = iptb00005.us_crea, noentry;
+f006 = iptb00005.fech_crea, noentry;
+f007 = iptb00005.us_mod, noentry;
+f008 = iptb00005.fech_mod, noentry;
+j = iptb00005.status_t, noentry;
+instructions
+delimiters " "
+end

PROYECTO/ipdir/ipfmmt003_1.per

@@ -0,0 +1,35 @@
+database smarmotech
+screen size 24 by 80
+{
+Codigo del movimiento       [f0]                         Material[f002    ]
+Descripcion  [f001                                    ]  Labor   [f003    ]
+Status del movimiento       [a]                          Gastos  [f004    ]
+[j]
+
+
+Usuario creador   [f005            ]      Usuario modificador  [f007          ]
+Fecha creacion    [f006            ]      Fecha modificacion [f008            ]
+}
+end
+tables
+iptb00005
+attributes
+f0   = iptb00005.cod_mov, autonext, required,
+       comments = "Digite el codigo del movimiento";
+f001 = iptb00005.descrip_mov, autonext, upshift,
+       comments = "Digite la descripcion del movimiento";
+a = iptb00005.status_mov, required, autonext, include = ("1","2"),
+       comments = "1.- Entradas    2.- Salidas" ;
+f002 = iptb00005.cuenta_1, autonext, required,
+       comments = "Digite el numero de la cuenta";
+f003 = iptb00005.cuenta_2, autonext,required,
+       comments = "Digite el numero de la cuenta";
+f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
+f005 = iptb00005.us_crea, noentry;
+f006 = iptb00005.fech_crea, noentry;
+f007 = iptb00005.us_mod, noentry;
+f008 = iptb00005.fech_mod, noentry;
+j = iptb00005.status_t, noentry;
+instructions
+delimiters " "
+end

PROYECTO/ipdir/ipfmmt003_2.per

@@ -0,0 +1,35 @@
+database smarmotech
+screen size 24 by 80
+{
+Codigo del movimiento       [f0]                         Material[f002    ]
+Descripcion  [f001                                    ]  Labor   [f003    ]
+Status del movimiento       [a]                          Gastos  [f004    ]
+[j]
+
+
+Usuario creador   [f005            ]      Usuario modificador  [f007          ]
+Fecha creacion    [f006            ]      Fecha modificacion [f008            ]
+}
+end
+tables
+iptb00005
+attributes
+f0   = iptb00005.cod_mov, autonext, required,
+       comments = "Digite el codigo del movimiento";
+f001 = iptb00005.descrip_mov, autonext, upshift,
+       comments = "Digite la descripcion del movimiento";
+a = iptb00005.status_mov, required, autonext, include = ("1","2"),
+       comments = "1.- Entradas    2.- Salidas" ;
+f002 = iptb00005.cuenta_1, autonext, required,
+       comments = "Digite el numero de la cuenta";
+f003 = iptb00005.cuenta_2, autonext,required,
+       comments = "Digite el numero de la cuenta";
+f004 = iptb00005.cuenta_3, comments = "Digite el numero de la cuenta";
+f005 = iptb00005.us_crea, noentry;
+f006 = iptb00005.fech_crea, noentry;
+f007 = iptb00005.us_mod, noentry;
+f008 = iptb00005.fech_mod, noentry;
+j = iptb00005.status_t, noentry;
+instructions
+delimiters " "
+end

PROYECTO/ipdir/ipfmmt004.4fd

@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm databaseName="marmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{c9d13456-a0ac-4aad-a46a-405a7d4b4b2f}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record name="record1" uid="{0d078335-950b-4c38-9fe6-fd4c0ac1c519}">
+    <RecordField colName="cod_cia" fieldIdRef="0" fieldType="TABLE_COLUMN" name="iptb00022.cod_cia" sqlTabName="iptb00022" uid="{39ae259d-68b5-4676-9839-36b1b557e63c}"/>
+    <RecordField colName="descripcion" fieldIdRef="1" fieldType="TABLE_COLUMN" name="iptb00022.descripcion" sqlTabName="iptb00022" uid="{f3175159-b2d6-447c-be2f-5dbba3fa8cbe}"/>
+    <RecordField colName="departamento" fieldIdRef="2" fieldType="TABLE_COLUMN" name="iptb00022.departamento" sqlTabName="iptb00022" uid="{1ee52191-9e7c-4da5-862c-6054e17b686b}"/>
+    <RecordField colName="nombre_dpto" fieldIdRef="4" name="nombre_dpto" sqlTabName="formonly" uid="{a00d1a36-2be7-4c9b-9056-c74dd629e752}"/>
+    <RecordField colName="cuenta_no" fieldIdRef="3" fieldType="TABLE_COLUMN" name="iptb00022.cuenta_no" sqlTabName="iptb00022" uid="{cb31c6bf-9ac6-4429-a6ac-d87a44659e43}"/>
+    <RecordField colName="nombre_cta" fieldIdRef="5" name="nombre_cta" sqlTabName="formonly" uid="{f7f89c3d-b297-4b62-abd0-2a25764d3d10}"/>
+    <RecordField colName="us_crea" fieldIdRef="6" fieldType="TABLE_COLUMN" name="iptb00022.us_crea" sqlTabName="iptb00022" uid="{a5e1386a-a27c-4426-b475-7c445f8114e4}"/>
+    <RecordField colName="us_mod" fieldIdRef="8" fieldType="TABLE_COLUMN" name="iptb00022.us_mod" sqlTabName="iptb00022" uid="{564c34d4-3d50-4ff1-ab8a-6b4b6877f395}"/>
+    <RecordField colName="fech_crea" fieldIdRef="7" fieldType="TABLE_COLUMN" name="iptb00022.fech_crea" sqlTabName="iptb00022" uid="{f58def7a-9287-4b2c-9cc4-f76b09393cb1}"/>
+    <RecordField colName="fech_mod" fieldIdRef="9" fieldType="TABLE_COLUMN" name="iptb00022.fech_mod" sqlTabName="iptb00022" uid="{847bf493-a371-412a-9ded-9d275ad03512}"/>
+    <RecordField fieldIdRef="12" name="cuenta_costo" uid="{28d79f6a-c7b9-4bb3-910a-fcce3c7544e6}"/>
+    <RecordField colName="nombre_cta" fieldIdRef="15" name="nombre_costo" sqlTabName="formonly" uid="{2b8424ba-47c1-452e-a598-caa6ea5b0a21}"/>
+  </Record>
+  <Form gridHeight="13" gridWidth="82" name="ipfmmt004">
+    <Grid gridHeight="11" gridWidth="80" name="grid1" posX="1" posY="1">
+      <Label gridHeight="1" gridWidth="6" name="label1" posX="3" posY="0" text="Origen"/>
+      <Edit colName="cod_cia" comment="Digite Codigo de Origen" fieldId="0" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00022.cod_cia" posX="17" posY="0" sqlTabName="iptb00022" tabIndex="1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="11" name="label2" posX="3" posY="1" text="Descripcion"/>
+      <Edit case="upper" colName="descripcion" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="20" name="iptb00022.descripcion" posX="17" posY="1" sqlTabName="iptb00022" tabIndex="2" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="13" name="label3" posX="3" posY="2" text="Departamento"/>
+      <Edit colName="departamento" fieldId="2" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="6" name="iptb00022.departamento" posX="17" posY="2" sqlTabName="iptb00022" tabIndex="3" widget="Edit"/>
+      <Edit colName="nombre_dpto" fieldId="4" gridHeight="1" gridWidth="40" name="nombre_dpto" noEntry="true" posX="28" posY="2" sqlTabName="formonly" tabIndex="4" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="6" name="label4" posX="3" posY="3" text="Cuenta"/>
+      <Edit colName="cuenta_no" fieldId="3" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="8" name="iptb00022.cuenta_no" posX="17" posY="3" sqlTabName="iptb00022" tabIndex="5" widget="Edit"/>
+      <Edit colName="nombre_cta" fieldId="5" gridHeight="1" gridWidth="40" name="nombre_cta" noEntry="true" posX="28" posY="3" sqlTabName="formonly" tabIndex="6" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="10" name="label11" posX="3" posY="4" text="Cuenta Costo"/>
+      <Edit fieldId="12" gridHeight="1" gridWidth="10" name="cuenta_costo" posX="17" posY="4" tabIndex="-1" title="edit3" widget="Edit"/>
+      <Edit colName="nombre_cta" fieldId="15" gridHeight="1" gridWidth="40" name="nombre_costo" noEntry="true" posX="28" posY="4" sqlTabName="formonly" tabIndex="-1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="16" name="label5" posX="3" posY="8" text="Usuario Creador"/>
+      <Edit colName="us_crea" fieldId="6" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00022.us_crea" noEntry="true" posX="20" posY="8" sqlTabName="iptb00022" tabIndex="7" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="20" name="label6" posX="39" posY="8" text="Usuario Modificador"/>
+      <Edit colName="us_mod" fieldId="8" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="9" name="iptb00022.us_mod" noEntry="true" posX="60" posY="8" sqlTabName="iptb00022" tabIndex="8" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="14" name="label7" posX="3" posY="9" text="Fecha Creacion"/>
+      <Edit colName="fech_crea" fieldId="7" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00022.fech_crea" noEntry="true" posX="20" posY="9" sqlTabName="iptb00022" tabIndex="9" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="19" name="label8" posX="39" posY="9" text="Fecha Modificacion"/>
+      <Edit colName="fech_mod" fieldId="9" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="16" name="iptb00022.fech_mod" noEntry="true" posX="59" posY="9" sqlTabName="iptb00022" tabIndex="10" widget="Edit"/>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewAwAGQAMAA3ADgAMwAzADUALQA5ADUAMABiAC0ANABjADMAOAAtADkAZgBlADYALQBmAGQANABjADAAYQBjADEAYwA1ADEAOQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt004.per

@@ -0,0 +1,27 @@
+database marmotech
+screen size 24 by 80
+{
+   Origen       [f000  ]
+   Descripcion  [f001                ]
+   Departamento [f002  ]   [nd                                      ]
+   Cuenta       [f003    ] [nc                                      ]
+
+   Usuario Creador [f004     ]         Usuario Modificador [f006     ]
+   Fecha Creacion  [f005            ]  Fecha Modificacion [f007            ]
+}
+end
+tables
+iptb00022
+attributes
+f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
+f001 = iptb00022.descripcion,upshift;
+f002 = iptb00022.departamento;
+f003 = iptb00022.cuenta_no;
+nd   = formonly.nombre_dpto,noentry;
+nc   = formonly.nombre_cta,noentry;
+f004 = iptb00022.us_crea,noentry;
+f005 = iptb00022.fech_crea,noentry;
+f006 = iptb00022.us_mod,noentry;
+f007 = iptb00022.fech_mod,noentry;
+instructions delimiters " "
+end

PROYECTO/ipdir/ipfmmt004_1.per

@@ -0,0 +1,27 @@
+database marmotech
+screen size 24 by 80
+{
+   Origen       [f000  ]
+   Descripcion  [f001                ]
+   Departamento [f002  ]   [nd                                      ]
+   Cuenta       [f003    ] [nc                                      ]
+
+   Usuario Creador [f004     ]         Usuario Modificador [f006     ]
+   Fecha Creacion  [f005            ]  Fecha Modificacion [f007            ]
+}
+end
+tables
+iptb00022
+attributes
+f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
+f001 = iptb00022.descripcion,upshift;
+f002 = iptb00022.departamento;
+f003 = iptb00022.cuenta_no;
+nd   = formonly.nombre_dpto,noentry;
+nc   = formonly.nombre_cta,noentry;
+f004 = iptb00022.us_crea,noentry;
+f005 = iptb00022.fech_crea,noentry;
+f006 = iptb00022.us_mod,noentry;
+f007 = iptb00022.fech_mod,noentry;
+instructions delimiters " "
+end

PROYECTO/ipdir/ipfmmt004_2.per

@@ -0,0 +1,27 @@
+database marmotech
+screen size 24 by 80
+{
+   Origen       [f000  ]
+   Descripcion  [f001                ]
+   Departamento [f002  ]   [nd                                      ]
+   Cuenta       [f003    ] [nc                                      ]
+
+   Usuario Creador [f004     ]         Usuario Modificador [f006     ]
+   Fecha Creacion  [f005            ]  Fecha Modificacion [f007            ]
+}
+end
+tables
+iptb00022
+attributes
+f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
+f001 = iptb00022.descripcion,upshift;
+f002 = iptb00022.departamento;
+f003 = iptb00022.cuenta_no;
+nd   = formonly.nombre_dpto,noentry;
+nc   = formonly.nombre_cta,noentry;
+f004 = iptb00022.us_crea,noentry;
+f005 = iptb00022.fech_crea,noentry;
+f006 = iptb00022.us_mod,noentry;
+f007 = iptb00022.fech_mod,noentry;
+instructions delimiters " "
+end

PROYECTO/ipdir/ipfmmt005.per

@@ -0,0 +1,35 @@
+database marmotech
+screen size 24 by 80
+{
+Codigo del movimiento       [f0]                         Material[f002    ]
+Descripcion  [f001                                    ]  Labor   [f003    ]
+Status del movimiento       [a]                          Gastos  [f004    ]
+[j]
+
+
+Usuario creador   [f005            ]      Usuario modificador  [f007          ]
+Fecha creacion    [f006            ]      Fecha modificacion [f008            ]
+}
+end
+tables
+intb00005
+attributes
+f0   = intb00005.cod_mov, autonext, required,
+       comments = "Digite el codigo del movimiento";
+f001 = intb00005.descrip_mov, autonext, upshift,
+       comments = "Digite la descripcion del movimiento";
+a = intb00005.status_mov, required, autonext, include = ("1","2"),
+       comments = "1.- Entradas    2.- Salidas" ;
+f002 = intb00005.cuenta_1, autonext, required,
+       comments = "Digite el numero de la cuenta";
+f003 = intb00005.cuenta_2, autonext,required,
+       comments = "Digite el numero de la cuenta";
+f004 = intb00005.cuenta_3, comments = "Digite el numero de la cuenta";
+f005 = intb00005.us_crea, noentry;
+f006 = intb00005.fech_crea, noentry;
+f007 = intb00005.us_mod, noentry;
+f008 = intb00005.fech_mod, noentry;
+j = intb00005.status_t, noentry;
+instructions
+delimiters " "
+end

PROYECTO/ipdir/ipfmmt006.4fd

@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="3140a" name="managedform" uid="{d40da1fc-723f-4456-85cd-81a9df81aabc}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record name="descripcion" uid="{d93b73a5-b179-43e5-8cef-b024a8fc1bc2}">
+    <RecordField fieldIdRef="1" name="producto" uid="{d8cf0964-da2f-4b45-a9ac-3d313e2bcf6d}"/>
+    <RecordField fieldIdRef="20" name="detalle" uid="{7bf3ec3e-3637-478d-8c5e-60255d03c1ae}"/>
+  </Record>
+  <Record name="record_left" uid="{5eaf7948-a1fe-4e3d-9958-05236067a0a3}">
+    <RecordField fieldIdRef="10" name="id_seccion" uid="{3fdd5368-25ce-4275-a249-8a7241fd6760}"/>
+    <RecordField fieldIdRef="2" name="desc_seccion" uid="{961ccb25-34c4-41ee-a643-be87b6165e3f}"/>
+    <RecordField fieldIdRef="11" name="id_tramo" uid="{426593b7-c317-4828-830e-2c7abe6b7a37}"/>
+    <RecordField fieldIdRef="3" name="desc_tramo" uid="{041ed450-b7bd-4e90-acee-86f6a1d0c395}"/>
+    <RecordField fieldIdRef="14" name="id_fila" uid="{c26d42ee-1d12-4f1d-8563-825642dc27ce}"/>
+    <RecordField fieldIdRef="15" name="desc_fila" uid="{59053071-efef-44c9-92ac-0f29dd7ecf29}"/>
+    <RecordField fieldIdRef="16" name="id_posicion" uid="{6a120181-9216-4b13-98c4-dd75272b5f5c}"/>
+    <RecordField fieldIdRef="17" name="desc_posicion" uid="{e34c40e7-00f8-4f15-abcc-f794b89d360d}"/>
+    <RecordField fieldIdRef="6" name="unidades" precisionDecimal="12" scaleDecimal="5" sqlType="DECIMAL" uid="{a1b0901b-b8fa-4291-9e20-20725c998e24}"/>
+    <RecordField fieldIdRef="7" name="cantidad" precisionDecimal="12" scaleDecimal="5" sqlType="DECIMAL" uid="{65e4903c-d7ae-4629-81c0-80e3cf8d113d}"/>
+    <RecordField fieldIdRef="13" name="index1" uid="{b12d2ade-afe7-4175-b056-a775c8af4f9a}"/>
+  </Record>
+  <Record name="record_right" uid="{afdbe546-ddeb-412e-acfe-bd9b2c91b173}">
+    <RecordField fieldIdRef="4" name="seccion" uid="{ea7c0d62-b853-4adc-b5d7-09a1eca68d45}"/>
+    <RecordField fieldIdRef="5" name="tramo" uid="{5f45d555-0eeb-4838-b4ef-f781f380183a}"/>
+    <RecordField fieldIdRef="18" name="fila" uid="{bbbb0414-e581-4d85-85c2-d7dba0400ea1}"/>
+    <RecordField fieldIdRef="19" name="posicion" uid="{bdea49ac-6a12-4d3c-a20d-4f7be22d4834}"/>
+    <RecordField fieldIdRef="8" name="unidades1" precisionDecimal="12" scaleDecimal="5" sqlType="DECIMAL" uid="{44ea0290-9f74-4fcb-a3af-ea26dd96d136}"/>
+    <RecordField fieldIdRef="9" name="cantidad1" precisionDecimal="12" scaleDecimal="5" sqlType="DECIMAL" uid="{973ed346-c40b-48a9-ba68-c15b59a2f6dd}"/>
+    <RecordField fieldIdRef="12" name="index" uid="{cd62ea31-21e7-4ed9-aa4d-6a3db4779883}"/>
+  </Record>
+  <Form gridHeight="27" gridWidth="124" name="form" text="Form">
+    <Grid gridHeight="26" gridWidth="79" name="grid1" posX="1" posY="1">
+      <Label gridHeight="1" gridWidth="8" name="label1" posX="2" posY="1" text="PRODUCTO"/>
+      <Edit fieldId="1" gridHeight="1" gridWidth="54" name="producto" posX="12" posY="1" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="8" name="label4" posX="2" posY="3" text="DETALLE"/>
+      <Edit fieldId="20" gridHeight="1" gridWidth="54" keyboardHint="default" name="detalle" placeholder="" posX="12" posY="3" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="26" name="label2" posX="2" posY="5" text="DESDE (TRANSFERENCIA DE SALIDA | COD MOV 61)"/>
+      <Table doubleClick="right1" gridHeight="8" gridWidth="64" name="left" posX="2" posY="6" style="detalle" totalRows="5">
+        <Phantom fieldId="10" name="id_seccion" widget="Phantom"/>
+        <Edit fieldId="2" gridHeight="1" gridWidth="8" name="desc_seccion" posX="0" posY="0" scroll="true" tabIndex="-1" title="SECCION" widget="Edit"/>
+        <Phantom fieldId="11" name="id_tramo" widget="Phantom"/>
+        <Edit fieldId="3" gridHeight="1" gridWidth="8" name="desc_tramo" posX="8" posY="0" scroll="true" tabIndex="-1" title="TRAMO" widget="Edit"/>
+        <Phantom fieldId="14" name="id_fila" widget="Phantom"/>
+        <Edit fieldId="15" gridHeight="1" gridWidth="8" name="desc_fila" posX="16" posY="0" scroll="true" tabIndex="-1" title="FILA" widget="Edit"/>
+        <Phantom fieldId="16" name="id_posicion" widget="Phantom"/>
+        <Edit fieldId="17" gridHeight="1" gridWidth="11" name="desc_posicion" posX="24" posY="0" scroll="true" tabIndex="-1" title="POSICION" widget="Edit"/>
+        <Edit fieldId="6" gridHeight="1" gridWidth="8" name="unidades" posX="35" posY="0" precisionDecimal="12" scaleDecimal="5" scroll="true" sqlType="DECIMAL" tabIndex="-1" title="UNIDADES" widget="Edit"/>
+        <Edit fieldId="7" gridHeight="1" gridWidth="8" name="cantidad" posX="43" posY="0" precisionDecimal="12" scaleDecimal="5" scroll="true" sqlType="DECIMAL" tabIndex="-1" title="CANTIDAD" widget="Edit"/>
+        <Phantom fieldId="13" name="index1" widget="Phantom"/>
+      </Table>
+      <Button gridHeight="1" gridWidth="16" hidden="false" image="fa-arrow-circle-down" name="right1" posX="39" posY="15" tabIndex="-1" text=""/>
+      <Label gridHeight="1" gridWidth="28" name="label3" posX="2" posY="16" text="HASTA (TRANSFERENCIA DE ENTRADA | COD MOV 16)"/>
+      <Table gridHeight="8" gridWidth="64" name="right" posX="2" posY="17" totalRows="5">
+        <ComboBox fieldId="4" gridHeight="1" gridWidth="8" items="" name="seccion" posX="0" posY="0" scroll="true" tabIndex="-1" title="SECCION" widget="ComboBox"/>
+        <ComboBox fieldId="5" gridHeight="1" gridWidth="8" items="" name="tramo" posX="8" posY="0" scroll="true" tabIndex="-1" title="TRAMO" widget="ComboBox"/>
+        <ComboBox fieldId="18" gridHeight="1" gridWidth="8" items="" name="fila" posX="16" posY="0" scroll="true" tabIndex="-1" title="FILA" widget="ComboBox"/>
+        <ComboBox fieldId="19" gridHeight="1" gridWidth="8" items="" name="posicion" posX="24" posY="0" scroll="true" tabIndex="-1" title="POSICION" widget="ComboBox"/>
+        <Edit comment="ASEGURATE DE HABER TABULADO LAS UNIDADES" fieldId="8" gridHeight="1" gridWidth="8" name="unidades1" posX="32" posY="0" precisionDecimal="12" scaleDecimal="5" scroll="true" sqlType="DECIMAL" tabIndex="-1" title="UNIDADES" widget="Edit"/>
+        <Edit fieldId="9" gridHeight="1" gridWidth="8" name="cantidad1" noEntry="true" posX="40" posY="0" precisionDecimal="12" scaleDecimal="5" scroll="true" sqlType="DECIMAL" tabIndex="-1" title="CANTIDAD" widget="Edit"/>
+        <Phantom fieldId="12" name="index" widget="Phantom"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewBhAGYAZABiAGUANQA0ADYALQBkAGQAZQBiAC0ANAAxADIAZQAtAGEAYwBmAGUALQBiAGQAOQBiADIAYwA5ADEAYgAxADcAMwB9QHAVVaaqq2nAMVVVnqqrMj98rAgxJul5AQAAAEwAewA1AGUAYQBmADcAOQA0ADgALQBhADEAZgBlAC0ANABlADMAZAAtADkAOQA1ADgALQAwADUAMgAzADYAMAA2ADcAYQAwAGEAMwB9QFIAAFoAAMvAKAAAeAABDT9wYk3S8an8AQAAAEwAewBkADkAMwBiADcAMwBhADUALQBiADEANwA5AC0ANAAzAGUANQAtADgAYwBlAGYALQBiADAAMgA0AGEAOABmAGMAMQBiAGMAMgB9wGHVVa6AAMjAMAAAUAAAtD9ok3S8an76AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/ipdir/ipfmmt006.per

@@ -0,0 +1,56 @@
+---------------------------------------------------------------------------------- 
+-- File created from C:\Users\egarcia\OneDrive - MARMOTECH, S. A\Equipo Tecnologia\Fuentes\MARMOTECH\PROYECTOS\ipdir\ipfmmt006.4fd by Genero Studio
+-- WARNING! All changes made in this file will be lost!
+----------------------------------------------------------------------------------
+
+SCHEMA formonly
+
+LAYOUT (text=%"Form")
+GRID grid1
+{
+
+ [label1  ][descripcion                                           ]
+
+
+ [label2]                                     [label]
+  <T left                             >        <T right                             >
+  [desc_sec|desc_tra|unidades|cantidad]        [desc_se1|desc_tr1|unidade1|cantida1]
+  [desc_sec|desc_tra|unidades|cantidad] [righ] [desc_se1|desc_tr1|unidade1|cantida1]
+  [desc_sec|desc_tra|unidades|cantidad] [    ] [desc_se1|desc_tr1|unidade1|cantida1]
+  [desc_sec|desc_tra|unidades|cantidad]        [desc_se1|desc_tr1|unidade1|cantida1]
+  [desc_sec|desc_tra|unidades|cantidad]        [desc_se1|desc_tr1|unidade1|cantida1]
+
+  <                                   >        <                                    >
+
+}
+END -- grid1
+END -- form
+
+ATTRIBUTES
+LABEL label1:label1, text=%"PRODUCTO";
+EDIT descripcion=formonly.descripcion, scroll;
+LABEL label2:label2, text=%"DESDE";
+LABEL label:label3, text=%"HASTA";
+TABLE left:left, doubleClick=right1;
+PHANTOM formonly.id_seccion;
+EDIT desc_sec=formonly.desc_seccion, title=%"SECCION", scroll;
+PHANTOM formonly.id_tramo;
+EDIT desc_tra=formonly.desc_tramo, title=%"TRAMO", scroll;
+EDIT unidades=formonly.unidades, title=%"UNIDADES", scroll;
+EDIT cantidad=formonly.cantidad, title=%"CANTIDAD", scroll;
+TABLE right:right;
+PHANTOM formonly.id_seccion1;
+COMBOBOX desc_se1=formonly.desc_seccion1, title=%"SECCION", scroll;
+PHANTOM formonly.id_tramo1;
+COMBOBOX desc_tr1=formonly.desc_tramo1, title=%"TRAMO", scroll;
+EDIT unidade1=formonly.unidades1, title=%"UNIDADES", scroll;
+EDIT cantida1=formonly.cantidad1, title=%"CANTIDAD", scroll;
+BUTTON righ:right1, text=%"=>";
+END -- ATTRIBUTES
+
+INSTRUCTIONS
+SCREEN RECORD descripcion(formonly.descripcion)
+SCREEN RECORD record_left(formonly.id_seccion,formonly.desc_seccion,formonly.id_tramo,formonly.desc_tramo,formonly.unidades,formonly.cantidad)
+SCREEN RECORD record_right(formonly.id_seccion1,formonly.desc_seccion1,formonly.id_tramo1,formonly.desc_tramo1,formonly.unidades1,formonly.cantidad1)
+END -- INSTRUCTIONS
+

PROYECTO/ipdir/ipfmmt007.per

@@ -0,0 +1,41 @@
+{
+================================================================================
+FORMULARIO     : IPFMMT007
+OBJETIVO       : Capturar Los Precios Minimos Y de Lista
+DESENO         : JUAN F. SOTO
+FECHA          : AGOSTO 25, 1997.
+================================================================================
+}
+database marmotech
+screen size 24 by 80
+{
+
+ Codigo Del Producto  [a]-[b]-[c ]-[d  ] 
+                      [des                                                ][un ]
+ Precio Minimo        [f004          ]
+
+ Precio De Lista      [f005          ]
+ [f]
+ Usuario Creador      [f006     ] Fecha Creacion     [f007            ]
+ Usuario Modificador  [f008     ] Fecha Modificacion [f009            ]
+}
+end
+tables
+iptb00014
+attributes
+a = iptb00014.cod_n,required,comments = "Digite Codigo Producto";
+b = iptb00014.cod_grupo,required,comments = "Digite Codigo Producto";
+c = iptb00014.cod_tipo,required,comments = "Digite Codigo Producto";
+d = iptb00014.cod_sec,required,comments = "Digite Codigo Producto";
+des = formonly.descripcion;
+f004 = iptb00014.precio_min,default = 0,comments = "Digite Precio Minimo";
+f005 = iptb00014.precio_lista,default = 0,comments = "Digite Precio De Lista";
+un   = formonly.unidad;
+f = iptb00014.status_t,noentry;
+f006 = iptb00014.us_crea,noentry;
+f007 = iptb00014.fech_crea,noentry;
+f008 = iptb00014.us_mod,noentry;
+f009 = iptb00014.fech_mod,noentry;
+instructions
+delimiters " "
+end

PROYECTO/ipdir/ipfmmt008.per

@@ -0,0 +1,48 @@
+database smarmotech
+screen size 24 by 80
+{
+  Fecha Del Conteo [f1        ]
+
+  Bodega [b1]
+
+  Producto  [a ]-[b ]-[c  ]-[d   ] 
+            [k1                                           ][k2  ]
+  Conteo [f3          ]   Existencia S/Movimientos [f4             ]
+ \g------------------------------------------------------------------ 
+  Diferencia  [p1          ]
+  Movimiento  [b2][b3                                      ]
+  Documento   [k20   ]                                 
+
+}
+tables
+iptb00002,
+iptb00006
+intb00002
+attributes
+f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
+       comments = "Digite Fecha Del Conteo Fisico";
+a  = iptb00002.cod_n,reverse,autonext,required,
+        comments = "Digite NIVEL Codificacion";
+b  = iptb00002.cod_grupo,reverse,autonext,required,
+        comments = "Digite GRUPO Codificacion";
+c  = iptb00002.cod_tipo,reverse,autonext,required,
+        comments = "Digite TIPO Codificacion";
+d  = iptb00002.cod_sec,reverse,autonext,required,
+        comments = "Digite SECUENCIA Codificacion";
+k1  = formonly.descripcion,noentry;
+k2 = formonly.unidad_med,noentry;
+b1 = intb00002.bodega,reverse,autonext,required,  
+        comments = "Digite BODEGA Materia Prima";
+f3  = formonly.cantidad,reverse,required,
+        comments = "Digite Cantidad Del Conteo Fisico";
+f4  = formonly.ex_mov,noentry;
+b2  = formonly.cod_mov,noentry; 
+b3  = formonly.descrip_mov,noentry;
+p1  = formonly.diferencia,noentry;
+k20  = formonly.num_doc;
+instructions
+   delimiters " "
+end
+
+   
+         

PROYECTO/ipdir/ipfmmt008_1.per

@@ -0,0 +1,48 @@
+database smarmotech
+screen size 24 by 80
+{
+  Fecha Del Conteo [f1        ]
+
+  Bodega [b1]
+
+  Producto  [a ]-[b ]-[c  ]-[d   ] 
+            [k1                                           ][k2  ]
+  Conteo [f3          ]   Existencia S/Movimientos [f4             ]
+ \g------------------------------------------------------------------ 
+  Diferencia  [p1          ]
+  Movimiento  [b2][b3                                      ]
+  Documento   [k20   ]                                 
+
+}
+tables
+iptb00002,
+iptb00006
+intb00002
+attributes
+f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
+       comments = "Digite Fecha Del Conteo Fisico";
+a  = iptb00002.cod_n,reverse,autonext,required,
+        comments = "Digite NIVEL Codificacion";
+b  = iptb00002.cod_grupo,reverse,autonext,required,
+        comments = "Digite GRUPO Codificacion";
+c  = iptb00002.cod_tipo,reverse,autonext,required,
+        comments = "Digite TIPO Codificacion";
+d  = iptb00002.cod_sec,reverse,autonext,required,
+        comments = "Digite SECUENCIA Codificacion";
+k1  = formonly.descripcion,noentry;
+k2 = formonly.unidad_med,noentry;
+b1 = intb00002.bodega,reverse,autonext,required,  
+        comments = "Digite BODEGA Materia Prima";
+f3  = formonly.cantidad,reverse,required,
+        comments = "Digite Cantidad Del Conteo Fisico";
+f4  = formonly.ex_mov,noentry;
+b2  = formonly.cod_mov,noentry; 
+b3  = formonly.descrip_mov,noentry;
+p1  = formonly.diferencia,noentry;
+k20  = formonly.num_doc;
+instructions
+   delimiters " "
+end
+
+   
+         

PROYECTO/ipdir/ipfmmt008_2.per

@@ -0,0 +1,48 @@
+database smarmotech
+screen size 24 by 80
+{
+  Fecha Del Conteo [f1        ]
+
+  Bodega [b1]
+
+  Producto  [a ]-[b ]-[c  ]-[d   ] 
+            [k1                                           ][k2  ]
+  Conteo [f3          ]   Existencia S/Movimientos [f4             ]
+ \g------------------------------------------------------------------ 
+  Diferencia  [p1          ]
+  Movimiento  [b2][b3                                      ]
+  Documento   [k20   ]                                 
+
+}
+tables
+iptb00002,
+iptb00006
+intb00002
+attributes
+f1 = formonly.fecha type date,reverse,format = "dd/mm/yyyy",
+       comments = "Digite Fecha Del Conteo Fisico";
+a  = iptb00002.cod_n,reverse,autonext,required,
+        comments = "Digite NIVEL Codificacion";
+b  = iptb00002.cod_grupo,reverse,autonext,required,
+        comments = "Digite GRUPO Codificacion";
+c  = iptb00002.cod_tipo,reverse,autonext,required,
+        comments = "Digite TIPO Codificacion";
+d  = iptb00002.cod_sec,reverse,autonext,required,
+        comments = "Digite SECUENCIA Codificacion";
+k1  = formonly.descripcion,noentry;
+k2 = formonly.unidad_med,noentry;
+b1 = intb00002.bodega,reverse,autonext,required,  
+        comments = "Digite BODEGA Materia Prima";
+f3  = formonly.cantidad,reverse,required,
+        comments = "Digite Cantidad Del Conteo Fisico";
+f4  = formonly.ex_mov,noentry;
+b2  = formonly.cod_mov,noentry; 
+b3  = formonly.descrip_mov,noentry;
+p1  = formonly.diferencia,noentry;
+k20  = formonly.num_doc;
+instructions
+   delimiters " "
+end
+
+   
+         

PROYECTO/ipdir/ipfmmt009.per

@@ -0,0 +1,27 @@
+database marmotech
+screen size 24 by 80
+{
+
+Codigo de Barra       [f][f001        ][c]
+Descripcion           [f003                          ]
+Unidad de Conversion  [f004       ]
+[a]
+Usuario Creador    [f005     ]        Usuario Modificador[f007     ]
+Fecha Creacion     [f006            ] Fecha Modificacion [f008            ]
+}
+end
+tables
+iptb00012
+attributes
+f    = iptb00012.cod,picture="#",comments="Digite Codigo del Articulo",autonext;
+f001 = iptb00012.ean13,picture="74614618####",
+                       comments="Digite Codigo del Articulo",autonext;
+c    = iptb00012.cd,noentry;
+f003 = iptb00012.descripcion,upshift,comments="Digite Descripcion del Articulo";
+f004 = iptb00012.unidades,comments="Digite Unidades de Medida";
+a    = iptb00012.status_t,noentry;
+f005 = iptb00012.us_crea,noentry;
+f006 = iptb00012.fech_crea,noentry;
+f007 = iptb00012.us_mod,noentry;
+f008 = iptb00012.fech_mod,noentry;
+end

PROYECTO/ipdir/ipfmmt010.per

@@ -0,0 +1,30 @@
+schema smarmotech
+LAYOUT (TEXT="TIPOS PRODUCTOS")
+ GRID
+{
+  Tipo Producto    [f006]
+  Descripcion      [f007                          ]
+  Inventario       [inv                           ]
+  
+[b]
+  Usuario Creador  [f002     ]        Usuario Modificador [f004    ]
+  Fecha Creacion   [f003            ] Fecha Modificacion  [f005            ]
+  
+  
+}
+end
+tables
+iptb00020,iptb00024
+attributes
+f006 = iptb00024.cod_tipo;
+f007 = iptb00024.descripcion,upshift;
+b    = iptb00020.status_t,noentry;
+f002 = iptb00020.us_crea,noentry;
+f003 = iptb00020.fech_crea,noentry;
+f004 = iptb00020.us_mod,noentry;
+f005 = iptb00020.fech_mod,NOENTRY;
+COMBOBOX inv = formonly.cod_inv,ITEMS=(("3","PRODUCTOS TERMINADOS"),("1","MATERIA PRIMA"),("7","REPUESTOS")),DEFAULT=3;
+instructions
+delimiters
+ " "
+end

PROYECTO/ipdir/ipfmmt010_1.per

@@ -0,0 +1,30 @@
+database smarmotech
+screen size 24 by 80
+{
+  Codigo Producto  [f000  ]
+  Nombre           [f001                          ]
+  Tipo Producto    [f006]
+  Descripcion      [f007                          ]
+[b]
+  Usuario Creador  [f002     ]        Usuario Modificador [f004    ]
+  Fecha Creacion   [f003            ] Fecha Modificacion  [f005            ]
+  
+  
+}
+end
+tables
+iptb00020,iptb00024
+attributes
+f000 = iptb00020.cod_n;
+f001 = iptb00020.producto,upshift;
+f006 = iptb00024.cod_tipo;
+f007 = iptb00024.descripcion,upshift;
+b    = iptb00020.status_t,noentry;
+f002 = iptb00020.us_crea,noentry;
+f003 = iptb00020.fech_crea,noentry;
+f004 = iptb00020.us_mod,noentry;
+f005 = iptb00020.fech_mod,noentry;
+instructions
+delimiters
+ " "
+end

PROYECTO/ipdir/ipfmmt010_2.per

@@ -0,0 +1,30 @@
+database smarmotech
+screen size 24 by 80
+{
+  Codigo Producto  [f000  ]
+  Nombre           [f001                          ]
+  Tipo Producto    [f006]
+  Descripcion      [f007                          ]
+[b]
+  Usuario Creador  [f002     ]        Usuario Modificador [f004    ]
+  Fecha Creacion   [f003            ] Fecha Modificacion  [f005            ]
+  
+  
+}
+end
+tables
+iptb00020,iptb00024
+attributes
+f000 = iptb00020.cod_n;
+f001 = iptb00020.producto,upshift;
+f006 = iptb00024.cod_tipo;
+f007 = iptb00024.descripcion,upshift;
+b    = iptb00020.status_t,noentry;
+f002 = iptb00020.us_crea,noentry;
+f003 = iptb00020.fech_crea,noentry;
+f004 = iptb00020.us_mod,noentry;
+f005 = iptb00020.fech_mod,noentry;
+instructions
+delimiters
+ " "
+end

PROYECTO/ipdir/ipfmmt011.per

@@ -0,0 +1,26 @@
+database marmotech
+screen size 24 by 80
+{
+  Codigo Marca     [f000  ]
+  Nombre           [f001                          ]
+[b]
+  Usuario Creador  [f002     ]        Usuario Modificador [f004    ]
+  Fecha Creacion   [f003            ] Fecha Modificacion  [f005            ]
+  
+  
+}
+end
+tables
+iptb00019
+attributes
+f000 = iptb00019.marca;
+f001 = iptb00019.nombre_marca,upshift;
+b    = iptb00019.status_t,noentry;
+f002 = iptb00019.us_crea,noentry;
+f003 = iptb00019.fech_crea,noentry;
+f004 = iptb00019.us_mod,noentry;
+f005 = iptb00019.fech_mod,noentry;
+instructions
+delimiters
+ " "
+end

PROYECTO/ipdir/ipfmmt012.per

@@ -0,0 +1,46 @@
+schema smarmotech
+ACTION DEFAULTS
+ ACTION buscalista (TEXT="Busca Informacion",image="find")
+ ACTION guardar    (TEXT="Actualiza Informacion",image="save")
+ ACTION limpia    (TEXT="Limpia Screen",image="clear")
+ ACTION cancel     (TEXT="Cancela operacion",image="stop")
+ ACTION conversion (TEXT="Conversion Moneda",image="dollar")
+END
+
+TOOLBAR 
+  ITEM nuevo (TEXT="Adicionar", IMAGE="new", COMMENT="Adiciona Registro")
+  ITEM  buscar (TEXT="Consulta grupos", IMAGE="find", COMMENT="Modifica Registro")
+  
+ SEPARATOR
+  ITEM salir (TEXT="Salir", IMAGE="quit")
+END
+
+LAYOUT (TEXT="ADMINISTRACION GRUPOS",STYLE="basic")
+  GRID
+
+{
+Codigo     [f0  ]                   
+Descripcion[f001                                    ]    
+Inventario       [inv                           ]
+
+[j]
+
+
+Usuario creador   [f005            ]      Usuario modificador      [f007          ]
+Fecha creacion    [f006               ]   Fecha modificacion [f008                ]
+}
+END
+END
+attributes
+f0   = formonly.cod_grupo,noentry;
+f001 = formonly.descripcion, autonext, upshift,
+       comments = "Digite la descripcion del Grupo";
+f005 = formonly.us_crea, noentry;
+f006 = formonly.fech_crea, noentry;
+f007 = formonly.us_mod, noentry;
+f008 = formonly.fech_mod, noentry;
+j = formonly.status_t, NOENTRY;
+COMBOBOX inv = formonly.tipo_inventairo,ITEMS=(("3","PRODUCTOS TERMINADOS"),("1","MATERIA PRIMA"),("7","REPUESTOS")),DEFAULT=3;
+instructions
+delimiters " "
+end