{
----------------------------------------------------------------------------
PROGRAMA   : CGPRRP029
OBJETIVO   : PANORAMICO ANALISIS DE BENEFICIOS POR VENDEDOR
PROGRAMADOR: JUAN F. SOTO
FECHA      : NOVIEMBRE 28, 1996.
---------------------------------------------------------------------------
}
GLOBALS
 "cgprgb000.4gl"
DEFINE m_mes,p_ano,p_mes SMALLINT,
       fecha1,fecha2,fech1,fech2,fecha_c DATE
DEFINE cost_vta RECORD
       cod_n     SMALLINT,
       cod_grupo SMALLINT,
       cod_tipo  SMALLINT,
       cod_sec   SMALLINT,
       cantidad  INTEGER
END RECORD,
       fecha_ingreso DATE,
       descripcion_cta VARCHAR(30)
MAIN
 DEFER INTERRUPT
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 CALL ARG_VAL(3) RETURNING impresor
  
  CONNECT to "smarmotech"  USER  usuarios USING clave
  SELECT a.* INTO p_compania.* FROM companias a

 CALL cgprrp029()
END MAIN

FUNCTION cgprrp029()
  DEFINE vendedor RECORD
         sec_vend  SMALLINT,
         nombre    CHAR(20),
         apellido  CHAR(20),
         tipo_Emp  CHAR(2),
         bruto     DECIMAL(12,2),
         neto      DECIMAL(12,2),
         costo_venta DECIMAL(12,2),
         salario   DECIMAL(12,2),
         comision  DECIMAL(12,2),
         descuento DECIMAL(12,2)
  END RECORD

  OPTIONS
     FORM LINE 9,
     ERROR LINE 24

  OPEN FORM cgfmrp029 FROM "cgfmrp029"
  DISPLAY FORM cgfmrp029
  
  CALL pantalla()
  DISPLAY "cgprrp029" AT 4,3 ATTRIBUTE(RED)
  DISPLAY "Panoramico Analisis De Beneficos Por Vendedor" AT 6,15 ATTRIBUTE(BLACK)
  DIALOG ATTRIBUTE (UNBUFFERED)
  INPUT BY NAME p_ano ,p_mes
    BEFORE INPUT
      LET p_ano = YEAR(TODAY)
      LET p_mes = MONTH(TODAY) USING "&&"
      DISPLAY BY NAME p_ano,p_mes
      DISPLAY "MES ",p_mes
    AFTER FIELD p_mes
      SELECT a.fecha_inicio,a.fecha_corte INTO fecha1,fecha_c
      FROM prdtable a
      WHERE a.ano = p_ano and a.mes = p_mes

    AFTER INPUT  
    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF
   
  END INPUT 

 CONSTRUCT criterio ON b.num_emp FROM kvendedor
     BEFORE CONSTRUCT
        CALL cvendedor()
   ON ACTION genera_reporte  
     LET selec= 
      "SELECT DISTINCT b.num_emp , ",
      "       b.nom1_emp,b.apell1_emp,b.nomina ",
      "FROM vetb00002 a,adtb00003 b ",
      "WHERE a.sec_vend = b.num_emp AND ",criterio clipped,
      " AND (b.status_t IS NULL OR b.status_t IN ('I')) ",
      " and CONVERT(CHAR(10),a.fecha_factura,103) between '",fecha1,"' and '",fecha_c ,"' ",
      "ORDER BY b.num_emp "

      PREPARE comando FROM selec
      DECLARE busca CURSOR FOR comando
      OPEN busca 
      
      LET r_output='XLS'
      CALL configureoutput(r_output) RETURNING handler
      START REPORT analisis TO XML HANDLER handler

      DISPLAY "<<  Reporte Generandose... Espere Por Favor >>" AT 19,14
      WHILE STATUS != NOTFOUND 
        FETCH busca INTO vendedor.*
        IF STATUS = NOTFOUND THEN
           EXIT WHILE
        END IF

       OUTPUT TO REPORT analisis(vendedor.*)
     END WHILE
     FINISH REPORT analisis
     EXIT PROGRAM
 END CONSTRUCT
 ON ACTION CANCEL
   EXIT PROGRAM
END DIALOG

END FUNCTION

