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 - Filial
    @param Paramixb[2] - SE1->E1_PREFIXO - Prefixo
    @param Paramixb[3] - SE1->E1_NUM - Numero
    @param Paramixb[4] - SE1->E1_PARCELA - Parcela
    @param Paramixb[5] - SE1->E1_TIPO - Tipo
    @param Paramixb[6] - SE1->E1_CLIENTE - Cliente
    @param Paramixb[7] - SE1->E1_LOJA - Loja
    @param Paramixb[8] - nValRec - Valore recebido do título
    @param Paramixb[9] - dBaixa - Data de baixa do título
 
/*/
User Function F200BXTI()
    
    Local lRet := .F.
    Local aDadosTit := Paramixb
    
    //RegraAqui deve ser criada a regra que definidefine se o título será baixado ou não.
    lRet := .T.(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 cValToChar(aDadosTit[8]) + " Data da baixa: " + DTOS(aDadosTit[9])
     )
Return lRet