MAIN
  DEFER INTERRUPT
  
 CONNECT to "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'

 CALL cdatos()
END MAIN

FUNCTION cdatos()

    DEFINE y RECORD

          cotizacion_no       INT,
          fecha               DATE,
          ventas              VARCHAR(1),
          tipo_cliente        SMALLINT,
          sec_cliente         INT,
          nombre              VARCHAR(80),
          rnc                 VARCHAR(11),
          nombre_proyecto     VARCHAR(50),
          direccion_proyecto  VARCHAR(50),
          direccion_cliente   VARCHAR(50),
          cond_pago           SMALLINT,
          descripcion         VARCHAR(50),
          celular             VARCHAR(15),
          email               VARCHAR(60),  
          sec_vend            INT,
          sub_total         DEC(12,2),
          monto_desc          DEC(12,2),
          monto_itbis         DEC(12,2), 
          total_cotizacion    DEC(12,2)
   
   END RECORD,
      z DYNAMIC ARRAY OF  RECORD
    
        area      SMALLINT,
        descripcion_area CHAR(50),
        cod_n     SMALLINT,
        cod_grupo SMALLINT,
        cod_tipo  SMALLINT,
        cod_sec   SMALLINT,
        descripcion VARCHAR(80),
        cantidad  DEC(12,5),
        cantidad1 DEC(12,5),
        precio    DEC(12,2),
        porc_desc DEC(12,2),
        itbis     DEC(12,2),
        valor     DEC(12,2) ,
        codid     INT
   END RECORD,
    i SMALLINT
    
    DEFINE tip_sal,arc_sal STRING
    DEFINE p_hand om.SaxDocumentHandler


    
    LET tip_sal = "PDF"
    IF NOT fgl_report_loadCurrentSettings("veprmt049_mob.4rp") THEN
       EXIT PROGRAM
    END IF

    
    LET arc_sal=gen_nombre_archivo(tip_sal)
    
    CALL fgl_report_selectDevice(UPSHIFT(tip_sal))
    CALL fgl_report_selectPreview(false)
    CALL fgl_report_setOutputFileName(arc_sal)
    
    LET p_hand=fgl_report_commitCurrentSettings()

    IF  p_hand IS NOT NULL THEN
         START REPORT imprimeO TO XML HANDLER p_hand
       
   SELECT a.cotizacion_no,CONVERT(CHAR(10),a.fecha,103),a.ventas,a.tipo_cliente,a.sec_cliente,
          a.nombre_cliente,a.rnc,a.nombre_proyecto,a.direccion_proyecto,a.direccion_cliente,
          a.cond_pago,'CREDITO',a.celular,a.email,a.sec_vend,a.sub_total,
          a.monto_desc,a.monto_itbi,a.total_neto
   INTO y.*
          FROM vetb00050 a 
          WHERE a.cotizacion_no = 144864

    DECLARE items CURSOR FOR
        SELECT a.area,a.descripcion_area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,
               a.cantidad,a.cantidad_1,a.precio,a.porc_desc,'0','0','0'
 FROM vetb00051 a WHERE a.cotizacion_no =144864
    LET i = 1
    FOREACH items INTO z[i].*
            
      OUTPUT TO REPORT imprimeO(Y.*,z[i].*)
      
      LET i = i + 1
    END FOREACH 
    FINISH REPORT imprimeO
   END IF    
END FUNCTION