daniel.simoes

Por favor teste com a seguinte implementação: procedure TACBrECFEscECF.ReducaoZ(DataHora : TDateTime) ; begin if DataHora = 0 then { Aparentemente a DataHora é obrigatória na EscECF } DataHora := now ; EscECFComando.CMD := 21; if DataHora = -1 then { Sem Data e Hora } begin EscECFComando.AddParamString(''); // Sem Data EscECFComando.AddParamString(''); // Sem Hora end else begin EscECFComando.AddParamDateTime(DataHora, 'D' ); EscECFComando.AddParamDateTime(DataHora, 'H' ); end; EscECFComando.AddParamInteger(0); // Imprime no ECF try EnviaComando ; RespostasComando.Clear; SalvaRespostasMemoria(True); except on E : Exception do begin // Woraround para Epson, para Erro de data na Redução Z if IsEpson and (EscECFResposta.CAT = 16) and (EscECFResposta.RET.ECF = 3) then begin ReducaoZ(-1); end else if (pos('5-1',E.Message) <> 0) then // Comando inválido para o documento atual. begin // Ficou algum Cupom aberto ? // Cancelando o Cupom em aberto EscECFComando.CMD := 31; EnviaComando; ReducaoZ(DataHora); end else raise ; end ; end ; end;

isso mesmo... há o limite de caracteres, e o limite de 8 linhas...

Sim, nas propriedades da Impressora...

Não existe, pois não faz sentido... o TEF exige muitas modificações na interface da aplicação, seria impossível para o Monitor contemplar isso...

Por favor tente com essa modificação.... EscECFComando.CMD := 21; EscECFComando.AddParamInteger(0); // Data EscECFComando.AddParamInteger(0); // Hora EscECFComando.AddParamInteger(0); // Imprime no ECF

Tente enviar a Redução Z sem a Data/Hora

Provavelmente é algo no spooler do seu Windows... Tente deixar em impressão "Raw"...

"m" é igual. 109 na Tabela Asc II Portando: #27,#109

Demorei pra descobrir porque tinha inserido essa propriedade... Na verdade ela é mais útil para Imprimir apenas uma via (limitando o numero para 1) E ela não tem sentido (uso) para todas as classes... Na classe da CliSiTef, ela simplesmente ignora o valor atribuído: procedure TACBrTEFDCliSiTef.SetNumVias(const AValue : Integer); begin fpNumVias := 2; end; Ocorre que em todos os casos.. ele sempre iria repetir apenas a segunda via... devido ao código em ACBrTEFDClass.pas: 2363 if I = 1 then 2364 ImagemComprovante := Self.Resp.ImagemComprovante1aVia 2365 else 2366 ImagemComprovante := Self.Resp.ImagemComprovante2aVia ; E no caso do SiTef, a reimpressão do Ultimo Comprovante, pode vir (vem) com o resposta do campo 132 "ImagemComprovante2aVia" vazia,.... ou seja, ele nunca reimprimiria a segunda via porque ela não existe...

basicamente a conta é: Colunas Suportadas x 8 linhas... Ex: 48 x 8 = 384 Alguns ECFs suportam 56 colunas.. veja a propriedade ACBrECF.Colunas

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

Não é você que configura... (caso contrário você nem precisaria de parâmetro)... Esses limites são estabelecidos a cada comando enviado pelo SiTef

Oi Joao, Obrigado pela colaboração... parece tudo certo... Devo subir para o SVN hoje a noite, com outras modificações que estou implementando nessa classe...

Sim, e cada GP também tem sua propriedade de LOG individual...

gpCliSitef funciona apenas com o biblioteca CliSitef.dll o que vc chama de TEFIP ??

Não necessariamente, pois várias outras empresas tem produtos compatíveis com a estrutura do G.P.... Veja o Pay&Go... eles tem certificação remota.. muito simples de fazer: https://ntkonline.com.br/certificado/site/instrucoes.php

O projeto não está parado... Eu não precisei disso e não desenvolvi... simples assim... Fique a vontade para enviar suas contribuições... Veja os exemplos que existem no Extrato da NFCe (que já contemplam a Daruma) Em breve devo fazer um refactoring para criar uma Classe única de Impressora não Fiscal em ESC/POS

A Cielo nunca instalou nada... pois isso é feito por um "Integrador" TEF, e não pela Rede autorizadora... A Software Express, autora do G.P. discado, extinguiu o TEF discado...

Endereço para download do SATTeste.exe: http://www.projetoacbr.com.br/forum/index.php?/files/category/5-utilit%C3%A1rios-acbr/

Verifique os valores da DecimaisQtd e DecimaisPreco... se estiverem 0 ou errados ele pode arrendondar muito o valor... veja: EnviaComando('02|' + AjustaValor(Qtd,fpDecimaisQtd) +'|'+ Trim(LeftStr(Codigo,14)) +'|'+ AjustaValor(ValorUnitario, fpDecimaisPreco) +'|'+ Trim(LeftStr(Unidade,2)) +'|'+ AliquotaECF +'|'+ Trim(LeftStr(Descricao,33)) + IAT );

Não fui capaz de compreender o problema... Poderia por favor postar um "passo a passo" de como reproduzir o problema, usando o TEFDDemo ? (por favor informe as propriedades que precisam ser ajustadas no projeto)

Não existe tal problema... e não lembro de ter lido relatos semelhantes nesse fórum... Você mesmo compilou a aplicação ? Por favor descreva melhor o passo a passo para reproduzir o problema, usando a aplicação SATTeste.exe Tente com a disponível na área de downloads...

Obrigado pelo retorno Fabiane... Fico contente do ACBrSAT ter uma boa aceitação... Quanto mais usuários, mais estável deve ficar o componente...

E qual é exatamente a mensagem de Erro ??

A DIMEP gentilmente nos doou um equipamento... e pelos meus testes, (e após alguns ajustes), funcionou muito bem, usando o modelo "satDinamico_stdcall" Lembre-se de usar os dados que já vem programados no SAT da Dimep: