{
-------------------------------------------------------------------------------
PROGRAMA             :  CCPRRP017
OBJETIVO             :  Devoluciones de Almacen sin notas de creditos
PROGRAMADOR          :  Ing. Juan F. Soto
FECHA REALIZACION    :  Enero 16, 1997.
-------------------------------------------------------------------------------
}
GLOBALS "ccprgb000.4gl"

    DEFINE fecha_inicio,fecha_corte DATE 

FUNCTION ccprrp017()
DEFINE salir2,salir,salir1 CHAR(1)
DEFINE prt_datos RECORD 
       num_doc    INTEGER,
       fecha      DATE,
       factura    INTEGER,
       cod_sp_sec SMALLINT,
       nombre     CHAR(30)
END RECORD

       
#   WHENEVER ERROR CONTINUE

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

    OPEN FORM ccfmrp017 FROM "ccfmrp017"
    DISPLAY FORM ccfmrp017
    CALL pantalla()
    DISPLAY "ccprrp017" AT 4,3
    DISPLAY "Clientes sin Ventas" AT 6,30

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)


  INPUT BY NAME fecha_inicio,fecha_corte
      AFTER FIELD fecha_corte
         IF fecha_corte is null THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD fecha_corte
         END IF

      AFTER FIELD fecha_inicio
         IF fecha_inicio is null THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD fecha_inicio
         END IF
    
   END INPUT 
     IF int_flag THEN
        LET numero_msg = 2
        CALL msg(numero_msg)
        LET int_flag = false
        RETURN
     END IF
    DECLARE busca CURSOR FOR
    SELECT UNIQUE a.num_doc,a.fecha,a.fact_no,a.cod_sp_sec   
    FROM iptb00006 a
    WHERE
         a.cod_mov = 12 AND a.status_t is null AND 
         a.fecha BETWEEN fecha_inicial AND fecha_corte AND
         a.cod_sp_Sec NOT IN (select sec_cliente FROM cctb00001 WHERE
         a.tipo_doc = "AV" AND 
         a.fecha_orig BETWEEN fecha_inicio AND fecha_corte AND
         a.status_t IS NULL)


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

   FOREACH busca INTO prt_datos.*
     OUTPUT TO REPORT devolucion(prt_datos.*)
   END FOREACH
 FINISH REPORT devolucion
 CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION

REPORT devolucion(x)
DEFINE x RECORD 
       num_doc    INTEGER,
       fecha      DATE,
       factura    INTEGER,
       cod_sp_sec SMALLINT,
       nombre     CHAR(30)
END RECORD

    DEFINE doble_on CHAR(2)
    DEFINE doble_off CHAR(2)
    DEFINE negrillas_on CHAR(2)
    DEFINE negrillas_off CHAR(2)
    DEFINE comp_on CHAR(2)
    DEFINE comp_off CHAR(2) 
    DEFINE doce CHAR(2)
    DEFINE normal CHAR(2) 
    DEFINE hora CHAR(5)

    OUTPUT
       TOP MARGIN 0
       LEFT MARGIN 0
       BOTTOM MARGIN 2

    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 = (96 - LENGTH(p_companias.nombre CLIPPED))/2
#          PRINT COLUMN   1, doce ,negrillas_on 
           PRINT COLUMN   1, "ccprrp017",
                 COLUMN  lj, p_companias.nombre CLIPPED,
                 COLUMN  89, "Pag. ",pageno using "###"
           PRINT COLUMN  33, "Sistema de Cuentas por Cobrar",
                 COLUMN  89, today using "dd/mm/yy"
           PRINT COLUMN  25, "DEVOLUCIONES DE ALMACEN SIN NOTAS DE CREDITOS"

           SKIP 1 LINE
           PRINT COLUMN 2,"------------------------------------------------",
                          "------------------------------------------------",
                          "------------------------------------------------"
           PRINT COLUMN 2, "Numero",
                 COLUMN 32, "Numero"
                  
           PRINT COLUMN 2, "Devolucion",
                 COLUMN 20, "Fecha",
                 COLUMN 32, "Factura" #,
                 #COLUMN 
     END REPORT