Dionatan Santos

Pessoal atualizei os fontes e agora estou enfrentando alguns problemas na Inutilização de Numeração: Rejeicao: Erro na Chave de Acesso - Campo ID nao corresponde a concatenacao dos campos correspondentes Versão que estou usando 3.10 Segue o XML.... Valeu.... 43209260121000015365001000000957000000957-ped-inu.xml

Ta mas e o que podemos fazer Juliomar... Ja atualizei fontes... e tudo mais... e nada...

Pessoal atualizei o ACBR e na impressão do meu NFCE esta dando o seguinte erro: --------------------------- WJ Informática - SISCOM - PDV --------------------------- Erro ao calcular Hash do QR-Code --------------------------- OK --------------------------- So que engracado que se eu fechar o sistema e abrir novamente ele nao da erro.. Fui mais afundo para ver o problema: Access violation at address 100468DA in module 'libeay32.dll'. Read of address Isso acontece sempre quando imprimo o segundo cupom... Uso o procedimento: with ACBrNFe1.NotasFiscais.Items[0].NFe do begin Memo1.Text := NotaUtil.GetURLQRCode(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF, ide.tpAmb, procNFe.chNFe, cDest, Ide.dEmi, Total.ICMSTot.vNF, Total.ICMSTot.vICMS, procNFe.digVal, '000001', FrmPrincipal.edtIdToken.Text); end; O erro acontece em ACBRNFeUtil.pas em class function NotaUtil.GetURLQRCode(const AUF : Integer; AAmbiente : TpcnTipoAmbiente; O que pode estar acontecendo? como dito anteriormente se fecho a aplicação e mando imprimir o cupom sai normal, mas se imprimo o segundo dae da o erro... Valeu..

Não consegui acessar DANIEL esta bloqueado o POST...

Abra o Arquivo Gerado e verifica a linha... você vai ver que contem linhas inválidas... retira estas linhas com os caracteres especias salva o arquivo e tenta validar novamente.. passei por um problema parecido com a ELGIN

Perfeito e obrigado pela explanação.....

Pessoal apos o cancelamento o xml não esta sendo atualizado.... como posso forçar esta atualização e imprimir ? mesmo consultando o XML depois ele traz a impressão como "AUTORIZADO"... Valeu

Obrigado Juliomar e desculpa pelas replicações....

Pessoal alguma novidade sobre o Convenio: ECF 09/09 – Por enquanto apenas Santa Catarina. Uma versão evoluída do ECF Atual, Tem MFD, Faz cupom, LX, Z, etc.. porem possui duas características que definem o produto (são muitas mas estas duas são as que fazem a diferença) SCU – Set de Comandos ÚNICO – Todo ECF 09/09 independente de Marca deverá possuir o mesmo SET de comandos. Assim todas as impressoras recebem e respondem o mesmo comando. Eu tive o privilegio de criar, escrever e apresentar a primeira versão do SCU para o fisco em Brasília, o que mais tarde após um trabalho do grupo na AFRAC se tornou Padrão no País. Conectado –Este ECF (pelo menos é o que diz a lei) ele possui uma porta ETH para que os cupons fiscais emitidos sejam enviados para o Fisco, ou seja, cada cupom impresso, ou em “blocos de cupom impresso” ou na Redução Z, serão enviados para o Fisco. Ainda há duvidas se neste modelo o PAF Sobrevive ou passa por uma simplificação. Mas para todos os efeitos a Obrigatoriedade do ECF 09/09 NÃO ELIMINA a exigência do PAF nos estados que adotarem a Impressora 09/09 Texto Retirado: http://www.regys.com.br/cenarios-atuais-do-ecf-e-nfc-e/ O Acbr, ja esta em desenvolvimento ou tem alguma coisa pronta? desculpa pois procurei nos topicos e nao encontrei nada de concreto.. Recebi um Email do Claudenir Andrade, da Urmet Daruma, nos mostrou, durante a entrevista feita na AUTOCOM 2014, o funcionamento da nova impressora, conectada, do Convênio 09/09. Abraço e desculpe eventuais transtornos de replicação...

Desculpem pessoa foi erro meu mesmo... O Token era: '0F4198FF-BC96-42E1-A33E-A5D276019461' Valeu....

Pessoal, estou com uma dificuldade para geração do Hash do QRCode... estou fazendo de dois jeitos: if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); cDest := Iif(Length(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); with ACBrNFe1.NotasFiscais.Items[0].NFe do begin inputbox('', '', NotaUtil.GetURLQRCode(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF, ide.tpAmb, procNFe.chNFe, cDest, Ide.dEmi, Total.ICMSTot.vNF, Total.ICMSTot.vICMS, procNFe.digVal, '000001', '')); end; with ACBrNFe1.NotasFiscais.Items[0].NFe do begin inputbox('', '', NotaUtil.GetURLQRCode(ide.cUF, ide.tpAmb, SomenteNumeros(infNFe.ID), //correcao para pegar somente numeros, estava indo junto o NFE DFeUtil.SeSenao(Dest.idEstrangeiro <> '', Dest.idEstrangeiro, Dest.CNPJCPF), ide.dEmi, Total.ICMSTot.vNF, Total.ICMSTot.vICMS, signature.DigestValue, '000001', '0F4198FFBC9642E1A33EA5D276019461')); end; end; Fiz este procedimento pois esta dando o erro de QRCode: Msg: 411 - QR-Code Inválido (Hash do QR-Code) Obs: Ambiente de Homologação - Estado RS O que estou fazendo errado? Ambos os dois não deu certo... Valeu...

Pessoal quando o servidor requer autenticação onde eu marco essa opção?

Pessoal, estou com um problema com a Daruma FS600... Quando eu coloco a quantidade de 10000 itens simplesmente a impressora imprime 1000.... achei que eu estava fazendo uma "barberagem"... mas não.. debuguei todo o programa.... Segue o log ... Aguardo Atenciosamente... Desculpe por eventuais duplicações de Post... acbrlog.txt

Segue o Material da CDL de Porto Alegre... Att Dionatan Segue o link do material ( não consegui mandar por aqui pois não aceitou arquivos xls) https://mega.co.nz/#!bBlD3DoR!KwHSN79eqWs4Ebp3U-poD8WhmanFyIA_a7vemtjOMOw

Também ja estamos emitindo em PRODUÇÃO a todo vapor hehee.. e olha que não são poucos cupons... que precisar de alguma ajuda manda ai que tento ajudar... Obs: Estado do RS...

Obrigado pela explicação Daniel.... Tenho sim ... não esta sendo impresso os dados do Cliente... Pelo demo da Daruma imprime normalmente Daniel posso ate te mandar os dois cupons para voce verificar... Att Dionatan

Cara debugando linha a linha (unit AcbrECF) cai nesta situacao: procedure TACBrECF.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); var Tratado : Boolean; RodapePafECF: String; begin if (Observacao = '') then Observacao := fsMensagemRodape ; if (not Consumidor.Enviado) and (not IdentificaConsumidorRodape) then begin if Consumidor.Documento <> '' then Observacao := Observacao + '|CPF/CNPJ consumidor: '+Consumidor.Documento ; if Consumidor.Nome <> '' then Observacao := Observacao + '|Nome: '+Consumidor.Nome ; if Consumidor.Endereco <> '' then Observacao := Observacao + '|Endereco: '+Consumidor.Endereco ; end ; Pergunto, por que esse teste do IdentificaConsumidorRodape ? Como eu passo ele false pois quando eu atribuo false ele nao aceita.... Por isso que nao esta sendo impresso...

Realmente nao esta mostrando o que eu quero dizer e que o comando esta sendo enviado conforme consta no log.. o por que nao esta saindo isso eu nao sei lhe dizer... pois os dados do cliente donsta logo apos o fechamento do cupom como voce pode observar no arquivo

Boa Tarde Juliomar, Eu Coloquei sim cara... Veja os comandos: ACBrECF1.IdentificaConsumidor(Dados.varCPF_CNPJCliente, Dados.varNomeCliente, Dados.varEnderecoCliente); ACBrECF1.IdentificaConsumidorRodape; tanto que se voce observar o nome do cliente esta saindo no LOG (So nao vou colocar os dados aqui) mas olha no arquivo nessa linha: -- 16:19:33:175 FechaCupom( Vendedor: Anelise ) TX -> [ESC][201]..... Anexei novamente o log... acbrlog.txt

Pessoal..... Estou com uma duvida referente a ECF Daruma FS-600... Estava fazendo os teste e apos abrir o cupom eu identificava o cliente (ja com o cupom aberto e alguns itens), dentre tanto eu usava o comando ACBrECF1.IdentificaConsumidor ... Bom não recordo a data, mas depois que atualizei o ACBR ele não colocou mais a informação no RODAPE do Cupom... Antes saia normalmente.. Anexo o Log para verificação... Att Dionatan acbrlog.txt

Solução encontrada pelos desenvolvedores da ELGIN: "Abra o arquivo, edite-o e troca onde tem acentuação..." isso que tem vários clientes com esta ELGIN modelo K.... Sinceramente, suporte com esta solução nota ZERO... já nem recomendo o compra.... Imagina cliente ja faz dois meses com a entrega da NFG em atraso.... mas fazer o que.... alguém conseguiu gerar (sendo o arquivo validado com sucesso) o arquivo com esta impressora? Solução: Editar o Arquivo e trocar as palavras com Acentuação... RESOLVIDO

Italo, Obrigado por responder.. Não teste ainda em produção... Estou fazendo a consulta assim: with ACBrCTe do begin try Conhecimentos.Clear; Conhecimentos.LoadFromFile(varCaminho); Consultar; if WebServices.Consulta.cStat = 101 then begin ACBrCTeDACTeQR.CTeCancelada := True; Configuracoes.Geral.AtualizarXMLCancelado := True; ACBrCTeDACTeQR.ProtocoloCTE := WebServices.Consulta.Protocolo; FMensagemErro := TFMensagemErro.Create(Self); FMensagemErro.Linha1.Caption := 'ATENÇÃO'; FMensagemErro.Memo1.Lines.Add('CTE Cancelado.'); FMensagemErro.ShowModal; end else ACBrCTeDACTeQR.CTeCancelada := False; Conhecimentos.Items[0].ImprimirPDF; if FileExists(ACBrCTeDACTeQR.PathPDF + '\' + ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.chCTe + '.pdf') then ShellExecute(Handle, nil, pchar(ACBrCTeDACTeQR.PathPDF + '\' + ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.chCTe + '.pdf'), nil, nil, SW_SHOWMAXIMIZED); end; Minha pergunta do jeito que esta o código ele vai colocar a tarja de "CANCELADO"...?? Aguardo...

Pessoal sei que o cancelamento do CTE é por Evento.. Minha duvida é: Não estou conseguindo atualizar o XML, mesmo estando a propriedade AtualizarXMLCancelado como True... E QUANDO MANDO IMPRIMIR SEMPRE APARECE CTE Autorizado... Como posso fazer para aparecer a tarja de CTE Cancelado e atualizar o XML.. li em outros post que era so para setar esta propriedade porém não funcionou..?

Postado em outro tópico... Desculpem....

segue o txt.... Arquivo.txt