Fórum DBX Error: No Mapping for Error Code Found. Nunca Vi Isso! #301121

DM_CADASTRO2.CDS_PRODUTO_GERAL.IndexFieldNames:=´´;
  case rgTpProduto.ItemIndex of
  0:
   begin
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=false;
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´´;
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´TP_PRODUTO=´+QUOTEDSTR(´MATERIAL´);
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=TRUE;
         end;
  1:
   begin
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=false;
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´´;
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´TP_PRODUTO=´+QUOTEDSTR(´MEDICAMENTO´+´*´);
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=TRUE;
   end;
  2:
    begin
       DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=false;
       DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´´;
       DM_CADASTRO2.CDS_PRODUTO_GERAL.Filter  :=´TP_PRODUTO=´+QUOTEDSTR(´SOLUÇÃO´+´*´);
       DM_CADASTRO2.CDS_PRODUTO_GERAL.Filtered:=TRUE;
    end;
  end;
  if not DM_CADASTRO2.CDS_PRODUTO_GERAL.IsEmpty then
  begin
      DM_CADASTRO2.CDS_PRODUTO_GERAL.First;
      while not DM_CADASTRO2.CDS_PRODUTO_GERAL.Eof DO
      begin
        cdsPreco.Close;
        cdsPreco.Params[0].AsString:=DM_CADASTRO2.CDS_PRODUTO_GERALCOD_LAB.Value;
        cdsPreco.Params[1].AsString:=DM_CADASTRO2.CDS_PRODUTO_GERALCOD_PROD.Value;
        cdsPreco.Params[2].AsString:=DM_CADASTRO2.CDS_PRODUTO_GERALCOD_APRES.Value;
        cdsPreco.Open;

        IF cdsPreco.RecordCount >0 THEN
        BEGIN
         DM_CADASTRO2.CDS_PRODUTO_GERAL.Edit;
         try
         DM_CADASTRO2.CDS_PRODUTO_GERALVLR_PRODUTO.Value:=ValidaValor(cdsPrecoVALOR.Value);
         DM_CADASTRO2.CDS_PRODUTO_GERAL.POST;
         except
          Showmessage(´Ocorreu um Erro Durante o processo de atualização do valor.´);
         end;
        END;
        DM_CADASTRO2.CDS_PRODUTO_GERAL.Next;
      end;

      DM_CADASTRO2.CDS_PRODUTO_GERAL.ApplyUpdates(0);
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Close;
      DM_CADASTRO2.CDS_PRODUTO_GERAL.Open;
      SHOWMESSAGE(´PREÇOS ATUALIZADOS!´);
  end;