Histórico da Página

Descrição

FIN701MR - Possibilita anexar rotinas próprias para o gestor

Exemplos

#INCLUDE

'TOTVS.ch'

#INCLUDE

"FINA701.ch"

User

Function

FIN701MR()

Local

aCombo4

:=

{STR0018,

STR0019,

STR0020

}

//"Operações"###"Transferência

C/C"###"Postergar

Vencimento"

Local

aCombo5

:=

{"AllwaysTrue()",

"",

""

}

Local

aCombos

:=

{aCombo4,

aCombo5

}

Return

aCombos

Idioma

Português(Brasil)

Versões

Microsiga Protheus 10 e Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

aCombo4, aCombo5

Retorno

aCombos

Eventos de chamada do Ponto de Entrada

If ExistBlock("FIN701MR")

aCombos

:=

ExecBlock("FIN701MR",

.F.,

.F.,

{aCombo4,

aCombo5

})

If

Len(aCombos[1

])

==

Len(aCombos[2

])

aCombo4

:=

aCombos[1

]

aCombo5

:=

aCombos[2

]

EndIf
EndIf

Variáveis

Local aCombo4 := {STR0018,

STR0019,

STR0020

}

Local

aCombo5

:=

{"AllwaysTrue()",

"",

""

}

Local

aCombos

:=

{aCombo4,

aCombo5

}

Programa

Fonte

FINA701