Alan Leônidas - LT Tech

Sim, a documentação atual está incorreta mesmo, foi um dos questionamentos que fiz para eles, ai no chamado me enviaram a documentação atualizada. Mas fico feliz por ter ajudado. Boa sorte!

Olá, tudo bem? Você deve estar informando como estava fazendo. Entrei em contato com o suporte dentro do próprio portal, onde me passaram essa documentação atualizada, mas resumidamente, você deve informar apenas os 8 primeiros digitos do CNPJ. Só tenho outra informação para fazer o download, o ticket usado deve ser o que será retornado para seu Webhook, para ser mais exato o valor do campo tiqueteDownload { "tiqueteSolicitacao": "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX.XXXXXXXX", "tiqueteDownload": "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX.XXXXXXXX" } PASSO 1: Autenticar (token) Faça a chamada para o endpoint abaixo, informando o clientID e clientSecret gerados para sua empresa ou procurador. A chave de acesso (token) gerada permite solicitar e baixar arquivos por até 1 hora. Após esse tempo, uma nova autenticação precisa ser realizada. Endpoint: https://api.receitafederal.gov.br/token Entradas: • [user] clientID e clientSecret. Retorno: • chave de acesso (token). PASSO 2: Solicitar (tíquete) Faça a chamada para o endpoint abaixo, informando a inscrição no CNPJ (apenas os 8 primeiros dígitos), chave de acesso (token) e webhook (URL), onde receberá o retorno da chamada. O acesso ao endpoint é restrito a 2 chamadas por dia. Excedido o número máximo de chamadas, a API retornará o erro 429: “Too many requests”. Endpoint: https://api.receitafederal.gov.br/rtc/apuracao-cbs/v1/{cnpj} Entradas: • [endpoint] inscrição no CNPJ (8 dígitos); • [header] chave de acesso (token); e • [body] webhook (URL). Retorno: • tíquete da solicitação. PASSO 3: Baixar (download) Faça a chamada para o endpoint abaixo, informando o tíquete gerado no passo anterior e a chave de acesso (token). O acesso ao endpoint é restrito a 8 chamadas por dia, sendo permitido um único acesso por tíquete. Endpoint: https://api.receitafederal.gov.br/rtc/download/v1/{tiquete} Entradas: • [endpoint] tíquete; e • [header] chave de acesso (token). Retorno: • arquivo JSON com a relação de débitos de CBS.

Olá a todos. Estou anexando nesse post 3 arquivos alterados para atender a seguinte necessidade: 1) Estamos utilizando o componente ACBrECFNaoFiscal (ACBrECFVirtualPrinter) para fazer o inicio de vendas, onde temos casos de itens arredondam e outros truncam; Ex: Combustível trunca e Demais produtos arredonda. No ECFVirtual por padrão arredondava sempre. Para resolver esse caso fiz a seguinte alteração no método vendaitem: Procedure VendeItem( Codigo, Descricao : String; AliquotaECF : String; Qtd : Double ; ValorUnitario : Double; ValorDescontoAcrescimo : Double = 0; Unidade : String = ''; TipoDescontoAcrescimo : String = '%'; DescontoAcrescimo : String = 'D'; CodDepartamento: Integer = -1 ) ; override ; Se as property ArredondaPorQtd e ArredondaItemMFD estiverem igual a False. O valor total será truncado (Trunca) do contrário irá arredondar (RoundABNT); Essa alteração foi feito em ambos fontes: ACBrECFNaoFiscal e ACBrECFVirtualPrinter. Dentro do ACBrUtil, criei a function Trunca. Em todos nossos testes resolveu e atendeu corretamente. Espero não ter feito nada de incorreto. Me coloco a disposição para quaisquer esclarecimento. Muito obrigado pela atenção e ajuda. ACBrECFNaoFiscal.pas ACBrECFVirtualPrinter.pas ACBrUtil.pas

Boa tarde a todos, Estou entrando em contato pelo meu usuário, pois não consigo acessar com a conta da TDP (SAC) estou tentando dificuldade em acessar com nosso usuário. Em um contato anterior com usuário da TDP Sistemas de Informação, falei com o Daniel Simões sobre algumas necessidades de alterações no ACBrSATExtratoESCPOS.pas; Não é erro que encontramos, apenas tivemos a necessidade de alterar o espaçamento. Foi criado nesse .pas em anexo as seguintes property: property LinhasEntItens : Integer read FLinhasEntItens write FLinhasEntItens default 0; property LinhasEntTotais : Integer read FLinhasEntTotais write FLinhasEntTotais default 0; property LinhasEntPagamentos : Integer read FLinhasEntPagamentos write FLinhasEntPagamentos default 0; property LinhasEntDadosEntrega : Integer read FLinhasEntDadosEntrega write FLinhasEntDadosEntrega default 0; property LinhasEntRodape : Integer read FLinhasEntRodape write FLinhasEntRodape default 0; Fizemos pois na Impressora Epson estava saindo muito junto a impressão. Não sei dizer como está saindo a Impressão na Bematech. Estou anexando para analise de vocês, pelo nossos testes está OK. Espero que tenha ajudado e não ter feito nada de errado. Desde já agradeço pela atenção. ACBrSATExtratoESCPOS.pas

Entendi, se você ver nos posts anteriores verá que a solução para esse problema foi ambas propriedades. Mas obrigado pela contribuição.

