Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs

PROYECTO/PRDIR/prprmt011.4gl

@@ -140,6 +140,7 @@ FUNCTION prprmt011()
 --fechaSolDespacho
 
  OPEN WINDOW prfmmt011 AT 10,10 WITH FORM "prfmmt011"
+ CALL ui.Window.getCurrent().setText("Administracion Ordenes")
  #WHENEVER ERROR CONTINUE
  
  LET w = ui.Window.getCurrent()
@@ -201,7 +202,7 @@ FUNCTION prprmt011()
    IF busqueda IS NULL THEN  
      LET selec1 = 
                      " SELECT 'N',  x.cerrada, x1.estado_produccion,x1.estado_producto,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp,  ", 
-                     " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) ,x1.fecha_llegada, x1.fecha_disp_entrega, ",
+                     " x.fecha_oc AS fecha_orden , x1.fecha_compromiso ,x1.fecha_llegada, x1.fecha_disp_entrega, ",
                      " x1.fecha_solic_despacho, x1.fecha_instalacion, x.cotizacion_no, x.num_oc,x5.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", 
                      " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) ,x4.descripcion, CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ",
                      " + '-' + CAST(x1.cod_tipo AS VARCHAR(4)) + '-' + CAST(x1.cod_sec AS VARCHAR(7)) + ' ' + RTRIM(x2.descrip_esp), ", 
@@ -243,7 +244,7 @@ FUNCTION prprmt011()
           END IF
      LET selec1 = 
     " SELECT 'N',  x.cerrada, x1.estado_produccion,x1.estado_producto,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp,  ", 
-                     " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) ,
+                     " x.fecha_oc AS fecha_orden , x1.fecha_compromiso ,
                      x1.fecha_llegada,x1.fecha_disp_entrega, ",
                      " x1.fecha_solic_despacho, x1.fecha_instalacion, x.cotizacion_no, x.num_oc,x5.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", 
                      " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) ,x4.descripcion, CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ",
@@ -281,7 +282,7 @@ FUNCTION prprmt011()
     IF actualiza_log_produccion="SI" THEN
      LET selec1=
     " SELECT    'N',  x.cerrada, x1.estado_produccion,x1.departamento,x3.nom_dpto,RTRIM(CAST(x.sec_vend AS CHAR)) + ' ' + RTRIM(b.nom1_emp), b.apell1_emp,  ", 
-                     " CONVERT(CHAR(10), x.fecha_oc,103) AS fecha_orden , CONVERT(char(10),x1.fecha_compromiso,103) ,' ', x.cotizacion_no, x.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", 
+                     " x.fecha_oc AS fecha_orden , x1.fecha_compromiso ,' ', x.cotizacion_no, x.num_oc, x.observacion,g.descripcion, CAST(e.tipo_cliente AS CHAR(2)) ", 
                      " + '-' + CAST(e.sec_cliente AS CHAR(6)) + ' ' + RTRIM(e.nombre) , CAST(x1.cod_n AS VARCHAR(4)) + '-' + CAST(x1.cod_grupo AS VARCHAR(4)) ",
                      " + '-' + CAST(x1.cod_tipo AS VARCHAR(4)) + '-' + CAST(x1.cod_sec AS VARCHAR(4)) + ' ' + RTRIM(x2.descrip_esp), ", 
                      " SUM(x1.cantidad), '0' , '0' , '0' , x.sec_vend, x1.cod_n, x1.cod_grupo, x1.cod_tipo, x1.cod_Sec, e.tipo_cliente, e.sec_cliente, ",
@@ -440,7 +441,7 @@ FUNCTION prprmt011()
        IF veces > 1 THEN
            LET att[idx].col7 = 'blue reverse'          
        ELSE
-       SELECT CONVERT(CHAR(10),a.fecha_llegada,103) INTO arr_ordenes[idx].fecha_llegada
+       SELECT a.fecha_llegada INTO arr_ordenes[idx].fecha_llegada
        FROM cctb00026 a
          WHERE a.num_oc = arr_ordenes[idx].num_oc AND
               a.cod_n = arr_ordenes[idx].cod_n AND
@@ -1091,7 +1092,7 @@ FUNCTION fparciales(xnum_oc,xcodn,xcodgrupo,xcodtipo,xcodsec,xfecha,xproducto)
         
         
         DECLARE busca_parcial CURSOR FOR
-          SELECT CONVERT(CHAR(10),a.fecha_compromiso,103),a.cantidad FROM prtb00028 a
+          SELECT a.fecha_compromiso,a.cantidad FROM prtb00028 a
            WHERE a.num_oc = xnum_oc AND
                  a.cod_n = xcodn AND
                  a.cod_grupo = xcodgrupo AND
