WebDev Tabela Excluir

WebDev Tabela Excluir

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