lsoto prueba de programas

PROYECTO/vedir/impresion_factura.4gl

@@ -58,6 +58,7 @@ FUNCTION impresion_fact(x,z)
      unidad_med  CHAR(3),
      cantidad    LIKE vetb00003.cantidad,
      precio      LIKE vetb00003.precio,
+     cantidad_2  DEC(12,2),        -- igual que arr_disp de veprcs001 (si no, error -1260)
      monto_fact  DECIMAl(10,2)
    END RECORD,
    HANDLER om.SaxDocumentHandler,
@@ -67,7 +68,10 @@ FUNCTION impresion_fact(x,z)
    START REPORT factura TO XML HANDLER HANDLER
  
    FOR idx = 1 TO z.getLength()
-       OUTPUT TO REPORT factura(x.*,z[idx].*) 
+       -- el reporte no lleva cantidad_2: se pasan los campos uno a uno
+       OUTPUT TO REPORT factura(x.*,z[idx].cod_n,z[idx].cod_grupo,z[idx].cod_tipo,z[idx].cod_sec,
+                                z[idx].descrip_esp,z[idx].unidad_med,z[idx].cantidad,z[idx].precio,
+                                z[idx].monto_fact)
    END FOR   
    FINISH REPORT factura
 END FUNCTION