prprmt011 (Administracion Ordenes): formularios faltantes y fechas -1205
- Registra en FORMULARIOS_PR los formularios que el programa y sus librerias abren y no estaban en el proyecto: prfmmt011b, prfmmt011c, prfmwd015, prfmcs002, prfmmt021b/c/d, prfmwd002, prfmwd012, prfmwd013. - prfmmt012 registrado era el de ccdir (otro formulario con el mismo nombre); se reemplaza por PRDIR/prfmmt012.4fd (campos iguales al 42f de produccion). - Rescata otrodir/existenciaalmacenes.4fd del respaldo PROYECTOS y lo registra en FUNCIONES_PR junto a existenciaalmacenes.4gl. - prfmwd014.per: s_llegada[9] -> [5]; la pantalla dibuja 5 filas y el formulario no compilaba (-2029). Tampoco existia compilado en produccion. - Quita CONVERT(...,103) en 8 lecturas que llenan campos DATE (consulta principal, fecha_llegada, parciales y datos de cotizacion); con dias >12 el programa terminaba con error al buscar. Se dejan los CONVERT que llenan campos CHAR(10). - Titulo de ventana "Administracion Ordenes". Verificado: busqueda 01/07/2026-02/07/2026 trae 189 lineas con colores; botones transacciones y Requisicion funcionan. Pendiente probar Existencia, flujo, Documentos, fllegada, parciales, visualiza_log, Reporte Data e Informe. Nota: un mes completo (3,105 lineas) tarda varios minutos por las consultas por linea (diseno original). Pendiente Johnny: FORMULARIOS_PR no compila completo por prfmmt006 (columna prtb00007.orden_pedido inexistente) y msgfmwd001 (msgrp000) no tiene fuente en ningun lado. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Claude Opus 5.5
@@ -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, "||
|
||||
|
||||
+12
-1
@@ -913,11 +913,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"/>
|
||||
@@ -929,6 +939,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"/>
|
||||
|
||||
@@ -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>
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user