Olá, Mario Mesquita não entendi o que você quis me dizer... No meu caso quando estava com o problema defini as seguintes propriedades: LinhasBuffer = 100 IntervaloBuffer = 500 Dessa forma conseguia imprimir normalmente.

Carlos Boa noite, Agora estou sem o Drive em mãos na empresa acho que tenho o Drive; Mas se vc está com o mesmo problema, você tentou utilizar as propriedades: IntervaloBuffer e LinhasBuffer? Em meu caso e de "BigWings" resolveu.

Bom dia Régys. Concordo e entendo, você fez o correto. Eu que agradeço pela atenção. Mais uma vez muito obrigado pela ajuda. Até mais

Boa tarde Régys. Acabei de baixar a nova versão. Testei e funcionou normalmente. Acredito que o problema está na versão 02.51 da Daruma Dr700. Nesse caso a propriedade criada irá resolver o problema. Muito obrigado pelo empenho e por me ajudar. Desculpe a insistência. Até a próxima

Bom dia Regys. Fiz o Update do fonte e percebi que teve uma modificação no ACBrNFeDANFeESCPOS.pas. Percebi que foi colocado uma verificação: if not Self.Ativo then raise Exception.Create('Componente "ACBrNFeDANFeESCPOS" não está ativo!'); GravaLog('-- TX -> ' + AString, True); try // limpa o buffer de envio FDevice.Serial.Purge; // envia novo buffer FDevice.EnviaString(AString); except on E: Exception do begin GravaLog(''); GravaLog('-- ERRO -> ' + E.ClassName + ': ' + E.Message); GravaLog(''); raise; end; end; Essa Linha: FDevice.Serial.Purge; Se tento fazer comunicação com uma impressora na Rede Ex: \\Nome_da_Maquina\Compartilhamento Ele retorna um erro de comunicação. Na versão anterior ia normalmente. Fui fazer um teste com uma Epson TM 20, onde o driver que a veio junto com o equipamento não gera uma porta serial emulada. Fiz o mesmo teste com a Daruma DR700, via porta serial vai normalmente, mas via rede não imprimi. Se coloco um try except imprimi normalmente. Foi você que implementou esse tratamento? segue em anexo os .pas ACBrNFeDANFeESCPOSAtual.pas - É o arquivo atual que encontra-se no SVN (Com falha acima) ACBrNFeDANFeESCPOSAnterior.pas - É o arquivo versão anterior imprimi corretamente pois não tem a referencia acima. Obrigado mais uma vez pela ajuda e desculpe pelo incomodo; ACBrNFeDANFeESCPOSAnterior.pas ACBrNFeDANFeESCPOSAtual.pas ACBrNFeDANFeESCPOSAnterior.pas ACBrNFeDANFeESCPOSAtual.pas

Bom dia Régys, Desculpe-me pela demora. Segue abaixo os dados. Hardware: Sistema Operaciona: Windows 7 Ultimate 32-bits Intel Core i7-3770 CPU @ 3.40Ghz, 4,0GB RAM; (Versão atual da impressora abaixo não ocorre o erro. Versão que ocorria o erro 02.51.00) Impressora Dr700 L- Versão 01.21.00 Velocidade de impressão: 115.200 O Xml ja lhe enviei; A conexão utilizada está sendo USB, onde estou utilizando o driver da fabricante que emula uma porta serial (porta emulada COM2) : Segue em anexo o Driver utilizado: Driver_Spooler_700.exe Bom acho que o XML não precisa pois lhe enviei em uma mensagem anterior. Precisa de mais alguma informação Regys? Obrigado pela atenção. Driver_Spooler_700.zip Driver_Spooler_700.zip

Boa tarde Régys, Desculpe mas a pergunta acima foi para mim ou para Solivan?

OK, mais uma vez muito obrigado Régys, pela atenção.

Ok, Régys. Assim que tiver uma posição nos avise por favor. Você tentou fazer o teste com a propriedade que criei? Pois hoje estou utilizando essa solução. Acredito que BigWings deve estar utilizando a mesma solução. Obrigado mais uma vez pela solução.

Bom dia Régys. Estou anexando o XML com todos os itens que utilizei para teste. Uma observação, pode ser que o "Hardware" interfira nesse caso, por exemplo: Minha máquina é I7 com 4 de RAM, como o processador é "rápido" isso pode interferir no Buffer da impressora. Desculpe a pergunta, mas o teste que você fez foi em qual Hardware? Estou falando isso, pois tivemos problema em um clientes com Buffer de impressão, em um outro caso idêntico a esse mas em relatório feito por nossa empresa (Nada com o componente ACBR, apenas estou exemplificando). Sem a alteração feita por mim não consigo imprimir o DANFE até o final. Existe mais alguma informação que deseja que lhe passe? Algumas informações sobre a impressora: DR700 L; Testei a impressão com duas versões da Impressora a Versão: 02.51.00 com o erro que documentei acima; Sexta feira (17/04/2015) Mudei a versão da Impressora para poder utilizar via Spooler (Modificação feita pelo próprio suporte da Daruma). Versão: 01.21.00, com essa versão fiz alguns teste o erro não ocorreu. Qual seria a sua versão Régys. Pelo que vi a versão do [bigWings] está na na versão 02.51.00 também, acredito que a solução proposta por mim para essa versão corrige, para demais versões as propriedades criadas podem estar igual a 0; Mais uma vez muito obrigado pela atenção. 51150436934982000136650010000001489803359536-nfe.xml