Como tratar decréscimo de títulos receber com CNAB

Olá pessoal,

Existe um problema onde, quando vamos fazer um retorno bancário com arquivo CNAB, e alguns títulos com decréscimo (E1_DECRESC) não são baixados corretamente, o título fica como baixado parcialmente.

Na verdade, quando colocamos o decréscimo, o título está endo baixado totalmente e o campo E1_SALDO deve ficar com 0 (zero)

Com este ponto de entrada, conseguimos ajustar esta questão. Ele está presente no fonte FINA200.PRW. Veja o exemplo:

User Function F200VAR()
Local aArea	 := GetArea()
Local aAreaSE1	 := SE1->(GetArea())
Local cNumTitulo := Alltrim(Paramixb[1][1])
Local cVariavel  := Alltrim(Paramixb[1][4])
Local xDesp 	 := val(substr(Paramixb[1][16],189,13))/100
Local cAliasSE1  := GetNextAlias()

dbSelectArea("SE1")                
SE1->( dbSetOrder(16) )         
cChave:=
SE1->(dbSeek(xFilial("SE1")+cNumTitulo))

If SE1->E1_DECRESC > 0

	nVR := nValRec + SE1->E1_DECRESC
	nAbatim += SE1->E1_DECRESC
	If nValRec < nVR	
		nValRec := nVR
	EndIf	
	
EndIf

RestArea(aAreaSE1)
RestArea(aArea)
Return

User Function F200VAR()

Local aArea := GetArea()

Local aAreaSE1 := SE1->(GetArea())

Local cNumTitulo := Alltrim(Paramixb[1][1])

Local cVariavel := Alltrim(Paramixb[1][4])

Local xDesp := val(substr(Paramixb[1][16],189,13))/100

Local cAliasSE1 := GetNextAlias()

dbSelectArea("SE1")

SE1->( dbSetOrder(16) )

cChave:=

SE1->(dbSeek(xFilial("SE1")+cNumTitulo))

If SE1->E1_DECRESC > 0

nVR := nValRec + SE1->E1_DECRESC

nAbatim += SE1->E1_DECRESC

If nValRec < nVR

nValRec := nVR

EndIf

RestArea(aAreaSE1)

RestArea(aArea)

Return

Dica rápida!

Espero que ajude…

Fonte http://tdn.totvs.com/display/public/mp/F200VAR+-+CNAB+a+receber+–+11718;jsessionid=D25C0F2E1CB99B21135FBAAAA98369EA

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Como tratar decréscimo de títulos receber com retorno CNAB1 minutos de leitura

Fernando Bueno

Últimos posts por Fernando Bueno (exibir todos)