Histórico da Página

#INCLUDE "Totvs.ch"
 
/*/{Protheus.doc} F200TIT()
 
    Ponto de Entrada para tratamentos de dados após baixa de títulos do retorno de cobrança da rotina FINA200 -
    função fA200Ger
 
/*/
User Function F200TIT()

Local aAreaSE1 := GetArea()

DbSelectArea("SE1")

If (SE1->E1_SALDO == 0 .and. cNumTit == SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA)
	RecLock("SE1",.f.)
	SE1->E1_BAIXA  := dBaixa
	SE1->E1_DTALT  := dDataBase
	If cBanco <> "341"
		SE1->E1_HISTBXHIST := "VLR. REC. BCO. "+cBanco
	Else
		SE1->E1_HISTBXHIST := "COBR DIRETA ITAU"
	EndIf
	MsUnlock()
EndIf	

RestArea(aAreaSE1)

Return