robsoncoutinho

Para exibir o VALOR À PAGAR com o valor do frete no DANFeNFCe.fr3. Eu fiz a seguinte alteração: //antes [<CalculoImposto."VProd"> - <CalculoImposto."VDesc"> + <CalculoImposto."VOutro"> #n%2.2f] //depois [<CalculoImposto."VProd"> - <CalculoImposto."VDesc"> + <CalculoImposto."VOutro"> + <CalculoImposto."VFrete"> #n%2.2f] Ai o cálculo passou a considerar o valor do frete, que no meu caso é a o valor da taxa de entrega. Ainda não sei se essa seria a melhor forma de adicionar a taxa de entrega. Porém estou seguindo as informações da SEFAZ-RJ. Aguardo as considerações de vocês a respeito e se isso for bom para o projeto. Mais uma vez muito obrigado.

Boa tarde pessoal, Estou implementando questões de entrega a domicílio na NFC-e e segundo a SEFAZ-RJ a taxa de entrega deve ser informada como frete. Implementei usando as tags vFrete do produto e vFrete do total e informei a taxa de entrega nas informações adicionais. Funcionou tudo certo. Porém o total do DANFE NFC-e do Fast Report, não contabiliza o frete no valor a pagar. Deveria contabilizar? Creio que sim. OBS:. Vi que no exemplo diz que NFC-e não tem frete, talvez por isso não tenha sido levado em consideração no DANFE. De qualquer maneira, vou tentar verificar o código do componente enquanto isso. Muito obrigado!

Tem duas configurações de modelo, a da nota que é ACBrNFe1.NotasFiscais.Add.NFe.Ide.Modelo := 65; E na configuração do componente: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; Se essa configuração estiver diferente, pode ser que seja a causa do problema.

Não tenho certeza, mas verifique se a opção abaixo está setada como modelo NFCe: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;

Muito obrigado Juliomar, eu olhei os fontes e vi que não tinha, mas talvez alguém pudesse ter implementado. Vou tentar instalar outro componente de relatório e ver se implemento pra fast. Muito obrigado

Boa tarde pessoal, Alguém ai sabe me dizer se existe uma implementação da impressão da inutilização em Fast Report? Muito obrigado.

Boa tarde pessoal, Qual a maneira correta de pegar a chave da NFC-e gerada em contingência? Eu hoje estou usando o campo ID para pegar a parte da chave sem o NFe inicial. Existe outra maneira de pegar a chave? Muito obrigado à todos!

Pronto pessoal já resolvi o problema. Por falta de atenção minha, eu estava assinando a nota duas vezes. Uma vez antes de setar os parâmetros de contingência offline e assinava depois de setar os parâmetros. Corrigi o código e agora assino apenas depois de setar os parâmetros da contingência offline e tudo funciona normalmente. Obrigado à todos.

Boa tarde pessoal, Estou emitindo uma nota em contingência offline e posteriormente quanto tento enviar para sefaz, eu recebo o erro Erro na Chave de Acesso - Campo ID nao corresponde a concatenacao dos campos correspondentes. Estou fazendo dessa forma para gerar a nota offline. dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.xJust := 'Ausência de conexão com a internet.'; dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont := now; dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine; dm.ACBrNFe1.NotasFiscais.GerarNFe; dm.ACBrNFe1.NotasFiscais.Assinar; dm.ACBrNFe1.NotasFiscais.Valida; dm.ACBrNFe1.NotasFiscais.Imprimir; dm.ACBrNFeDANFEFR1.DescricaoViaEstabelec := 'Via do Estabelecimento'; dm.ACBrNFe1.NotasFiscais.Imprimir; nfce := TNFCe.Create; nfce.XML := dm.ACBrNFe1.NotasFiscais.Items[0].XML; //salvo xml para enviar posteriormente Agora o código do envio de notas em contingência. dm.ACBrNFe1.NotasFiscais.Clear; dm.ACBrNFe1.NotasFiscais.LoadFromString(adsNFCe.FieldByName('XML').AsString); //dm.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID := ''; dm.ACBrNFe1.NotasFiscais.GerarNFe; dm.ACBrNFe1.NotasFiscais.Assinar; dm.ACBrNFe1.NotasFiscais.Valida; try dm.ACBrNFe1.Enviar(1, True, False); except end; resposta := TStringBuilder.Create; resposta.AppendLine('Recibo: ' + dm.ACBrNFe1.WebServices.Retorno.Recibo); resposta.AppendLine('Versão: ' + dm.ACBrNFe1.WebServices.Retorno.versao); //resposta.Append('Ambiente: ' + dm.ACBrNFe1.WebServices.Enviar.TpAmb); resposta.AppendLine('Versão Aplicação: ' + dm.ACBrNFe1.WebServices.Retorno.verAplic); resposta.AppendLine('Status: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cStat)); resposta.AppendLine('UF: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cUF)); resposta.AppendLine('Motivo: ' + dm.ACBrNFe1.WebServices.Retorno.xMotivo); resposta.AppendLine('Cód. Mensagem: ' + dm.ACBrNFe1.WebServices.Retorno.xMsg); ShowMessage(resposta.ToString); Nesse momento ele me retorna o erro. O que pode estar errado no processo? Muito obrigado à todos.

