ParamBox
Autor: Eurai Criado: 27/10/2024 Atualizado: 27/10/2024Descrição
| 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
| Retorno | Tipo | Descrição |
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! 😎