Boa Noite Pessoal
Alguém saberia me dizer por que a rotina abaixo não emite corretamente ?
Esta cortando o digito do CNPJ
ao invés de emitir '52.736.949/0001-58'
esta emitindo '52.736.949/0001-8'
Desde já agradeço
Ademir
--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Press:TextFile;
begin
AssignFile(Press,'LPT1:');
Rewrite(Press);
Write(Press,Format('%-40s',['INTERNATIONAL PAPER DO BRASIL LTDA']));
Write(Press,Format('%-18s',['52.736.949/0001-58']));
Write(Press,Format('%-8s',['04/05/05']));
System.Close(Press);
end;
[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