@@ -1313,7 +1314,7 @@ FUNCTION vepcmf008(num_cotizacion)
     LET SELEC = " SELECT DISTINCT a.cod_cia,a.ventas,a.cotizacion_no,a.tipo_cliente,a.sec_cliente,a.nombre_cliente, " ||
                 "                 a.rnc,a.nombre_proyecto,a.direccion_cliente,a.cod_provincia,a.direccion_proyecto, " || 
                 "                 a.telefono_r,a.telefono_o,a.email,a.tipo_precio,a.beeper,a.celular,a.prima,a.fax1,a.celular1, " || 
-                "                 a.fax, CONVERT(CHAR(10),a.fecha,103),CONVERT(CHAR(10),a.fecha_entrega,103), " ||
+                "                 a.fax, a.fecha,a.fecha_entrega, " ||
                 "                 a.plazo_entrega,a.comentario,a.contacto, a.cond_pago,a.sec_Vend,a.porc_itbi," ||
                 "                 a.total_bruto,a.sub_total,a.monto_Desc,a.monto_itbi,a.total_neto,a.monto_dolar,a.num_emp_inst, " ||
                 " a.codigo_dgii,a.tipo_ncf,a.cliente_generico,a.sec_vend_aux,a.codigo,a.cod_zona,a.sincronizado, "||

PROYECTO/ipdir/ipprmt005.4gl

@@ -79,8 +79,8 @@ FUNCTION ippcad012()
               LET p_iptb20.cod_n = p_iptb20.cod_n + 1
               DISPLAY p_iptb20.cod_n TO cod_n
          BEGIN WORK
-              INSERT INTO iptb00020 (cod_n,producto,us_crea,fech_crea,comentario,genera_orden,instalacion) 
+              INSERT INTO iptb00020 (cod_n,producto,us_crea,fech_crea,comentario,genera_orden,instalacion,cod_inv) 
-              VALUES (p_iptb20.cod_n,p_iptb20.producto,usuarios,getdate(),p_iptb20.comentario,p_iptb20.genera_orden,p_iptb20.instalacion)
+              VALUES (p_iptb20.cod_n,p_iptb20.producto,usuarios,getdate(),p_iptb20.comentario,p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.cod_inv)
               
               INSERT INTO iptb00035 (cod_n,cod_cat) VALUES (p_iptb20.cod_n,p_iptb20.cod_cat)
         COMMIT WORK
@@ -108,8 +108,8 @@ SET CONNECTION "MSSQL"
     EXIT CONSTRUCT
     END CONSTRUCT
     LET SELEC = " SELECT DISTINCT a.cod_n,a.producto,a.us_crea,a.us_mod,a.fech_crea,a.fech_mod,a.cod_inv,b.cod_cat, 
-                  a.comentario,a.genera_orden,a.instalacion FROM iptb00020 a LEFT OUTER JOIN iptb00035 b ON a.cod_n = b.cod_n  ",         
+                  a.comentario,a.genera_orden,a.instalacion,a.status_t FROM iptb00020 a LEFT OUTER JOIN iptb00035 b ON a.cod_n = b.cod_n  ",         
-                " WHERE ",
+                " WHERE a.status_t IS NULL AND ",
                   criterio clipped,
                  " ORDER BY a.cod_n"
 
@@ -119,7 +119,7 @@ SET CONNECTION "MSSQL"
 
        FETCH FIRST datos INTO p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
                               p_iptb20.fech_mod,p_iptb20.cod_inv, p_iptb20.cod_cat,p_iptb20.comentario,
-                              p_iptb20.genera_orden,p_iptb20.instalacion
+                              p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.status_t
 
            IF status >= 0 THEN
              IF STATUS = NOTFOUND THEN
@@ -140,7 +140,7 @@ SET CONNECTION "MSSQL"
             "Presenta en pantalla el proximo registro encontrado"
             FETCH NEXT datos INTO p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
                               p_iptb20.fech_mod,p_iptb20.cod_inv, p_iptb20.cod_cat,p_iptb20.comentario,
-                              p_iptb20.genera_orden,p_iptb20.instalacion
+                              p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.status_t
 
 
             IF STATUS = NOTFOUND THEN
@@ -157,7 +157,7 @@ SET CONNECTION "MSSQL"
             "Presenta en pantalla el registro anterior encontrado"
             FETCH PREVIOUS datos INTO p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
                               p_iptb20.fech_mod,p_iptb20.cod_inv, p_iptb20.cod_cat,p_iptb20.comentario,
-                              p_iptb20.genera_orden,p_iptb20.instalacion
+                              p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.status_t
 
 
             IF STATUS = NOTFOUND THEN