REPORT analisis(x)

  DEFINE x RECORD
         sec_vend  SMALLINT,
         nombre    CHAR(20),
         apellido  CHAR(20),
         tipo_emp CHAR(2),
         bruto     DECIMAL(12,2),
         neto      DECIMAL(12,2),
         costo_venta DECIMAL(12,2),
         salario   DECIMAL(12,2),
         comision  DECIMAL(12,2),
         descuento DECIMAL(12,2)
  END RECORD,
         nombre_mes CHAR(12)

  DEFINE bruto,descuento,costo_v,salario,comision,total_g,neto,beneficio_b
         DYNAMIC ARRAY  OF DECIMAL(12,2),
         t_bruto,t_descuento,t_costo_v,t_salario,t_comision,t_total_g,t_neto,
         t_beneficio_b,t_beneficio_n,t_regalia DECIMAL(12,2),
         porc_v,regalia,bonificacion,tt_bruto,tt_descuento,tt_costo_v,
         tt_salario,tt_comision,tt_total_g,tt_neto,tt_beneficio_b,
         t_costo,tt_beneficio_n,tt_regalia,tt_incentivo,incentivo,gastos,t_gastos,
         t_incentivo DECIMAL(12,2),
         l SMALLINT
  OUTPUT
   LEFT MARGIN 0
   RIGHT MARGIN 0
   PAGE LENGTH 100
   
  FORMAT
    PAGE HEADER
     SELECT a.descrip INTO nombre_mes FROM mestable a WHERE a.mes = p_mes

      PRINT COLUMN 1, "cgprrp029",
            COLUMN 90, p_compania.nombre,
            COLUMN 200, "PAGINA: ",PAGENO USING "###"
      PRINT COLUMN 1, "JFS",
            COLUMN 90, "    ANALISIS BENEFICIO POR VENDEDOR",
            COLUMN 197,TODAY USING "DD/MM/YY"
      PRINT COLUMN 90, "CORRESPONDIENTE AL PERIODO OCTUBRE - ",nombre_mes clipped,
                       "/",p_ano using "####",
            COLUMN 197, TIME
      PRINT 
"----------------------------------------------------------------------------",
"----------------------------------------------------------------------------------------------------------------------------------------------------------"
      LET l = 40

      DECLARE busca10 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

      FOREACH busca10 INTO fech1, fech2

      --FOR idx =1 TO p_mes
          LET l = l + 14
      --END FOR
      END FOREACH

      PRINT COLUMN l,"   TOTAL",
            COLUMN l+14, "  TOTAL"
      LET l = 40

      DECLARE busca11 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

      FOREACH busca11 INTO fech1,fech2,m_mes

      --FOR idx =1 TO p_mes
          SELECT a.descrip INTO nombre_mes FROM mestable a WHERE a.mes = m_mes
          PRINT COLUMN l, nombre_mes clipped;
          LET l = l + 14
      --END FOR
       END FOREACH

      PRINT COLUMN l,"   ACTUAL",
            COLUMN l+14, "ANTERIOR"
      PRINT 
"----------------------------------------------------------------------------",
"----------------------------------------------------------------------------------------------------------------------------------------------------------"
BEFORE GROUP OF x.sec_vend
  PRINT COLUMN 1,"VENDEDOR: ","(",x.sec_vend using "<<<<",")",
                              x.nombre clipped," ",x.apellido

  SKIP 1 LINE

  LET t_costo = 0
  LET t_bruto = 0
  LET t_descuento = 0
  LET t_neto = 0
  LET t_comision = 0
  LET t_salario = 0
  LET t_beneficio_b = 0
  LET t_beneficio_n = 0
  LET t_regalia = 0
  LET t_costo_v = 0
  LET tt_total_g = 0
  LET t_total_g = 0
  LET tt_costo_v = 0
  FOR idx = 1 TO 12
      LET total_g[idx] = 0
      LET bruto[idx] = 0
      LET neto[idx] = 0
      LET comision[idx] = 0
      LET costo_v[idx] = 0
      LET beneficio_b[idx] = 0
      LET salario[idx] = 0
  END FOR
      DECLARE busca12 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

    FOREACH busca12 INTO fech1,fech2

    END FOREACH

# BUSCA E IMPRIME LAS VENTAS BRUTAS 
DISPLAY "BUSCANDO VENTAS BRUTAS" AT 17,19

  PRINT COLUMN 9, "Ventas Brutas";
    LET l = 40
      DECLARE busca13 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY 1

    FOREACH busca13 INTO fech1,fech2,m_mes

      SELECT SUM(a.sub_total*b.tasa) INTO x.bruto
      FROM vetb00002 a,cgtb00084 b
      WHERE (a.factura=a.factura AND
             a.cod_cia=a.cod_cia AND
             a.ventas = b.ventas AND
             a.sec_vend = x.sec_vend AND
            a.fecha_factura between fech1 AND fech2  AND
            a.status_t IS NULL AND
            a.sec_cliente = a.sec_cliente) AND
            a.tipo_cliente = b.tipo_cliente AND  
            b.mes = m_mes AND b.ano = YEAR(a.fecha_factura) 
           
      IF x.bruto IS NULL THEN
         LET x.bruto = 0
      END IF
      LET bruto[m_mes] = x.bruto
      LET t_bruto = t_bruto + bruto[m_mes]
      PRINT COLUMN l,x.bruto USING "##,###,###";
      LET l = l + 14
  
    END FOREACH
    PRINT COLUMN l, t_bruto USING "##,###,###";
