PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Aula 1075 - Windev Window - 008/... - Criar Window Cadastrar Veiculo
Aula 1075 - Windev Window - 008/... - Criar Window Cadastrar Veiculo
Débuté par amarildo, 25 fév. 2017 09:51 - Aucune réponse
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 25 février 2017 - 09:51
//Rotina para chamar janela com parametros
veiculo_cadastra()
INTERNAL Procedure veiculo_Cadastra()
HReadSeekFirst(veiculo,id_placa,EDT_Veiculo_placa)
IF HFound(veiculo) THEN
ELSE

_placa is string=EDT_Veiculo_placa
_id_empresa_cliente is int=cliente.id_empresa_cliente
_cnpj is string=cliente.cnpj_cpf
Open(WIN_cadastrar_veiculo,_placa,_id_empresa_cliente,_cnpj)
END
END

//---------------------
//Cadastrar o veiculo
HReadSeekFirst(veiculo,id_placa,EDT_Id_placa) //Ler veiculo para ver se placa existe
IF HFound(veiculo) THEN //Se encontrou não faz nada
Info("Veiculo já existe")
ELSE //Cadastrar veiculo
HReset(veiculo)
veiculo.marca=EDT_Marca
veiculo.cor=EDT_Cor
veiculo.ano_modelo=EDT_Ano_modelo
veiculo.ano_fabricacao=EDT_Ano_fabricacao
veiculo.id_placa=EDT_Id_placa
veiculo.id_cliente=EDT_Id_cliente
veiculo.descricao=EDT_Id_placa
veiculo.cnpj_cpf_cliente=EDT_Cnpj_cpf_cliente
//colocando os dados no veiculo
HAdd(veiculo) // Gravar novo veiculo
Info("Veiculo Cadastrado Com Sucesso")
END
Close(WIN_cadastrar_veiculo) //Fechando janela


http://windevdesenvolvimento.blogspot.com.br/2017/02/aula-1075-windev-window-008-criar.html

https://www.youtube.com/watch?v=G1oXDyTGb3o