Árvore de páginas

Versões comparadas

Chave

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

...

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

https://tdn.totvs.com/x/pMJ3I


Bloco de código
languagevb
themeMidnight
firstline1
titleF060ALTPOR e FFKDLIB
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)


#INCLUDE "Totvs.ch"

User Function FFKDLIB()

Local cChave    := FK7->FK7_CHAVE
Local cIdDoc    := FK7->FK7_IDDOC

//Tratamento a ser efetuado pela customização.
//Este Ponto de Entrada não espera retorno no fonte Padrão.

Return





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>