DISPLAY "                      " AT 17,19
DISPLAY "BUSCANDO VENTAS BRUTAS DEL ANO ANTERIOR" AT 17,19
# Busca Ventas Brutas Del Ano Anterior
      SELECT MIN(fecha_inicio) INTO fecha1
      FROM prdtable 
      WHERE ano = p_ano -1
      
      SELECT fecha_corte INTO fecha2
      FROM prdtable
      WHERE ano = p_ano -1 and
            mes = p_mes

      SELECT SUM(a.sub_total*b.tasa) INTO tt_bruto
      FROM vetb00002 a,cgtb00084 b
      WHERE (a.factura=a.factura AND
             a.cod_cia=a.cod_cia AND
             a.ventas = b.ventas AND
             a.sec_vend = x.sec_vend AND
             a.fecha_factura between fecha1 AND fecha2 AND
             a.status_t IS NULL AND
             a.sec_cliente = a.sec_cliente) AND
            a.tipo_cliente = a.tipo_cliente AND 
            b.mes = m_mes AND b.ano = YEAR(a.fecha_factura) 
           
      PRINT COLUMN l+14, tt_bruto USING "##,###,###"
   #-----------------------------------------------------------------------
# BUSCA E IMPRIME EL DESCUENTO
DISPLAY "                                       " AT 17,19
DISPLAY "BUSCANDO DESCUENTO" AT 17,19
  PRINT COLUMN 9, "MENOS:Descuentos S/Ventas";
    LET l = 40
      DECLARE busca14 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

    FOREACH busca14 INTO fech1,fech2,m_mes

    --FOR idx = 1 TO p_mes
    
      SELECT SUM(a.monto_desc*b.tasa) INTO x.descuento
      FROM vetb00002 a,cgtb00084 b
      WHERE (a.factura=a.factura AND
             a.cod_cia=a.cod_cia AND
             a.ventas = b.ventas AND
             a.sec_vend = x.sec_vend AND
             a.fecha_factura between fech1 AND fech2  AND
             a.status_t IS NULL AND
             a.sec_cliente = a.sec_cliente) AND
            a.tipo_cliente = b.tipo_cliente AND 
            b.mes = m_mes AND b.ano = YEAR(a.fecha_factura) 
            
          
      IF x.descuento IS NULL THEN
         LET x.descuento = 0
      END IF
      LET descuento[m_mes] = x.descuento
      LET t_descuento = t_descuento + descuento[m_mes]
      PRINT COLUMN l,x.descuento USING "##,###,###";
      LET l = l + 14
    --END FOR
    END FOREACH
    PRINT COLUMN l, t_descuento USING "##,###,###";
      SELECT SUM(a.monto_desc*b.tasa) INTO tt_descuento
      FROM vetb00002 a,cgtb00084 b
      WHERE (a.factura=a.factura AND
             a.cod_cia=a.cod_cia AND
             a.ventas = b.ventas AND
             a.sec_vend = x.sec_vend AND
             a.fecha_factura between fecha1 AND fecha2 AND
             a.status_t IS NULL AND
             a.sec_cliente = a.sec_cliente) AND
            a.tipo_cliente = b.tipo_cliente AND 
            b.mes = m_mes AND b.ano = YEAR(a.fecha_factura) 
            
      PRINT COLUMN l+14, tt_descuento USING "##,###,###"
#---------------------------------------------------------------------------
# BUSCA E IMPRIME LAS VENTAS NETAS
  SKIP 1 LINE
  PRINT COLUMN 9, "Ventas Netas";
    LET l = 40
      DECLARE busca15 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

    FOREACH busca15 INTO fech1,fech2,m_mes

    --FOR idx = 1 TO p_mes
      LET x.neto = bruto[m_mes] - descuento[m_mes]
      LET neto[m_mes] = x.neto
      LET t_neto = t_neto + neto[m_mes]
      PRINT COLUMN l,x.neto USING "##,###,###";
      LET l = l + 14
    --END FOR
    END FOREACH
    LET tt_neto = tt_bruto - tt_descuento
     PRINT COLUMN l, t_neto USING "##,###,###",
          COLUMN l+14, tt_neto USING "##,###,###"
