Cabeçalho

FormBatch

Autor: Eurai Criado: 01/01/2016 Atualizado: 09/05/2025 Mensagens

Postagem

Descrição

FormBatch - 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

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
formbatch_-_resultado_01

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