{
-------------------------------------------------------------------------------
PROGRAMA             :  CPPRRP012
SISTEMA              :  Cuenta por Pagar
OBJETIVO             :  Mayor Auxiliar   
PROGRAMADOR          :  Tadeo A. Ferreras          
FECHA REALIZACION    :  Marzo 1, 1993 
-------------------------------------------------------------------------------
}
GLOBALS "cpprgb000.4gl"

    DEFINE mov CHAR(1)
    DEFINE idx_1, idx_2, idx_3 SMALLINT 
    DEFINE fecha_inicial, fecha_final DATE  
    DEFINE salir, salir2,salir1, salir3, tipo_venta CHAR(1) 
    DEFINE selec5, selec6 CHAR(1500) 
    DEFINE cod_sp SMALLINT

    DEFINE movto RECORD
           cod_sp  SMALLINT,
           cod_sp_sec    SMALLINT,
           nom_sup       CHAR(45),
           total_fac     DECIMAL(12,2),
           total_p       DECIMAL(12,2),
           total_np      DECIMAL(12,2) 
    END RECORD

    DEFINE movto1 RECORD
           cod_sp        SMALLINT,
           cod_sp_sec    SMALLINT,
           total_p       DECIMAL(12,2) 
    END RECORD

    DEFINE movto2 RECORD
           cod_sp        SMALLINT,
           cod_sp_sec    SMALLINT,
           total_np      DECIMAL(12,2) 
    END RECORD

FUNCTION cpprrp012()

#   WHENEVER ERROR CONTINUE

    OPTIONS
       FORM LINE 8,
       ERROR LINE 23,
       COMMENT LINE 21

    OPEN FORM cpfmrp012 FROM "cpfmrp012"
    DISPLAY FORM cpfmrp012
    CALL pantalla()
    DISPLAY "cpprrp012" AT 4,3
    DISPLAY " Saldos en Cero " AT 6,31

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

  INPUT BY NAME fecha_final,cod_sp  

        BEFORE FIELD fecha_final
               LET fecha_final = today

        AFTER FIELD fecha_final 
              IF fecha_final is null THEN  
                 LET numero_msg = 16
                 CALL msg(numero_msg)
                 NEXT FIELD fecha_final 
              END IF
    
         AFTER FIELD cod_sp
              IF cod_sp is null THEN  
                 LET numero_msg = 16
                 CALL msg(numero_msg)
                 NEXT FIELD cod_sp      
              END IF
          
        END INPUT 
              IF int_flag THEN
                 LET numero_msg = 2
                 CALL msg(numero_msg)
                 LET int_flag = false
                 RETURN
              END IF

  CONSTRUCT criterio ON a.cod_sp_sec FROM
                        cod_sp_sec
# Busca Balances de los suplidores

LET selec5 = 
    "SELECT UNIQUE a.cod_sp,a.cod_sp_sec,b.nom_sp,SUM(a.valor) ",
    " FROM cptb00001 a,cotb00001 b ",
    " WHERE ",criterio clipped," AND a.fecha_orig < ? AND ",
    "      a.cod_sp = b.cod_sp AND a.cod_sp_sec = b.cod_sp_sec AND ",
    " a.status_t is null AND a.cod_sp = ? AND a.tipo_doc != 'CP'     ",
    " GROUP BY 1,2,3 ORDER BY 1,2 "

    DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
            ATTRIBUTE (REVERSE,BOLD)

 PREPARE b_balance FROM selec5
 DECLARE c_balance CURSOR FOR b_balance
 OPEN c_balance USING fecha_final,cod_sp

LET selec4 = 
    "SELECT UNIQUE a.cod_sp,a.cod_sp_sec,SUM(a.valor) FROM cptb00001 a ",
    "WHERE ",criterio clipped," AND a.status_t is null AND a.cod_sp = ? AND ",
    "        a.tipo_doc = 'CP' AND a.aplica_a IS NULL AND a.fecha_orig < ? ",
    " GROUP BY 1,2 ORDER BY 1,2 "

    DISPLAY "                                                " AT 19,14
    DISPLAY "<< Buscando Otras Inform... Espere Por Favor. >>" AT 19,14
            ATTRIBUTE (REVERSE,BOLD)

 PREPARE comando  FROM selec4
 DECLARE busca SCROLL CURSOR FOR comando  
 OPEN busca USING cod_sp,fecha_final

