Daniel Caus

Boa tarde! Estou testando a NFC-e com o FortesReport CE em uma impressora Bematech MP 2500. Os fontes estão atualizados e utilizo o trunk2. Em um cliente nosso as 2 primeiras impressões ocorreram sem problemas (conforme a imagem em anexo), mas ao imprimir a 3º NFC-e com somente 1 produto o danfce ficou deste jeito (com vários espaços em branco). Agora todos estão saindo desta maneira. Alguma opinião do que pode estar ocorrendo? Desde já agradeço!

Bom dia guilherme! Não encontrei esta propriedade LeftMargin. Estou utilizando trunk2 e ao visualizar está ok, mas ao imprimir está cortando as margens.

Realmente! Gerei um CSC para homologação no site do Sefaz e deu certo! Obrigado DOCFABIO!

Bom dia Italo! Atualizei a alguns dias para o trunk2 e estou testando em homologação a nfc-e com informações de CSC e idCSC (antigo Token) que meu cliente utiliza para a emissão em produção (Ele ainda emite com versão do Trunk). Ocorre sempre o erro Codigo de Hash no QR-Code difere do calculado. Para emissão em homologação também é necessária uma liberação específica? um CSC específico para homologação deve ser solicitado?

Bom dia! Acabei de atualizar para o Trunk2 e estou resolvendo as incompatibilidades. Uma delas é em relação ao evento OnStatusChange no componente ACBrMDFe.Status. Anteriormente eu controlava o status de acordo com as imagens em anexo. Mas agora acusa como identificador não declarado. Como posso resolver esta questão?

Desculpa Daniel.. Sim, meu Windows é 64 bits e estava colocando as Dll´s em System32. Obrigado!

Boa tarde! Acabei de instalar o Trunk2 do ACBr e ao abrir o Delphi ocorre este problema de estar faltando a libxmlsec.dll. Pelos comentários entendi que deve ser atribuída ao executável do projeto, ou estou enganado... Como posso resolver isso? imagem em anexo. Desde já agradeço!

Desculpa a pergunta, mas se eu comentar as linhas na imagem em anexo, compila e instala normalmente. Para delphi 2010 não deveria entrar neste ifNDef?

Apaguei tudo, baixei novamente através de SVN : https://github.com/fortesinformatica/fortesreport-ce/trunk e ocorreu o mesmo erro. Juliomar: Sim, este arquivo encontra-se na pasta C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\Componentes\FortesReportCE\Source

Olá Daniel. Sim, estão atualizados. Vi a sua postagem anterior informando que havia sido aplicada a correção no Trunk. No instalador ocorre mesmo erro. Segue arquivo de log em anexo: frceInstall.ini log_Delphi_2010.txt

Juliomar. Sim, utilizei tanto o instalador, quanto compilar diretamente o frce.dpk. (Ocorre o mesmo erro) Eu não possuía o Fortes instalado anteriormente.

Bom dia! Acabei de baixar e estou tentando instalar o Fortes, mas me ocorre um erro parecido ao compilar (Imagem em anexo). O que poderia ser? Utilizo Delphi 2010.

Bom dia! Está ocorrendo o seguinte problema na impressão da NFC-e utilizando QuickReport! Possuo uma impressora Laser configurada como padrão no computador (Pois é a mais utilizada no dia a dia), e uma outra impressora térmica não fiscal para impressão de NFC-e. Se a impressora Laser for a padrão no computador e eu alterar na hora da impressão da NFC-e para a impressora térmica (através do botão demonstrado nas imagens), não funciona, simplesmente não imprime. Mas se eu colocar a impressora Térmica como padrão no computador e imprimir a NFC-e, funciona normalmente. Alguém já passou ou pode me ajudar o que pode estar ocorrendo? Desde já agradeço!

Boa tarde Italo! A impressão em modo Paisagem continua não disponível para QuickReport? Pelo que vi continua, mas gostaria de apenas ter certeza desta informação.. Obrigado!

