DBX Error: No Mapping for Error Code Found. Nunca Vi Isso!

Delphi

28/10/2005

olá, estou com um problema mto estranho, eu tenho uma tabela chamada produtos e outra tabela chamada preços.
na tabela produtos existem 3 tipos , MEdicamento, MAterial e Solução.
bom. olha o que eu faço:
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;

Em Resumo:
Eu Pego o primeiro registro da Tabela Produto e Filtro o novo preço dele na tabela Preços e atualizo o campo preço na tabela produto.
Quando eu pesquiso por MEDICAMENTO e SOLUÇÃO acontece tudo certo, mas, Qdo Pesquiso por MATERIAL , Qdo chega na Linha do DM_CADASTRO2.CDS_PRODUTO_GERAL.First; ele da o erro:
DBX Error: No Mapping for Error Code Found.
São 3 tipos de Produtos O Mesmo Código para os 3 e ele dá erro só quando pesquisa 1 tipo, da pra acreditar?
Agradeço qualquer ajuda!
Obrigado.


Daniel Martins

Daniel Martins

Curtidas 0
POSTAR