{
-------------------------------------------------------------------------------
PROGRAMA             :  CCPRRP048
OBJETIVO             :  Comisiones
REALIZADO POR        :  JUAN F. SOTO
FECHA                :  Abril 17, 2015.
-------------------------------------------------------------------------------
}
 GLOBALS "ccprgb000.4gl"
  DEFINE tipo_reporte VARCHAR(3),
         precio,descuento,valor DEC(12,2),

         datos_cocina RECORD
           orden        INT,
           fecha_orden  DATE,
           cliente      VARCHAR(100),
           vendedor     VARCHAR(100),
           producto     VARCHAR(100),
           cantidad_o   FLOAT,
           cantidad_e   FLOAT,
           simbolo      VARCHAR(5),
           porc_vendedor FLOAT,
           comisionDespacho FLOAT,
           comisionCotizado FLOAT  
         END RECORD
  
MAIN
 DEFER INTERRUPT
 CALL STARTLOG("ccrp048.txt")
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 
 CONNECT to "smarmotech" USER  usuarios USING clave
 SELECT a.* INTO p_companias.* FROM companias a
 CALL ccprrp043()
END MAIN


FUNCTION ccprrp043()
    
   DEFINE datos RECORD
      codigo_supervisor SMALLINT,
      nombre_supervisor VARCHAR(60),
      sec_vend          SMALLINT,
      nombre_vendedor   VARCHAR(60),
      fecha             DATE,
      documento         INT,
      tipo_doc          VARCHAR(2),
      cotizacion_no     INT,
      nombre_cliente    VARCHAR(100),
      valor_orig        DEC(12,2),
      porc_cobros_vend  DEC(8,4),
      chitbis           CHAR(2),
      comision_vend     DEC(12,4),
      sec_vend_a        SMALLINT,
      valor_adicional   DEC(12,4),
      comision_adicional DEC(12,4),
      str_reporte       VARCHAR(50)
    
    END RECORD       
DEFINE handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
         r_filename STRING,              -- filename of Report Design Document including .4rp extension
          r_output   STRING,             -- output format option
          preview    INTEGER             -- TRUE/FALSE, to set preview option         

    DEFINE porc_itbis DEC(8,2)
    OPEN FORM ccfmrp043 FROM "ccfmrp047"
    DISPLAY FORM ccfmrp043

    DELETE FROM tmpccrp48
    
 INPUT BY NAME tipo_reporte,p_ano,p_mes
    BEFORE INPUT
      SELECT a.itbi INTO porc_itbis FROM vetb00019 a WHERE a.disponible = 'S'
    AFTER FIELD p_ano 
      IF p_ano   IS NULL THEN
         LET numero_msg = 16
         CALL msg(numero_msg)
         NEXT FIELD p_ano   
      END IF
 
    AFTER FIELD p_mes 
      IF p_mes IS NULL THEN
         LET numero_msg = 16
         CALL msg(numero_msg)
         NEXT FIELD p_mes
      END IF

      SELECT a.fecha_inicio,a.fecha_corte INTO rango.fecha_ini,rango.fecha_fin
      FROM prdtable a 
      WHERE a.ano = p_ano   AND 
            a.mes = p_mes

      DISPLAY BY NAME rango.fecha_ini,rango.fecha_fin
  END INPUT
   
  IF int_flag THEN
     LET numero_msg = 2
     CALL msg(numero_msg)
     LET int_flag = false
     RETURN
  END IF
IF tipo_reporte = "GE" THEN
  CONSTRUCT criterio ON a.sec_vend,a.sec_vend_a
                     FROM sec_vend,sec_vend_a
   
# Chequo de la cancelacion del programa con la variable global int_flag

  IF int_flag THEN
     LET numero_msg = 2
     CALL msg(numero_msg)
     LET int_flag = false
     RETURN
  END IF
  #CALL seleccionarSalida() RETURNING  r_output
 # CALL crear_registros()
  
# Prepara al sistema operativo para recibir el reporte
   
  LET selec =
    " select a.sec_vend,(SELECT RTRIM(c.nom1_emp)+' '+c.apell1_emp from adtb00003 c where a.sec_vend = c.num_emp) ,",
    "        a.sec_vend_a, RTRIM(b.nom1_emp)+' '+b.apell1_emp,CONVERT(CHAR(10),j.fecha_orig,103),j.num_doc,j.tipo_doc,",
    "        j.num_cheque,x1.nombre,j.valor*x2.tasa,a.porc_cobros,j1.chitbis ",
    " from cctb00001 j INNER JOIN vetb00075 a ON j.cod_emp_sec = a.sec_vend_a and j.tipo_doc IN ('AV') AND ",
    " j.num_doc = j.aplica_a INNER JOIN vetb00004 x1 ON j.tipo_cliente = x1.tipo_cliente AND j.sec_cliente = x1.sec_cliente ",
    " INNER JOIN cgtb00084 x2 ON x2.ano = ? AND x2.mes = ? AND x2.tipo_cliente = j.tipo_cliente ",
    " INNER JOIN cctb00011 j1 ON j.num_doc = j1.num_doc and j1.tipo_doc = j.tipo_doc, adtb00003 b ",
    " where a.sec_vend_a = b.num_emp and j.fecha_orig between ? and ? AND j.status_t is null AND ",
    "       a.sec_vend_a not in (select sec_vend from vetb00076) AND",
 criterio CLIPPED,
    
    " UNION ",

    " select a.sec_vend,(SELECT RTRIM(c.nom1_emp)+' '+c.apell1_emp from adtb00003 c where a.sec_vend = c.num_emp) ,",
    "        a.sec_vend_a, RTRIM(b.nom1_emp)+' '+b.apell1_emp,CONVERT(CHAR(10),j.fecha_orig,103),j.num_doc,j.tipo_doc,",
    "        j.aplica_a,x1.nombre,j.valor*x2.tasa,a.porc_cobros,j1.chitbis ",
    " from cctb00001 j INNER JOIN vetb00075 a ON j.cod_emp_sec = a.sec_vend_a and j.tipo_doc IN ('PG')  ",
    " INNER JOIN vetb00004 x1 ON j.tipo_cliente = x1.tipo_cliente AND j.sec_cliente = x1.sec_cliente ",
    " INNER JOIN cgtb00084 x2 ON x2.ano = ? AND x2.mes = ? AND x2.tipo_cliente = j.tipo_cliente ",
    " INNER JOIN vetb00002 x3 ON j.aplica_a = x3.factura ",
    " INNER JOIN cctb00011 j1 ON j.num_doc = j1.num_doc AND j.tipo_doc = j1.tipo_doc, adtb00003 b ",
    " where a.sec_vend_a = b.num_emp and j.fecha_orig between ? and ? AND j.status_t IS NULL AND ",
    "       DATEDIFF(day,x3.fecha_factura,j.fecha_orig) < 91 AND ",
    "       a.sec_vend_a not in (select sec_vend from vetb00076) AND",   
    criterio CLIPPED, 
    " order by a.sec_vend,a.sec_vend_a,j.tipo_doc,j.num_doc"
 
   PREPARE comando_inicial FROM selec
   DECLARE busca_datos CURSOR FOR comando_inicial
   OPEN busca_datos USING p_ano,p_mes,rango.fecha_ini,rango.fecha_fin,p_ano,p_mes,rango.fecha_ini,rango.fecha_fin

   
   LET progreso = 20    
   DISPLAY progreso TO progreso 
   CALL ui.Interface.refresh()
   
   LET r_filename ="ccprrp048.4rp"
   CALL seleccionarsalida() RETURNING r_output
  # LET r_output="PDF"
   LET preview=1
   
   LET idx = 1
   FOREACH busca_datos INTO datos.*
    IF idx = 1 THEN 
       IF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
         
         CALL fgl_report_selectDevice(r_output)                          -- changing default
         CALL fgl_report_selectPreview(preview)                          -- changing default
         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
      END IF

      START REPORT reporte43 TO XML HANDLER handler
   
     END IF
     LET datos.str_reporte="COMISIONES VENDEDORES"
     
       IF datos.chitbis = "SI" THEN
            LET datos.valor_orig =  (datos.valor_orig/(1+(porc_itbis/100))) 
       END IF   
         IF datos.valor_orig < 0 THEN
            LET datos.valor_orig = datos.valor_orig * -1
         END IF
         
         LET datos.comision_vend = datos.valor_orig * datos.porc_cobros_vend
         
         IF datos.comision_vend IS NULL THEN
            LET datos.comision_vend =0
         END IF
     
     
        INSERT INTO tmpccrp48 VALUES (datos.*)
        OUTPUT TO REPORT reporte43(datos.*)
   LET progreso = 50
   DISPLAY progreso TO progreso 
   CALL ui.Interface.refresh()
   
   LET idx = idx + 1    
   
   END FOREACH
   LET progreso = 100    

   DISPLAY progreso TO progreso 
   CALL ui.Interface.refresh()
   

