×
Linguagem de Programação ADVPL
Perguntas Tela de cadastro
- de019
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 66
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14275
por de019
Tela de cadastro foi criado por de019
Boa tarde Galera... Tenho um fonte onde ele abre um cadastro mas quando dou "OK" ele grava, mas continua com os dados no campo, como faço para zerar os campos ou sair da tela.
Obrigado
User Function Cadast()
Local cOldArea := Select()
Local cAlias := "SZ4"
Private cCadastro := "COMPLEMENTO"
Private aRotina := { { "Pesquisar" ,"AxPesqui" ,0,1},;
{ "Visualizar" ,"AxVisual" ,0,2},;
{ "Incluir" ,"AxInclui" ,0,3},;
{ "Alterar" ,"AxAltera" ,0,3},;
{ "Relatorio" ,"U_DFLR006" ,0,6}}
//{ "Excluir" ,"AxDeleta" ,0,5},;
//abre a tela de manutenção
MBrowse(,,,,cAlias,,,,,,)
//volta pra area inicial
dbSelectArea(cOldArea)
Return
Obrigado
User Function Cadast()
Local cOldArea := Select()
Local cAlias := "SZ4"
Private cCadastro := "COMPLEMENTO"
Private aRotina := { { "Pesquisar" ,"AxPesqui" ,0,1},;
{ "Visualizar" ,"AxVisual" ,0,2},;
{ "Incluir" ,"AxInclui" ,0,3},;
{ "Alterar" ,"AxAltera" ,0,3},;
{ "Relatorio" ,"U_DFLR006" ,0,6}}
//{ "Excluir" ,"AxDeleta" ,0,5},;
//abre a tela de manutenção
MBrowse(,,,,cAlias,,,,,,)
//volta pra area inicial
dbSelectArea(cOldArea)
Return
Por favor Acessar ou Registrar para participar da conversa.
- THALESCOTR
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 124
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14301
por THALESCOTR
Respondido por THALESCOTR no tópico Tela de cadastro
Bom dia Andre,
você conseguiu ajustar?
se não, experimente usar a função RegToMemory.
RegToMemory("SZ4", IIF(INCLUI,.T.,.F.))
Att
Thales
você conseguiu ajustar?
se não, experimente usar a função RegToMemory.
RegToMemory("SZ4", IIF(INCLUI,.T.,.F.))
Att
Thales
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.094 segundos