@@ -174,7 +174,7 @@ SET CONNECTION "MSSQL"
             "Presenta en pantalla el primer registro encontrado"
             FETCH FIRST datos INTO p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
                               p_iptb20.fech_mod,p_iptb20.cod_inv, p_iptb20.cod_cat,p_iptb20.comentario,
-                              p_iptb20.genera_orden,p_iptb20.instalacion
+                              p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.status_t
 
 
             DISPLAY BY NAME p_iptb20.*,p_iptb20.cod_cat
@@ -185,7 +185,7 @@ SET CONNECTION "MSSQL"
             "Presenta en pantalla el ultimo registro encontrado"
              FETCH LAST datos INTO p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
                               p_iptb20.fech_mod,p_iptb20.cod_inv, p_iptb20.cod_cat,p_iptb20.comentario,
-                              p_iptb20.genera_orden,p_iptb20.instalacion
+                              p_iptb20.genera_orden,p_iptb20.instalacion,p_iptb20.status_t
 
 
              DISPLAY BY NAME p_iptb20.cod_n,p_iptb20.producto,p_iptb20.us_crea,p_iptb20.us_mod,p_iptb20.fech_crea,
@@ -203,7 +203,7 @@ SET CONNECTION "MSSQL"
                 CALL msg(36)
                 EXIT MENU
              END IF
-             INPUT BY NAME p_iptb20.producto,p_iptb20.cod_cat,p_iptb20.comentario,p_iptb20.genera_orden,p_iptb20.instalacion WITHOUT DEFAULTS
+             INPUT BY NAME p_iptb20.producto,p_iptb20.cod_inv,p_iptb20.comentario,p_iptb20.cod_cat,p_iptb20.genera_orden,p_iptb20.instalacion WITHOUT DEFAULTS
        
       AFTER INPUT
 
@@ -222,6 +222,7 @@ SET CONNECTION "MSSQL"
     BEGIN WORK    
       UPDATE iptb00020 SET producto = p_iptb20.producto,
                            comentario = p_iptb20.comentario,
+                           cod_inv     = p_iptb20.cod_inv,
                            genera_orden = p_iptb20.genera_orden,
                            us_mod      = SUSER_SNAME(), 
                            fech_mod    = GETDATE() ,

PROYECTO/mbsERP.4pw

@@ -727,7 +727,7 @@
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprmt013.4gl"/>
       </Application>
       <Application binaryName="ipprmt005" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000007" label="ipprmt005">
-        <Configuration commandLineArguments="jsoto lmmjvsd2014" id="-961000007" label="Configuration"/>
+        <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000007" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprmt005.4gl"/>
       </Application>
       <Application binaryName="ipprmt012" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000008" label="ipprmt012">
@@ -907,11 +907,21 @@
         <File filePath="vedir/vefmwd003.per"/>
         <File filePath="PRDIR/prfmmt010.4fd"/>
         <File filePath="PRDIR/prfmmt011.4fd"/>
+        <File filePath="PRDIR/prfmmt011b.4fd"/>
+        <File filePath="PRDIR/prfmmt011c.4fd"/>
+        <File filePath="vedir/prfmwd015.per"/>
+        <File filePath="PRDIR/prfmcs002.4fd"/>
+        <File filePath="PRDIR/prfmmt021b.4fd"/>
+        <File filePath="PRDIR/prfmmt021c.4fd"/>
+        <File filePath="PRDIR/prfmmt021d.4fd"/>
+        <File filePath="PRDIR/prfmwd002.per"/>
+        <File filePath="PRDIR/prfmwd012.4fd"/>
+        <File filePath="PRDIR/prfmwd013.4fd"/>
         <File filePath="vedir/prfmwd014.per"/>
         <File filePath="PRDIR/prfmmt022.4fd"/>
         <File filePath="PRDIR/prfmmt021.4fd"/>
         <File filePath="PRDIR/prfmmt021a.4fd"/>
-        <File filePath="ccdir/prfmmt012.per"/>
+        <File filePath="PRDIR/prfmmt012.4fd"/>
         <File filePath="PRDIR/prtest.4fd"/>
         <File filePath="PRDIR/prfmcs001.per"/>
         <File filePath="otrodir/impimportar.per"/>
@@ -923,6 +933,7 @@
         <File filePath="codir/cofmfu009.4fd"/>
         <File filePath="PRDIR/prBuscaRequisicion.4gl"/>
         <File filePath="otrodir/existenciaalmacenes.4gl"/>
+        <File filePath="otrodir/existenciaalmacenes.4fd"/>
         <File filePath="PRDIR/prprmt011c.4gl"/>
         <File filePath="PRDIR/busca_dibujos.4gl"/>
         <File filePath="PRDIR/prprmt011b.4gl"/>

PROYECTO/otrodir/existenciaalmacenes.4fd

