Ir para conteúdo
  • Cadastre-se

Alan Leonidas da Silva

Membros
  • Total de ítens

    31
  • Registro em

  • Última visita

Últimos Visitantes

824 visualizações

Alan Leonidas da Silva's Achievements

Explorer

Explorer (4/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

2

Reputação

  1. 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
  2. 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
  3. Entendi, se você ver nos posts anteriores verá que a solução para esse problema foi ambas propriedades. Mas obrigado pela contribuição.
  4. 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.
  5. 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.
  6. 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
  7. 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
  8. 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
  9. 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
  10. 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.
  11. 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
  12. Boa tarde Régys. Desculpe incomodá-lo mas você conseguiu ver o que lhe enviei, verificou se fiz algo de errado? Mais uma vez desculpe, e muito obrigado pela atenção
  13. Bom dia Régys. Então devo estar preenchendo alguma configuração incorreta. Segue em anexo imagem de como fica o DANFE se deixar com 0 (Zero) na propriedade LinhasBuffer. Segue a configuração, e como fica na impressora. Mesmo colocando um valor na propriedade LinhasBuffer, ela fica da mesma forma ela não imprimi o Danfe por completo. Apenas quando preencho a propriedade IntervalBuffer (Criado por mim) que imprimi corretamente. Mais uma vez obrigado pela ajuda e atenção Régys; Atenciosamente, Alan Leônidas da Silva
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.