Valeu brother, vou tentar fazer esses procedimentos e depois posto o resultado. Muito obrigado, abraço!!

Entendi essa parte. Mas tava pensando por exemplo, se eu emito em contingência offline e depois quando for transmitir novamente, a nota for rejeitada. Ai você corrige, gera novamente e descarta a antiga. Se você gerar novamente ela não cria outra chave? Ou não, Você consegue gerar uma outra nota com a mesma chave e tudo? Porque se gerar outra chave e o cliente tentar consultar não vai conseguir. Obrigado novamente. Att. Robson Coutinho

Com certeza ajudou sim e muito. Mas por exemplo, se você gera a nota e a sefaz rejeita, como você faz pra imprimir o danfe e entregar pro cliente? Ou você corrige e depois entrega pro cliente? To imaginando esse cenário, porque pode ocorrer e o cliente vai ter que ficar esperando. Talvez isso não ocorra de fato em produção, porque a maioria das rejeições ocorre em desenvolvimento.

Pessoal eu já pesquisei no fórum mas não achei algo específico em relação aos procedimentos para tratar uma nfc-e rejeitada. Estou em fase inicial do desenvolvimento da NFC-e e estou com várias dúvidas, mas vamos por partes. Se a nota é rejeitada eu devo corrigir a nota e retransmitir? Ou devo gerar uma nova nota? Nesse caso como vocês fazem pra corrigir a nota? Carregam e o xml e modificam? Estou meio perdido nesse ponto. Muito obrigado à todos.

Eu já consegui fazer... se eu pegar a TListBindSourceAdapter possui um método setList para preencher com uma nova lista. Se alguém precisar de alguma ajuda com essa questão só falar.

Olá pessoal, Eu estou usando um StringGrid com Livebindings, falo a ligação do StringGrid com um TListBindSourceAdapter. Funciona muito bem. Porém para setar a lista de objetos, eu tenho que usar o evento OnCreateAdapter do TPrototypeBindSouce. Esse evento é executado na criação do TPrototypeBindSource, não sei muito bem, mas é o que parece. Lá eu seleciona a lista de objetos e preencho. Porém depois que queria filtrar uma nova lista no banco e repassar ao TPrototypeBindSource, e não consigo. Alguém sabe como eu seto uma nova lista de objetos no TPrototypeBindSource em runtime? Desde já agradeço. Muito Obrigado!

Boa tarde pessoal, Não estou conseguindo capturar o retorno do envio da NFC-e conforme o exemplo da acbr. MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); Assim está no exemplo, porém as informações retornam vazias. Eu verifiquei o retorno pelo evento de retorno do ACBrNfe, a nota foi autorizada. Estou querendo pegar as informações para gerar o Hash Code do DANFE. Por exemplo gostaria de pegar o valor do DigVal e também não estou conseguindo. ACBrNFe1.Enviar(1, false, true); Desde já agradeço a todos!

Pessoal para quem esta com dificuldades em gerar o QRCode, eu encontrei uma biblioteca chamada Quricol que gerar o QRCode em .bmp e .png... eu vi que alguém já havia postado essa biblioteca antes, mas estou reforçando.porque achei a biblioteca muito boa e simples de usar. Estou gerando DANFE manualmente, utilizando as bibliotecas DLL's das fabricantes de mini impressoras, está ficando show de bola. Achei mais fácil fazer assim porque uso Delphi 2007 e não tem o Fast Reports e não sei usar o Quick com a mini impressora (fazer o que? kkkk...). OBS.: As bibliotecas dos fabricantes já estão vindo com opção de gerar QRCode nativas, vale a pena das uma olhada. Já utilizei as DLL's da Bematech e Daruma. Abraço à todos.