Crie um job e escreva o código abaixo:
static void HelloWorldPrint(Args _args)
{
// Hello World. Imprime texto na tela, mostrando o dia de hoje.
Date data;
str texto;
;
data = today();
texto = strfmt("Hello world! Hoje é %1", data);
print texto;
pause;
}
Crie um job e escreva o código abaixo:
static void HelloWorldConsultaClientes(Args _args)
{
// Hello World. Lista o primeiro cliente do banco de dados.
CustTable custTable;
;
while select firstOnly AccountNum,Name,Address from custTable
{
info(strfmt("Código %1 | Nome %2 | Endereço %3",
custTable.AccountNum,
custTable.Name,
custTable.Address));
}
}
Crie um job e escreva o código abaixo:
static void HelloWorldBoxes(Args _args)
{
Dialogbutton db;
;
db = box::yesNoCancel("Escolha Yes, No or Cancel.", dialogButton::Yes, "Example");
if (db == dialogButton::Yes)
{
// Mostrando uma MessageBox.
box::info("We chose Yes");
}
else if (db == dialogButton::No)
{
// Mostrando uma janela com Log de Informações.
error( "We chose No (error icon)");
warning( "We chose No (warning icon)");
info( "We chose No (info icon)");
}
else if (db == dialogButton::Cancel)
{
// O código abaixo irá parar a execução.
throw error("Levantando uma exception.");
}
}