Ir para conteúdo
  • Cadastre-se

Leonardo Gregianin

Membros
  • Total de ítens

    712
  • Registro em

  • Última visita

Tudo que Leonardo Gregianin postou

  1. 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.
  2. 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.
  3. 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 ?
  4. Não poderei te ajudar muito, não sei como funciona o Monitor.
  5. 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.
  6. 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.
  7. 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;
  8. 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.
  9. Como você está utilizando "Items[0].SaveToFile" então tem que limpar o componente a cada adição de dados com "ACBrNFe1.NotasFiscais.Clear"
  10. 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.
  11. Como ficou o resultado desta alteração, está no svn e ficou ok?
  12. 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?
  13. 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
  14. Tente assim: FormatDateTime('yyyy-mm-ddThh:nn:ss-03:00', NFe.NotasFiscais.Items[i].NFe.Ide.dEmi));
  15. 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.
  16. Aecio, eu disponibilizei o Danfe NFC-e em FastReport passando como uma imagem externa para impressão do QR Code.
  17. Boa tarde, Como forma de retribuir a imensa ajuda que os componentes do ACBr nos dão, já que não pago o SAC tento contribuir com código ou encontrar bugs. Criei um layout para NFC-e no FastReport com largura do papel de 8 cm para ser utilizado em impressoras não fiscais, mas nada impede de ser impresso em papel A4. As alterações foram feitas somente no carregamento dos dados para o ClientDataSet do FastReport (ACBrNFeDANFEFRDM.pas) como: * Criado o ClientDataSet para a tag "pag" (tag exlusiva para NFC-e) * Alterado o ClientDataSet "Identificacao" para carregar a "MensagemFiscal" e compatibilizado a tag "DEmi" para a NFCe mostrar Data e Hora. * Criado no CDS "Destinatario" o campo "Consumidor". Nenhuma destas alterações influenciam ou causa "problemas" na impressão da NF-e. Em anexo os arquivos ACBrNFeDANFEFRDM.pas e ACBrNFeDANFEFRDM.dfm com os últimos fontes do svn. Limitações: 1. A impressão do QR Code vem de uma imagem externa, da mesma forma que é utilizado na impressão da logomarca da empresa. A fazer: 1. Selecionar a URL dos Estados para gerar o endereço do site de consulta. Pág. 14 do Manual de Especificações Técnicas do DANFE NFC-e e QR Code - versão 3.1 2. Criar uma nova propriedade no componente Danfe em FastReport para receber o caminho da imagem QR Code. Utilização: 1. Caminho do arquivo FastReport: ACBrNFeDANFEFR1.FastFile := 'C:\DANFeNFCe.fr3'; 2. Caminho da imagem QR Code: ACBrNFeDANFEFR1.Logo := C:\QR.jpeg'; 3. Imprimir: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(PathDoXML); ACBrNFe1.NotasFiscais.Imprimir; Em anexo como ficou minha impressão, espero que ajude.
  18. Será que a mesma base do código do ACBr para o Danfe em FastReport, criando um novo layout para NFCe e passando a imagem do QR Code como uma imagem externa não daria para fazer?
  19. Alguém que utilize envio por DPEC poderia comentar esta situação?
  20. Tenho uma NFCe em ambiente de produção que está com o mesmo erro no site, a leitura do QR Code por celular funciona perfeitamente. Talvez o site da Sefaz não está conseguindo gerar o QR Code com o hash da URL. Segue o link: http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51130915375991000679650040000021351000021359&nVersao=100&tpAmb=1&dhEmi=323031332D30392D32315431363A31363A31322D30343A3030&vNF=367.58&vICMS=0&digVal=627934516769722B646E4E572B544F5117870435651178626A4B44343D&cIdToken=000001&cHashQRCode=EC5DC564AEE7E96325AA14066C1FE3E3D311E2D2
  21. udenilson, o endereço da sua NFCe é esse: http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131009471363000180650010000000021000000025&nVersao=100&tpAmb=2&cDest=80704611104&dhEmi=323031332d31302d31355431303a34323a32382d30343a3030&vNF=10.00&vICMS=1.70&digVal=57362b6e67566f796b69426f33396869372b4a57563763307337383d&cIdToken=000001&cHashQRCode=EECCAE64A51CBFFEEB0F724B7E2B7BF5305E4EC4 Parabéns, só o QR Code ainda está errado. A mensagem do site "Erro 100 - QR Code Inválido."
  22. Não seria bem isso que eu pensava. A diretiva NF_V_310 seria somente em tempo de compilação e ao propor uma nova propriedade no componente o próprio usuário do sistema definiria a versão que quer utilizar.
  23. Boa tarde Ítalo, Eu acredito que uma nova propriedade no componente seria a forma mais simples e eficiente, já que futuramente pode haver a mesma situação que ocorre hoje. Como não se pode enviar o Xml na versão 3.10 gerando a rejeição "Cabeçalho - versão do arquivo XML superior a versão vigente", acho suficiente trabalhar somente com a constante "NFenviNFe". No meu sistema eu altero a constante para variável "NFenviNFe" e alimento ela no construtor da classe "NotaFiscal.Create" e consigo gerar, assinar e validar o xml.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.