;** RqCagFac *******************************************************************
;*  Digitacao de Requisicao de Estoque (Grade) - Por Corte                     *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 03/06/2014 por Bruno Carvalho
;Ultima Alteracao: 15/11/2014 por Andrey Fillipe
;Motivo Alteracao: Ajustes MODOFILTRAR, MODOFILTRARINCLUI e MODOFILTRARATIVO

;*******************************************************************************
;* Rotina para setar filtros                                                   *
;*******************************************************************************
Proc SetaFiltro()

FNUMCORTE   = "Not Blank"
FVSDGDTINI  = BlankDate()
FVSDGDTFIM  = BlankDate()

NUMCORTE    = FNUMCORTE
VSDGDTINI   = FVSDGDTINI
VSDGDTFIM   = FVSDGDTFIM

REGRAFILTRO = "CORTE"

Return True
EndProc ;SetaFiltro()

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

MODOFILTRARATIVO  = True  
MODOFILTRAR       = True
MODOFILTRARINCLUI = True
MODOFILTRATODOS   = False

Play "RqCabecg"

Release Vars All
Release Procs All