rodrigoogioni

Bom dia, Obrigado pela resposta, Tem numeric(x,x), mas nao uso este. Grato

Boa tarde Leandro, Firebird 3.0 e os campos monetarios utilizo Double Precision Grato

Bom dia a todos, estou com um problema de arredondamento, gostaria de ver a opinião dos amigos. Nessa figura, a soma total fica em 3166,86 Se eu fizer Select sum(VALORICMS) from DetailFiscal WHERE CODSEQ=:CODNOTA fica 3166,88 por causa dos arredondamentos Se eu fizer Select sum(Trunc(VALORICMS,2)) from DetailFiscal WHERE CODSEQ=:CODNOTA tambem fica 3166,88 Se eu fizer Select sum(CAST(VALORICMS AS NUMERIC(8,2))) from DetailFiscal WHERE CODSEQ=:CODNOTA fica 3166,89 Como eu poderia fazer para arredondar com o valor correto? Grato a todos

Obrigado Italo pela ajuda, como estou fazendo os testes em meu ambiente de testes, não sei se isso possa gerar alguma inconsistência. vou esperar algum cliente ligar com problema, atualizar, e fazer os testes diretamente em ambiente de produção. Grato

Peço desculpas, mas ainda não entendi direito o que teria que fazer pra mim resolver isso. Grato

Poder ser Italo, apenas peguei aquele arquivo gerado pelo acbrgnre e tentei importar la. Porem, não sei se o erro esta no preencher os dados no componente, ou o componente não esta funcional ainda. Por isso perguntei se alguem estava conseguindo, e como teve mudanças, não sei se o erro não esta em algo que eu esteja fazendo aqui. A principio parece que no xml gerado não consta se pertence a versao 1.0 ou 2.0 Não sei o que fazer. Grato

Tentei importar o xml 001-gnre.xml no portal da GNRE aparece esta mensagem

Bom dia! Fiz a atualização dos fontes agora, e aparece esse erro: Lote processado com pendencias, Falha na validacao do retorno da UF: O XML esta imcompleto. O campo [erro] deve ser informado. O que pode estar errado? Grato 001-gnre.xml 1955669560-ped-rec.xml 1955669560-pro-rec.xml 20190530091702-env-lot.xml 20190530091703-rec.xml

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

Com a 1.0, pelo que tenho lido é que ainda esta funcionando. Grato

Bom dia, estão conseguindo gerar? Grati

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

Boa tarde Everson, Obrigado pela resposta tem sim! acho que vai servir. Muito obrigado!

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

Bom dia! Não utilizo fr3 utilizo fortes, teria algum exemplo em fortes, ou até mesmo em fr3. Grato

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

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

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

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

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

aparentemente, tudo igual grato

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

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

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.

Obrigado, era isso mesmo, não tinha percebido que o nome tinha mudado. Valeu pela ajuda