Intelliware

No caso de SAT para supermercado, deverá ser informado estes campos apartir de 01/04/2016?

Alguém conseguiu alguma informação adicional de como efetuar a condição de contorno para CF-e rejeitado em produção?

Show. Entendi Daniel. É que tivemos que fazer uma modificação específica para um outro caso de controle interno aqui e apesar de fazer os testes e analisar o XML ainda fiquei meio preocupado. Agradeço novamente a explicação. Já atualizei aqui com a correção do SVN.

Daniel, realmente deu certo. Só uma pergunta, no caso acima, quando eu modifico a classe TEntrega, por exemplo, essa propriedade é mapeada para o XML do CF-e, aparecendo posteriormente no arquivo final do processo de venda?

Exato, se apenas temos o destinatário do CF-e não setar automaticamente os dados da entrega. Show, estamos testando aqui. Agradeço.

Então, o cabeçalho está perfeito, sem problema. O que validamos com o source atual, foi que quando utilizamos ESC/POS e identificamos o destinatário do CF-e, automaticamente é mostrado no corpo do extrato o nome do mesmo como sendo para entrega. Conforme o arquivo em anexo. Pelo que vimos, foi um tratamento incluso no tópico: No caso abaixo, não efetuamos a entrada de nenhuma informação para entrega, mas mesmo assim, no corpo do extrato temos DADOS PARA ENTREGA. No nosso caso, informações de entrega são tratadas no nosso AC em módulo separado. Por isso, fizemos a proposta de alteração no source acima.

Opa, sim. Estamos atualizando o source da ACBr praticamente todo dia, pois estamos em testes para liberação da nossa primeira versão do SAT. Sem problema Daniel, foi apenas uma sugestão. Desde já agradeço.

Para o nosso caso, efetuamos nas units as seguintes alterações: procedure TACBrSATExtratoESCPOS.GerarDadosEntrega; //ACBrSATExtratoESCPOS.pas begin if Trim(CFe.Entrega.xLgr)+ Trim(CFe.Entrega.nro)+ Trim(CFe.Entrega.xCpl)+ Trim(CFe.Entrega.xBairro)+ Trim(CFe.Entrega.xMun)+ Trim(CFe.Entrega.xNome) <> '' then begin FBuffer.Add('</fn></linha_simples>'); FBuffer.Add('DADOS PARA ENTREGA'); if Trim(CFe.Entrega.xLgr)+ Trim(CFe.Entrega.nro)+ Trim(CFe.Entrega.xCpl)+ Trim(CFe.Entrega.xBairro)+ Trim(CFe.Entrega.xMun) <> '' then begin FBuffer.Add('<c>'+Trim(CFe.Entrega.xLgr)+' '+ Trim(CFe.Entrega.nro)+' '+ Trim(CFe.Entrega.xCpl)+' '+ Trim(CFe.Entrega.xBairro)+' '+ Trim(CFe.Entrega.xMun)); end; if Trim(CFe.Entrega.xNome) <> '' then FBuffer.Add(CFe.Entrega.xNome); end; end; E na unit 'pcnCFe.pas': { TEntrega } TEntrega = class private FxNome: string; FxLgr: string; Fnro: string; fxCpl: string; FxBairro: string; FxMun: string; FUF: string; public constructor Create; procedure Clear; published property xNome: string read FxNome write FxNome; property xLgr: string read FxLgr write FxLgr; property nro: string read Fnro write Fnro; property xCpl: string read FxCpl write FxCpl; property xBairro: string read FxBairro write FxBairro; property xMun: string read FxMun write FxMun; property UF: string read FUF write FUF; end; Com isso, caso o colaborador, deseja identificar o emitente do CF-e como o destinatário de entrega, efetuaria a atribuição: CFe.Entrega.xNome := CFe.Dest.xNome; E no nosso caso, como utilizamos a tag 'Informações complementares' para efetuar a manipulação dos dados quando existe fechamento na forma de recebimento em 'CLIENTE' mantemos: CFe.Entrega.xNome := ''; Lembrando que é somente uma sugestão. Desde já agradeço.

Bom dia, Notamos que ao identificar um cliente em uma venda utilizando o EscPos, aparece o bloco "Dados para Entrega" com o nome do consumidor, mesmo sem possuir entrega vinculada. Este parâmetro não é registrado no XML, até porque não existe um "nome do destinatário" no leiaute do SAT. Vasculhando o fórum, encontramos o tópico "Nome do destinatario cupom sat", onde foi inserida a linha "Trim(CFe.Dest.xNome)'' na procedure "TACBrSATExtratoESCPOS.GerarDadosEntrega". Há possibilidade de existir um meio termo, afinal não foi identificado entrega no cupom. Obrigado.

Opa, valeu Daniel. Vou dar uma olhada na classe 'RLLayout'.

