Search the Community

Olá a todos da comunidade, Encontramos uma dificuldade na na unit: ACBrECFVirtualBuffer, mais especificamente na classe: TACBrECFVirtualBufferClass, procedure AddBufferRodape; No final da impressão existe o comando: '</corte_total>', mas sem contar a quantidade de linhas necessárias precisa pular para efetuar o corte, dessa forma acaba cortando a impressão antes mesmo de finalizar a impressão corretamente, deixando textos abaixo do corte. O Código encontrava-se da seguinte maneira: with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; </corte_total> // Corte total já pula linhas end ; Alterei o código para: with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; For A := 1 to LinhasEntreCupons do Add( '' ) ; CortaPapel(False); // Corte total já pula linhas end ; O mesmo código pode ser encontrado na unit: ACBrECFNaoFiscal, procedure: AddBufferRodape. A unica diferença que dentro da Unit ACBrECFVirtualBuffer, tem o comando para cortar papel diretamente nela. Gostaria de saber se o código pode ser adicionado ao repositório. Estou anexando a unit para analise de vocês. Desde já agradecemos a atenção. Att, Alan Leônidas. ACBrECFVirtualBuffer.pas