Histórico da Página

...

Linha de Produto:	Microsiga Protheus®
Segmento:	BackofficeServiços
Módulo:	Financeiro
Função:	FINA060 - Transferências
Requisito/Story/Issue (informe o requisito relacionado) :	DSERFINR-24744

02. DESCRIÇÃO

A finalidade do ponto de entrada F060ALTPOR é para permitir alterar os dados bancários contidos nas variáveis cPort060 (Portador - Banco), cAgen060 (Agência), cConta060 (Conta)

...

Bloco de código

language	vb
theme	Midnight
firstline	1
title	F080EXEA
linenumbers	true

#INCLUDE "Totvs.ch"

User Function F060ALTPOR

	Local aBcoaRetPor 		:= {}
	Local cBanco 	:= GetMV("MV_F0601",,"CARCBCO")
	Local cAgencia 	:= GetMV("MV_F0602",,"CARCAGEN")
	Local cConta 	:= GetMV("MV_F0602F0603",,"CARCCTA")
	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) .And. Empty(cAgen060) .And. Empty(cConta060) 
		
				AADD(aBcoaRetPor,cBanco)
				AADD(aBcoaRetPor,cAgencia)
				AADD(aBcoaRetPor,cConta)					
			
			Else
			
				AADD(aBcoaRetPor,cPort060)
				AADD(aBcoaRetPor,cAgen060)
				AADD(aBcoaRetPor,cConta060)
			
			Endif
		
		Else
		
			AADD(aBcoaRetPor,cPort060)
			AADD(aBcoaRetPor,cAgen060)
			AADD(aBcoaRetPor,cConta060)		
		
		Endif
		
	Endif 

Return(aBcoaRetPor)

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

02. DESCRIÇÃO