#---------------------------------------------------------------------------

# BUSCA EL COSTO DE VENTA
DISPLAY "BUSCANDO COSTO DE VENTA" AT 17,19
  PRINT COLUMN 9, "MENOS:Costo De Venta";
    LET l = 40

      DECLARE busca16 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
         
          ORDER BY 1

    FOREACH busca16 INTO fech1,fech2,m_mes

    --FOR idx = 1 TO p_mes
        LET t_costo = 0
        DECLARE busca_cos CURSOR FOR
          SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,
          SUM(b.cantidad)
          FROM  vetb00002 a,vetb00003 b
          WHERE
            (a.factura = b.factura AND
            a.cod_cia = a.cod_cia AND
            a.sec_vend = x.sec_vend AND
            a.fecha_factura BETWEEN fech1 AND fech2 AND
            a.status_t IS NULL and
            a.sec_cliente = a.sec_cliente)
            
         GROUP BY b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec
         ORDER BY b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec

         FOREACH busca_cos INTO cost_vta.*  
           LET x.costo_venta = 0
           IF cost_vta.cod_n = 3 THEN
              SELECT a.costo_lq INTO x.costo_venta
              FROM cttb00036 a,prdtable b
              WHERE (a.fecha_lq BETWEEN b.fecha_inicio AND b.fecha_corte AND
                    a.ventas = "1" AND
                    a.cod_n = cost_vta.cod_n AND
                    a.cod_grupo = cost_vta.cod_grupo AND
                    a.cod_tipo = cost_vta.cod_tipo AND
                    a.cod_sec = cost_vta.cod_sec) AND
                    b.mes = m_mes AND b.ano = p_ano 
           ELSE
              SELECT a.labor+a.material+a.gastos INTO x.costo_venta
              FROM iptb00004 a
              WHERE (a.mes_fin = '12') AND a.ano = p_ano AND
                     a.ventas = "1" AND
                    a.cod_n = cost_vta.cod_n AND
                    a.cod_grupo = cost_vta.cod_grupo AND
                    a.cod_tipo = cost_vta.cod_tipo AND
                    a.cod_sec = cost_vta.cod_sec AND
                    a.status_t IS NULL
            END IF
             IF x.costo_venta IS NULL THEN
                LET x.costo_venta = 0
             END IF
{
PRINT cost_vta.cod_n using "&"," ",cost_vta.cod_grupo using "&"," ",
cost_vta.cod_tipo using "&&"," ",cost_vta.cod_sec using "&&&"," ",
cost_vta.cantidad using "##,###,###"," ",x.costo_venta using "###.###"
}
             LET t_costo = t_costo + (cost_vta.cantidad*x.costo_venta)
          END FOREACH
        LET costo_v[m_mes]= t_costo
        LET t_costo_v = t_costo_v + costo_v[m_mes]
        PRINT COLUMN l, t_costo USING "##,###,###";
        LET l = l + 14
     --END FOR
     END FOREACH
     PRINT COLUMN l, t_costo_v USING "##,###,###";

DISPLAY "                       " AT 17,19
DISPLAY "BUSCANDO EL COSTO DE VENTAS DEL ANO ANTERIOR " AT 17,19
# BUSCA EL COSTO DE VENTAS DEL ANO ANTERIOR 
      DECLARE busca17 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano and fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY 1

    FOREACH busca17 INTO fech1,fech2,m_mes

    --FOR idx = 1 TO p_mes
        DECLARE busca_acos CURSOR FOR
          SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,
          SUM(b.cantidad)
          FROM  vetb00002 a,vetb00003 b,prdtable c
          WHERE
            (a.factura = b.factura AND
            a.cod_cia = a.cod_cia AND
            a.ventas = "1" AND
            a.sec_vend = x.sec_vend AND
            a.fecha_factura BETWEEN c.fecha_inicio AND c.fecha_corte AND
            a.status_t IS NULL and
            a.sec_cliente = a.sec_cliente) and
            c.mes = m_mes and c.ano = p_ano - 1

         GROUP BY b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec
         LET t_costo = 0
         FOREACH busca_acos INTO cost_vta.*  
           LET x.costo_venta = 0
           IF cost_vta.cod_n = 3 THEN
              SELECT a.costo_lq INTO x.costo_venta
              FROM cttb00036 a,prdtable b
              WHERE (a.fecha_lq BETWEEN b.fecha_inicio AND b.fecha_corte AND
                    a.ventas = "1" AND
                    a.cod_n = cost_vta.cod_n AND
                    a.cod_grupo = cost_vta.cod_grupo AND
                    a.cod_tipo = cost_vta.cod_tipo AND
                    a.cod_sec = cost_vta.cod_sec) AND
                    b.mes = m_mes AND b.ano = p_ano - 1
            ELSE
              SELECT AVG(a.labor+a.material+a.gastos) INTO x.costo_venta
              FROM iptb00004 a
              WHERE a.mes_fin = '12' AND a.ano = p_ano -1 AND
                    a.ventas = "1" AND
                    a.cod_n = cost_vta.cod_n AND
                    a.cod_grupo = cost_vta.cod_grupo AND
                    a.cod_tipo = cost_vta.cod_tipo AND
                    a.cod_sec = cost_vta.cod_sec AND
                    a.status_t IS NULL
            END IF
             IF x.costo_venta IS NULL THEN
                LET x.costo_venta = 0
             END IF
             LET t_costo = t_costo + (cost_vta.cantidad*x.costo_venta)

        END FOREACH
        LET tt_costo_v = tt_costo_v + t_costo
    --END FOR
    END FOREACH
     PRINT COLUMN l+13, tt_costo_v USING "###,###,###"
