sábado, 25 de fevereiro de 2017

Aula 1075 - Windev Window - 008/... - Criar Window Cadastrar Veiculo









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























Nenhum comentário:

Postar um comentário

Teste

Teste
teste