CASE Yes
IF EDT_id_empresa="" THEN
Error("voce nao digitou codigo da empresa")
RETURN
END
IF EDT_id_empresa_tecnico="" THEN
Error("voce nao digitou codigo do tecnico")
RETURN
END
IF EDT_nome="" THEN
Error("voce nao digitou nome do técnico")
RETURN
END
ScreenToFile() // As Informações sao Lidas
IF tecnico..NewRecord=True THEN // se for inclusão
//Adiciona
tecnico.id_tecnico=EDT_id_empresa_tecnico
tecnico.id_empresa=EDT_id_empresa
tecnico.id_empresa_tecnico=EDT_id_empresa_tecnico
tecnico.nome=EDT_nome
HAdd(tecnico)
ELSE
// Altera
HModify(tecnico)
END
LooperDisplay(win_tecnico_lista.Looper_tecnico,taCurrentFirst) // Atualiza o Looper ou tabela
Close()
OTHER CASE
Close()
END
