Leonardo Gregianin

Corrigir: if Pos('Informações Complementares de Interesse do Contribuinte', descGrupo) > 0 then begin posIni := Pos('Descrição', descGrupo) + Length('Descrição') + 3 ; posFim := Pos('|&|', Copy(descGrupo, posIni, Length(descGrupo))) -1; NFe.InfAdic.infCpl := Copy(descGrupo, posIni, posFim); end; Adicionar: NFe.Total.ICMSTot.vTotTrib := ConverteStrToNumero(LerCampo(descGrupo, 'Valor Aproximado dos Tributos')); Imposto.vTotTrib := ConverteStrToNumero(LerCampo(descGrupo, 'Valor Aproximado dos Tributos'));

Boa tarde, A geração da inscrição estadual do remetente está inconsistente de acordo com os schemas da NF-e. Eu preciso gerar a tag IE com a informação "ISENTO" e a função do ACBr exige "SomenteNumeros" enquanto que os schemas aceitam números e a palavra "ISENTO". pcnNFeW.pas: Gerador.wCampo(tcStr, 'C17', 'IE ', 00, 14, 1, SomenteNumeros(nfe.Emit.IE), DSC_IE); Schemas tiposBasico_v1.03.xsd e tiposBasico_v3.10.xsd: <xs:simpleType name="TIe"> <xs:annotation> <xs:documentation>Tipo Inscrição Estadual do Emitente // alterado EM 24/10/08 para aceitar ISENTO</xs:documentation> </xs:annotation> <xs:restriction base="xs:string"> <xs:whiteSpace value="preserve"/> <xs:pattern value="[0-9]{2,14}|ISENTO"/> </xs:restriction> </xs:simpleType>

Juliomar, qual a probabilidade de aproveitar o código disponibilizado da Danfe em FastReport para NFC-e?

As URLs já estão disponíveis no projeto, tente atualizá-lo com instruções deste tópico e veja este tópico http://www.projetoacbr.com.br/forum/index.php?/topic/10018-nfc-e-nota-fiscal-do-consumidor-eletrônica que várias pessoas enviaram a NFC-e para MT.

É só uma forma de organizar o fonte no mesmo lugar da discussão. Eventualmente eu também poderia contribuir com o código. Hoje cada usuário tem um fonte, não tem um lugar centralizado. Poderíamos atualizar esta unit ACBrHTMLtoXML como também fazer a baixa do XML com o certificado.

Uma sugestão, Porque vocês não criam um projeto opensource com repositório svn no sourceforge, googlecode, github, etc nos mesmo moldes do ACBr para atualizar essa unit ACBrHTMLtoXML e a discutem o assunto por lá?

Veja este tópico: Consulte o pcnProcNFe.pas na linha 188 e veja se a tag está comentada.

Bom dia, Dê uma boa lida neste tópico

Obrigado pela orientação Ítalo, Segue anexo alteração para análise.

Bom dia, A código acima não está correto. Os campos "id token" e o "número do token" em ambientes de homologação e produção são diferentes. Em homologação: if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; Em produção, tem que informar o ID e o Token conforme a SEFAZ do seu Estado lhe disponibilizou: if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin FIdToken := ''; // Código identificador sequencial do Token: 000001, 000002, 000003 (6 dígitos) FToken := ''; // Código fornecido pela SEFAZ para a empresa emissora (até 36 dígitos) end;