# OTRAS COMISIONES

         
     LET selec=
      " SELECT a.sec_vend,j.num_doc,j.tipo_doc, CONVERT(char(10),j.fecha_orig,103),j.aplica_a,a.porc_cobros,x1.nombre, ",
                          " SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.cantidad_2)/100)))/((x3.sub_total-x3.monto_desc)*x2.tasa),",
                          " e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis ",        
          " FROM cctb00001 j,cctb00008 a,vetb00003 b,vetb00093 d,adtb00003 e,vetb00004 x1, ",
          "      cgtb00084 x2,vetb00002 x3,prtb00012 c,cctb00011 j1 ",
          " WHERE  j.fecha_orig BETWEEN '", rango.fecha_ini USING "mm/dd/yyyy","' AND '",rango.fecha_fin USING "mm/dd/yyyy","' AND ",
          "        j.tipo_doc IN ('PG') AND ",
          "        b.factura = x3.factura AND ",
          "        b.factura = j.aplica_a AND ",
          "        DATEDIFF(day,j.fecha_orig,x3.fecha_factura) < 91 AND ",
        #  "        j.fecha_orig-x3.fecha_factura < 91 AND ",
          "        x3.orden = c.num_oc AND ",
          "        j.tipo_cliente = j1.tipo_cliente AND ",
          "        c.cotizacion_no = d.cotizacion_no AND ",
          "        a.cod_n = b.cod_n AND ",
          "        a.cod_grupo = b.cod_grupo AND ",
          "        a.cod_tipo = b.cod_tipo AND ",
          "        a.cod_sec = b.cod_sec AND ",
          "        j.tipo_cliente = x1.tipo_cliente AND ",
          "        j.sec_cliente = x1.sec_cliente AND ",
          "        j1.num_doc = j.num_doc AND ",
          "        j1.tipo_doc = j.tipo_doc AND ",
          "        a.sec_vend = e.num_emp AND ",
          "        a.sec_vend = d.sec_vend AND ",
          "        x2.ano = ",p_ano," AND ",
          "        x2.mes = ",p_mes," AND ",
          "        x2.tipo_cliente = j.tipo_cliente AND ",
          "        j.status_t IS NULL ",
          " GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_cobros,e.nom1_emp,e.apell1_emp,x1.nombre, ",
          "         j.num_doc,j.tipo_doc, j.aplica_a,x3.sub_total,j.valor,x2.tasa,j1.chitbis, ",
          "         j.fecha_orig,x3.monto_Desc ",
          
      " UNION ",  
  " SELECT a.sec_vend,j.num_doc,j.tipo_doc, CONVERT(char(10),j.fecha_orig,103),j.aplica_a,a.porc_cobros,x1.nombre, ",
  "                         SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.cantidad_2)/100)))/((x3.sub_total-x3.monto_desc)*x2.tasa), ",
  "                         e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis      ",  
  "         FROM cctb00001 j,cctb00008 a,vetb00003 b,vetb00050 d,adtb00003 e,vetb00004 x1, ",
  "              cgtb00084 x2,vetb00002 x3,prtb00012 c,cctb00011 j1 ",
  "         WHERE  j.fecha_orig BETWEEN '",rango.fecha_ini USING "mm/dd/yyyy","' AND '",rango.fecha_fin USING "mm/dd/yyyy","' AND ",
  "                j.tipo_doc IN ('PG') AND ",
  "                b.factura = x3.factura AND ",
  "                b.factura = j.aplica_a AND ",
  "                x3.orden = c.num_oc AND ",
  "                j.tipo_cliente = j1.tipo_cliente AND  ",
  "                c.cotizacion_no = d.cotizacion_no AND ", 
  "                a.cod_n = b.cod_n AND ",
  "        a.cod_grupo = b.cod_grupo AND ",
          "        a.cod_tipo = b.cod_tipo AND ",
          "        a.cod_sec = b.cod_sec AND ",
  "                j.tipo_cliente = x1.tipo_cliente AND ",
  "                j.sec_cliente = x1.sec_cliente AND ",
  "                j1.num_doc = j.num_doc AND ",
  "                j1.tipo_doc = j.tipo_doc AND ",
  "                a.sec_vend = e.num_emp AND ",
  "                a.sec_vend = d.sec_vend AND ", 
  "                x2.ano = ", p_ano," AND ",
  "                x2.mes = ",p_mes," AND ",
  "                x2.tipo_cliente = j.tipo_cliente AND ",
  "                j.status_t IS NULL ",
  "        GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_cobros,e.nom1_emp,e.apell1_emp,x1.nombre, ",
  "                 j.num_doc,j.tipo_doc, j.aplica_a,x3.sub_total,j.valor,x2.tasa,j1.chitbis, ",
  "                 j.fecha_orig,x3.monto_desc ",
    
  "     UNION ",
  "     SELECT a.sec_vend,j.num_doc,j.tipo_doc,CONVERT(char(10),j.fecha_orig,103), x3.cotizacion_no, a.porc_cobros,x1.nombre, ",
  "                         SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.porc_desc)/100)))/(x3.sub_total*x2.tasa), ",
  "                         e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis     ",   
  "         FROM cctb00001 j,cctb00008 a,vetb00051 b,vetb00093 d,adtb00003 e,vetb00004 x1, ",
  "              cgtb00084 x2,vetb00050 x3,cctb00011 j1 ",
  "         WHERE  j.fecha_orig BETWEEN '",rango.fecha_ini USING "mm/dd/yyyy","' AND '",rango.fecha_fin USING "mm/dd/yyyy","' AND ",
  "                j.tipo_doc IN ('AV') AND ",
  "                j.documento_ref = b.cotizacion_no AND ",
  "                b.cotizacion_no=x3.cotizacion_no AND ",
  "                b.cotizacion_no=d.cotizacion_no AND ",
  "                a.cod_n = b.cod_n AND ",
  "        a.cod_grupo = b.cod_grupo AND ",
          "        a.cod_tipo = b.cod_tipo AND ",
          "        a.cod_sec = b.cod_sec AND ",
          
  "                j.tipo_cliente = x1.tipo_cliente AND ",
  "                j.sec_cliente = x1.sec_cliente AND ",
  "                j.tipo_cliente = j1.tipo_cliente AND ",
  "                j1.num_doc = j.num_doc AND ",
  "                j1.tipo_doc = j.tipo_doc AND ",
  "                a.sec_vend = e.num_emp AND ",
  "                a.sec_vend = d.sec_vend AND ",
  "                x2.ano =", p_ano," AND ",
  "                x2.mes =", p_mes," AND ",
  "                x2.tipo_cliente = j.tipo_cliente AND ",
  "                j.status_t IS NULL ",
  "         GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_cobros,e.nom1_emp,e.apell1_emp,x1.nombre,j.num_doc,j.tipo_doc, x3.cotizacion_no, ",
   "                 x3.sub_total,j.valor,x2.tasa,j1.chitbis,j.fecha_orig ",

  "        UNION ",
  "         SELECT j.cod_emp_sec,j.num_doc,j.tipo_doc,CONVERT(char(10),j.fecha_orig,103), x3.cotizacion_no, a.porc_cobros,x1.nombre, ",
  "                  SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.porc_desc)/100)))/(x3.sub_total*x2.tasa), ",
  "                  e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis  ",        
  "         FROM cctb00001 j,cctb00008 a,vetb00051 b,adtb00003 e,vetb00004 x1, ",
  "              cgtb00084 x2,vetb00050 x3,cctb00011 j1 ",
  "         WHERE  j.fecha_orig BETWEEN '",rango.fecha_ini USING "mm/dd/yyyy","' AND '",rango.fecha_fin USING "mm/dd/yyyy","' AND ",
  "                j.tipo_doc IN ('AV') AND ",
  "                j.documento_Ref = b.cotizacion_no AND ",
  "                b.cotizacion_no=x3.cotizacion_no AND ",
  "                a.cod_n = b.cod_n AND ",
  "        a.cod_grupo = b.cod_grupo AND ",
          "        a.cod_tipo = b.cod_tipo AND ",
          "        a.cod_sec = b.cod_sec AND ",
  "                j.tipo_cliente = x1.tipo_cliente AND ",
  "                j.sec_cliente = x1.sec_cliente AND ",
  "                j.tipo_cliente = j1.tipo_cliente AND ",
  "                j1.num_doc = j.num_doc AND ",
  "                j1.tipo_doc = j.tipo_doc AND ",
  "                a.sec_vend = e.num_emp AND ",
  "                a.sec_vend = j.cod_emp_sec AND ",
  "                x2.ano =", p_Ano," AND ",
  "                x2.mes =", p_mes," AND  ",
  "                x2.tipo_cliente = j.tipo_cliente AND ",
  "                j.status_t IS NULL ",
  "         GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_cobros,e.nom1_emp,e.apell1_emp,x1.nombre,j.num_doc,j.tipo_doc, x3.cotizacion_no, ",
  "                  x3.sub_total,j.valor,x2.tasa,j1.chitbis,j.fecha_orig "

           PREPARE comando1 FROM selec
           DECLARE busca_adicional CURSOR FOR comando1          
          
          FOREACH busca_adicional INTO  datos.sec_vend,datos.documento,datos.tipo_doc,datos.fecha,
                                        datos.cotizacion_no, 
                                        datos.porc_cobros_vend,
                                         datos.nombre_cliente,
                                        datos.valor_adicional,datos.nombre_vendedor,
                                        datos.valor_orig,datos.chitbis
                                        
               LET datos.codigo_supervisor=0
               
               IF datos.chitbis = "SI" THEN
                  LET datos.valor_orig =  (datos.valor_orig/(1+(porc_itbis/100))) 
               END IF                            
               IF datos.valor_orig < 0 THEN
                  LET datos.valor_orig=datos.valor_orig * -1
               END IF               
               LET datos.valor_orig = datos.valor_adicional*datos.valor_orig                    
               LET datos.comision_adicional = datos.valor_orig * datos.porc_cobros_vend
               LET datos.comision_vend= datos.comision_adicional
               
               IF datos.valor_orig IS NOT NULL THEN
                  INSERT INTO tmpccrp48 VALUES (datos.*)              
                  OUTPUT TO REPORT reporte43(datos.*)
               END IF   
          END FOREACH     
         

   IF idx > 1 THEN
   
      FINISH REPORT reporte43
   END IF
 ELSE
 CALL seleccionarsalida() RETURNING r_output
 LET preview=1
  LET selec =
     "SELECT a.orden,CONVERT(CHAR(10),a.fecha_orden,103), ",
     "a.cliente,a.soporteventas,a.producto,a.cantidad_ordenada,a.cantidadFacturada,a.simbolo,a.porc_vendedor, ",
     "a.comisionDespacho,a.comisionCotizado ",
     " FROM vwordenescocinas a ",
     " WHERE a.ano=",p_ano," and a.numeroMes=",p_mes
  

 PREPARE comando_c FROM selec
 DECLARE busca_ordenes CURSOR FOR comando_c

 LET idx = 1
 LET r_filename = "ccprrp048b.4rp"
 FOREACH busca_ordenes INTO datos_cocina.*
    IF idx = 1 THEN 
       IF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
         
         CALL fgl_report_selectDevice(r_output)                          -- changing default
         CALL fgl_report_selectPreview(preview)                          -- changing default
         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
      END IF

      START REPORT reporte48b TO XML HANDLER handler
   
     END IF
     LET idx = idx +1
     OUTPUT TO REPORT reporte48b(datos_cocina.vendedor)
 END FOREACH
     FINISH REPORT reporte48b
 END IF  
