{
==============================================================================
    PROGRAMA    : CGPRRP012
    SISTEMA     : Sistema de Contabilidad General
    OBJETIVO    : Imprimir Balance para las Cuentas con Estado_M Activo
    PROGRAMADOR : Tadeo A. Ferreras
    FECHA       : Octubre 05, 1993
==============================================================================
}
GLOBALS
  "cgprgb000.4gl"

 DEFINE estado2 RECORD
   estado_a     CHAR(8),
   balance_ant  DECIMAL(12,2),
   actividad    DECIMAL(12,2),
   balance_act  DECIMAL(12,2),
   descripcion  VARCHAR(40),
   grupo        VARCHAR(40),
   orden_grupo SMALLINT,
   tasa        DEC(10,2),
   mes         VARCHAR(20),
   variacion   DEC(12,2),
   porc_v      DEC(10,2)
  END RECORD,
  p_ano,p_mes SMALLINT,
  chp_mes CHAR(2),
  estado,tipo_estado VARCHAR(50),
  cb ui.ComboBox

  DEFINE fecha_inicial,fecha_final DATE
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 cgprrp012()
END MAIN
   
  FUNCTION cgprrp012()
  LET int_flag = FALSE

  OPTIONS
     FORM LINE 9
     
   OPEN FORM cgfmrp008 FROM "cgfmrp013"
   DISPLAY FORM cgfmrp008
   DISPLAY "cgprrp012" AT 4,3
   DISPLAY "Catalogo / Estado-A" AT 6,30

   LET tipo_papel = 1
   CALL msgrp000(tipo_papel)


   INPUT BY NAME p_ano,p_mes,estado,tipo_estado
    BEFORE INPUT
      LET cb = ui.ComboBox.forName("formonly.estado")
      LET p_ano = YEAR(TODAY) USING "&&&&"
      SELECT MAX(a.mes) INTO p_mes FROM cgtb00016 a WHERE a.ano=p_ano
      LET chp_mes=p_mes USING "&&"

      DISPLAY chp_mes TO p_mes
      DISPLAY BY NAME p_ano
    AFTER input
    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
     END IF
     SELECT AVG (a.tasa) INTO estado2.tasa FROM cgtb00084 a
     WHERE a.mes = p_mes AND a.ano=p_ano AND a.ventas IN (2,3)
     SELECT a.descrip INTO estado2.mes FROM mestable a WHERE a.mes =p_mes
      
     EXIT INPUT
     END INPUT
     CALL seleccionarsalida() RETURNING r_output
      DISPLAY "tipo estado ",tipo_estado," descripcion estado ",estado
      DECLARE busco CURSOR FOR
      { PRIMER ESTADO =============================================}
        SELECT a.estado_a,'0',SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),b.descripcion,b.grupo,
              b.orden_grupos
        FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
         a.estado_a is not null  AND
              a.ano = p_Ano AND a.mes = p_mes AND a.estado_a = b.estado 
         WHERE     
              b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
        GROUP BY a.estado_a,b.descripcion,b.grupo,b.orden_grupos,b.signo

        UNION
        SELECT a.estado_a,ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0',b.descripcion,b.grupo,
              b.orden_grupos
        FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
         a.estado_a is not null  AND
              a.ano = p_Ano-1 AND a.mes = p_mes AND a.estado_a = b.estado 
         WHERE     
              b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
        GROUP BY a.estado_a,b.descripcion,b.grupo,b.orden_grupos,b.signo
        
      { SEGUNDO ESTADO ===============================================}
        UNION
             SELECT a.estado_m,'0',SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),b.descripcion,b.grupo,
              b.orden_grupos
        FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON

              a.ano = p_Ano AND a.mes = p_mes AND a.estado_m = b.estado 
         WHERE     
              b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
        GROUP BY a.estado_m,b.descripcion,b.grupo,b.orden_grupos,b.signo

        UNION
        SELECT a.estado_m,ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0',b.descripcion,b.grupo,
              b.orden_grupos
        FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
        
              a.ano = p_Ano-1 AND a.mes = p_mes AND a.estado_m = b.estado 
         WHERE     
              b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
        GROUP BY a.estado_m,b.descripcion,b.grupo,b.orden_grupos,b.signo

        UNION
            
        SELECT '339',0,SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),'Beneficios Bruto s/Ventas','Beneficios:',
              '4'
        FROM cgtb00016 a   LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado  AND b.tipo_estado = tipo_estado    
               
         WHERE a.ano = p_Ano AND a.mes = p_mes AND     
               a.estado_m in('301','302','311','312','313','314','329','321','322') AND
               b.descripcion_estado = estado 
        GROUP BY b.signo
        
        UNION
        SELECT '339',ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0','Beneficios Bruto s/Ventas','Beneficios:',
              '4'
        FROM cgtb00016 a   LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado  AND b.tipo_estado = tipo_estado    
               
        WHERE a.ano = p_Ano-1 AND a.mes = p_mes AND     
               a.estado_m in('301','302','311','312','313','314','329','321','322') AND
               b.descripcion_estado = estado 
        GROUP BY b.signo
        UNION
            
        SELECT '369',0,SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),'Beneficios Operativos','Beneficios Operativos:',
              '6'
        FROM cgtb00016 a   LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado  AND b.tipo_estado = tipo_estado    
               
         WHERE a.ano = p_Ano AND a.mes = p_mes AND     
               a.estado_m in('301','302','311','312','313','314','329','321','322','341','342','343','344','345') AND
               b.descripcion_estado = estado 
        GROUP BY b.signo

       UNION
        SELECT '369',ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0','Beneficios Operativos','Beneficios Operativos:',
              '6'
        FROM cgtb00016 a   LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado  AND b.tipo_estado = tipo_estado    
               
        WHERE a.ano = p_Ano-1 AND a.mes = p_mes AND     
               a.estado_m in('301','302','311','312','313','314','329','321','322','341','342','343','344','345') AND
               b.descripcion_estado = estado 
        GROUP BY b.signo
        ORDER BY b.orden_grupos,b.grupo

       LET idx=1                 
       FOREACH busco INTO estado2.*

            IF int_flag THEN
                LET numero_msg = 2
                CALL msg(numero_msg)
                LET int_flag = FALSE
                FINISH REPORT reporte_12
                EXIT FOREACH
            END IF 
          IF idx=1 THEN
             IF fgl_report_loadCurrentSettings(estado) THEN 
                CALL fgl_report_selectDevice(r_output)                  
                LET handler = fgl_report_commitCurrentSettings()
             ELSE
                EXIT PROGRAM   
             END IF
                   
             START REPORT reporte_12 TO XML HANDLER HANDLER
          END IF
 
          OUTPUT TO REPORT reporte_12(estado2.*,fecha_inicial,fecha_final)
          LET idx = idx+1
         END FOREACH
         IF idx > 1 THEN
         FINISH REPORT reporte_12
         ELSE
          CALL fgl_Winmessage("INFO","NOEXISTEN DATOS","INFO")
         END IF
      END FUNCTION

