Leonardo Gregianin

Roberto está ficando muito bom, 1 - A falta da logomarca não suprimiu o espaço no início da danfe. 2 - A quantidade de itens não aparece nada, tenho que passar pelo código? Não poderia passar direto no FastReport com a função COUNT? 3 - O total do valor pago não existe mais em comparação a sua primeira versão do DANFeNFCe.fr3 ? 4 - O tamanho do Memo "Consumidor" não aumentou. Sugiro Memo46.Height = 1,85 5 - Ainda temos que arrumar a URL para ser carregada pelo componente conforme ambiente e UF.

Bom dia, Com os fontes atualizados está realmente com erro. Anexei a correção.

Roberto.Godinho, alguns apontamentos: 1- Teria como a Logomarca da empresa ser opcional? Eliminando também o espaço vago no danfe caso não houver imagem? 2- Quantidade de itens: Não seria melhor o FastReport fazer a contagem automática? 3 - Campo "Detalhado" é do tipo Boolean, portanto no seu exemplo seria Danfe.Detalhado := False; ou Danfe.Detalhado := True; 4 - O Memo46 com o conteúdo [Destinatario."Consumidor"] poderia ter a propriedade Height = 1,85 igual aos dados do emitente senão há cortes de informação. 5 - Diminuir o espaço no final do PageHeader "Emitente". 6 - O "vTotPago" não teria que diminuir o "vDesc": FieldByName('vTotPago').AsCurrency := FvTroco+FieldByName('VProd').AsFloat-FieldByName('VDesc').AsFloat; Obrigado por testar, vamos melhorando cada vez mais.

Na nota técnica não tem nada sobre isso, porém pela internet encontrei notícias sobre dois tipos diferentes: danfe detalhada (com produtos) e danfe "ecológica" (sem os produtos). Eu criei outro arquivo "DANFeNFCe.fr3" e setei a propriedade "Visible" para "False" no GroupHeader DadosProdutosHeader e no MasterData DadosProdutos. Deve haver uma forma melhor de programar isso mas não encontrei.

Você tem que substituir os arquivos ACBrNFeDANFEFRDM.pas e ACBrNFeDANFEFRDM.dfm da pasta \Fontes\ACBrNFe2\ para os que postei

Também estou com erro de memória quando faço várias consultas. Comentei a linha "FListaNfse.Free;" do destructor TretNfseRps.Destroy na unit pnfsConsNfseporRpsResposta e não ocorreu nenhum problema no Enviar, ConsultarSituacao, ConsultarLoteRps, ConsultarNFSeporRps, ConsultarNFSe, CancelarNFSe.

Bom dia a todos, Somente agora atualizei os fontes e estou a testar o provedor ISSNet, encontrei os seguintes problemas: 1 - O problema e a solução passada é necessária (ACBrNFSeWebServices.pas). 2 - O erro "Arquivo enviado fora da estrutura do arquivo XML de entrada." relatada também acontece, e deve ser incluída a condição "DFeUtil.SeSenao((VersaoXML = '2') or (AProvedor = proISSNet)," em todos os métodos e somente estava no Gera_DadosMsgEnviarLote (pnfsNFSeG.pas). 3 - Incluída a restrição para o ISSNet não consultar o RPS após o cancelamento (ACBrNFSeWebServices.pas). Vou anexar minhas alterações.

Olá Régys, Vou anexa a unit e a imagem de quatro testes que fiz, com letras maiúsculas ou somente capitalizado a primeira de cada palavra. Espero que ajude.

Emerson, O FastReport aceita vários formatos como: BMP, JPG, PNG, etc. Salvo em formato PNG com a API do Google Charts e passo ACBrNFeDANFEFR1.Logo := c:\imagem.png'; Qualquer problema, avisa.

Danny, Também tenho este problema, tente fazer o segue abaixo na unit ACBrDANFeCBRaveRetrato.pas: Linha 125: - if Length(vEnd)>122 then + if Length(vEnd)>100 then Linha 128: - PrintCenter(vEnd,PosX+(aWidthOutros/2)); + PrintLeft(vEnd,PosX+1); Linha 131: - PrintCenter(vEnd,PosX+(aWidthOutros/2)); + PrintLeft(vEnd,PosX+1); Linha 135: - PrintCenter(vEnd,PosX+(aWidthOutros/2)); + PrintLeft(vEnd,PosX+1); Isso faz com que seja iniciada a impressão na margem esquerda, da mesma forma que faz na impressão em paisagem. E a segunda linha é iniciada após o caracter 100 da primeira linha.

Bom dia, Fiz a atualização do Danfe NFC-e em FastReport: * Inclusão do campo "Valor Desconto R$" que busca a tag "VDesc" do grupo "Total". * Alteração da altura do Danfe na propriedade PaperHeight para 29,70. Útil somente para visualização em PDF pois na impressão não fiscal corta o papel ao final das informações do Danfe. Há a possibilidade de inclusão no svn das alterações do ACBrNFeDANFEFRDM.pas e .dfm ?

Não poderei te ajudar muito, não sei como funciona o Monitor.

Se o erro ocorre na "validação" dos dados você já gerou o XML. Conforme diz a mensagem de erro, você deve ter passado a tag XNome e não passou o resto dos dados.

Poste o XML

Peguei a mesma URL que você passou e troquei o "&tpAmb" para 2 e mostrou a nota no site. http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131003460900000290650010000000031000000031&nVersao=100&tpAmb=2&cDest=02801244147&dhEmi=323031332D31302D32345431363A32313A30332D30333A3030&vNF=1,00&vICMS=0,00&digVal=78764D34764E2B48586A735657516F653474415A547855547764383D&cIdToken=000001&cHashQRCode=7AF4285DA2D18133BEF9F9370AD4A185B2527AFB Suspeito que o problema seja na Sefaz.

Meu código funciona assim: function StringToHex(S: String): String; var i: Integer; begin Result:= ''; for i := 1 to length(S) do Result:= Result+IntToHex(ord(S[i]),2); end; function Iif(Condicao: Boolean; Verdadeiro, Falso: Variant): Variant; begin if Condicao then Result := Verdadeiro else Result := Falso; end; if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo.Lines.Clear; Memo.Text := URL + 'chNFe=' + ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + '000001'; Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(Memo.Text), dgstSHA1); Memo.Text := Memo.Text + '&cHashQRCode=' + Hash_SHA1;

Bom dia leufmt, Veja como funciona o exemplo do NFSe na procedure TfrmDemo_ACBrNFSe.GerarNFSe(NumNFSe: String). As informações do número do RPS e data de emissão são geradas por você mesmo.

Como você está utilizando "Items[0].SaveToFile" então tem que limpar o componente a cada adição de dados com "ACBrNFe1.NotasFiscais.Clear"

Bom dia medreis, Ao passar os caminhos para salvar: ACBrNFSe1.Configuracoes.Arquivos.PathGer := ACBrNFSe1.Configuracoes.Arquivos.PathRPS := ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := ACBrNFSe1.Configuracoes.Arquivos.PathCan := ACBrNFSe1.Configuracoes.Geral.PathSalvar := e habilitar as propriedades para salvar: ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; ACBrNFSe1.Configuracoes.Geral.Salvar := True; ACBrNFSe1.Configuracoes.WebServices.Salvar := True; Após a consulta os arquivos são salvos automaticamente por isso não entendi o porque de usar SaveToStream. Outra situação é: Será que o correto seria mesmo utilizar SaveToStream? Em algumas situações eu utilizo SaveToFile: ACBrNFSe1.NotasFiscais.Items[0].SaveToFile(ACBrNFSe1.Configuracoes.Arquivos.PathNFSe + '\' + nronfse + '.xml'); Desculpe se falei qualquer besteira.

Como ficou o resultado desta alteração, está no svn e ficou ok?

Bom dia diego.camposrosa, Nos arquivos que postou não consta nenhuma NFSe somente os RPS, você quer visualizar os RPS mesmo? Se for, não existe layout para RPS no ACBr, porém a visualização do RPS pode ser feita da mesma forma que a NFSe. O que aparece na minha visualização é o número do RPS, dados do tomador, discriminação do serviço, código do serviço, os valores e as retenções. Como é somente um recibo provisório, o que você precisa imprimir mesmo é a NFSe, precisa de algo mais?

Por enquanto utilizo o site do Google Chart, neste artigo tem o exemplo em Delphi, e depois da visualização salvo a imagem na máquina

Tente assim: FormatDateTime('yyyy-mm-ddThh:nn:ss-03:00', NFe.NotasFiscais.Items[i].NFe.Ide.dEmi));

Para Mato Grosso os endereços são: http://www.sefaz.mt.gov.br/nfce/consultanfce? e http://homologacao.sefaz.mt.gov.br/nfce/consultanfce? Os endereços de todos os Estados estão aqui.

Aecio, eu disponibilizei o Danfe NFC-e em FastReport passando como uma imagem externa para impressão do QR Code.