ActiveDelphi

[lucas_spohr]

Olá!

No meu projeto, eu preencho os campos Agência e Conta Corrente, porém quando vou abrir o INTPOS.001 da pasta RESP, eu vejo que o campo agência aparece como 1234 e o campo Conta Corrente aparece 1234567890.

O que poderia estar errado em meu código?

Sendo que os códigos de minha aplicação estão assim:

Formulário onde preencho os campos:
/procedure TForm1.btnBanricomprasClick(Sender: TObject);
VAR
F: TEXTFILE;
S: STRING;
begin
AssignFile(F,'C:\TEF_DISC\BANRISUL\Req\IntPos.tmp');
REWRITE(F); //cria arquivo
S:='000-000 ' + '= ' + dbeHeader.Text;
WRITELN(F,S);//adiciona nova linha no arquivo
S:='001-000 ' + '= ' + dbeIdentificacao.Text;
WRITELN(F,S);//adiciona nova linha no arquivo
S:='002-000 ' + '= ' + dbeDocFiscal.Text;
WRITELN(F,S);
S:='003-000 ' + '= ' + dbeValorTotal.Text;
WRITELN(F,S);
S:='004-000 ' + '= ' + dbeMoeda.Text;
WRITELN(F,S);
S:='005-000 ' + '= ' + dbeCMC7.Text;
WRITELN(F,S);
S:='006-000 ' + '= ' + dbeTipoPessoa.Text;
WRITELN(F,S);
S:='007-000 ' + '= ' + dbeDocPessoa.Text;
WRITELN(F,S);
S:='008-000 ' + '= ' + dbeDataCheque.Text;
WRITELN(F,S);
S:='010-000 ' + '= ' + dbeNomeRede.Text;
WRITELN(F,S);
S:='012-000 ' + '= ' + dbeNumTransacao.Text;
WRITELN(F,S);
S:='022-000 ' + '= ' + dbeDataTransacao.Text;
WRITELN(F,S);
S:='023-000 ' + '= ' + dbeHoraTransacao.Text;
WRITELN(F,S);
S:='027-000 ' + '= ' + dbeFinalizacao.Text;
WRITELN(F,S);
S:='033-000 ' + '= ' + dbeBanco.Text;
WRITELN(F,S);
S:='034-000 ' + '= ' + dbeAgencia.Text;
WRITELN(F,S);
S:='035-000 ' + '= ' + dbeAgenciaDC.Text;
WRITELN(F,S);
S:='036-000 ' + '= ' + dbeContaCorrente.Text;
WRITELN(F,S);
S:='037-000 ' + '= ' + dbeContaCorrenteDC.Text;
WRITELN(F,S);
S:='038-000 ' + '= ' + dbeNumeroCheque.Text;
WRITELN(F,S);
S:='039-000 ' + '= ' + dbeNumeroChequeDC.Text;
WRITELN(F,S);
S:='041-000 ' + '= ' + dbeCodBarras.Text;
WRITELN(F,S);
S:='042-000 ' + '= ' + dbeTrailer.Text;
WRITELN(F,S);
CLOSEFILE(F);//fecha arquivo
RenameFile('C:\TEF_DISC\BANRISUL\Req\IntPos.tmp','C:\TEF_DISC\BANRISUL\Req\IntPos.001');
end;

procedure TForm1.btnLerClick(Sender: TObject);
begin
If FileExists('C:\TEF_DISC\BANRISUL\Resp\IntPos.001') = False Then
begin
ShowMessage('Arquivo inativo!');
end
else
begin
frmIntPos := TfrmIntPos.Create(Self);
try
frmIntPos.ShowModal;
finally
frmIntPos.Free;
end;
end;

/Formulário onde efetuo a leitura do RESP/INTPOS.001:
/procedure TfrmIntPos.FormShow(Sender: TObject);
var
Arquivo :TextFile;
Linha :String;
begin
AssignFile(Arquivo, 'C:\TEF_DISC\BANRISUL\Resp\IntPos.001');
Reset(Arquivo);
Repeat
ReadLn(Arquivo,Linha);
Memo1.Lines.Add(Linha);
until EOF(Arquivo);
end;/
//


Quando vou fazer a leitura do RESP\INTPOS.001, aparece o seguinte layout:

/000-000 = CRT
001-000 = 1
002-000 = 123456
003-000 = 5837
004-000 = 0
009-000 = 0
010-000 = BANRISUL
011-000 = 20
012-000 = 280004
015-000 = 2812170155
022-000 = 28122007
023-000 = 170155
027-000 = 281207000000280004BS20
030-000 = Finalizado pelo Operador
028-000 = 19
029-001 = "BANRISUL - BANRICOMPRAS"
029-002 = "DEMONSTRATIVO DE PAGAMENTO A VISTA"
029-003 = ""
029-004 = " 000000000000000 BS000001"
029-005 = ""
029-006 = "DATA: 28/12/2007"
029-007 = "NSU: 280004 VALOR: 58,37"
029-008 = ""
029-009 = "PAGAMENTO COM CARTAO DE DEBITO"
029-010 = ""
029-011 = " ###### OPERACAO SIMULADA ######"
029-012 = " ###### NENHUM VALOR SERA ######"
029-013 = " ###### CREDITADO OU DEBITADO ######"
029-014 = ""
029-015 = "AGENCIA: 1234 CONTA: 1234567890" *onde deveria ser: "AGENCIA: 0688 CONTA: 3409256000"*
029-016 = "DEBITO EM: 05/06/2001"
029-017 = "NOME: NOME DO CLIENTEZZZZZ"
029-018 = ""
029-019 = " ESTE DEMONSTRATIVO NAO TEM VALOR FISCAL"
999-999 = 0/

Só não consigo entender de onde é que está sendo tirado os valores AGENCIA: 1234 CONTA: 1234567890...

Alguém poderia me auxiliar?

Desde já, agradeço.
Muito obrigado!