Roberto.Godinho

ola, o campo troco não é informado no XML, o mesmo deverá ser informado ao gerar a danfe da NFC-e. verifique no link a seguir que o Ivr disponibilizou uma danfe pra NFCe e ja atende este requisito.

bom dia, No momento estou utilizando o Google charts para gerar o QrCode e estou salvando como png.

Ola Ivr, quanto ao item 1, a propriedade visible da logo esta sendo setada para false sempre que não houver uma Imagem informado, este tratamento esta sendo feito no script do arquivo fr3 (aba código). Para mim esta funcionando perfeitamente. Mas enfim, a sua solução funciona da mesma forma. if <Parametros."Imagem"> = '' then begin ReportTitle1.Visible := false; end; Quanto a propriedade stretch do QR Code, se você deixa-la ligada vai deformar a imagem e vai prejudicar a leitura do qr code. Eu informo uma imagem de 4,3 cm e não corta. Verifique se você não esta gerando o QR Code muito grande, se for o caso, seria melhor você gerar a imagem um pouco menor de modo que não seja necessário ligar o stretch. DANFeNFCe.rar

perdão jovem, devo ter enviado o arquivo errado pra ti, estou anexando novamente. DANFeNFCe.rar

opa, Item 1 - coloquei logo opcional, se não informar a banda da logo será suprimida; item 2 - Alterei para pegar automaticamente; item 3 - O valor que eu estou atribuindo á propriedade danfe.Detalhado é uma variavel do tipo boolean; item 4 - Alterado tamanho como sugerido; Item 5 - Alterado como sugerido; item 6 - o vTotPago é o total que o cliente pagou, ou seja, se a compra dele é de R$ 8,00, o cliente pagou R$ 10,00 e recebeu o troco de R$ 2,00, não significa que é o total da nota. - Força danfe detalhado caso tpEmis seja teOffline; - Adicionei mais uma propriedade contendo a informação se a via Impressa é do Consumidor ou do estabelecimento, como exigido no item 2.2.6 do manual técnico da danfe; OBS: utilizo assim // imprime a primeira via do consumidor danfe.ImprimirDANFE(); if FAcbr.NotasFiscais.Items[0].NFe.Ide.tpEmis = teOffLine then begin // 2.2.6 - Esta segunda via deverá estar identificada como “Via do Estabelecimento” conforme // modelo constante da figura 7 a seguir. Alternativamente a impressão da segunda via do // DANFE NFC-e quando de emissão em contingência, o contribuinte poderá optar pela // guarda eletrônica do respectivo arquivo XML da NFC-e. if Application.MessageBox(PChar('NFC-e Emitida em modo de Contingência off-line.'+sLineBreak+ 'Deseja efetuar a Impressão da Via do Estabelecimento?'+sLineBreak+sLineBreak+ 'Atenção: Optando por "não" imprimir a segunda via, estará automáticamente optando pela guarda do XML.'+sLineBreak), PChar(Application.Title),MB_YESNO+MB_ICONWARNING) = IDYES then begin danfe.DescricaoViaEstabelec := 'Via do Estabelecimento'; danfe.ImprimirDANFE(); end; end; continuem testando e passando o feedback, assim que sobrar mais um tempinho eu do uma olhada e implemento oque for necessário. danfe_nfce.rar

Bom dia pessoal, Lvr, as orientações sobre DANFE detalhada você vai encontrar no manual aqui . Eu fiz alguns ajustes na DANFE que você disponibilizou pra atender alguns dos requisitos solicitados pelo manual: Retornado logo para seu local; Adicionado imagem para carregar o QrCode; Removido bordas da pagina para impressão na mini-impressora; Adicionado informação de Troco e do Total pago; Adicionado Opção para impressão simplificada ou detalhada; E efetuado alguns ajustes no layout. danfe := TACBrNFeDANFEFR.Create(nil); FAcbr := TACBrNFe.Create(nil); try FAcbr.NotasFiscais.LoadFromFile(XMl); FAcbr.DANFE := danfe; danfe.FastFile := 'c:\DANFeNFCe.fr3'; danfe.Logo := 'logoDanfe.jpg'; danfe.ExibirTotalTributosItem := True; danfe.TributosPercentual := ptValorNF; // valor do troco danfe.vTroco := vTroco; // exibir detalhes da venda danfe.Detalhado := Detalhado; // QrCode danfe.ImgQrCode := ExtractFilePath(ParamStr(0))+'qrcode_temp.png'; GerarQRCode(); danfe.ImprimirDANFE(); finally danfe.free; FAcbr.Free; end; Fiz alguns testes parciais, se alguém puder testar mais a fundo e dar um feedback seria bom, assim que me sobrar mais um tempinho eu testo mais um pouco. danfe_nfce.rar preview_danfe_nfce.pdf

