Alan Leonidas da Silva

2 Julho, 2015

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 Julho, 2015

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

26 Maio, 2015

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

Mas obrigado pela contribuição.

26 Maio, 2015

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.

19 Maio, 2015

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.

30 Abril, 2015

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

28 Abril, 2015

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 :-P

28 Abril, 2015

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;

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

28 Abril, 2015

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

27 Abril, 2015

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

27 Abril, 2015

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

26 Abril, 2015

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.

20 Abril, 2015

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

16 Abril, 2015

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

1 Abril, 2015

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

1 Abril, 2015

Boa noite Régys,

Foi com a Daruma DR700?

Outra pergunta a cada quantas linhas você está solicitando a impressão? (LinhasBuffer = ?)

Obrigado desde já pela atenção.

31 Março, 2015

Olá a todos,

Ainda sobre meu caso acima, não sei se fiz certo ou errado (Aos mestres ACBR me desculpe se estou errado).

Resolvi, colocar um Sleep dentro da procedure TACBrNFeDANFeESCPOS.DoLinesChange(Sender: TObject);

Após isso começou a imprimir o cupom por completo;

Após o teste acima, resolvi criar uma propriedade no componente: IntervalBuffer, onde se o mesmo estiver maior que 0 (zero) irá ativar o Sleep com o tempo determinado por ele.

procedure TACBrNFeDANFeESCPOS.DoLinesChange(Sender: TObject);

begin

if (FLinhasBuffer > 0) and

(FBuffer.Count > FLinhasBuffer) then

begin

ImprimePorta(FBuffer.Text);

FBuffer.Clear;

if FIntervalBuffer > 0 Then

Sleep(FIntervalBuffer);

end;

Segue em anexo o ACBrNFeDANFeESCPOS.pas alterado por mim.

Novamente me desculpe se fiz alguma alteração desnecessária.

Obrigado desde já pelo auxilio.

Atenciosamente,

Alan Leônidas da Silva.

ACBrNFeDANFeESCPOS.pas

31 Março, 2015

Bom dia Menezesbr,

Pelo que entendi sim, mas ontem antes de enviar email para eles, antes de assinar o XML adicionei a tag:

<?xml version="1.0" encoding="UTF-8"?>

Mesmo assim no envio me retorna erro, não tive tempo de ver se é em outro lugar, vou precisar ler a nota técnica novamente para verificar se deixei passar algo como eles me orientaram.

Mas muito estranho que MT vai normalmente, mesma nota mesmos itens.

Vou dar continuidade no estudo amanhã, caso descubra algo nos avise por favor, pois estou ficando louco !!! kkkkkk

Abç!!!

31 Março, 2015

Bom dia a todos,

Fiz alguns testes e não obtive sucesso, então resolvi mandar um email para suporte nfce daqui de são paulo.

Obtive essa resposta:

Resposta da Mensagem 6565994

Prezado(a) Senhor(a),

O uso do UTF-8 está na NT:

POST_https://srv72067.intra.fazenda.sp.gov.br/EPECws/RecepcaoEPEC.asmxHTTP/1.1

Accept-Encoding: gzip,deflate

Content-Type: application/soap+xml;charset=UTF-8;action="_http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao/nfeAutorizacaoLote"

Content-Length: 3588

Host: srv72067.intra.fazenda.sp.gov.br

Connection: Keep-Alive

User-Agent: Apache-HttpClient/4.1.1 (java 1.5)

Note que em charset está especificado o UTF-8.

Agradecemos seu contato no "Fale Conosco" da Secretaria da Fazenda.

Sua opinião é muito importante para nós. Por gentileza, clique no link abaixo e opine sobre este e-mail:

Pesquisa de Satisfação

Atenciosamente,

Secretaria da Fazenda do Estado de São Paulo

Mensagem Original:

Rejeição: XML da área de dados com codificação dif

Boa tarde,

Estou com o seguinte problema na NFC-e, mesmo teste estou fazendo para um cliente do Estado do MT e está indo corretamente, mas aqui no estado de São Paulo me retorna: Rejeição: XML da área de dados com codificação diferente de UTF-8

O que posso fazer para saber o que está de errado em meu XML?

Obrigado desde já pela atenção.

Atenciosamente,

Alan Leônidas da Silva

NÃO RESPONDA ESTE E-MAIL Para fazer uma nova pergunta, clique aqui.

Não vou continuar analisando.

