Histórico da Página

#INCLUDE "Totvs.ch"
 
/*/{Protheus.doc} F200BXTI()
 
    Ponto de Entrada para tratamentos  de baixa títulos do retorno dependente do valor da rotina FINA200 -
    função fA200Ger
    @param Paramixb[1] - SE1->E1_FILIAL - FilialFilial do título
    @param Paramixb[2] - SE1->E1_PREFIXO - PrefixoPrefixo do título
    @param Paramixb[3] - SE1->E1_NUM - NumeroNúmero do título
    @param Paramixb[4] - SE1->E1_PARCELA - ParcelaParcela do título
    @param Paramixb[5] - SE1->E1_TIPO - TipoTipo de título
    @param Paramixb[6] - SE1->E1_CLIENTE - ClienteCódigo do cliente
    @param Paramixb[7] - SE1->E1_LOJA - LojaCódigo da loja
    @param Paramixb[8] - Valor nValRecrecebido, -contido Valoreno recebidoarquivo dode títuloretorno
    @param Paramixb[9] - Data dBaixada -baixa Dataretornada deno baixaarquivo dode títuloretorno
 
/*/
User Function F200BXTI()
    Local lRet := .F.
    Local aDadosTit := Paramixb
    
    //Aqui deve ser criada a regra que define se o título será baixado ou não.
    lRet := (AllTrim(aDadosTit[3]) == "FINA200VA" .And. AllTrim(aDadosTit[4]) == "1")
    
    MsgAlert("Titulo a ser baixado: " +aDadosTit[1]+aDadosTit[2]+aDadosTit[3]+aDadosTit[4]+aDadosTit[5]+aDadosTit[6]+aDadosTit[7] + " Valor a ser baixado: " + cValToChar(aDadosTit[8]) + " Data da baixa: " + DTOS(aDadosTit[9]))
Return lRet