jpegueroandClaude Opus 5.5
f6e41932b1
- 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>
27 lines
712 B
Plaintext
27 lines
712 B
Plaintext
LAYOUT(TEXT="Fecha Llegada",STYLE="basic")
|
|
GRID
|
|
{
|
|
<G >
|
|
ORDEN: [a ]
|
|
|
|
<G >
|
|
<t >
|
|
[f1 ][x1 ][x ]
|
|
[f1 ][x1 ][x ]
|
|
[f1 ][x1 ][x ]
|
|
[f1 ][x1 ][x ]
|
|
[f1 ][x1 ][x ]
|
|
}
|
|
end
|
|
|
|
ATTRIBUTES
|
|
a = formonly.num_oc;
|
|
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[5] (fecha_llegada,num_req,fecha)
|
|
delimiters " "
|
|
end
|
|
|