Fórum Xmaker

Senhores ;

Alguém saberia informar como desabilitar o AutoIncremento de uma Tabela ao se fazer a importação dos dados à partir de um arquivo TXT?


Sds


XFilpo

Bom Dia, segue sugestão.


while not eof(ArqTexto) do
begin
Readln(ArqTexto,Registro);
TabGlobal.DLocatarios.Insert;
TabGlobal.DLocatarios.CODINQ.AtribuiValor(strToInt(copy(Registro,04,04)));
TabGlobal.DLocatarios.NOME.Conteudo :=UpperCase(JOemToAnsiStr(trim(Copy(Registro,09,35))));
If Trim(copy(Registro,222,01)) <> '' then
TabGlobal.DLocatarios.Pessoa.Conteudo := 'J'
else
TabGlobal.DLocatarios.Pessoa.Conteudo := 'F';
TabGlobal.DLocatarios.Salva;
End; // Fim While leitura do TXT
CloseFile(ArqTexto);
End;
ShowMessage('Final do Processamento');


Att
Gilberto

Olá Gilberto ;

Agradecido pela sugestão, mas este tipo de rotina eu já tenho funcionando, a questão que eu coloquei, na verdade seria como desabilitar campos autoincremento em tempo de execução, quando estivesse importando dados de um txt p/uma tabela Firebird.

Sds

XFilpo