Desenvolvimento

Comandos para Programação Correta

Salvar ao sair do campo
Set Auto_Save_State To True

Deixar o campo somente em MAIUSCULO
Set Capslock_State To True

Colocar Prompt no campo
Set Prompt_Object To (NomeDoCampo(Current_Object))

Imprimir ao Clicar no Botão
Send RunModelReport To (NomedaReportView)

Sair ao clicar no botão.
Send Close_Panel

Limitar o numero de caracteres de um determinado campo.
Set Numeric_Mask Item 0 To 2 0

Enviar um caixa de erro
Send Stop_Box””

Enviar um caixa de informação
Send Info_Box “”

Deixar o campo restriro valor do mesmo entrar automaticamente sem poder altera-lo.
Set Shadow_State To True

Criar uma variavel
Local String, Number, Date, Integer…. L_Variavel Obtém o valor da tabela passa para a variável criada.
Get Value Of (Tabela_Campo(Caminho se existir(Current_Object))) To L_Variável (obs mostrar caminho do campo)

Define o valor selecionado da Tabela(Campo) para outra Tabela.Campo
Set value Of (Campo(Caminho se existir(Current_Object))) To Tabela.Campo (obs mostrar caminho do campo)

Limpa o buffer
Clear Nome da tabela
Clear TGPARAM

Combo List – Pick List
Set Value Item 0 To "0 - Todos" – (Se valor for zero ira trazer “TODOS”)

Procedure Combo_Fill_List

Local Integer L_Item Local String L_Descr L_origem

Send combo_add_item "A - Ativo" Send combo_add_item "P - Passivo" Send combo_add_item "D - Despesa" Send combo_add_item "R - Receita" Send combo_add_item "J - Prejuizo" Send combo_add_item "L - Lucro" Send combo_add_item "T - Resultado"

End_Procedure

Append Select

Append Selection ' And {CPP110A1V.GRUPO} = L_Grupo
Passa o valor que digitou na variavel (L_Grupo) Para a tabela(Cpp110a1v para o campo Grupo)
Append Select+Trim

If (Trim(L_Grupo)) Ne "0" Append Selection ' And {CPP110A1V.GRUPO} = " '(Trim(L_Grupo)) '"'

TRIM: Remove os espaços em branco.

INCLUINDO UMA FUNÇÃO

Function Selection Returns