Obrigado.

30 Março, 2015

Bom dia a Todos,

Desculpe se estou abrindo um tópico que já existe no fórum, procurei muito, e fora procurar algo no fonte do componente.

Bom vamos ao meu problema.

Estou implementando a NFC-e no sistema da empresa em que trabalho e me deparei com o seguinte caso:

Estou utilizando a impressora Daruma DR700, no caso dela estou utilizando o ACBrNFeDANFeESCPOS;

Se faço uma NFC-e com mais de 200 Itens, ela não imprimi o DANFE por completo. Então encontrei a propriedade: LinhasBuffer.

Mesmo assim após informar uma certa quantidade de linhas não imprimi por completo.

Testei com LinhasBuffer: 100 , 50 , 20 , 10, 1; mesmo assim não saia o danfe por completo.

Existe alguma solução para isso?

Obrigado desde já pelo auxilio.

Atenciosamente,

Alan Leônidas da Silva.

18 Março, 2015

Olá,

Não sei se ainda estão com problema: "Venda de combustível sem informação de Transportador"

Enfrentei esse problema na migração da NFe 2.00 para 3.10;

Após muitos teste descobri que não estava enviando a TAG: <CNPJ> ou <CPF>

Transporta.CNPJCPF.

Após informar esse campo corretamente comecei a transmitir normalmente.

Espero ter ajudado,

Abraços

3 Março, 2015

Boa tarde italosouza.

Desculpe se estou respondendo alguma coisa fora da sua duvida.

Vamos la vamos ver se consigo lhe ajudar, pelo que entendi você está com duvida nessa coluna OK?

"NFe35141012889863000140550010000000011600556007"?

Também estou em fase de homologação da NFCe, em meus testes, não tive problema com essa nomenclatura.

Como fiquei com duvidas fui ver o fonte: Aparentemente o componente joga NFe mesmo, se você olhar o fonte: pcnNFeW. na function GerarXML.

[function TNFeW.GerarXml: Boolean;]

Há um trecho de código onde se joga "Fixo" [NFe], de acordo com o manual essa tag tem que ser precedida de NFe e não consegui localizar nenhuma nota técnica que retifique essa tag. [imagem em anexo]

Mas não sei ao certo se estou correto em minha conclusão.

Se não tem nada haver, me desculpe.

Até a próxima.

24 Fevereiro, 2015

Saudações a todos.

Juliomar Marchetti, resolveu meu problema, estava tentando reinstalar o componente ACBR para poder ter acesso ao componente ESCPOS para NFC-e, e não estava conseguindo reinstalar pois estava dando erro ao Compilar alguns pacotes.

Executando o apagarAcbr.bat dentro da pasta raiz do projeto ACBR resolveu o problema e instalou com sucesso.

Agradeço pela ajuda Juliomar.

12 Fevereiro, 2015

Bom dia André Luiz.

Isso mesmo que você entendeu as Operações são distintas,

Numeração diferente, série diferente.

Aqui na empresa em que trabalho temos um módulo de emissão de NFe, como a estrutura é praticamente a mesma, estamos adequando nosso emissor para que possa gerar os dois arquivos em um único emissor.

Ex: Cliente irá gerar a NFe vai utilizar o mesmo módulo, apenas habilitamos os parâmetros da NFe como: ModeloDF = moNFe e demais coisas que a NFe utiliza que já estamos todos acostumados.

Caso seja uma Operação de NFC-e o cliente irá utilizar o mesmo módulo, iremos carregar os parâmetros da NFCe: ModeloDF = moNFCe, Token, DanfeNFCe... e demais informações, carregamos no arquivo XML apenas os dados que é da NFCe.

Não sei se consegui esclarecer sua duvida.

Espero ter lhe ajudado.

10 Fevereiro, 2015

Boa tarde a todos.

Primeiramente desculpe se estiver fazendo uma pergunta "Idiota".

Estou implementando a NFC-e estou com uma duvida na linha [pagXXX], para ser mais exato no campo CNPJ.

Quando informo o código de autorização do cartão, informo a bandeira do cartão tem esse campo CNPJ. Esse CNPJ é da empresa que autorizou ou mais precisamente do meu cliente?!

Mais uma vez desculpe se for uma pergunta "Idiota"

Muito Obrigado a todos pela ajuda.

Att. Alan Leônidas.

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Alan Leonidas da Silva

Sobre nós...

Informação Importante