Paulinho

Boa noite Leonardo, encontramos este Erro 100 - QR Code Inválido, era no campo Token estava usando UpperCase, sendo que era para usar conforme foi gerado o token.

Olá Leonardo, obrigado por responder. Fiz conforme sua orientação e quanto ao Erro 100 - QR Code Inválido ainda permanece mesmo estando pontos nos campos com valores. Já o erro de NFC-e inexistente na base de dados descobri o erro. Eu estava usando esta função function TFrmNFCEletronica.GetSiteConsulta(UF: string; Ambiente: TpcnTipoAmbiente): string; const site_uf_prod : array[0..6] of string = ('http://hml.sefaznet.ac.gov.br' 'http://homnfe.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp' 'http://www.hom.nfce.sefaz.ma.gov.br/portal/consultarNFCe.jsp' 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce' 'http://www.hom.nfe.rn.gov.br/portal/consultarNFCe.jsp' 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx' 'http://www.hom.nfe.se.gov.br/portal/consultarNFCe.jsp'); begin case Ambiente of taProducao: begin if UF = 'AC' then Result := site_uf_prod[0] else if UF = 'AM' then Result := site_uf_prod[1] else if UF = 'MA' then Result := site_uf_prod[2] else if UF = 'MT' then Result := site_uf_prod[3] else if UF = 'RN' then Result := site_uf_prod[4] else if UF = 'RS' then Result := site_uf_prod[5] else if UF = 'SE' then Result := site_uf_prod[6] end; taHomologacao: begin if UF = 'AC' then Result := site_uf_hom[0] else if UF = 'AM' then Result := site_uf_hom[1] else if UF = 'MA' then Result := site_uf_hom[2] else if UF = 'MT' then Result := site_uf_hom[3] else if UF = 'RN' then Result := site_uf_hom[4] else if UF = 'RS' then Result := site_uf_hom[5] else if UF = 'SE' then Result := site_uf_hom[6] end; end; end; ai deu certo a consulta através da geração do QrCode. Agora estou quebrando a cabeça para descobrir o Erro 100 - QR Code Inválido. Por enquanto obrigado, e caso ainda possam me ajudar quanto a este erro. Segue novos dados para geração do QrCode http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140215015986000140650010000000011000000017&nVersao=100&tpAmb=1&dhEmi=323031342d30322d31345431303a30313a35332d30333a3030&vNF=8.60&vICMS=0.00&digVal=5557565146776f7253577675767270416c4532446a52346e2b654d3d&cIdToken=000001&cHashQRCode=DD1F9D8C9D802EC43533AEF825FD14C30C03C9D9

Bom dia a todos, Leonardo consegui enviar um NFC-e em produção, porém ao consultar via QrCode apareceu a tela de conlsulta da nota e logo abaixo na tela de consulta a mensagem de NFC-e inexistente na base de dados conf. figura 1. Consultando direto a nota através do mesmo codigo utilizado para gerar o QrCode aparece a nota com erro 100 conf. figura 2 Será que estou fazendo algo de errado? Voce ou alguem teria alguma ideia do que possa ser? este é os dados para gerar o QrCode e que coloco direto para consulta e aparece a figura 2 http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140215015986000140650010000000011000000017&nVersao=100&tpAmb=1&dhEmi=323031342D30322d30333a3030&vNF=8,60&vICMS=0,00&digVal=5557565146776f7253577675767270416c4532446a52346e2b654d3d&cIdToken=000001&cHashQRCode=79BDA651F52423EF3746CF2FB1E618E330B118AC figura 2.bmp

Boa tarde, obrigado Leonardo, tentarei desta forma que você respondeu e depois postarei o resultado.

Boa tarde a todos, gostaria de saber se desta forma foi enviado corretamente NFC-e em produção? Qual seria o correto, desta forma como esta citado mais acima ou desta outra forma que o Erold postou if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin // vidToken fornecido pelo contador FIdToken := FormatFloat('000000', vIdToken ); end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin // vToken fornecido pelo contador // verificar com o contador sobre esse TOKEN FToken := Trim(vToken); end; ?

Bom dia pessoal, quero agradecer a todos que me ajudaram tirando as duvidas de como baixar e instalar no delphi7 o ZintBarcode. Agora é dar sequencia na impressão do Danfe da nfc-e. Obrigado

Olá valdirdill, não entendi se você quis me ajudar colocando assim uma resposta anterior sobre formação do token. Foi esta sua intenção?

Bom dia a todos, evandromira ou alguém que tenha conseguido instalar o Zint BarCode. Como foi possivel baixar e instalar? Pois entro na pasta Projects, D10 conforme orientado e clico no arquivo ZintBarCode.dpk só que ele abre o arquivo no próprio navegador e quando tento salvar o arquivo ele é salvo como arquivo txt. Poderia me informar quais passos a serem feitos para conseguir instalar no delphi7.

Olá Daniel, como pedido, segue os fontes zipados ACBrSerial.rar

Bom dia, tem este outro fórum que fala do mesmo erro:

Bom dia a todos, eu também estava com este mesmo erro e consertei da seguinte forma: nesta parte do código logo abaixo em vermelho o ArqTmp vem com o diretorio do arquivo mais o nome, utilizado nesta linha ArqTmp := ExtractFilePath( NomeArquivo ) + 'Memoria.tdm' ; Já NomeArquivo, traz como parametro o diretório que voce passar quando chama o ACBrECF1.PafMF_GerarCAT52, que por sinal esta função do ACBrECF chama outra função fsECF.PafMF_GerarCAT52 do ACBrECFClass. E nesta ultima função o tipo dela é virtual. Então digamos que eu tenha passado o diretorio C:\PAF como parametro na função ACBrECF1.PafMF_GerarCAT52, quando ele chega nesta ultima funçao citada pelo Jocimar, o NomeArquivo fica como C:\PAF\ . Desta forma este xElgin_GeraArquivoATO17Binario não encontra a pasta para salvar o arquivo. iRet := xElgin_GeraArquivoATO17Binario( ArqTmp, NomeArquivo, DiaIni, DiaFim, 'D', Prop, cFinalidade); //Erro na execução desta função Já neste código abaixo dá certo porque como foi comentado o nome do CAT-52 é especificado. else // Urano e demais begin if (Finalidade = finNFPTDM) then //Quando gero pela elgin fit cai aqui, porque o nome da ecf que vem é ZPM //TODO: gerar o "nome do arquivo" no padrão CAT-52 //Geralmente as DLL's precisam somente do diretório, o nome do arquivo é gerado automaticamente. //No caso da Urano você deve especificar o nome do arquivo (ACBr tem alguma função pra gerar esse nome no padrão cat?) if Length(Trim(ExtractFileName(NomeArquivo))) = 0 then NomeArquivo := NomeArquivo + 'CAT52.txt'; end; Obs.: percorrendo o código encontrei isto como descrevi, minha solução foi também especificar o NomeArquivo:= NomeArquivo+'CAT.txt' dentro do if (fsMarcaECF = 'elgin') . Ai o arquivo foi gerado certinho. Agora outra dúvida que me bateu, ele gerou em arquivo txt, no caso da Elgin e Epson TM-T81 FBIII para este mesmo arquivo, eles não geram arquivos diários com nome estranho, tipo a Bematech que gera além do txt arquivos com este nome: 'BEJ86891.11E'? Pergunto porque tenho clientes em Porto Velho em que seus contadores querem de qualquer forma estes arquivos diarios, a solução que tenho no momento para gerar estes arquivos diarios é pelo aplicativo disponibilizado pela empresa das impressoras. Lembrando que estou usando as ultimas DLLs do componente ACBr atualizadas.

Boa tarde italojjr, é este arquivo. Qualquer outra dúvida que eu puder informa me informe. 16-env-lot-c.xml

Bom dia pessoal, utilizando o ACBrNFSe para envio da notas de serviço para Porto Velho está gerando um erro ao clicar no botao Gerar e Enviar Lote, no caso chega a ser enviado, porém no momento em que faço a consulta do lote é apresentado o erro: E186 : requisição de serviço inválida. O sistema não conseguiu capturar o parâmetro NFSeCabecMsg ou NFSeDadosMsg. Entrando em contato com o suporte da NFSe de Porto Velho foi me passado que o arquivo xml soapui-RecepcionarLoteRps deverá estar igual ao deles e vi que na function TProvedorPVH.GeraEnvelopeRecepcionarLoteRPS(URLNS: String; CabMsg, DadosMsg, DadosSenha: AnsiString): AnsiString; está diferente. Seria possivel ser isto o erro? segue em anexo o arquivo me passaram de como deve estar. soapui-RecepcionarLoteRps.xml

Bom dia a todos, e para quem não usa o ACBrMonitor e tenta gerar pelo ACBrECF.pafmf_gerarcat52 não é mais para utilizar esta? tem que usar ArquivoMFD_DLL?

Ola Juliomar, após a atualização o delphi apresentou erros de que o SuportaSaque e SuportaDesconto não estão declaradas.

É aconselhável juntar o ACBr e a dll no sistema? Não daria nenhum problema, tipo uma depêndencia do sistema para usar a dll? Pensando bem haverá uma depêndencia sim da dll só que essa depêndencia será somente neste momento de gerar este arquivo sintegra para recuperar essa informação, correto.

E neste caso voce teria uma outra idéia do que fazer ou o que usar?

Bematech MP-4000 TH FI

bom dia, eu pensei mesmo no sintegra e vendo sua reposta mais acima tentei usar o método ArquivoMFD_DLL passando o parâmetro docTodos (por que docSintegra nao tem) e passando a finalidade= finSintegra, foi gerado o arquivo nesta estrutura com registros E01 até E21 desta forma tento a saber o que é cada registro pelo layout do ato cotepe 17/04 e não consigo encontrar o valor ou o registro a respeito do grande total. Este método ArquivoMFD_DLL gera este arquivo mesmo? Obs.: este é o arquivo que foi gerado usando o metodo, tentei somente anexar o arquivo mas deu um erro de que eu não tenho permissão para fazer upload então postei dessa forma mesmo,o ruimm que ficou muito extenso mas é somente para voce ver o layout que foi gerado. Removido o conteúdo do arquivo

o Caso é o seguinte, estou fazendo uma maneira de recuperar dados dos ecf por periodo (cupom fiscal, itens do cf, meios de pagamentos, reduçãoZ e detalhes da redução Z) e já estão sendo gravado todos os dados, o que falta seria apenas o grande total da redução Z. Eu estou usando o ArquivoMFD_DLL para gerar o arquivo em txt e posteriormente importar para o banco, só que neste arquivo não tem o grande total. O arquivo que percebi que tem o grande total e que gere o arquivo lendo a memoria é o ArquivoLMFC_Espelho, só que o layout dele vai dar um trabalhão para eu pegar os valores de que preciso. Por isso gostaria de saber se existe um outro arquivo com uma estrutura padrão e que tenha o valor do grande total.

Boa tarde a todos, Hildegard Pires neste arquivo em que citou que conseguiu gerar nele apresenta o registro 60M e 60A? regys voce tem conhecimento de que o ACBr gere algum arquivo onde o layout seja padronizado (ex: Ato cotepe) e que nele esteja relacionado o registro 60M e 60A?

Então a resposta para um melhor entendimento sobre o que cada uma das funções que citei acima fazem dependem das informações passado por eles? blz, vou procurar tal informação. Obrigado.

Bom dia pessoal,consegui a tal senha de manutenção de configuração do Pay&Go cliente com a sevenpdv para marcar a opção de desfazimento, pra quem precisar é esta a senha:14142135.

Boa tarde a todos, alguém possui a senha de configuração do Pay&Go cliente, para que eu possa marcar esta opção de acata desfazimento. Já usei a 314159, 1111 e também 111111 e não deram certo e estou com o mesmo problema do colega joseadolfojr mas é no Pay&Go.

Olá Daniel, este arquivo quem solicita sempre é um cliente de uma filial nossa em Porto Velho. Não entrei em detalhes com o pessoal de nossa filial, mas o que nos informa é que o contador dele usa esses arquivos para um controle. Para isto estamos utilizando o método ACBrACF.PafMF_GerarCat52, porém buscando aqui no fórum algo falando se era necessário estar sempre gerando este arquivo me deparei com estes outros tópicos, ai surgiu esta dúvida. Se existe no projeto tais métodos achei importante entender melhor a diferença entre eles, pois senão houvesse nenhuma diferença existiria apenas um deles que estaria gerando o arquivo.