Você precisa utilizar algum recurso externo ao ACBr para salvar a imagem QRCode no computador, e depois passar o caminho da imagem salvar para o Fast Report a imprimí-la. Alguns exemplos ZXIng (https://code.google.com/p/qr-code-pascal), Zint BarCode ou Google Chart API (http://www.rafaelbiriba.com/2009/05/02/qr-code-gere-com-o-google-chart-api.html)

Não sei se é esse o problema, mas tente trocar as vírgulas por pontos nos valoes, isto influencia na gerar do hash. vNF := StringReplace(FormatFloat('##,##0.00', NFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]); vICMS := StringReplace(FormatFloat('##,##0.00', NFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]);

Bom dia, Analisando o ACBrCTeConhecimentos.pas, a alteração na NFe é simples e não causa nenhum problema quem já a utiliza.

Bom dia, Tenho clientes que são escritórios de contabilidade e somente importam o XML para seus bancos de dados, com isso, somente incluo o componente da ACBrNFe no formulário, busco o caminho do XML e faço: ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(caminho_xml); Ou seja, não utilizo as propriedades VersaoDF e ModeloDF porque somente vou saber a versão e o modelo depois do LoadFromFile. O problema ocorre dentro do TNotasFiscais.LoadFromFile porque depois de ler o XML corretamente com a função LerXML é executado a função GerarNFe o que acarreta na mudança da propriedade Versao conforme está definido no componente e não o que veio do XML. A mudança no conteúdo da versão ocorre nas tags: ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.Versao ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.VersaoStr Alguma idéia para solução deste problema?

Tente assim: if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; 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 FIdToken := Id_Token; // Código identificador sequencial do Token: 000001, 000002, 000003 (6 dígitos) FToken := Token; // Código fornecido pela SEFAZ para a empresa emissora (até 36 dígitos) end;

Se seu problema estava no emissão da NFC-e para o Maranhão, pegue a versão mais atualizada do Monitor e teste novamente por favor.

Boa tarde, Esta rejeição faz parte das regras da NFC-e. Como é uma nota para consumidor o limite máximo da emissão e da transmissão é de 5 minutos. Veja o que diz a rejeição na Nota Técnica: "NFC-e com Tipo de Emissão=1-Normal (ou 3-SCAN, ou 6-SVC-AN, 7-SVC-RS) e Data-Hora de Emissão com atraso superior a 5 minutos em relação ao horário de recepção na SEFAZ. Nota 1: A emissão da NFC-e deve ocorrer de forma on-line, realtime, com uma tolerância de até 5 minutos, devido ao sincronismo de horário do servidor da Empresa e o servidor da SEFAZ. Nota 2: A tolerância acima motivada pelo horário dos servidores, somada ao atraso permitido para a autorização da NFC-e acaba resultando em um atraso máximo de 10 minutos a ser controlado pela aplicação da SEFAZ."

Você vai precisar debugar e ver onde está o problema. Eu acabei que fazer uma NFC-e em contingência off-line com impressão e depois a transmiti sem nenhum erro com os fontes que passei.

Com os novos fontes que liberei no post acima a contingencia FS-DA ou Off-line na NFC-e não utiliza a função GerarChaveContingencia, ou seja, não deverá ocorrer o erro.

Boa tarde, O problema nem chega a ser na impressão, deve ser na função GerarChaveContingencia do ACBrNFeUtil.pas que não foi alterada ainda com as novos tipos de impressão. Atualizei as units com as alterações da impressão NFC-e em FastReport e atualizei também com as novas alterações do svn do ACBr. Segue em anexo. Aproveitando, para geração do QRcode existe uma unit em Pascal chamada DelphiZXingQRCode desenvolvida pela empresa Debenu e liberada open-source, neste link tem a unit e um exemplo de como utilizá-la. Se o ACBr tiver interesse em implementar a impressão da NFCe talvez seria interessante "envelopar" as funções desta unit e gerar um componente do ACBr da mesma forma que foi feito com o ACBrBarCode envelopando o AJBarcode.

Eu digo que pode ser problema no webservice que você está testando a NFCe porque no webservice da NFCe de MT não tenho problema quanto a esta tag.

Bom dia, Se todos os itens estão com a tag IndTot = 1 então o erro só pode ser no webservice.

São as URLs de produção. A URL de homologação é única e está correta.

Você está testando em homologação ou produção? Nos meus testes em ambiente de homologação a resposta foi mais lenta que em ambiente de produção. Envie um email com esta situação para o provedor [email protected] informando o numero do lote.

Jeferson, Enviei um email para Sefaz-MA solicitando os endereços de webservice para NFC-e e eles me retornaram dizendo que a NF-e utiliza a Sefaz Virtual do Ambiente Nacional e a NFC-e utiliza a Sefaz Virtual do Rio Grande do Sul. O que resultaria na alteração da unit ACBrNFeUtil.pas: 21: begin if AModeloDF = moNFCe then Result := NotaUtil.GetURLSVRS(AAmbiente,ALayOut, AModeloDF) //MA else Result := NotaUtil.GetURLSVAN(AAmbiente,ALayOut, AModeloDF); //MA end;