From 96c461d4b67c8c7e4602dbad5ba89e34fdc710b4 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Wed, 21 Oct 2026 16:43:18 -0400 Subject: [PATCH] prprmt020: la orden se guardaba en prtb09.num_oc pero se consultaba prtb08.num_oc (REGISTRO NO EXISTE siempre) INPUT BY NAME y el SELECT INTO ahora usan prtb08, igual que el resto del programa. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/PRDIR/prprmt020.4gl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PROYECTO/PRDIR/prprmt020.4gl b/PROYECTO/PRDIR/prprmt020.4gl index 20f1740..3bf1e53 100644 --- a/PROYECTO/PRDIR/prprmt020.4gl +++ b/PROYECTO/PRDIR/prprmt020.4gl @@ -54,7 +54,7 @@ FUNCTION prprmt020() OPEN WINDOW w1 WITH FORM "prfmmt012" DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM) - INPUT BY NAME prtb09.num_oc + INPUT BY NAME prtb08.num_oc BEFORE INPUT LET d_tipos="PDF" @@ -86,7 +86,7 @@ FUNCTION prprmt020() AFTER FIELD num_oc SELECT a.cotizacion_no,b.nombre,a.sec_vend,ISNULL(c.nom1_emp,' ')+ISNULL(c.apell1_emp,' '), a.tipo_cliente,a.sec_cliente - INTO prtb09.cotizacion_no,nombre_cliente,psec_vend,vendedor, + INTO prtb08.cotizacion_no,nombre_cliente,psec_vend,vendedor, prtb08.tipo_cliente,prtb08.sec_cliente FROM prtb00012 a,vetb00004 b,adtb00003 c WHERE a.num_oc = prtb08.num_oc AND