DISPLAY "                                             " AT 17,19
#----------------------------------------------------------------------

# BENEFICIO BRUTO
     SKIP 1 LINE
     PRINT COLUMN 9, "Beneficio Bruto";
     LET l = 40
        DECLARE busca18 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY 1

     FOREACH busca18 INTO fech1,fech2,m_mes

     --FOR idx = 1 TO p_mes
       LET beneficio_b[m_mes] = neto[m_mes] - costo_v[m_mes]
       LET t_beneficio_b = t_beneficio_b + beneficio_b[m_mes]
       PRINT COLUMN l, beneficio_b[m_mes] USING "##,###,###";
       LET l = l + 14
     --END FOR
     END FOREACH
     LET tt_beneficio_b = tt_neto - tt_costo_v
     PRINT COLUMN l, t_beneficio_b USING "##,###,###",
           COLUMN l+14, tt_beneficio_b USING "##,###,###"
#----------------------------------------------------------------------
# IMPRIME EL PORCENTAJE VENTAS NETAS
     PRINT COLUMN 9, "% S/Ventas Netas";
     LET l = 40
        DECLARE busca19 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY 1

     FOREACH busca19 INTO fech1,fech2,m_mes
     --FOR idx = 1 TO p_mes
         LET porc_v = 0
         IF neto[m_mes] != 0 THEN
            LET porc_v = (beneficio_b[m_mes]/neto[m_mes]) * 100
         END IF
         PRINT COLUMN l, porc_v USING "##,###,###";
         LET l = l + 14
     --END FOR
     END FOREACH
     IF tt_neto != 0 THEN
        PRINT COLUMN l+14, (tt_beneficio_b/tt_neto) * 100 USING "##,###,###"
     END IF
#----------------------------------------------------------------------
# GASTOS DIRECTOS
# BUSQUEDA DEL SALARIO DEL VENDEDOR
DISPLAY "BUSCANDO SALARIO NORMAL" AT 17,19
     SKIP 1 LINE
     PRINT COLUMN 5, "GASTOS DIRECTOS"
     SKIP 1 LINE
     PRINT COLUMN 9, "Salario Normal";
     LET l = 40
        DECLARE busca20 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

     FOREACH busca20 INTO fech1,fech2,m_mes

     --FOR idx = 1 TO p_mes
       SELECT SUM(a.valor) INTO x.salario
       FROM notb00008 a 
       WHERE a.num_emp = x.sec_vend AND
             a.cod_mov in(1,5) AND
             a.fecha between fech1 AND fech2
             

       IF x.salario IS NULL THEN
          LET x.salario = 0
       END IF
       LET total_g[m_mes] = total_g[m_mes] + x.salario
       LET t_total_g = t_total_g + total_g[m_mes]
       LET salario[m_mes] = x.salario
       LET t_salario = t_salario + x.salario
       PRINT COLUMN l, x.salario USING "##,###,###";
       LET l = l + 14
     --END FOR
     IF STATUS = NOTFOUND THEN
        EXIT FOREACH
     END IF

     END FOREACH
# Busca el Salario del Ano Anterior
       SELECT SUM(a.valor) INTO tt_salario
       FROM notb00008 a ,prdtable b
       WHERE  b.mes <= m_mes AND
              b.ano = p_ano -1 AND
             (a.num_emp = x.sec_vend AND
             a.cod_mov in(1,5) AND
             a.fecha BETWEEN b.fecha_inicio AND b.fecha_corte)
             
     IF tt_salario IS NULL THEN
        LET tt_salario = 0
     END IF
     LET tt_total_g = tt_total_g + tt_salario
     PRINT COLUMN l,t_salario USING "##,###,###",
           COLUMN l+14, tt_salario USING "##,###,###"
