Editando uma Importação

[raphael007 0]

Ola pessoal,

 

Estou com um problema tenho um sistema de vendas q todo mês preciso atualizaar os preços dos produtos

o problema é q ñ consigo editar so consigo cadastrar.....

 

eu to achando q meu if ta errado pq sempre ele cadastra quando coloca p/ editar ele ñ faz nada ......

 

Meu Codigo:

      While not Eoln(Txt) do
      begin
        Readln(Txt,Entrada);
        DM.CdsProduto.First;
        if  DM.CdsProduto.Locate('ID_Produto',Copy(Entrada,01,10),[]) = false  then
        begin
          DM.CdsProduto.Append;
          DM.CdsProduto.FieldByName('ID_PRODUTO').Value:= Copy(Entrada,01,10);
          DM.CdsProduto.FieldByName('CODIGO_BARRAS').Value:= Copy(Entrada,29,13);
          DM.CdsProduto.FieldByName('DES_PRODUTO').Value:= Copy(Entrada,72,75);
          DM.CdsProduto.FieldByName('PRE_VENDA').Value:= Copy(Entrada,202,4) ;
          DM.CdsProduto.Post;
          DM.CdsProduto.ApplyUpdates(0);
        end;
        else
        begin
          DM.CdsProduto.Edit;
          DM.CdsProduto.FieldByName('PRE_VENDA').Value:= Copy(Entrada,202,4);
          DM.CdsProduto.Post;
          DM.CdsProduto.ApplyUpdates(0);
        end;
      end;

[Chrnos 30]

Já debugou o seu código? Verificou se o locate está localizando realmente o registro e se os dados estão carregados no componente antes de começar a sua rotina de importação? Porque não monta uma rotina utilizando sqls para pesquisa e insert/update ou, melhor ainda, uma procedure no BD se ele suportar que faça esse controle para você?

 

[]'s