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
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cTitulo | Caracter | Titulo a ser Exibido | X | ||
| 02 | aMensagens | Array | Mensagens a serem Exibida na Tela | X | ||
| 03 | aBotões | Array | Botões a serem Exibido na Tela | X | ||
| 04 | bValid | Bloco de Código. | Função a ser Executada no Encerramento da Tela | |||
| 05 | nAltura | Numérico | Altura da Tela em Pixels | 250 | ||
| 06 | nLargura | Numérico | Largura da Tela em Pixels | 250 |
Retorno
| Retorno | Tipo | Descrição |
Exemplo
#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
Informações adicionais
|
Posição |
Tipo |
Descrição |
|
aBotões[nI,01] |
Numérico |
Tipo SBUTTON() |
|
aBotões[nI,02] |
Boolean |
Habilitado? .T. ou .F. |
|
aBotões[nI,03] |
Bloco de Código |
Ação a ser Executada |
Informações adicionais
|
aMensagens |
Máximo de 7 |
|
aBotões |
Máximo de 5 |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