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] - Filial do título
    @param Paramixb[2] - Prefixo do título
    @param Paramixb[3] - Número do título
    @param Paramixb[4] - cMotBx Parcela do título
    @param Paramixb[5] - motivoTipo dade baixatítulo
    @param Paramixb[26] - nTipoBx Código do cliente
    @param Paramixb[7] - tipoCódigo da baixa    
	 loja
    @param Paramixb[8] - Valor recebido, contido no arquivo de retorno
    @param Paramixb[39] - nMoedaBco - Moeda do BancoData da baixa retornada no arquivo de retorno
 
/*/
User Function F090VLEXF200BXTI()
    Local cMotBx lRet := .F.
    Local aDadosTit := ParamIxb[1]
    Local nTipoBx   := ParamIxb[2]
	Local nMoedaBco := ParamIxb[3]

	If MovBcoBx(cMotBx,.T.)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")
    
    SE2->(DBGoto((cAliasSE2)->NUM_REG))
        (cAliasSE2)->(DbDelete())
    EndIf
    
Return

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