Fórum Deletar cadastros e vincular movimentações vinculadas a outro registro #421356

         if Application.MessageBox(PChar(Erro: Registro deve estar vínculado a alguma movimentação! + #13 + Deseja substituir as movimentações desse código por outro?), PChar(NomeSistema), MB_YESNO + MB_ICONQUESTION) = mrYes then
         begin
             CodigoPesquisa := Pesquisa(View, CampoID);
             if CodigoPesquisa   then
             begin
                if Tabela = CADPRODUTOS_SERVICOS then
                begin
                   ExecutarSQL(update movnotasfiscais_itens set id_produto_servico =  + QuotedStr(CodigoPesquisa)+  where id_produto_servico =  + QuotedStr(cdsMaster.FieldByName(CampoID).AsString) +  and id_empresa =  + IntToStr(CodigoEmpresa));
                end;
                cdsMaster.Delete;
                cdsMaster.ApplyUpdates(0);
             end;
         end;