#-----------------------------------------------------------------------
# BUSCA LA COMISION PAGADA EN EL MES PARA EL VENDEDOR
DISPLAY "BUSCANDO COMISIONES S/VENTAS" AT 17,19
     PRINT COLUMN 9, "Comisiones S/Ventas";
     LET l = 40
      DECLARE busca21 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

     FOREACH busca21 INTO fech1,fech2,m_mes

   
       SELECT SUM(a.valor) INTO x.comision
       FROM notb00008 a 
       WHERE a.num_emp = x.sec_vend AND
             a.cod_mov = 40 AND
             a.fecha BETWEEN fech1 AND fech2
             
       
       IF x.comision IS NULL THEN
          LET x.comision = 0
       END IF
       LET total_g[m_mes] = total_g[m_mes] + x.comision
       LET t_total_g = t_total_g + total_g[m_mes]
       LET comision[m_mes] = x.comision
       LET t_comision = t_comision + x.comision
       PRINT COLUMN l, x.comision USING "##,###,###";
   
       LET l = l + 14
   
    END FOREACH
       SELECT SUM(a.valor) INTO tt_comision
       FROM notb00016 a ,prdtable b
       WHERE  b.mes <= p_mes AND
              b.ano = p_ano - 1 AND
             (a.num_emp = x.sec_vend AND
             a.cod_mov = 40 AND
             a.fecha BETWEEN b.fecha_inicio AND b.fecha_corte) 
             
    IF tt_comision IS NULL THEN
       LET tt_comision = 0
    END IF
    LET tt_total_g = tt_total_g + tt_comision
    PRINT COLUMN l,t_comision USING "##,###,###",
          COLUMN l+14, tt_comision USING "##,###,###"
#-----------------------------------------------------------------------
# BUSCA EL INCENTIVO SOBRE VENTAS PAGADA EN EL MES PARA EL VENDEDOR
DISPLAY "BUSCANDO INCENTIVO S/VENTAS" AT 17,19
     PRINT COLUMN 9, "Incentivos Varios";   
     LET l = 40
        DECLARE busca22 CURSOR FOR
         SELECT MIN(fecha_inicio), MAX(fecha_corte), mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          GROUP BY mes
          ORDER BY mes

     FOREACH busca22 INTO fech1,fech2,m_mes

      SELECT SUM(a.valor) INTO incentivo
       FROM notb00008 a
       WHERE a.num_emp = x.sec_vend AND    
             a.cod_mov = 37 AND
             a.fecha between fech1 AND fech2             
      
 
       IF incentivo IS NULL THEN
          LET incentivo = 0
       END IF
       LET total_g[m_mes] = total_g[m_mes] + incentivo
       LET t_total_g = t_total_g + total_g[m_mes]
       LET t_incentivo = t_incentivo + incentivo
       PRINT COLUMN l, incentivo USING "##,###,###";
   
       LET l = l + 14
    END FOREACH
# Busca la fecha de ingreso del empleado
       SELECT a.fech_efec INTO fecha_ingreso
       FROM adtb00003 a
       WHERE a.num_emp = x.sec_vend

       SELECT SUM(a.valor) INTO tt_incentivo
       FROM notb00016 a ,prdtable b
       WHERE  b.mes <= p_mes AND 
              b.ano = p_ano - 1 AND
             (a.num_emp = x.sec_vend AND
             a.cod_mov = 37 AND
             a.fecha BETWEEN b.fecha_inicio AND b.fecha_corte)
            
    IF tt_incentivo IS NULL THEN
       LET tt_incentivo = 0
    END IF
    LET tt_total_g = tt_total_g + tt_incentivo
    PRINT COLUMN l,t_incentivo USING "##,###,###",
          COLUMN l+14, tt_incentivo USING "##,###,###"
#-----------------------------------------------------------------------
# REGALIA, BONIFICACION

    PRINT COLUMN 9, "Regalia, Bonifi.";
    LET l = 40
        DECLARE busca23 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY 1

    FOREACH busca23 INTO fech1,fech2,m_mes

      LET regalia = (salario[m_mes] + comision[m_mes]) / 12

      IF (fecha2 - fecha_ingreso)/365 > 3 THEN
          LET bonificacion = (((salario[m_mes] + comision[m_mes]) / 23.83) * 60)/12
      ELSE
          LET bonificacion = (((salario[m_mes] + comision[m_mes]) / 23.83) * 48)/12
      END IF

      IF bonificacion IS NULL THEN
         LET bonificacion = 0
      END IF
      IF regalia IS NULL THEN
         LET regalia = 0
      END IF
      LET total_g[m_mes] = total_g[m_mes] + bonificacion + regalia
      LET t_total_g = t_total_g + total_g[m_mes]
      LET t_regalia = t_regalia + regalia + bonificacion
      PRINT COLUMN l, regalia+bonificacion USING "##,###,###";
      LET l = l + 14
    END FOREACH
