Jump to content

rodrigoogioni

Membros
  • Content Count

    299
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by rodrigoogioni

  1. Boa tarde Italo, Então, nem a 1.0 esta funcionando aqui comigo, por isso o post. fiz a atualização da unit conforme indicado, mas da erro. Grato
  2. Com a 1.0, pelo que tenho lido é que ainda esta funcionando. Grato
  3. Bom dia, estão conseguindo gerar? Grati
  4. Bom dia! Estão conseguindo gerar com a unit disponibilizada? Mesmo na versão 1.0 esta aparecendo os seguintes erros: Este lote já foi enviado e já foi processado com invalidações! Falha na validacao do retorno da UF: O XML esta incompleto. O campo [erro] deve ser informado Será o que estou fazendo errado? Grato 001-gnre.xml
  5. Boa tarde Everson, Obrigado pela resposta tem sim! acho que vai servir. Muito obrigado!
  6. Obrigado pela Resposta, A principio, olhando a configuração das impressoras bluetouth elas imprimem pdf. O que estava pensando, como utilizo o fortes, seria gerar a nfe, gerar o pdf e envia-lo ao celular por datasnap. Vejo que seria o mesmo modelo da nfce, porem teria que ser a nfe. Isso é possivel? Grato
  7. Bom dia! Não utilizo fr3 utilizo fortes, teria algum exemplo em fortes, ou até mesmo em fr3. Grato
  8. Bom dia, Temos alguns clientes que estão querendo utilizar a nfe em um celular android e emitir a danfe em uma impressora bluetouch com bobina de 80mm. Gerar a nota consegui, porem imprirmir esta sendo a maior dificuldade. Isso é possivel utilizando componentes ACBR? Grato a todos
  9. Faço assim, marco no componente em arquivos para salvar o txt. e no codigo: Try dm.ACBrGNRE1.Enviar( false); except on e: exception do begin FMain.tipoerro:= 1; raise Exception.Create(e.message); end; End; if dm.ACBrGNRE1.WebServices.Retorno.codigo = 402 then begin dm.ACBrGNRE1.GuiasRetorno.Clear; dm.ACBrGNRE1.GuiasRetorno.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Backup\Documentos\GNRE\TXT\' + dm.ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt'); if fileexists(ExtractFilePath(Application.ExeName) + 'Backup\Documentos\GNRE\TXT\' + dm.ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt') then begin dm.ACBrGNRE1.GuiasRetorno.Imprimir; dm.ACBrGNRE1.GuiasRetorno.ImprimirPDF; end; end else begin Application.CreateForm(TFMessage, FMessage); FMessage.sLabel2.Caption:= 'codigo: '+ IntToStr(dm.ACBrGNRE1.WebServices.Retorno.codigo) + #10+#13+ 'descricao: '+ dm.ACBrGNRE1.WebServices.Retorno.descricao + #10+#13+ 'Recibo: '+ dm.ACBrGNRE1.WebServices.Retorno.numeroRecibo + #10+#13+ 'Protocolo: '+ dm.ACBrGNRE1.WebServices.Retorno.protocolo; FMessage.ShowModal; FMessage.Release; end; O acbr gera um txt, importo ele, dai gera o pdf e a impressão Abraços
  10. Descobri o porque, quando mando aqui no meu computador para testes, uso em ambiente de homologação. Ai la no cadastro do gnre so funciona como produção. Fiz como produção dai na 1.0 voltou a funcionar. Grato a todos
  11. entrei no site da gnre, importei o xml recusado no sistema, e por la esta gerando sem erros. o que sera que estou fazendo errado? grato
  12. Bom dia, Peguei o certificado e o banco de dados de um cliente que faz GNRE e ontem fizemos uma gnre no sistema antes de atualizar e um depois. A unica diferença entre os dois xmls é essa linha <c42_identificadorGuia>001</c42_identificadorGuia> Que acrescentei por que dava erro de ID INVALIDO. Nos sistemas de vcs está funcionando certinho? Grato
  13. aparentemente, tudo igual grato
  14. Descobri o problema. faltou essa informação c42_identificadorGuia := '001'; porem agora diz que o cnpj não esta habilitado para emissão, mesmo estando habilitado. Sera o que pode ser? Grato
  15. Boa tarde, Depois que atualizei essa semana a versao do acbr, não esta funcionando mais o envio nem na versao 1.0 nem a versao 2.0 Pra mim esta dando a mensagem ID Invalido. Impossivel salvar xml. Alguem sabe o que posso estar fazendo errado? Grato
  16. fiz o que o guilherme sugeriu Também tive este problema aqui em MG. Fiz a alteração no arquivo pcnNFeW.pas para não gerar os campos vBCSTRet, vICMSSTRet e vICMSSubstituto caso fossem zeradas e recompilar o ACBr_NFe. if (nfe.Det.Imposto.ICMS.vBCSTRET > 0) or (nfe.Det.Imposto.ICMS.vICMSSTRET > 0) then begin iTag := IIf((FOpcoes.TagNT2018005 = 0), 0, 1); Gerador.wCampo(tcDe2, 'N26', 'vBCSTRet ', 01, 15, 1, nfe.Det.Imposto.ICMS.vBCSTRET, DSC_VBCSTRET); if (NFe.infNFe.Versao >= 4) then begin Gerador.wCampo(IIf(FUsar_tcDe4,tcDe4,tcDe2), 'N26.1', 'pST', 01, IIf(FUsar_tcDe4,07,05), 1, nfe.Det.Imposto.ICMS.pST, DSC_PST); // Algumas UF estão exigindo o campo abaixo preenchido mesmo quando for zero. Gerador.wCampo(tcDe2, 'N26b', 'vICMSSubstituto', 01, 15, iTag, nfe.Det.Imposto.ICMS.vICMSSubstituto, DSC_VICMSSUBSTITUTO); end; Gerador.wCampo(tcDe2, 'N27', 'vICMSSTRet', 01, 15, 1, nfe.Det.Imposto.ICMS.vICMSSTRET, DSC_VICMSSTRET); end; aqui pra mim deu certo.
  17. Obrigado, era isso mesmo, não tinha percebido que o nome tinha mudado. Valeu pela ajuda
  18. Bom dia Felipe, obrigado pela resposta, Estou lendo esse tópico, mas ainda não consegui achar a solução para o problema que estou tendo. Vejo que no componente existe a propriedade mostrarpreview, mas ao compilar da o erro. O que poderia ser que esta errado? Grato
  19. Bom dia a todos, Atualizei agora o acbr, mas não consigo compilar, aparece a mensagem E2003 Undeclared identifier: 'MostrarPreview' Vi um tópico que dizia para excluir o componente e coloca-lo novamente no projeto, mas no meu caso, continua o problema. Grato a todos pela ajuda.
  20. Bom dia! Estamos tentando emitir nfe mas esta retornando o erro Erro ao obter resposta do Webservice. O servidor é o do SEFAZ do RS. Sera que esta o servidor esta com problemas? No site aparece como tudo normal. Grato
  21. Obrigado pela Informação!
  22. Bom dia! Alguem ja conseguiu fazer nf-e por uma empresa MEI que tenha IE em SC? Estou tentando liberar aqui mas a Receita Estadual diz que só pode ser emitido pelo SAT. Como vejo que alguns aqui no forum estão emitindo normal, gostaria de saber se é ma vontade ou falta de conhecimento dos funcionarios da Receita ou realmente existe uma lei proibindo. Grato a todos.
  23. Boa tarde a todos, Em alguns clientes estou recebendo a mensagem de erro 12002. Em outros clientes funciona normalmente. De ontem pra hoje começou a dar esse problema. Alguem sabe o que pode ser isso, Ja mudei configurações do certificado digital, mas nao adiantou. Grato
  24. repeat // Rotina que vai realizar a consulta e armazenar no banco de dados os dados retornados da NFe encontrada // para futura Manifestação. Application.ProcessMessages; Try ACBrNFe1.DistribuicaoDFe( verificacodigouf(dmx.TabEmpresaESTADO.Value), FMain.RemoveChar(dmx.TabEmpresaCNPJ.AsString), nsu.Text, '' ); Except on E:Exception do begin Showmessage2(e.Message); end; End; nsu.Text:= ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; FAguarde.sLabel1.Caption:= tentativa.ToString + '-' + 'Aguarde... Consultando Nsu: ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU + '-' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat.ToString ; Application.ProcessMessages; TratarRetorno; until (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137); Fiz um tratamento aqui nessa rotina Try ACBrNFe1.DistribuicaoDFe( verificacodigouf(dmx.TabEmpresaESTADO.Value), FMain.RemoveChar(dmx.TabEmpresaCNPJ.AsString), nsu.Text, '' ); Except on E:Exception do begin Showmessage2(e.Message); end; End; ele vai e vai sempre no nsu 1868 e faz umas 15 a 20 x dai retorna 656 consumo indevido e continua... deixei chegar até a tentativa 1000 depois parei. Sera o que estou fazendo de errado?
×
×
  • Create New...