END FUNCTION
# Rutina de reporte 

REPORT reporte43(x)
# Variable que toma el valor de la funcion que llamo a esta rutina
      DEFINE x RECORD
      codigo_supervisor SMALLINT,
      nombre_supervisor VARCHAR(60),
      sec_vend          SMALLINT,
      nombre_vendedor   VARCHAR(60),
      fecha             DATE,
      documento         INT,
      tipo_doc          VARCHAR(2),
      cotizacion_no     INT,
      nombre_cliente    VARCHAR(100),
      valor_orig        DEC(12,2),
      porc_cobros_vend  DEC(8,4),
      chitbis           CHAR(2),
      comision_vend     DEC(12,4),
      sec_vend_a        SMALLINT,
      valor_adicional   DEC(12,2),
      comision_adicional DEC(12,2),
      str_reporte       VARCHAR(50)
    END RECORD,
    nombre_mes CHAR(30),
    hora CHAR(16),
    t_valor_supervisor,t_valor_vendedor DEC(12,2)
   
     ORDER BY x.codigo_supervisor,x.sec_vend
    FORMAT
      PAGE HEADER
        LET hora = TODAY 
   
        SELECT a.descrip INTO nombre_mes FROM mestable a WHERE a.mes = p_mes    
        
        
     BEFORE GROUP OF x.codigo_supervisor
        LET t_valor_supervisor =0
        
     BEFORE GROUP OF x.sec_vend
      LET t_valor_vendedor = 0
      
      ON EVERY ROW
        LET t_valor_vendedor = t_valor_vendedor + x.comision_vend
        LET t_valor_supervisor = t_valor_supervisor + x.comision_vend
    
        
        PRINTX x.*,t_valor_supervisor,p_companias.nombre,p_ano,nombre_mes,hora,t_valor_vendedor
        
END REPORT
REPORT reporte48b(xvendedor)
 DEFINE xvendedor VARCHAR(100),
        total_comision_d,total_comision_c FLOAT
 FORMAT
    FIRST PAGE HEADER
     PRINTX p_companias.nombre
     
  BEFORE GROUP OF xvendedor
     PRINTX xvendedor
     LET total_comision_d = 0
     LET total_comision_c = 0  
  ON EVERY ROW
  
    LET total_comision_d = total_comision_d + datos_cocina.comisionDespacho
    LET total_comision_c = total_comision_c + datos_cocina.comisionCotizado
    
    PRINTX datos_cocina.*,total_comision_d,total_comision_c
END REPORT