# BUSCA BONIFICACION DEL ANO ANTERIOR
    SELECT a.valor INTO bonificacion
    FROM notb00008 a 
    WHERE 
          a.num_emp = x.sec_vend AND
          a.cod_mov = 33 AND
          YEAR(a.fecha) = YEAR(TODAY) - 1 
    IF bonificacion IS NULL THEN
       LET bonificacion = 0
    END IF

# BUSCA REGALIA DEL ANO ANTERIOR
    SELECT a.valor INTO tt_regalia  
    FROM notb00008 a,notb00010 b
    WHERE b.mes = 12 AND 
          b.ano = p_ano - 1 AND
         (a.num_emp = x.sec_vend AND
          a.cod_mov = 32 AND
          a.num_nomi = b.num_nomi) AND
          b.tipo_emp = x.tipo_emp
    IF tt_regalia IS NULL THEN
       LET tt_regalia = 0
    END IF      
    LET tt_total_g = tt_total_g + tt_regalia + bonificacion
    PRINT COLUMN l, t_regalia USING "##,###,###",
          COLUMN l+14, bonificacion + tt_regalia USING "##,###,###"
#-----------------------------------------------------------------------
# ASIGNACION DE VEHICULOS, DEPRECIACION, MANTENIMIENTO, VIAJES Y DIETAS

  #PRINT COLUMN 9, "Asignacion  Vehiculo"
  #PRINT COLUMN 9, "Depreciacion Vehiculo"
  #PRINT COLUMN 9, "Mantenimiento Vehiculo"
  #PRINT COLUMN 9, "Viajes y Dietas"
  LET t_gastos = 0
  LET l=40
  SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7112'
  PRINT COLUMN 9, descripcion_cta;
        DECLARE busca_gastos CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7112') AND a.cod_sec = x.sec_vend AND
                    a.cod_aux = '01' and
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS NULL 

              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos      
          END FOREACH
           PRINT COLUMN l+14, t_gastos USING "##,###,###"
            LET t_gastos = 0
  
           LET l = 40  
        SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7117'
        PRINT COLUMN 9, descripcion_cta;
        
        DECLARE busca_gastos1 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos1 INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7117') AND a.cod_sec = x.sec_vend AND
                   a.cod_aux ='01' and
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS null 
          
              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos
              LET t_gastos=t_gastos+gastos      
          END FOREACH
          PRINT COLUMN l+14, t_gastos USING "##,###,###"
        LET l = 40  
        SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7204'
        PRINT COLUMN 9, descripcion_cta;
        
        DECLARE busca_gastos2 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos2 INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7204') AND a.cod_sec = x.sec_vend AND
                   a.cod_aux = '01' AND
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS null 
          
              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos      
          END FOREACH
          PRINT COLUMN l+14, t_gastos USING "##,###,###"
          LET l = 40
          LET t_gastos=0
        SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7205'
        PRINT COLUMN 9, descripcion_cta;
        
        DECLARE busca_gastos3 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos3 INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7205') AND a.cod_sec = x.sec_vend AND
                   a.cod_aux = '01' AND
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS null 
          
              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos      
          END FOREACH
          PRINT COLUMN  l+14, t_gastos USING "##,###,###"
          LET l = 40
        SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7206'
        PRINT COLUMN 9, descripcion_cta;
        
        DECLARE busca_gastos4 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos2 INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7206') AND a.cod_sec = x.sec_vend AND
                   a.cod_aux = '01' AND
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS null 
          
              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos      
          END FOREACH
          PRINT COLUMN l+14, t_gastos USING "##,###,###"
          LET l = 40
          LET t_gastos=0
        SELECT a.descripcion INTO descripcion_cta FROM cgtb00001 a WHERE a.cuenta_no = '7336'
        PRINT COLUMN 9, descripcion_cta;
        
        DECLARE busca_gastos5 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          
          ORDER BY fecha_inicio

          FOREACH busca_gastos5 INTO fech1,fech2,m_mes

             SELECT SUM(debito-credito) INTO gastos FROM cgtb00004 a
             WHERE (a.cuenta_no = '7336') AND a.cod_sec = x.sec_vend AND
                   a.cod_aux = '01' AND
                   a.fecha BETWEEN fech1 AND fech2 AND
                   a.status_t IS null 
          
              IF gastos IS NULL THEN
                 LET gastos = 0
              END IF
              LET tt_total_g = tt_total_g + gastos
              LET t_gastos = t_gastos + gastos
              PRINT COLUMN l,gastos USING "##,###,###";
                    
              LET total_g[m_mes]=total_g[m_mes]+ gastos      
          END FOREACH
          PRINT COLUMN l+14, t_gastos USING "##,###,###"
