Pesquisar na Comunidade
Showing results for tags ' relatorio gerencial'.
Encontrado 1 registro
-
Bom dia Pessoal! Estou fazendo as verificações quanto as novas impressoras com módulo integrado com o Sefaz. Bom, após vários testes, constatei apenas um problema que está relacionado com a impressão de relatório gerencial. Verificando os fontes, pude perceber que a constante "cEscECFMaxBuffer" no arquivo ACBrECFEscECF.pas está com o valor 4096, e verificando a procedure abaixo onde destaquei em vermelho, percebi que a função está tentando enviar 4096 caracteres(no caso meu relatório tem mais do que isto) e acredito que o comando 9 em questão não suporta tantos caracteres. Corrigi o problema alterando o valor da constante para 500, porém, não sei se esta é a forma correta. Se puderem verificar, fico no aguardo! ================================================================================================== procedure TACBrECFEscECF.LinhaRelatorioGerencial(Linha: AnsiString; IndiceBMP: Integer); var P, Espera: Integer; Buffer : AnsiString ; begin Linha := AjustaLinhas( Linha, Colunas, 0, (IsEpson or IsBematech) ); { Formata as Linhas de acordo com "Coluna" } while Length( Linha ) > 0 do begin P := Length( Linha ) ; if P > cEscECFMaxBuffer then { Acha o fim de Linha mais próximo do limite máximo } P := PosLast(LF, LeftStr(Linha,cEscECFMaxBuffer) ) ; if P = 0 then P := Colunas ; Buffer := copy( Linha, 1, P) ; Espera := Trunc( CountStr( Buffer, LF ) / 4) ; EscECFComando.CMD := 9 ; EscECFComando.TimeOut := Espera ; EscECFComando.AddParamString(Buffer); EnviaComando; ================================================================================================== Att. Apenas para complementar, verifiquei no comando de imprimir o texto da epson, o máximo permitido de caracteres é de 492. Comando ImprimeTexto Descrição: Imprime texto em um documento. Observações: Este comando é usado para impressão de texto livre em Relatórios Gerenciais, Comprovates de Crédito ou Débito, Cupons Fiscais, etc. Retornos Parâmetros 82 Variavel: TextoLivre TipoDado: string Tamanho Máximo: 492 Obrigatório Descricao: Conteúdo do texto livre.Podem ser usados caracteres modificadores de impressão para gerar impressão negrito, expandido, código de barras, etc. Att.
- 8 replies
-
- escecfepson
- tm-800f
- (e 1 mais)