Histórico da Página

#Include "Protheus.ch"

/*/{Protheus.doc} F240GAVE
Ponto de entrada para manipulação do filtro do borderô de pagamentos.

@type       function
@author     TOTVS
@since      29/01/2021
@return     array, array com 13 posições contendo os filtros que serão aplicados na rotina borderô de pagamentos
/*/
User Function F240GAVE() As Array
    
    Local aVars As Array

    Local nOpc  As Numeric

    aVars   := paramIXB //parâmetro passado via ExecBlock
    nOpc    := aVars[13]

    // Aqui é possível escrever sua lógica de programação para definição do filtro
    If !(IsBlind()) 
        If MsgYesNo("Deseja continuar com a execução da rotina?", "Borderô de Pagamento")
            nOpc := 1
        EndIf
    Else
        nOpc := 1
    EndIf

    If nOpc == 1
        aVars[01] := "000001"
        aVars[02] := CToD("29/01/2021")
        aVars[03] := CToD("29/01/2021")
        aVars[04] := 99999.99
        aVars[05] := "001"
        aVars[06] := "00001"
        aVars[07] := "00"
        aVars[09] := "01"
        aVars[11] := "31"
        aVars[12] := "20"
        aVars[13] := nOpc
    EndIf

Return aVars