Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

05. EXEMPLO DE UTILIZAÇÃO

https://tdn.totvs.com/x/2Jl3I


Bloco de código
languagevb
themeMidnight
firstline1
titleF080EXEA
linenumberstrue
#INCLUDE "Totvs.ch"

User Function F060ALTPOR

	Local aRetPor 		:= {}
	Local cBanco 	:= GetMV("MV_F0601",,"01A")
	Local cAgencia 	:= GetMV("MV_F0602",,"000001")
	Local cConta 	:= GetMV("MV_F0603",,"0000000001")
	Local cPort060 	:= PARAMIXB[1]//código do banco atual 
	Local cAgen060 	:= PARAMIXB[2]//código da agencia atual
	Local cConta060 := PARAMIXB[3]//código da conta atual
	Local cNewSitua := PARAMIXB[4]//Situação de cobrança informada pelo usuário l

	FRV->(DbSetOrder(1))

	If cSituant != cNewSitua
		If FRV->(Dbseek(xFilial("FRV")+cNewSitua))
			// Usa Banco = Sim 
			If FRV->FRV_BANCO == "1" .And. (!Empty(cPort060) .Or. !Empty(cAgen060) .Or. !Empty(cConta060))
				AADD(aRetPor,cBanco)
				AADD(aRetPor,cAgencia)
				AADD(aRetPor,cConta)					
			Else
				AADD(aRetPor,cPort060)
				AADD(aRetPor,cAgen060)
				AADD(aRetPor,cConta060)
			Endif
		Else
			AADD(aRetPor,cPort060)
			AADD(aRetPor,cAgen060)
			AADD(aRetPor,cConta060)		
		Endif
	Endif 

Return(aRetPor)

...