Segunda Via ACBrTEFDCliDTEF

[volmir]

Boa tarde,

Fiz uma modificação no arquivo ACBrTEFDCliDTEF.pas para conseguir imprimir a segunda via, pois hoje esta imprimindo tudo em uma só via, com esta alteracao será possivel separar as vias e vai destacar(cortar o papel) corretamente. Eu só não consegui entender porque no demo estava fixando o numero de vias = 1, para o gerenciador TEFCLIDTEF. Para min atendeu 100% com esta alteracao, estou disponibilizando para analize, se entenderem que for util pode ser apliacada esta alteracao.

ACBrTEFDCliDTEF.pas

[Daniel Simoes]

Obrigado pela contribuição...

Não comrpeendi muito bem, qual a ideia, no IF abaixo, para detectar se ele está ou não na Segunda via...

      if (Pos('(NSU D-TEF', AnsiUpperCase(Trim(aRetorno[i]))) > 0) then
        SegundaVia:=True;

Pode explicar melhor a ideia ?

Creio que não precisamos dos testes... correto ?

       710 :
       begin
         Teste:=Linha.Informacao.AsString;
       end;

 

[volmir]

Desculpa, verdade este teste não precisa.

Esse "if" é pra detectar que chegou ao fim da primeira via. Apos isso é os dados da segunda via, visto que 

aRetorno esta trazendo as duas vias junto, este if é justamente pra separar as vias, a não ser que exista uma outra forma de separar, que nao descobri como.

[Daniel Simoes]

Será que não haveria uma maneira mais assertiva, de separarmos as duas vias ?  Se eles mudarem o Texto, o código irá quebrar...

Não há algum outro campo, que possamos usar ? Como por exemplo, o número de linhas na 1a via...

[volmir]

Essa foi uma sugestao que o pessoal da Linx me passou, mas creio que deva haver outras formas sim. Vou simular aqui. e pegar mais informacoes com eles.