Bom dia pessoal, Quando vou efetuar a impressão do CF-e no Fortes Report, tenho a opção de mostrar um preview que me exibe em detalhes como irá ser impresso o mesmo no POS. Fiz um relatório de vendas, onde gostaria de apartir do XML da pasta CfeVendas, gerar este mesmo preview para facilitar pro usuário a visualização dos dados. Seria possível efetuar esta implementação? Não estou familiarizado com o fortes, procurei algum exemplo de uso neste sentido e não encontrei. Desde já agradeço qualquer opinião a respeito.

Entendi. Agradeço Daniel.

No caso estamos utilizando o Fortes Report para imprimir o CF-e.

Boa tarde pessoal, No campo de observações do contribuinte teria como em uma determinada linha colocarmos a mesma em negrito? No nosso caso, vamos manter um contador(COO) interno ao banco e gostaríamos de destacar(colocar em negrito) esta informação entre as outras apresentadas ao cliente. Estamos como uma certa dificuldade em rastrear no source onde esta informação é processada para ser impressa na impressora POS. Desde já agradeço.

Blz, Daniel. Vamos implementar aqui.

Blz, Daniel. Agradecemos.

Daniel, boa tarde! Hoje fuçamos um pouco mais sobre este problema e aparentemente conseguimos solucioná-lo, modificando a função "TACBrPosPrinter.TxRx". Primeiramente, limpamos o buffer da porta serial antes do envio dos comandos, resolvendo cerca de 50% dos retornos errôneos. Depois colocamos um "sleep" de 10ms (com 2ms já resolveu) entre a transmissão e a recepção dos bytes, solucionando 100% dos retornos errôneos. Segue o bloco modificado: function TACBrPosPrinter.TxRx(ACmd: AnsiString; BytesToRead: Byte; ATimeOut: Integer; WaitForTerminator: Boolean): AnsiString; begin if FDevice.IsSerialPort then FDevice.Serial.Purge; GravarLog('TX -> '+ACmd, True); FDevice.EnviaString( ACmd ); if FDevice.IsSerialPort then Sleep(10); if WaitForTerminator then Result := FDevice.LeString(ATimeOut, 0, chr(BytesToRead)) else Result := FDevice.LeString(ATimeOut, BytesToRead); GravarLog('RX <- '+Result, True); end;

Só aproveitando, quando peço para gravar a linha em arquivo, vários caracteres especiais são incluídos. A ACBr têm alguma função que possa transformar esses caracteres em representações em forma de string? Facilitaria a leitura.

Boa tarde Daniel, no caso, este evento ele irá conseguir logar somente os comandos que utilizarem ESCPOS, no caso do CF-e que utiliza o Fortes Report, não irá aparecer no log, correto?

Obrigado, Daniel. Melhorou, mas infelizmente não resolveu. Inclusive aumentei a quantidade da tolerância de falhas no código que você postou, mas não muda muita coisa. Será que seria alguma função específica que a Sweda difere da Epson?

Aumentamos para 2s e até para 20s e o problema continua da mesma forma. Capturei o erro gerado pela exceção e realmente diz sobre o timeout: 'Communication error 9997: Timeout during operation'. O estranho que mesmo com o timeout alto, não altera o tempo da leitura, o que talvez não esteja chegando ao final do mesmo. Confirmei em debug que o novo valor inserido está sendo passado para as funções subsequentes.

Mudei, mas continuou da mesma forma.

Ok, é que no debug, o "stErro" estava sendo adicionado na exceção gerada ao tentar ler o byte (B := ord(fpPosPrinter.TxRx...) e não no teste (TestBit...). O que poderíamos fazer neste caso então?

Exato, não há mensagem de erro, mas retorna o status [stErro] ora de forma aleatória, ora logo após mandar ativar.Veja o retorno ao mandar ler o status várias vezes seguidas na figuras em anexo. Note que retorna também "stGavetaAberta", "stTampaAberta" erroneamente. Na função "TACBrEscPosEpson.LerStatus", retorna [stErro] justamente na exceção.

Bom dia, Possuímos para testes uma impressora não-fiscal Sweda, modelo SI-300S configurada para o modo EPSON. A impressão de textos, qrCode e código de barras ocorrem normalmente, tanto com o Fortes Report, quanto no ESCPOS. No entanto, falhas de leitura ocorrem ao tentar verificar o status por meio da função "ACBrPosPrinter.LerStatusImpressora" que cai na "TACBrEscPosEpson.LerStatus", que atrapalham bastante pois antes de cada impressão, verificamos o status da impressora. Em debug, noto que as exceções ocorrem em pontos diferentes desta função. Já tentamos diminuir buffer da porta serial emulada e mesmo ligando diretamente um uma porta física do computador, ocorre o mesmo problema. Segue em anexo um log (log.txt) gerado pelo ACBrPosPrinter - teste. Desde já, agradeço.