@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm fileVersion="31400" gstVersion="3140a" name="managedform" uid="{4e91ac7b-8ee9-47ca-94fc-0f0dcdf59e19}">
+  <AGSettings>
+    <DynamicProperties version="2"/>
+  </AGSettings>
+  <Record name="s_existencia" uid="{f2ea8bb1-febf-40ef-8edc-a834a1a6dc9d}">
+    <RecordField fieldIdRef="1" name="almacen" uid="{7c966db1-ab91-4323-9bc2-49f632042c0b}"/>
+    <RecordField fieldIdRef="2" name="fisico" uid="{1f2df6fe-ce62-4cb5-9169-9ea4d0def99b}"/>
+  </Record>
+  <Record name="record2" uid="{1f6c696f-6d99-44a6-93ba-f18041035d3d}">
+    <RecordField fieldIdRef="3" name="producto" uid="{6b3c28df-e79d-40d2-ba7b-5acabd648978}"/>
+    <RecordField fieldIdRef="4" name="disponible" uid="{51910a5f-9130-4e5f-b175-10b1d2426f1b}"/>
+    <RecordField fieldIdRef="5" name="pcantidad_ordenes" uid="{3d9bfa9a-5cdf-4f55-82e9-af263960d69f}"/>
+    <RecordField fieldIdRef="6" name="pcantidadConduce" uid="{22e756b2-846e-4606-971a-46c943cd739b}"/>
+    <RecordField fieldIdRef="7" name="pexistencia" uid="{3a113657-065d-46ff-8181-a8870c953696}"/>
+  </Record>
+  <Form gridHeight="25" gridWidth="80" name="form" text="ORDENES - EXISTENCIAS ALMACENES">
+    <Grid gridHeight="12" gridWidth="63" name="grid1" posX="3" posY="1">
+      <Label gridHeight="1" gridWidth="38" justify="center" name="label1" posX="2" posY="1" text="EXISTENCIAS ALMACENES"/>
+      <Edit fieldId="3" gridHeight="1" gridWidth="38" name="producto" posX="2" posY="2" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="7" name="label2" posX="2" posY="3" text="Disponible"/>
+      <Edit fieldId="4" gridHeight="1" gridWidth="10" name="disponible" posX="10" posY="3" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="7" name="label5" posX="22" posY="3" text="Existencia"/>
+      <Edit fieldId="7" gridHeight="1" gridWidth="10" name="pexistencia" posX="30" posY="3" tabIndex="-1" title="edit2" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="7" name="label3" posX="2" posY="4" text="Orden"/>
+      <Edit fieldId="5" gridHeight="1" gridWidth="10" name="pcantidad_ordenes" posX="10" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Label gridHeight="1" gridWidth="7" name="label4" posX="22" posY="4" text="Conduce"/>
+      <Edit fieldId="6" gridHeight="1" gridWidth="10" name="pcantidadConduce" posX="30" posY="4" tabIndex="-1" title="edit1" widget="Edit"/>
+      <Table gridHeight="7" gridWidth="27" name="table1" posX="3" posY="5" totalRows="5">
+        <Edit fieldId="1" gridHeight="1" gridWidth="8" name="almacen" posX="0" posY="0" scroll="true" tabIndex="-1" title="Almacenes" widget="Edit"/>
+        <Edit aggregate="true" aggregateName="aggregate1" aggregateSqlType="DECIMAL" aggregateText="Existencia Total" fieldId="2" gridHeight="1" gridWidth="8" name="fisico" posX="8" posY="0" scroll="true" tabIndex="-1" title="Existencia Fisica" unsortable="true" widget="Edit"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewBmADIAZQBhADgAYgBiADEALQBmAGUAYgBmAC0ANAAwAGUAZgAtADgAZQBkAGMALQBhADgAMwA0AGEAMQBhADYAZABjADkAZAB9AAAAAAAAAAAAAAAAAAAAAD9ok3S8an76AQAAAEwAewAxAGYANgBjADYAOQA2AGYALQA2AGQAOQA5AC0ANAA0AGEANgAtADkAMwBiAGEALQBmADEAOAAwADQAMQAwADMANQBkADMAZAB9QH+mZnZZmZzAQAAABwAAAT9QYk3S8an8AQ==]]>
+  </DiagramLayout>
+</ManagedForm>

PROYECTO/vedir/prfmwd014.per

@@ -20,7 +20,7 @@ X   = formonly.fecha,FORMAT="dd/mm/yyyy";
 x1  = formonly.num_req,TITLE="REQUISICION";
 f1  = formonly.fecha_llegada,TITLE="FECHA LLEGADA";
 instructions
-   screen record s_llegada[9] (fecha_llegada,num_req,fecha)
+   screen record s_llegada[5] (fecha_llegada,num_req,fecha)
    delimiters " "
 end