With tbQualquer do //****JGANDO NA TAB AUXILIAR
begin
Active := true;
Append;
//********************************************************************
//*******ESTES CAMPOS EU USO NA TABELA TITULOS POR ISSO GRAVO + TARDE
//*******NA OUTRA TABELA TBLTIT
FieldByName('DATAPROT').AsString := DATETOSTR(DATEEDIT1.DATE);
FieldByName('CODBAN').AsString := Copy(sLinhaTxt, 2, 3);
FieldByName('CODCED').AsString := Copy(sLinhaTxt, 5, 15);
FieldByName('CEDENTE').AsString := Copy(sLinhaTxt, 20, 45);
FieldByName('SACADOR').AsString := Copy(sLinhaTxt, 65, 45);
FieldByName('DOCSACAD').AsString := Copy(sLinhaTxt, 110, 14);
FieldByName('DEVEDOR').AsString := Copy(sLinhaTxt, 298, 45);
FieldByName('CPFDEVEDOR').AsString := Copy(sLinhaTxt, 346, 14);
FieldByName('ENDSAC').AsString := Copy(sLinhaTxt, 124, 45);
FieldByName('CEPSAC').AsString := Copy(sLinhaTxt, 169, 8);
FieldByName('CIDSAC').AsString := Copy(sLinhaTxt, 177, 20);
FieldByName('UFSAC').AsString := Copy(sLinhaTxt, 197, 2);
FieldByName('NOSSONUM').AsString := Copy(sLinhaTxt, 199, 15);
FieldByName('ESPTIT').AsString := Copy(sLinhaTxt, 214, 3);
FieldByName('NUMTIT').AsString := Copy(sLinhaTxt, 217, 11);
FieldByName('EMISTIT').AsSTRING := Copy(sLinhaTxt, 228, 8);
FieldByName('VENCTIT').AsSTRING := Copy(sLinhaTxt, 236, 8);
FieldByName('VALTIT').AsSTRING := Copy(sLinhaTxt, 247, 14);
FieldByName('SALDO').AsSTRING := Copy(sLinhaTxt, 261, 14);
FieldByName('PRACA').AsSTRING := Copy(sLinhaTxt, 275, 20);
FieldByName('ENDOSSO').AsSTRING := Copy(sLinhaTxt, 295, 1);
FieldByName('ACEITE').AsSTRING := Copy(sLinhaTxt, 296, 1);
FieldByName('ENDDEVE').AsSTRING := Copy(sLinhaTxt, 371, 45);
FieldByName('CEPDEV').AsSTRING := Copy(sLinhaTxt, 416, 8);
FieldByName('CIDDEVE').AsSTRING := Copy(sLinhaTxt, 424, 20);
FieldByName('UFDEVE').AsSTRING := Copy(sLinhaTxt, 444, 2);
FieldByName('NUMCART').AsSTRING := Copy(sLinhaTxt, 446, 2);
FieldByName('PROTCART').AsSTRING := Copy(sLinhaTxt, 448, 10);
//**TRANSPORTO O VALOR DO PROTOCOLO PARA A VARIAVEL PROTCART
FieldByName('PROTCART').AsSTRING := INTTOSTR(J);
J:=J+1;
//************************************************
FieldByName('CUSTAS').AsSTRING := Copy(sLinhaTxt, 467, 10);
FieldByName('BAIRRODEV').AsSTRING := Copy(sLinhaTxt, 488, 20);
FieldByName('IRREGULAR').AsSTRING := Copy(sLinhaTxt, 486, 2);
//****ESTES CAMPOS EU NAO NECESSITO NA TABELA TITULOS APENAS PRECISO PRA
//****MONTAR O ARQUIVO RETORNO
FieldByName('TIPOMOEDA').AsSTRING := Copy(sLinhaTxt, 244, 3);
FieldByName('NDEVE').AsSTRING := Copy(sLinhaTxt, 297, 1);
FieldByName('IDDEV').AsSTRING := Copy(sLinhaTxt, 343, 3);
FieldByName('DOCDEVE').AsSTRING := Copy(sLinhaTxt, 360, 11);
FieldByName('TIPOO').AsSTRING := Copy(sLinhaTxt, 458, 1);
FieldByName('DECPORT').AsSTRING := Copy(sLinhaTxt, 477, 1);
FieldByName('DATAOCOR').AsSTRING := Copy(sLinhaTxt, 478, 8);
FieldByName('CUSTASDIS').AsSTRING := Copy(sLinhaTxt, 508, 10);
FieldByName('REGDIST').AsSTRING := Copy(sLinhaTxt, 518, 6);
FieldByName('CUSTASGE').AsSTRING := Copy(sLinhaTxt, 524, 10);
FieldByName('NOPERABAN').AsSTRING := Copy(sLinhaTxt, 534, 5);
FieldByName('CONTRABAN').AsSTRING := Copy(sLinhaTxt, 539, 15);
FieldByName('PARCELCON').AsSTRING := Copy(sLinhaTxt, 554, 3);
FieldByName('TIPOLC').AsSTRING := Copy(sLinhaTxt, 557, 1);
FieldByName('COMPLEIRREG').AsSTRING:= Copy(sLinhaTxt, 558, 8);
FieldByName('COMPLREG').AsSTRING := Copy(sLinhaTxt, 566, 31);
FieldByName('REGDIST').AsSTRING := Copy(sLinhaTxt, 518, 6);
//vou gravar fisicamente************************************************
Post;
----- Original Message -----
From: Francisco Thiago
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 06, 2005 2:10 PM
Subject: [delphi-br] Criar campos no CDS em tempo de execucao
Caros amigos
Preciso urgentemente de uma procedure que adicione os Fields ao
ClientDataSet em tempo de execucao
Da forma como estou tentando está dando erro de acesso de memoria quando
tento informar um valor......
Obrigado
Thiago
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
