sexta-feira, 6 de novembro de 2015

Windev - Curso Exames 17 - WindevMobile - Incluir pessoas

http://www.pcsoft.fr/


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


Nessa aula vou mostrar como incluir Pessoas.


HReadSeekFirst(pessoas,cpf,EDT_Cpf)
IF HFound(pessoas) THEN
    Info("Ja existe essa pessoa")
ELSE
    HReset(pessoas)
    //pessoas.pessoasID -> esse é automatico a id
    pessoas.cpf=EDT_Cpf
    pessoas.nome=EDT_Nome
    pessoas.data_nascimento=EDT_Data_nascimento
    pessoas.celular_ddd=EDT_Celular_ddd
    pessoas.celular=EDT_Celular
    pessoas.telefone_ddd=EDT_Telefone_ddd
    pessoas.telefone=EDT_Telefone
    pessoas.email=EDT_Email
    pessoas.endereco=EDT_Endereco
    pessoas.cidade=EDT_Cidade
    pessoas.bairro=EDT_Bairro
    pessoas.peso=EDT_Peso
    pessoas.Plano_saudeID=COMBO_Plano_saudeID
    HAdd(pessoas)    //poderia usar tambem hsave()   
    EDT_Cpf=""  //limpar dados
    EDT_Nome=""
    EDT_Data_nascimento=""
    EDT_Celular_ddd=""
    EDT_Celular=""
    EDT_Telefone_ddd=""
    EDT_Telefone=""
    EDT_Email=""
    EDT_Endereco=""
    EDT_Cidade=""
    EDT_Bairro=""
    EDT_Peso=""
    COMBO_Plano_saudeID=0   
    Info("Gravado Pessoa")
END
















Blog - Curso Exames /001/... Criando Projeto
Blog - Curso Exames /002/... Analise Tabela Pessoas/Pacientes
Blog - Curso Exames /003/... Tabela Plano Saude
Blog - Curso Exames /004/... Tabela Status Exames 
Blog - Curso Exames /005/... Tabela Modalidade Exames
Blog - Curso Exames /006/... Tabela Exames 
Blog - Curso Exames /007/... Tabela Exames/Fotos e Imagens
Blog - Curso Exames /008/... Tabela Pessoas/Foto-Convenio 
Blog - Curso Exames /009/... Linkar as tabelas 
Blog - Curso Exames /010/... Conferir Conexão Banco Hyperfile
Blog - Curso Exames /011/... Fazer Gerar Todo Sistema 
Blog - Curso Exames /012/... WEBDEV - Fazer Gerar Todo Sistema
Blog - Curso Exames /013/... Windev Mobile 20 - Inicio do Programa Agendamento
Blog - Curso Exames /014/... WindevMobile 20 - Menu
Blog - Curso Exames /015/... Analise - Revisando Campos para Combox
Blog - Curso Exames /016/... WindevMobile 20 - Criando TAbela e Looper Pessoas/Perfil
Blog - Curso Exames /017/... WindevMobile - Incluir Pessoas

Teste

Teste
teste