pattarelli

SOSSYSTEM Boa Tarde 
eu uso esta linha Writeln(F, chr(027)+chr(112)+chr(000)+chr(010)+chr(100));  e funciona com a impressora tm20 e gaveta menno. 
 

Juliomar Marchetti , Boa Tarde
 
Vou fazer o que vc sujeriu , mas como estou com uma certo urgencia fiz umas mudancas na unit acbrboletohsbc e resolveu para o momento .
 
 {'CSB' Cobranca Registrada}
      if aCarteira = '1' then
       begin
         Parte2 := CalcularFatorVencimento(Vencimento) +
                   IntToStrZero(Round(ValorDocumento * 100), 10) +
                   RightStr(padR(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito
                   padL(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +
                   padL(OnlyNumber(ACBrBoleto.Cedente.Conta), 5, '0')+
                   padL(ACBrBoleto.Cedente.ContaDigito,4,'0');
 
 
Aqui Tambem;
 
constructor TACBrBancoHSBC.create(AOwner: TACBrBanco);
begin
   inherited create(AOwner);
   fpDigito                := 9;
   fpNome                  := 'HSBC';
   fpNumero                := 399;
   fpTamanhoMaximoNossoNum := 11;
   fpTamanhoAgencia        := 4;
   fpTamanhoConta          := 5;
   fpTamanhoCarteira       := 3;
end;
 
 
Em vermelho indica as mudancas , para mim resolveu , nao sei se agi correto , mas vou fazer o teste na demo.
 
Muito Obrigado pela ajuda.