aaaahhhh lembrei, tive este problema com o campo dhEmi se não me engano, fui verificar o fonte e esta incorreto a forma como é gerado a TAG, por isso esta retornando o erro. Está sendo informado tamanho 19 ao gerar o campo, como é o tipo tcStr o tamanho deve ser 25 que corresponde ao tamanho total da tag. (2013-10-15T14:20:00-04:00) como está: if (nfe.Ide.dhCont > 0) or (nfe.Ide.xJust <> '') then begin if nfe.infNFe.Versao >= 3 then Gerador.wCampo(tcStr, 'B28', 'dhCont ', 19, 19, 1, DateTimeTodh(nfe.ide.dhCont) + GetUTC(CodigoParaUF(nfe.ide.cUF), nfe.ide.dhCont), DSC_DHCONT) else Gerador.wCampo(tcStr, 'B28', 'dhCont ', 19, 19, 1, DateTimeTodh(nfe.Ide.dhCont), DSC_DHCONT); Gerador.wCampo(tcStr, 'B29', 'xJust ', 01,256, 1, nfe.ide.xJust, DSC_XJUSTCONT); end; como deve ser: if (nfe.Ide.dhCont > 0) or (nfe.Ide.xJust <> '') then begin if nfe.infNFe.Versao >= 3 then Gerador.wCampo(tcStr, 'B28', 'dhCont ', 25, 25, 1, DateTimeTodh(nfe.ide.dhCont) + GetUTC(CodigoParaUF(nfe.ide.cUF), nfe.ide.dhCont), DSC_DHCONT) else Gerador.wCampo(tcStr, 'B28', 'dhCont ', 19, 19, 1, DateTimeTodh(nfe.Ide.dhCont), DSC_DHCONT); Gerador.wCampo(tcStr, 'B29', 'xJust ', 01,256, 1, nfe.ide.xJust, DSC_XJUSTCONT); end; Alterei os fontes e anexei ao post, se alguém puder subir para o SVN seria ótimo. pcnNFeW.pas

Bom dia, Vendo agora, realmente quando utilizar ACBrNFeOpenSSL vai dar acess violation ao executar a sentença "if FConfiguracoes.Geral.IniFinXMLSECAutomatico then". Edit: Conferi nos meus fontes q estão atualizados e esta com o mesmo erro ali. Para resolver é só mover a diretiva pro inicio da função. destructor TACBrNFe.Destroy; begin {$IFDEF ACBrNFeOpenSSL} if FConfiguracoes.Geral.IniFinXMLSECAutomatico then NotaUtil.ShutDownXmlSec ; {$ENDIF} FConfiguracoes.Free; FNotasFiscais.Free; FCartaCorrecao.Free; FEventoNFe.Free; FDownloadNFe.Free; FWebServices.Free; inherited; end;

Bom dia Jean, da uma conferida se você informou corretamente a propriedade "acbr.Configuracoes.Geral.ModeloDF := moNFCe", e no grupo Ide do acbr schema := TsPL006 e Versao := 3 e você deve ter em sua posse os schemas XML correspondente com a versão (PL 006)

Bom dia, Você provavelmente esta com os arquivos .dcu compilados com uma versão diferente dos fontes, um build na sua aplicação deveria resolver o problema, mas se não resolver localiza os dcu's e apaga-os e recompila o projeto.

Bom dia, estava meio sem tempo nos ultimos dias, mas ontem sobrou um tempinho pra testar e o problema foi resolvido. Valeu Italo e muito obrigado.

Ola Italo, no meu caso é semelhante ao do Solivan, e no meu caso estou enviando todas as informações corretamente como pode ser notado nos XML anexos ao outro post (), inclusive tem um print da depuração que mostra os detalhes de cada propriedade do componente com seus devidos valores. A nota é autorizada corretamente, o problema esta ao ler o retorno Síncrono e gerar o procNfe.xml.

opa... eu estou com o mesmo problema, até criei um topico referente a isso mas n obtive nenhum retorno. () Você chegou a notar se, ao autorizar a NF-e quando ele salva o procNfe.xml, esta indo com a TAG procNFe com os valores informados?

Acrescentando mais um detalhe que acabei esquecendo, se enviar esta mesma NFC-e de modo não Asincrono quando efetua a busca da situação após o envio e ainda não houve processamento (cStat 105) está estourando uma exceção com conteudo vazio. if (FConfiguracoes.Geral.ModeloDF = moNFe) or (not ASincrono) then begin Self.Retorno.Recibo := Self.Enviar.Recibo; if not(Self.Retorno.Executar) then begin if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.Retorno.Msg); raise EACBrNFeException.Create(Self.Retorno.Msg); end; end;