REPORT reporte_12(x,fecha1,fecha2)
   DEFINE x RECORD
          estado_a     CHAR(8),
          balance_ant  DECIMAL(12,2),
          actividad    DECIMAL(12,2),
          balance_act  DECIMAL(12,2),
          descripcion  VARCHAR(40),
          grupo        VARCHAR(40),
          orden_grupo SMALLINT,
          tasa        DEC(10,2),
          mes         VARCHAR(20),
          variacion   DEC(12,2),
          porc_v      DEC(10,2)
  
   END RECORD,
   total_g_actual,total_g_anterior,balance_actual,balance_anterior,total_b_anterior,total_b_actual
    DEC(12,2)
   DEFINE fecha1,fecha2 DATE,
   p_ano_ant SMALLINT,
   chdescripcion STRING
   
    DEFINE hora CHAR(5)


ORDER BY x.orden_grupo,x.grupo,x.estado_a
FORMAT
PAGE HEADER
        LET hora = TIME
        LET p_ano_ant = p_Ano -1
        LET chdescripcion = cb.getTextOf(estado)
  BEFORE GROUP OF x.grupo
     LET total_b_anterior=0
     LET total_b_actual=0
     PRINTX x.grupo
     
  AFTER GROUP OF x.estado_a
         LET balance_actual = GROUP SUM(x.balance_act)
         LET balance_anterior = GROUP SUM(x.balance_ant)
         
         LET x.variacion = balance_actual-balance_anterior
         LET x.porc_v = (x.variacion/balance_anterior)*100
         PRINTX x.estado_a,x.descripcion, 
               balance_actual ,balance_anterior,
               x.actividad ,
               x.balance_act,
              p_compania.nombre,hora,p_ano,p_mes,p_ano_ant,
             estado2.mes,x.tasa,x.mes,x.variacion,x.porc_v,chdescripcion,tipo_estado
             
   AFTER GROUP OF x.grupo
     
     LET total_b_actual=GROUP SUM(x.balance_act)
     LET total_b_anterior=GROUP SUM(x.balance_ant)
     PRINTX total_b_anterior,total_b_actual
  ON LAST ROW
     LET total_g_actual=SUM(x.balance_act)
     LET total_g_anterior=SUM(x.balance_ant)
     PRINTX total_g_actual,total_g_anterior  
END REPORT