FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
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
Connectez-vous…
amarildo
#1
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
,
E
DT_Veiculo_placa
)
IF
HFound
(
veiculo
)
THEN
ELSE
_placa
is string
=
E
DT_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
,
E
DT_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
=
E
DT_Marca
veiculo.cor
=
E
DT_Cor
veiculo.ano_modelo
=
E
DT_Ano_modelo
veiculo.ano_fabricacao
=
E
DT_Ano_fabricacao
veiculo.id_placa
=
E
DT_Id_placa
veiculo.id_cliente
=
E
DT_Id_cliente
veiculo.descricao
=
E
DT_Id_placa
veiculo.cnpj_cpf_cliente
=
E
DT_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
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte