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

💬 Ainda tá complicado resolver seu problema? Entre nos grupos de whatsapp que tá cheio de analistas top pra compatilhar ideias!

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)

Leave a Reply Cancelar resposta