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 <noreply@anthropic.com>

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