#-----------------------------------------------------------------------
  SKIP 1 LINE
  PRINT COLUMN 9, "TOTAL GASTOS" ;
  LET l = 40
        DECLARE busca24 CURSOR FOR
         SELECT fecha_inicio,fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

  FOREACH busca24 INTO fech1,fech2,m_mes

    PRINT COLUMN l, total_g[m_mes] USING "##,###,###";
    LET l = l + 14
  END FOREACH
  PRINT COLUMN l,t_total_g USING "##,###,###",
        COLUMN l+14, tt_total_g USING "##,###,###"

  PRINT COLUMN 9,"% S/VENTAS NETAS";
  LET l = 40
        DECLARE busca25 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
         
          ORDER BY 1

  FOREACH busca25 INTO fech1,fech2,m_mes

  --FOR idx = 1 TO p_mes

    IF neto[m_mes] != 0 THEN
       PRINT COLUMN l, (total_g[m_mes]/neto[m_mes]) * 100 USING "##,###,###";
    END IF
    LET l = l + 14
  --END FOR
  END FOREACH
  IF t_neto != 0 THEN
     PRINT COLUMN l, (t_total_g/t_neto) * 100 USING "##,###,###",
           COLUMN l+14, (tt_total_g/tt_neto) * 100 USING "##,###,###"
  END IF

  LET l = 40
  PRINT COLUMN 9,"% S/VENTAS BRUTAS";
        DECLARE busca26 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

  FOREACH busca26 INTO fech1,fech2,m_mes

 -- FOR idx = 1 TO p_mes
    IF bruto[m_mes] != 0 THEN
       PRINT COLUMN l, (total_g[m_mes]/bruto[m_mes]) * 100 USING "##,###,###";
    END IF
    LET l = l + 14
  --END FOR
  END FOREACH
  IF t_bruto != 0 THEN
     PRINT COLUMN l,(t_total_g/t_bruto) * 100 USING "##,###,###",
           COLUMN l+14, (tt_total_g/tt_bruto) * 100 USING "##,###,###"
  END IF
  PRINT 
"----------------------------------------------------------------------------",
"---------------------------------------------------------------------------------------------------------------------------------------------"
  PRINT COLUMN 9, "BENEFICIO NETO";
  LET l = 40
        DECLARE busca27 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

  FOREACH busca27 INTO fech1,fech2,m_mes

  --FOR idx = 1 TO p_mes
    LET t_beneficio_n = t_beneficio_n + (beneficio_b[m_mes]-total_g[m_mes])
    PRINT COLUMN l, beneficio_b[m_mes] - total_g[m_mes] USING "##,###,###";
    LET l = l + 14
  --END FOR
  END FOREACH
  PRINT COLUMN l, t_beneficio_n USING "##,###,###",
        COLUMN l+14, tt_beneficio_b - tt_total_g USING "##,###,###"
  PRINT COLUMN 9,"% S/VENTAS NETAS";
  LET l = 40
      DECLARE busca28 CURSOR FOR
         SELECT fecha_inicio, fecha_corte, mes
           FROM  prdtable
          WHERE ano = p_ano AND fecha_corte <= fecha_c
          ORDER BY 1

  FOREACH busca28 INTO fech1,fech2,m_mes

  --FOR idx = 1 TO p_mes
    IF neto[m_mes] != 0 THEN
       PRINT COLUMN l, ((beneficio_b[m_mes]-total_g[m_mes]) / neto[m_mes]) * 100
                    USING "##,###,###";
    END IF
    LET l = l + 14
  --END FOR
  END FOREACH

  LET tt_beneficio_n = tt_beneficio_b - tt_total_g
  IF t_neto != 0 THEN
     PRINT COLUMN l, (t_beneficio_n / t_neto) * 100 USING "##,###,###",
           COLUMN l+14, (tt_beneficio_n / t_neto) *100 USING "##,###,###"
  END IF
      PRINT 
"----------------------------------------------------------------------------",
"---------------------------------------------------------------------------------------------------------------------------------------------"

AFTER GROUP OF x.sec_vend
SKIP TO TOP OF PAGE
END REPORT