FormBatch - Resultado

FormBatch

 

 

Descrição

Apresenta Caixa/Tela com a Possibilidade de Customizações dos Botões e Mensagens

Sintaxe

FormBatch( <cTitulo>, <aMensagens>, <aBotões>, <bValid>, <nAltura>, <nLargura> )

Parâmetros

ParNomeTipoDescriçãoDefaultObgRef
01cTituloCaracterTitulo a ser Exibido X
02aMensagensArrayMensagens a serem Exibida na Tela X
03aBotoesArrayBotões a serem Exibido na Tela X
04bValidBloco de CódigoFunção a ser Executada no Encerramento da Tela
05nAlturaNuméricoAltura da Tela em Pixels 250 
06nLarguraNuméricoLargura da Tela em Pixels 520

Retorno

RetornoTipoDescrição
NilNuloSem Retorno

Exemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#INCLUDE "TOTVS.CH"
 
User Function FormBatch()
Local cArqTxt 		:= ''
 
Local nOpc			:= 0
 
Local aMensagens 	:= {}	//Máximo de 7
Local aBotoes 		:= {}	//Máximo de 5
 
 
aAdd( aMensagens, 'Mensagem 01')
aAdd( aMensagens, 'Mensagem 02')
aAdd( aMensagens, 'Mensagem 03')
aAdd( aMensagens, 'Mensagem 04')
aAdd( aMensagens, 'Mensagem 05')
aAdd( aMensagens, 'Mensagem 06')
aAdd( aMensagens, 'Mensagem 07')
 
aAdd( aBotoes, { 1, .T., { || nOpc := 1, FechaBatch() } } )
aAdd( aBotoes, { 2, .T., { || nOpc := 2, FechaBatch() } } )
aAdd( aBotoes, { 3, .T., { || nOpc := 3, FechaBatch() } } )
aAdd( aBotoes, { 4, .T., { || nOpc := 4,  } } )
aAdd( aBotoes, { 5, .T., { || FechaBatch() } } )
 
 
FormBatch( 'Minha tela Customizada', aMensagens, aBotoes, {|| Iif( MsgYesNo( 'Executa?', 'UniversoADVPL' ), nOpc := 5,  ) }, 600, 800 )
 
If nOpc == 1
 
MsgInfo( 'Ok', 'UniversoADVPL' )
 
ElseIf nOpc == 2
 
MsgInfo( 'Cancelar', 'UniversoADVPL' )
 
ElseIf nOpc == 3
 
MsgInfo( 'Excluir', 'UniversoADVPL' )
 
ElseIf nOpc == 4
 
MsgInfo( 'Incluir', 'UniversoADVPL' )
 
ElseIf nOpc == 5
 
MsgInfo( 'Param.', 'UniversoADVPL' )
 
Endif
 
Return( Nil )

 

Resultado

 

FormBatch - Resultado

FormBatch – Resultado

 

Informação Adicional

PosiçãoTipoDescrição
aBotões[nI,01]NuméricoTipo SBUTTON()
aBotões[nI,02]BooleanHabilitado? .T. ou .F.
aBotões[nI,03]Bloco de CódigoAção a ser Executada

aMensagens Máximo de 7
aBotões Máximo de 5

 

0 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *