Impressão De Cheques - Impressora Chronos - Erro Data

[brunosadna]

Bom dia,

 

Quando imprimo o cheque na chronos 31100, os valores saem corretamente EXCETO a data que sai assim: IBITINGA, 0(ZERO) 'ESPAÇO GRANDE' 2013, abaixo a procedure de impressão onde o valor de DataStr é '14/08/13'.

 

 

procedure TACBrCHQChronos.ImprimirCheque;

Var ValStr, DataStr : String ;

begin

  { Banco }

  fpDevice.EnviaString( #27 + #162 + fpBanco + #13 ) ;

  Sleep(100);

  { Valor }

  ValStr := IntToStrZero( Round( fpValor * 100), 11) ;

  ValStr := copy(ValStr,1,9)+','+copy(ValStr,10,2) ;

  fpDevice.EnviaString( #27 + #163 + ValStr + #13 ) ;

  Sleep(100);

  { Favorecido }

  fpDevice.EnviaString( #27 + #160 + Trim(fpFavorecido) + #13 ) ;

  Sleep(100);

  { Cidade }

  fpDevice.EnviaString( #27 + #161 + Trim(fpCidade) + #13 ) ;

  Sleep(100);

  { Data }

  DataStr := FormatDateTime('dd/mm/yy',fpData) ;

  DataStr := StringReplace(DataStr,DateSeparator,'/',[rfReplaceAll]) ;

  fpDevice.EnviaString( #27 + #164 + DataStr + #13 ) ;

  Sleep(100);

 

  fpDevice.EnviaString( #27 + #176 ) ;   // Imprimir...

  Sleep(100);

end;

 

 

Help, alguem ja passou por isso?

 

Att,

 

Bruno

[brunosadna]

Pessoal, consegui o manual da Chronos, conferi os comandos e estão corretos... agora estou com mais duvida ainda do que pode estar acontencendo

[Daniel Simoes]

Nesse caso... somente o suporte do fabricante poderia esclarecer...

[brunosadna]

Bom dia Pessoal, o problema estava na configuração da impressora.

 

Quando ligava a mesma, aparecia assim 10/10/DAT, apertando a seta para o lado muda a configuração e fica 10/10/2012,

um erro aparentemente simples, mas que me custou horas de testes para ver que não era na programação e sim no equipamento.

 

Se alguem passar por algo parecidom, espero que ajude

 

Att,

 

Bruno

[Daniel Simoes]

Parabéns pela persistência e obrigado pelo retorno

[Felipe_2]

Muito Obrigado pessoal, o tópico me ajudou bastante. Iria perder um bom tempo também procurando um erro que não existia --'