PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Principais comandos para iniciantes
Principais comandos para iniciantes
Iniciado por BOLLER, mar., 07 2020 5:29 PM - Sem resposta
Membro registado
3.173 mensagems
Popularité : +89 (91 votes)
Publicado em março, 07 2020 - 5:29 PM
PRINCIPAIS COMANDOS
http://Help.windev.com

INCLUIR REGISTRO
tabela_destino.campo01 = valorx
tabela_destino.campo02 = valory
tabela_destino.campo03 = valorz
tabela_destino.campo04 = valorw
HAdd(tabela_destino)

Ou

Screentofile() // set
tabela_destino.campo03 = valorz // mas este quero fazer algo a mais
If HAdd(tabela_destino) = true
Info(“Gravou com sucesso! COM O ID: ”+ tabela_destino.id )
Else
Info(“Não Gravou”)
end

PESQUISAR UM REGISTRO
Pesquisa simples
Hreset(Tabela) //mata o ponteiro colocando no topo
If Hreadseek(Tabela, Chave, 0001, Hidentical) = true
If hfound(Tabela) = true
Info(“achei o ”+tabela.nome)
Filetoscreen() //set
end
End



Pesquisa com chave composta de dois campos
Hreset(Tabela) //mata o ponteiro colocando no topo
Buf_Emp_Prod is buffer = HBuildKeyValue(Tabela, Chave_composta_Emp_PROD, 0001,00010)
Hreadseek(Tabela, Chave_composta_Emp_PROD, Buf_Emp_Prod, Hidentical)
If hfound(Tabela) = true
Info(“achei”)
Filetoscreen()
end
End

//Get de dados
Screentofile()

//Set de dados
FiletoScreen()

MODIFICAR UM REGISTRO
Hreset(Tabela) //mata o ponteiro colocando no topo
If Hreadseek(Tabela, Chave, 0001, Hidentical) = true //criou o ponteiro e posicionou
If hfound(Tabela) = true
Info(“achei o ”+tabela.nome)
Filetoscreen() //set Tabela.campox = 0
Tabela.campox = 1
Hmodify(Tabela)
end
End


Ou


Hreset(Tabela) //mata o ponteiro colocando no topo
If Hreadseek(Tabela, Chave, 0001, Hidentical) = true //criou o ponteiro e posicionou
If hfound(Tabela) = true
Info(“achei o ”+tabela.nome)
Filetoscreen() //set Tabela.campox = 0
Tabela.campox = 1
if Hmodify(Tabela) = true
info(“ok”)
else
info(“erro”)
end
end
End


EXCLUIR UM REGISTRO
Hreset(Tabela) //mata o ponteiro colocando no topo
If Hreadseek(Tabela, Chave, 0001, Hidentical) = true //criou o ponteiro e posicionou
If hfound(Tabela) = true
Info(“achei o ”+tabela.nome)
Filetoscreen() //set Tabela.campox = 0
HDELETE(Tabela)
end
End


Ou



Hreset(Tabela) //mata o ponteiro colocando no topo
If Hreadseek(Tabela, Chave, 0001, Hidentical) = true //criou o ponteiro e posicionou
If hfound(Tabela) = true
Info(“achei o ”+tabela.nome)
Filetoscreen() //set Tabela.campox = 0
if HDELETE(Tabela) = true
info(“ok”)
else
info(“erro”)
end
end
End


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/