Video no Youtube Se Gostou clique aqui para dar joinha
Help1
Blog - WinDev - Funções Windows/Janela - 001/... - OpenSister
Blog - WinDev - Funções Windows/Janela - 002/... - CurrentTitle
Blog - WinDev - Funções Windows/Janela - 003/... - The Splitter Control
Blog - WinDev - Funções Windows/Janela - 004/... - Windows - PopuMenu
Blog - WinDev - Funções Windows/Janela - 005/... - Windows - ThreadExecute
Blog - WinDev - Funções Windows/Janela - 006/... - WinStatus
PopUpMenu - Windows/Botao Direito/Mouse Rollover - WinDev - Windows/Janela - 007/...
Window - Cadastrar Veiculo - Metodo Rapido - WinDev - Windows/Janela - 008/...
CurrentTitle - TITULO DA JANELA 9 - 1887 - PUBLICO - WINDEV_23 - Window Janela 9 -
//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
