Felipe Govoni

Boa tarde, como é feito o cancelamento da NFCe? da mesma forma que da NFe?

ACBrNFeDANFEFRDM.pas

Boa tarde, resolvi o problema e gostaria de sugerir uma correção no componente, existem dois "#13" na hora de imprimir os itens que acabam deixando essas linhas em branco. Segue a correção (coloquei toda a function para facilitar): arquivo: acbrnfedanfefrdm linha: 2160 Function TACBrNFeFRClass.ManterValAprox( inItem : Integer ): String; begin Result := ''; with FNFe.Det.Items[inItem] do begin if (Imposto.vTotTrib <> 0) and (ExibirTotalTributosItem) then begin Result := ''; with Imposto do begin Result := Result+'Val Aprox Tributos: '+ FloatToStrF(Imposto.vTotTrib,ffCurrency,15,2); if TributosPercentual = ptValorNF then Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0) + StringToFloatDef(FloatToStr(Prod.vFrete),0) + StringToFloatDef(FloatToStr(Prod.vOutro),0) + StringToFloatDef(FloatToStr(Prod.vSeg),0) + StringToFloatDef(FloatToStr(IPI.vIPI), 0) + StringToFloatDef(FloatToStr(ICMS.vICMSST), 0))),ffNumber,15,2)+'%)' else Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0))),ffNumber,15,2)+'%)'; end; end; end; end;

Segue. 43140703010859000170550010000003081848671501-nfe.xml

Eu fiz uma pequena correção no danfe.fr3, alguns campos de label estavam com os "[]" e dava erro na hora do preview. Porem o problema persiste, quando mando mostrar os tributos do item ele esta pulando linhas demais, conforme pode ser visto no primeiro print que mandei. Tentei arrumar isso mas não consigo encontrar no fonte o local aonde faz essas quebras de linha. DANFE.fr3

Atualizei para a versão 5 e agora está dando o erro "memo11: error in expression 'dados_endereco': undeclared identifier"

Eu sou o único com esse problema?

Enterprise 4.15.6 no delphi 2007 Antes da sua alteração funcionava normal...

Juliomar, andei pesquisando e esse erro é por que vc tem um versão do fastreport superior a minha. Como eu posso recompilar para funcionar no meu?

Acabei de atualizar novamente, o erro está na linha 247 do acbrNfeDanfeFR: FdmDanfe.frxReport.LoadFromFile(FastFile) persiste o erro de "cannot find class datasets", sendo que verifiquei e o componente frxdbDataSet esta instalado e funcionando perfeitamente em outros relatórios.

Juliomar, o fonte que vc mandou esta em uma versão do Delphi mais nova que a minha, então montei uma MV com o Delphi 10 Seatle e o acbr. Porem deu o seguinte erro em anexo:

Carlitos mas meu fuso horário já estava certo (-03h), engraçado que em alguns clientes funcionou...

Tambem estou com esse problema no RS, tentei a solução do carlitomoraes mas não resolveu...

Enterprise 4.15.6 no delphi 2007

Boa tarde Juliomar, atualizei e reinstalei porem além de continuar pulando linhas aparece o erro em anexo. Apesar do erro a nota aparece na tela. Tentei entender suas alterações mas não consegui.

danfe.fr3

Fastreport

Quando dou um preview na nota com impostos embutidos ele fica com linhas em branco e isso não acontecia até eu migrar para o trunk2. Segue um print da tela. Já procurei e não encontrei nenhuma propriedade no componente para isso.

Ítalo, fiz as alterações sugeridas por vc, estava tudo funcionando bem mas aconteceu algo inusitado: O programa estava retornando cstatus=100 mesmo sem a nota ter sido transmitida com sucesso. Acabei transmitindo ela pelo emissor gratuito e deu tudo certo e para fins de teste tentei enviar novamente pelo meu programa e deu cstat=100 (lembrando que a nota ja havia sido transmitida anteriormente). Não sei se o problema foi bem explicado ai em cima mas me parece que por algum motivo o retorno do sefaz esta vindo errado ou ele ficou com o cstat da nota anterior.

Bom dia Ítalo, a impressão só ocorre depois do envio, vou postar o código inteiro pra vc dar uma olhada: try dmgeral.ACBrNFe1.NotasFiscais.Assinar; except ShowMessage('Erro ao assinar a NFe.Verifique!'); exit; end; try dmgeral.ACBrNFe1.NotasFiscais.GerarNFe; except ShowMessage('Erro ao gerar a NFe. Verifique!'); exit; end; sucesso := 'nao'; for cont_erro := 0 to 4 do begin try dmgeral.ACBrNFe1.Enviar(1,False,false); sucesso := 'sim'; Except end; if (sucesso = 'sim') or (cont_erro >= 5) then begin break; end; Sleep(3000); end; if (dmgeral.ACBrNFe1.WebServices.Retorno.cStat <> 100) or (dmgeral.ACBrNFe1.WebServices.Retorno.recibo = '') then begin mmoDados.Lines.Add('cUF: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cUF)); mmoDados.Lines.Add('cStat: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cStat)); mmoDados.Lines.Add('xMotivo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMotivo); mmoDados.Lines.Add('cMsg: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cMsg)); mmoDados.Lines.Add('xMsg: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMsg); mmoDados.Lines.Add('Recibo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Recibo); mmoDados.Lines.Add('Protocolo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Protocolo); Exit; end; if dmgeral.ACBrNFe1.WebServices.Retorno.cStat = 100 then begin dmgeral.ACBrNFe1.NotasFiscais.Imprimir; dmgeral.ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF; dmgeral.ACBrNFe1.NotasFiscais.Items[0].SaveToFile; end;

Conforme código abaixo, so deixo imprimir uma nota que tenha o retorno 100 para não permitir que notas sem autorização pelo sefaz sejam impressas. Porem eventualmente tem notas sem autorização sendo impressas conforme imagem em anexo. Alguem tem idéia do que pode ser? if dmgeral.ACBrNFe1.WebServices.Retorno.cStat = 100 then begin dmgeral.ACBrNFe1.NotasFiscais.Imprimir; dmgeral.ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF; dmgeral.ACBrNFe1.NotasFiscais.Items[0].SaveToFile; end;

Obrigado Ruycaribe, descobri o problema. Faltou alterar a propriedade da versão da nota no componente para "3.10"

Régys, aqui tenho a versão 4.15.6 e o acbr está atualizado.

Continuo com o erro... atualizei os schemas, o componente e fiz as seguintes alterações: dmgeral.ACBrNFe1.NotasFiscais.GerarNFe; dmgeral.ACBrNFe1.Enviar(1,False,false); mmoDados.Lines.Add('Envio NFe'); mmoDados.Lines.Add('tpAmb: '+ TpAmbToStr(dmgeral.ACBrNFe1.WebServices.Retorno.TpAmb)); mmoDados.Lines.Add('verAplic: '+ dmgeral.ACBrNFe1.WebServices.Retorno.verAplic); mmoDados.Lines.Add('cStat: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cStat)); mmoDados.Lines.Add('cUF: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cUF)); mmoDados.Lines.Add('xMotivo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMotivo); mmoDados.Lines.Add('cMsg: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cMsg)); mmoDados.Lines.Add('xMsg: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMsg); mmoDados.Lines.Add('Recibo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Recibo); mmoDados.Lines.Add('Protocolo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Protocolo);

Descobri que o problema era o número de caracteres, diminui e resolveu. Mas não encontrei no fonte do componente aonde está definido o tamanho desse campo, alguém pode me ajudar?