Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

Chave

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


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviç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 é permitir alterar os dados bancários contidos nas variáveis cPort060 (Portador - Banco), cAgen060 (Agência), cConta060 (Conta)

03. PARÂMETROS

Nome

Tipo

Descrição

[1] cPort060

Caractere

Código do Portador (banco)

[2] cAgen060

Caractere

Código da Agência bancária

[3] cConta060

Caractere

Código da Conta bancária

[4] cSituacao

Caractere

Situação da Carteira

04. RETORNO

Nome

Tipo

Descrição

aRetPor

Array

Array com os novos dados bancários

aRetPor[1]CaractereNovo Código do Portador (banco)
aRetPor[2]CaractereNovo Código da Agência bancária
aRetPor[3]CaractereNovo Código da Conta bancária

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)





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>