IF TableSelect(TABLE_Tecnico) = -1 THEN RETURN
HReadSeek(tecnico,tecnico.chave_empresa_tecnico,[gnEmpresaCodigo,TABLE_Tecnico.COL_Id_empresa_tecnico])
IF HFound(tecnico) THEN
IF YesNo("Tem Certeza de que deseja excluir o Técnico?") THEN
HDelete(tecnico)
mostra_relacao_tecnico()
END
END
Nenhum comentário:
Postar um comentário