Bom dia pessoal, Estou na faze final da implementação da NFC-e, no entanto, notei que, após o envio e autorização (Sincrono), quando o ACBrNFe salva o ProcNFe esta indo sem as informações do nProt entre outros apesar de estar autorizado, já o arquivo "510000000022664-pro-rec.xml" é salvo corretamente. O erro ocorre ao ao executar ProcNFe.GerarXML (ver fragmento do código em anexo) Estou anexando o print da depuração após ter efetuado o envio e lido o retorno alem dos arquivos XML salvos. Não sei se é alguma coisa que estou deixando passar ou se é alguma falha proveniente do componente. 51131036896975000197650060001207331482389146-NFe.xml 510000000022664-pro-rec.xml Fragment of ACBrNFeWebServices.html

exato, confundi ali

bom, pelo que deu pra perceber no seu código esta faltando mesmo limpar o componente acbr após o processamento de cada uma das NF-e's pois toda vez que você executa a função "acbrnfe.notasfiscais.add.nfe" 1 novo item será adicionado ao collection acbrnfe.notasfiscais, assim, quando você for fazer o envio e tratar o retorno, se você acessar pelo index [0] você estará processando novamente a primeira nf-e enviada. faça o seguinte pra confirmar: Após a linha "with acbrnfe.notasfiscais.add.nfe do begin" coloque o comando ShowMessage(intToStr(acbrnfe.notasfiscais.Count)); selecione mais de 1 nota e efetue o envio, no segundo showmessage ele deverá apresentar apenas 1, se mostrar mais do que isso então o componente não esta sendo descaregado antes de processar a proxima nfe. para corrigir basta substituir o ShowMessage acima por acbrnfe.notasfiscais.Clear;

Os fontes que você envio são os mesmo que você colou acima, com os fontes que você enviou não da pra gente saber oque esta carregando no componente e oque poderia estar acontecendo. edit: Vi que você alterou a unit ACBrNFeWebService, ao invés de você altera-la você deveria tratar com try except a chamada de envio. try xEnviar := acbrnfe.Enviar(numero_nota,false); Except on e: exception do begin //... end; end;

Exatamente como o Romulo exemplificou acima, se você faz o envio de uma a uma você deverá carregar uma, efetuar o envio, tratar o retorno, limpar novamente e fazer o mesmo processo pra proxima. Se teu sistema esta registrando mais do que uma nota com os mesmo dados de retorno significa que você não esta limpando os dados anteriores do componente, neste caso, o index 0 será sempre a primeira nota que você enviou.

você envia apenas 1 nota por lote ou as duas notas estão sendo enviadas no mesmo lote?

Bom dia, Quando da-se o retorno do envio, você não esta percorrendo os protocolos e atualizando nota por nota. Faça o seguinte: for i := 0 to acbr.NotasFiscais.Count-1 do begin if acbr.NotasFiscais.Items[i].Confirmada then begin // aqui salva os dados qryX.parameters.parambyName('protocolo').value := acbr.NotasFiscais.Items[i].NFe.procNFe.nProt; // ..... end; end; ou você ainda pode percorrer os itens retornados no for i := 0 to acbrnfe.WebServices.Retorno.NFeRetorno.ProtNFe.count -1 do begin // salva os itens // -->acbrnfe.WebServices.Retorno.NFeRetorno.ProtNFe.items end; espero q tenha ajudado

Você pode gerar um número aleatório e informar no campo cNF, ou poderá enviar 0 (zero) neste mesmo campo que o componente irá gerar um numero aleatório no momento em que for gerar as chave de acesso da NFe.

é possível sim, como o Juliomar falou, de uma olhadinha nas notas técnicas que esta bem especificado lá.

Eu já tive este problema com alguns clientes, no meu caso, na emissão do evento de cancelamento era adicionada a hora local, ou seja, se o cliente estiver com o horário um pouco adiantado irá ocorrer o erro pois ao comparar a hora enviada com a hora atual no servidor da SEFAZ e não irá fechar. A duas soluções simples, uma delas o cliente deve corrigir a hora da maquina, outra, menos aconselhável, seria consultar status do ws e enviar o cancelamento com o horário retornado. Eu utilizo a ultima opção devido ao fato de alguns clientes com ECF com data atrasada/adiantada não poder atualizar a hora no PC

Ola, Este fim de semana no paraná esta ativo o SCAN, ao efetuar a consulta do status do serviço na segunda feira esta retornando status "113-SCAN sera desabilitado para a PR as hh:mm dd/mm/yy", neste caso, a situação do SCAN era ativo, no entanto, o ACBr estava retornando como inativo devido ao fato de verificar se o retorno é = 107. Para este caso, o retorno não deveria ser "Ativo"?