Untitled

dm.TBPALMPEDIDO.Open;
AssignFile(F,'C:\Sincronismo\dados\000179\dbPedidoPalm.txt');
Reset(F);
Espaco:= Char(9);
While not Eoln(F) do
begin
  Readln(F,Entrada);
  dm.TBPALMPEDIDO.Insert;

//  k_codrepresentanteCONFIG := copy(espaco_inicial,1,(6-Length(dm.TBPALMCONFIG.FieldByname('CODREPRESENTANTE').Value))) + dm.TBPALMCONFIG.FieldbyName('CODREPRESENTANTE').Value;
//  k_nomeCONFIG := copy(k_zeros,1,(50-Length(dm.TBPALMCONFIG.FieldByname('NOME').Value))) + dm.TBPALMCONFIG.FieldbyName('NOME').Value;

  dm.TBPALMPEDIDO.FieldByName('CHAVE').Value := Copy(Entrada,01,10);
  dm.TBPALMPEDIDO.FieldByName('FILIAL').Value := Copy(Entrada,12,13);
  dm.TBPALMPEDIDO.FieldByName('NPEDIDO').Value := Copy(Entrada,15,21);
  dm.TBPALMPEDIDO.FieldByName('CODREPRESENTANTE').Value := Copy(Entrada,23,23);
  dm.TBPALMPEDIDO.FieldByName('CLIENTE').Value := Copy(Entrada,21,26);
  dm.TBPALMPEDIDO.FieldByName('LOJA').Value := Copy(Entrada,27,28);
  dm.TBPALMPEDIDO.FieldByName('VALIDADE').Value := Copy(Entrada,29,38);
  dm.TBPALMPEDIDO.FieldByName('CONDPGTO').Value := Copy(Entrada,39,41);
  dm.TBPALMPEDIDO.FieldByName('FORMAPGTO').Value := Copy(Entrada,42,48);
  dm.TBPALMPEDIDO.FieldByName('DESC_TOTAL').Value := 10;//StrToFloat(StringReplace(Copy(Entrada,49,55),'.' , ',',[RfReplaceAll]));
  dm.TBPALMPEDIDO.FieldByName('TOTAL').Value := 900;//StrToFloat(StringReplace(Copy(Entrada,56,58),'.' , ',',[RfReplaceAll]));

  dm.TBPALMPEDIDO.Post;
End;
  lblResultadoPEDIDO.Caption := 'Foram importados: '+ IntToStr(dm.TBPALMPEDIDO.RecordCount)+' registros da tabela PEDIDO.';

end;