Boa tarde Italo! Para o caso do campo cUnCom no qual o tamanho dele é 11v0-10, existe hoje algum controle do tamanho de casas decimais? Está sempre gerando com 10 casas e não consegui encontrar se foi alterado algo a respeito disso... Desde já agradeço! Encontrei em pcnNFeW.pas o código Gerador.wCampo(IIf(NFe.infNFe.Versao >= 2,tcDe10,tcDe4),'I10a', 'vUnCom ', 00, 21, 1, nfe.Det.Prod.vUnCom, DSC_VUNCOM); É 10 ou 4 dependendo da versão.

Boa tarde! Em caso de realizar um Importação e depois vender a mercadoria para o cliente final, dentro do estado, utilizando a Origem da Mercadoria (1 - Importação Direta). A informação da tributação média (lei da transparência) nas informações complementares, eu devo informar: Devo mostrar nas informações complementares somente: Valor Médio Trib = 4.874,99 (38,48 %) OU Valor Trib Mun = 0,00 (0%) Valor Trib Est= 0,00 (0%) Valor Trib Nac= 0,00 (0%) Valor Trib Imp= 4.874,99 (38,48 %) OU Não mostrar quando é somente importação?? Pois usando esta Origem (1), não se calcula tributos municipais, estaduais e nacionais. E a dúvida é em relação ao Decreto 8264 (http://www.planalto.gov.br/ccivil_03/_ato2011-2014/2014/Decreto/D8264.htm) em que diz: § 2º Serão informados ainda os valores referentes ao Imposto de Importação, ao PIS - Pasep - Importação e à Cofins - Importação, na hipótese de produtos cujos insumos ou componentes sejam oriundos de operações de comércio exterior e representem percentual superior a vinte por cento do preço de venda. Neste caso, onde o valor é de 38,48 %, deverei informar o valor da tributação de importação nas informações complementares da Nota? OU Estou confundindo e deve ser usado: Tributo Nacional Federal quando Origem for 0,3,4 ou 5 Tributo Importado Federal quando Origem 1,2,6 ou 7 Tributo Estadual independente da origem utilizada Tributo Municipal quando prestação de serviço? Desde já agradeço!

---------

Fiz pequenas alterações nas informações mostradas referente ao detalhamento do veículo novo. Se alguém puder validar e subir... Fontes em anexo (.rar) Desde já agradeço! ACBrDANFeCBRave.rar

Boa tarde! Referente aos dados dos veículos novos, estou implementando esta funcionalidade com ACBrNFeDANFERaveCB1... Notei que no Danfe não aparece todos os dados dos veículos novos que estão no XML. É possível tornar mais dados visíveis no Danfe, ou aumentar a altura? (XML e Danfe em anexo) Pergunto, pois vi em danfe´s emitidas pelo sistema do governo que aparecem todos os dados. Desde já agradeço! Vi em outro post onde mostra opções para exibir ou não cada uma destas informações (imagem anexada), mas para o rave não encontrei... OBS: Vi em ACBrDANFeCBRaveRetrato.pas (linha 1314) que não está implementado os outros campos. if Prod.veicProd.chassi<>'' then begin with Prod.veicProd do begin aDescProduto:=aDescProduto+#13+ ' CHASSI: '+Prod.veicProd.chassi+#13+ ' COMBUSTÍVEL: '+CombDescricao+#13+ ' COR: '+xCor+#13+ ' FAB./MOD.: '+IntToStr(anoFab)+'/'+IntToStr(anoMod)+#13+ // ' RENAVAM: '+RENAVAM+#13+ ' Nº DO MOTOR: '+nMotor; end; end; Vou verificar a necessidade de nosso cliente.. se possível realizarei a alteração e disponibilizarei aqui se ajudar alguém... 42150311974590000170550010000000011488504865-nfe.pdf 42150311974590000170550010000000011488504865-nfe.xml 42150311974590000170550010000000011488504865-nfe.pdf 42150311974590000170550010000000011488504865-nfe.xml

Descobri o que ocasionava o erro ao juntar os dois... Fiz o teste abaixo: XMLDocument1.LoadFromXML('<?xml version="1.0" encoding="UTF-8"?>'+ '<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">'+ sNFeZip+sProtNFeZip+'</nfeProc>'); XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml'); As partes compactadas não possuem o cabeçalho ('<?xml version="1.0" encoding="UTF-8"?><nfeProc mlns="http://www.portalfiscal.inf.br/nfe"versao="3.10">'+) e nem a tag que fecha no final do arquivo (</nfeProc>) Por isso dava erro, era a estrutura do XML que não estava correta.. agora está OK... XML gerado em anexo... 42150211974590000170550010000200111220601845-nfe.xml

Tiago.. Isso, pego do componente ACBr, estão em propriedades diferentes e compactados.. Em anexo, coloquei o XML gerado pelo ACBr que possui as informações compactadas, note que as tag´s NFeZip e ProtNFeZip estão separadas.. Descompacto elas em separado, mas depois não sei como juntar novamente no mesmo XML.. 42150211974590000170550010000200101667521325-nfe.xml

Se eu fizer, por exemplo o XMLDocument1.LoadFromXML(sNFeZip+sProtNFeZip) desse jeito, dá erro... Não consegui juntar as 2 variávei que possuem os dados dos XML´s, para depois criar o arquivo com XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml');

Olá Tiago... Como tu viu, eu gerei 2 XML´s... Pelo menos não consegui juntar os dois em somente 1 XML, talvez por falta de prática com o tXMLDocument... Se colocasse o conteúdo desse 42150211974590000170550010000200111220601845_prot.xml no final do conteúdo desse 42150211974590000170550010000200111220601845-nfe.xml , acredito que ficaria correto o XML... Se puder me ajudar...

Boa tarde! Eu acabei fazendo um quebra galho temporário para mim, mas me deparei com a seguinte situação: Ao realizar o download do arquivo compactado, descompacto as tag´s NFeZip e protNFeZip e gero um novo XML de mesmo nome na pasta, substituindo o XML compactado. Mas o protocolo vem em separado.. um problema q não resolvi ainda... Os XML´s (Protocolo de autorização e XML da NFe) estão em anexo... dtmDados.ACBrNFe.DownloadNFe.Download.Chaves.Clear; dtmDados.ACBrNFe.DownloadNFe.Download.CNPJ := sCnpj; dtmDados.ACBrNFe.DownloadNFe.Download.Chaves.Add.chNFe := sChave; dtmDados.ACBrNFe.Download; if XMLDocument1.Active then XMLDocument1.Active := false; XMLDocument1.LoadFromXML(dtmDados.ACBrNFe.WebServices.DownloadNFe.retDownloadNFe.XML); XMLDocument1.Active := true; sXML := XMLDocument1.XML.Text; sNFeZip := StringBetween(sXML,'<NFeZip>','</NFeZip>'); sProtNFeZip := StringBetween(sXML,'<protNFeZip>','</protNFeZip>'); sNFeZip := GZDecompressStr(DecodeBase64(sNFeZip)); sProtNFeZip := GZDecompressStr(DecodeBase64(sProtNFeZip)); // XML if XMLDocument1.Active then XMLDocument1.Active := false; XMLDocument1.LoadFromXML(sNFeZip); XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml'); // Protocolo if XMLDocument1.Active then XMLDocument1.Active := false; XMLDocument1.LoadFromXML(sProtNFeZip); XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'_prot.xml'); 42150211974590000170550010000200111220601845_prot.xml 42150211974590000170550010000200111220601845-nfe.xml

Sim já testei e funciona tranquilo... Não descobri se poderá impactar em algum outro lugar esta alteração. Aí consigo comparar com o retorno conforme abaixo: if not(dtmDados.ACBrNFe.DistribuicaoDFe(StrToInt(gerEmpresa.est_numero),sCnpj,'0','')) then begin Mensagem.Free; Screen.Cursor := crDefault; if intToStr(dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) = '656' then begin informacao('656 - Rejeição: Consumo Indevido. Aguarde 1 hora para realizar nova consulta','Aviso'); exit; end; informacao(intToStr(dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+' - '+dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo,'Aviso'); exit; end;