A função FWInputBox permite que o programa interaja com o usuário, pedindo a ele que digite uma informação ou dado. Ela exibe uma mensagem de instrução e uma caixa de texto onde o usuário irá digitar a informação solicitada buy generic viagra nz. A caixa fica ativa até que o usuário clique sobre o botão OK ou Cancelar.

Com esta função não é necessário criar uma tela com uma caixa de texto e botões, seu uso é muito simples.

Sintaxe:
FWInputBox(cMensagem, cCampoTexto)

Onde:
cMensagem = É a mensagem que irá aparecer logo acima do campo texto

cCampoTexto = É o campo que irá receber o conteúdo, este pode já vir preenchido ou em branco.

Exemplificando:

#include "protheus.ch"

User function InputBox()
	Local oError := ErrorBlock({|e|ChecErro(e)}) //Para exibir um erro mais amigável
	Local cRetorno := ""
	Local nRetorno := 0

	cRetorno := FWInputBox("Informe o texto", "")

	MsgInfo(cRetorno)

	//ou

	Begin Sequence
		nRetorno := Val(FWInputBox("Escolha um numero [1-100]:", ""))	
		nRetorno += 10
		MsgInfo( cValToChar(nRetorno) ) //O retorno será o valor inserido mais 10
	End Sequence

	ErrorBlock(oError)

Return

 


0 comentário

Deixe uma resposta