LET selec3 = 
    "SELECT UNIQUE a.cod_sp,a.cod_sp_sec,SUM(a.valor) FROM cptb00001 a ",
    "WHERE ",criterio clipped," AND a.status_t is null AND a.cod_sp = ? AND ",
    "       a.tipo_doc = 'CP' AND a.aplica_a IS NOT NULL AND a.fecha_orig < ? ",
    " GROUP BY 1,2 ORDER BY 1,2 "

    DISPLAY "                                                " AT 19,14
    DISPLAY "<< Buscando Otras Inform... Espere Por Favor. >>" AT 19,14
            ATTRIBUTE (REVERSE,BOLD)

 PREPARE comando1 FROM selec3
 DECLARE busca1 SCROLL CURSOR FOR comando1  
 OPEN busca1 USING cod_sp,fecha_final

   START REPORT reporte12 TO "C:\\archivo"
   DISPLAY "                                                " AT 19,14
   DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
           AT 19,14 ATTRIBUTE (REVERSE) 

   LET salir = "N"    
   WHILE salir != "S"
         FETCH c_balance INTO movto.*
         IF status = notfound THEN
            LET salir = "S"
            EXIT WHILE
          END IF

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

           LET movto.total_p  = 0
           LET movto.total_np = 0

   LET idx_1 = 1
   LET salir1 = "N"    
   WHILE salir1 != "S"
         FETCH ABSOLUTE idx_1 busca INTO movto1.*
         IF status = notfound THEN
            LET salir1 = "S"
            LET idx_1 = 1
            EXIT WHILE
          END IF

          LET idx_1 = idx_1 + 1

         IF movto.cod_sp     = movto1.cod_sp      AND 
            movto.cod_sp_sec = movto1.cod_sp_sec  THEN

            LET movto.total_p  = movto1.total_p
            LET salir1 = "S"
            LET idx_1 = 1
            EXIT WHILE
          END IF
     END WHILE

   LET idx_2 = 1
   LET salir2 = "N"    
   WHILE salir2 != "S"
         FETCH ABSOLUTE idx_2 busca1 INTO movto2.*
         IF status = notfound THEN
            LET salir2 = "S"
            LET idx_2 = 1
            EXIT WHILE
          END IF

          LET idx_2 = idx_2 + 1

         IF movto.cod_sp     = movto2.cod_sp      AND 
            movto.cod_sp_sec = movto2.cod_sp_sec  THEN

            LET movto.total_np  = movto2.total_np
            LET salir2 = "S"
            LET idx_2 = 1
            EXIT WHILE
          END IF
     END WHILE
     
       IF movto.total_fac + (movto.total_p - movto.total_np) = 0 THEN
         OUTPUT TO REPORT reporte12(movto.*)  
       END IF

    END WHILE
      FINISH REPORT reporte12 
   CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION

    REPORT reporte12(x)

    DEFINE x RECORD
           cod_sp  SMALLINT,
           cod_sp_sec    SMALLINT,
           nom_sup       CHAR(45),
           total_fac     DECIMAL(12,2),
           total_p       DECIMAL(12,2),
           total_np      DECIMAL(12,2) 
    END RECORD

    DEFINE registro INTEGER
    DEFINE p_numero,p_zona CHAR(10)
    DEFINE doble_on CHAR(2)
    DEFINE doble_off CHAR(2)
    DEFINE negrillas_on CHAR(6)
    DEFINE negrillas_off CHAR(6)
    DEFINE comp_on CHAR(2)
    DEFINE comp_off CHAR(2) 
    DEFINE doce CHAR(2)
    DEFINE normal CHAR(2) 
    DEFINE hora CHAR(5)
    DEFINE tipo CHAR(2) 
    DEFINE imp_cli CHAR(1)
    DEFINE balance1,balancea,balanceb DECIMAL(12,2)
    DEFINE credito, debito, tcredito, tdebito,  tbalance,
           limite, b_balance  DECIMAL(12,2) 

    OUTPUT
       TOP MARGIN 0
       LEFT MARGIN 0
       BOTTOM MARGIN 3

    ORDER BY x.cod_sp_sec

    FORMAT
      PAGE HEADER

        LET doble_on =  ASCII 14
        LET doble_off = ASCII 20
        LET negrillas_on = ASCII 27, ASCII 69
        LET negrillas_off = ASCII 27, ASCII 70
        LET comp_on = ASCII 15
        LET comp_off = ASCII 18
        LET doce = ASCII 27, ASCII 77
        LET normal = ASCII 27, ASCII 80

        LET hora = time
        LET lj = (110 - LENGTH(p_companias.nombre CLIPPED))/2

           PRINT COLUMN   1, comp_on
#          PRINT COLUMN   1, doce, negrillas_on clipped
           PRINT COLUMN   1, "cpprrp012",
                 COLUMN  lj, p_companias.nombre CLIPPED,
                 COLUMN 103, "Pag. ",pageno using "###"
           PRINT COLUMN  39, "Sistema de Cuentas por Pagar",
                 COLUMN 101, today using "dd/mm/yyyy"

           PRINT COLUMN  46, " Saldos en Cero ",   
                 COLUMN 106, hora

           PRINT COLUMN  46," Al ", fecha_final using "dd/mm/yy"
           PRINT comp_off

             PRINT COLUMN   1, "Suplidor",
                   COLUMN  65, "Balance"
           SKIP 1 LINES

      ON EVERY ROW
        
             IF registro IS NULL THEN
                 LET registro = 0
             END IF
                 LET registro = registro + 1

             PRINT COLUMN   1, x.cod_sp using "&&","-",
                               x.cod_sp_sec using "&&&&","    ", 
                               x.nom_sup clipped, 
                   COLUMN  60,  x.total_fac + (x.total_p - x.total_np)
                               using "(((,(((,(((.##)"
            ON LAST ROW
         SKIP 1 LINE
         PRINT COLUMN   1, negrillas_on clipped 
         PRINT COLUMN  27, "Total Registros Impresos ==> ",
                            registro using "###,###" 
         PRINT COLUMN   1, negrillas_off 

         LET tdebito = 0
         LET tcredito = 0
         LET tbalance = 0

         PRINT normal 

     END REPORT