FIN701MR - Possibilita Anexar Rotinas Próprias para o Gestor

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