Descrição
ParamBox - Montar tela de parâmetro. Seleção de dados e filtro de dados. ParamBox.
|
Sintaxe
| ParamBox( aParametros,cTitle,aRet,bOk,aButtons,lCentered,nPosx,nPosy, oDlgWizard, cLoad, lCanSave,lUserSave ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
aParametros |
Array |
|
|
X |
|
| 02 |
cTitle |
Caracter |
|
|
X |
|
| 03 |
aRet |
Array |
|
|
X |
|
| 04 |
bOk |
Bloco de codigo |
|
|
|
|
| 05 |
aButtons |
Array |
|
|
|
|
| 06 |
lCentered |
Logical |
|
|
|
|
| 07 |
nPosx |
NUmerico |
|
|
|
|
| 08 |
nPosy |
NUmerico |
|
|
|
|
| 09 |
oDlgWizard |
Objeto |
|
|
|
|
| 10 |
cLoad |
Caracter |
|
|
|
|
| 11 |
lCanSave |
Logical |
|
|
|
|
| 12 |
lUserSave |
Logical |
|
|
|
|
Retorno
Exemplo
#INCLUDE "TOTVS.CH"
User Function ParamBox()
Local aPergs := {}
Local aRet := {}
Local lRet := .T.
Local cCodRec := Space( TamSX3('AE8_RECURS')[1] )
Local cProjeto := Space( TamSx3('AFU_PROJET')[1] )
Local dDataini := Ctod(' / / ')
Local dDataFin := Ctod(' / / ')
Local cArquivo := ''
Local cDelimit := ''
Local cCbShowApr := ''
Local cCbParc := ''
Local aComboParc:= {'1=Cond. de Pagto','2=Número de Parcelas'}
aAdd( aPergs ,{1,'Recurso : ' ,cCodRec ,'@!' ,'.T.','AE8','.T.',60,.T.})
aAdd( aPergs ,{1,'Projeto : ' ,cProjeto ,'@!' ,'.T.','AF8','.T.',60,.F.})
aAdd( aPergs ,{1,'Dt. Inicial : ' ,dDataini ,'@D' ,'.T.', ,'.T.',50,.T.})
aAdd( aPergs ,{1,'Dt. Final : ' ,dDataFin ,'@D' ,'.T.', ,'.T.',50,.T.})
aAdd( aPergs ,{6,'Arquivo : ' ,cArquivo,'@!','.T.','.T.' ,80,.T.,'Arquivos CSV (*.CSV) | *.CSV','C:\'})
aAdd( aPergs ,{1,'Caracter Demitador : ',cDelimit,'@!','.T.',,'.T.' ,10,.T.})
aAdd( aPergs ,{2, 'Mostra Aprovada : ',1, {'Nao', 'Sim', 'Somente'}, 50,'.T.',.T.})
aAdd(aParamBox,{2,'Parcelar Por','2' ,aComboParc,70,'',.T.}) // MV_PAR04
aAdd(aParamBox,{10,'Fornecedor',Space(6),'SA1',40,'C',6,'.T.'})
aAdd(aParamBox,{11,'Motivo','','.T.','.T.',.T.})
If !ParamBox( aPergs, 'Parametros ',@aRet,,,,,,, FUNNAME() + '-' + ProcName(0),,.T. )
Return( Nil )
Endif
cCodRec := aRet[1]
cProjeto := aRet[2]
dDataini := aRet[3]
dDatafin := aRet[4]
cArquivo := aRet[5]
cDelimit := aRet[6]
cCbShowApr := aRet[7]
cCbParc := aRet[8]
Return( Nil )
Resultado
Informações adicionais
|
Parâmetro 1:
1 - MsGet
[2] : Descricao
[3] : String contendo o inicializador do campo
[4] : String contendo a Picture do campo
[5] : String contendo a validacao
[6] : Consulta F3
[7] : String contendo a validacao When
[8] : Tamanho do MsGet
[9] : Flag .T./.F. Parametro Obrigatorio ?
2 - Combo
[2] : Descricao
[3] : Numerico contendo a opcao inicial do combo
[4] : Array contendo as opcoes do Combo
[5] : Tamanho do Combo
[6] : Validacao
[7] : Flag .T./.F. Parametro Obrigatorio ?
3 - Radio
[2] : Descricao
[3] : Numerico contendo a opcao inicial do Radio
[4] : Array contendo as opcoes do Radio
[5] : Tamanho do Radio
[6] : Validacao
[7] : Flag .T./.F. Parametro Obrigatorio ?
[8] : String contendo a validacao When
4 - CheckBox ( Com Say )
[2] : Descricao
[3] : Indicador Logico contendo o inicial do Check
[4] : Texto do CheckBox
[5] : Tamanho do Radio
[6] : Validacao
[7] : Flag .T./.F. Parametro Obrigatorio ?
5 - CheckBox ( linha inteira )
[2] : Descricao
[3] : Indicador Logico contendo o inicial do Check
[4] : Tamanho do Radio
[5] : Validacao
[6] : Flag .T./.F. Parametro Obrigatorio ?
6 - File
[2] : Descricao
[3] : String contendo o inicializador do campo
[4] : String contendo a Picture do campo
[5] : String contendo a validacao
[6] : String contendo a validacao When
[7] : Tamanho do MsGet
[8] : Flag .T./.F. Parametro Obrigatorio ?
[9] : Texto contendo os tipos de arquivo
Ex.: "Arquivos .CSV |*.CSV"
[10]: Diretorio inicial do cGetFile
[11]: PARAMETROS do cGETFILE
[12]: Se .T. apresenta árvore do servidor
7 - Montagem de expressao de filtro
[2] : Descricao
[3] : Alias da tabela
[4] : Filtro inicial
[5] : Opcional - Clausula When Botao Editar Filtro
8 - MsGet Password
[2] : Descricao
[3] : String contendo o inicializador do campo
[4] : String contendo a Picture do campo
[5] : String contendo a validacao
[6] : Consulta F3
[7] : String contendo a validacao When
[8] : Tamanho do MsGet
[9] : Flag .T./.F. Parametro Obrigatorio ?
9 - MsGet Say
[2] : String Contendo o Texto a ser apresentado
[3] : Tamanho da String
[4] : Altura da String
[5] : Negrito (logico)
10- Range (experimental)
[2] : Descricao
[3] : Range Inicial
[4] : ConsultaF3
[5] : Largo em pixels do Get
[6] : Tipo
[7] : Tamanho do campo (em chars)
[8] : String contendo a validacao When
11-MultiGet (MEMO)
[2] : Descrição
[3] : Inicializador padrão
[4] : String contendo o VALID
[5] : String contendo o WHEN
[6] : Flag .T./.F. Parametro Obrigatorio ?
12-Filtro de usuario por rotina
[2] : Titulo do filtro
[3] : Alias da tabela onde vai aplicar o filtro
[4] : Expressao de filtro de inicio
[5] : String contendo o WHEN
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
