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

Precisa de ajuda sobre este assunto em seu ERP?

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!

Se você está procurando um Dashboard Financeiro COMPLETO para integrar ao seu ERP conheça este BI 100% pronto

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

Últimos posts por Fernando Bueno (exibir todos)

Indicadores Logísticos para Gestão de Transportadoras - 4 de dezembro de 2024
O Papel Estratégico do Setor Logístico na Cadeia de Suprimentos - 20 de novembro de 2024
Logística Reversa: Estratégia Sustentável e Lucrativa para Empresas - 20 de novembro de 2024