Desenvolvimento

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (405 palavras )
  • Download(s) : 0
  • Publicado : 11 de abril de 2013
Ler documento completo
Amostra do texto
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
SetPrompt_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 umdeterminado 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 entrarautomaticamente 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 ValueOf (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(Caminhose 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" – (Sevalor 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)
AppendSelect+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...
tracking img