Thomas

Desculpe a demora ao responder, talvez nem adiante a minha resposta, mas vamos lá... @hleorj não testei com QuebraLinhaEmDetalhamentoEspecifio = True. @Juliomar Marchetti A impressão em paisagem fiz a mesma alteração apesar de não anexar ai ela fica igual (Não tenho anexar agora) se ainda precisar posso conseguir.

@hleorj Segue em anexo. antes.pdf depois.pdf

Boa tarde, Realizei uma mudança na impressão das DANFEs do fortes em relação as tags de medicamentos nos produtos da NFe. Está mudança diminui o espaço ocupado pelas informações o que diminui bastante o consumo de folhas. Fontes alterados em anexo. Antes de implementar essa alteração atualizei os fontes. ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLPaisagem.dfm ACBrNFeDANFeRLClass.pas ACBrNFeDANFeRL.dfm

Ok, agora deu certo. Muito Obrigado!

Mesmo problema ocorre para mim.

Atualizei os componentes do Trunk2 e está me retornando a mensagem "Rejeicao: UF informada no campo cUF nao e atendida pelo Web Service" Estou passando RS no campo cUF . Alguém está com este problema?

Bom dia, Resolvi formatar o meu computador e reinstalei tudo novamente e agora funcionou tudo perfeitamente. Muito obrigado Régys pela atenção! Abraço.

Fiz o teste isolando o processo de geração do PDF fora da minha aplicação e realmente funciona, agora quando tento fazer a mesma coisa dentro da minha aplicação retorna o erro de Project ... raised exception class Exception with message 'File is corrupted'. O erro é gerado na linha 2566 do RLMetaFile. procedure TRLGraphicSurface.LoadFromStream(AStream: TStream); procedure LoadHeaderFromStream(AStream: TStream); var data: AnsiString; ch: char; I: Integer; begin SetLength(data, MaxSurfaceHeader); I := 0; while (I < MaxSurfaceHeader) and (AStream.Read(ch, 1) = 1) do begin Inc(I); data[I] := AnsiChar(ch); if ch = #26 then Break; end; SetLength(data, I); if data <> SurfaceHeaderStr then raise Exception.Create('File is corrupted!'); end; ....

Pessoal o problema persiste se alguém poder me ajudar agradeço.

Atualizei os pacotes ACBr, o progress até diz que serão 8 páginas, porém na hora de salvar o PDF ele fica em 1Kb.

Opa, gerando PDF.

Opa, mandei para o teu e-mail. Obrigado pela atenção

Boa Tarde Pessoal, Passei minha aplicação para Trunk 2 e mudei o report de Fast para o Fortes. Isso já faz algumas semanas e tudo ia bem, porém hoje um cliente meu esta tentando imprimir uma DANFE com 80 produtos e simplesmente o arquivo PDF não gera, até cria o PDF em 1kb, mas não gera nada dentro dele. Obs.: O xml está correto e validado, a nota está ok junto ao sefaz. Alguém tem alguma sugestão do que posso fazer? Agradeço!!

É no trunk. Vou passar a minha aplicação para o trunk 2 e mando novamente. Obrigado

Boa Tarde, Gostaria de fazer uma sugestão de melhoria para a impressão da DANFE em FastReport. Justificativa: O código atual cria linhas dentro do espaço destinado ao nome do produto, o que aumenta bastante o número de páginas da DANFe. No código que sugeri diminui bastante o consumo de folhas. Arquivo: ACBrNFeDANFEFRDM.pas Localização inicial: Linha 480. De: with med.Items[j] do begin vTemp2.Add('-LOTE: ' + nLote); vTemp2.Add(' QTDADE: ' + DFeUtil.FormatFloat(qLote)); vTemp2.Add(' FABR.: ' + DFeUtil.FormatDate(DateToStr(dFab))); vTemp2.Add(' VAL.: ' + DFeUtil.FormatDate(DateToStr(dVal))); vTemp2.Add(DFeUtil.SeSenao(vPMC > 0, ' PMC: ' + DFeUtil.FormatFloat(vPMC), '')); end; Para: with med.Items[j] do begin vTemp2.Add('-LOTE: ' + nLote+ ' QTDE: ' + DFeUtil.FormatFloat(qLote)+ ' FABR.: ' + DFeUtil.FormatDate(DateToStr(dFab))+ ' VAL.: ' + DFeUtil.FormatDate(DateToStr(dVal))+ DFeUtil.SeSenao(vPMC > 0, ' PMC: ' + DFeUtil.FormatFloat(vPMC), '')); end; Peço desculpas se este não for o local ideal do fórum para sugerir melhorias.

No ambiente de produção funcionou... mas homologação não vai de jeito nenhum, (marquei/demarquei as opções de internet)

Opa, Também estou com esse problema... alguém conseguiu solucionar o problema?

Jeferson estou com o mesmo problema, vc achou uma solução ?

Testei agora e o erro na Tecnos continua.. e nada deles darem uma satisfação do que está acontecendo...

Show, vou testar aqui!

Pois é... mas eu estou em ambiente de homologação no exemplo do ACBr Demo_ACBrNFSe. Sei dizer que esse suporte da Tecnos é complicado, não tem atendimento telefônico com técnico só via e-mail, mandei um e-mail ontem e até o momento não me responderam.

Olá, Refiz tudo e agora o problema é outro: "Erro na geracao da assinatura! Conforme nota divulgada e emitida junto a Secretaria da Fazenda e Portal da NFS-e de seu Municipio, a partir de 01 de Abril de 2014, torna-se obrigatoria a assinatura digital de Mensagens de Cancelamento e Envio de notas eletronicas enviadas ao sistema da NFS-e. -'." O que será que pode ser ?? Abraço.

Fiz as alterações no ACBrProvedorTecnos mas o erro permanece. ..- URL: - SOAPAction: "". O erro acontece dentro da unit ACBrNFSeWebServices linha 4254 - ReqResp.Execute(Acao.Text,Stream);

Bom Dia! Pois é, a tecnos só atende o suporte via e-mail... Estou desenvolvendo a nota fiscal de serviço para o município de Dois Irmãos que também é Tecnos, porém o município de Dois irmãos não está na lista do Acbr, alterei o arquivo pnfsConversao.pas para considerar o código do IBGE 4306403 e iniciei os testes. O erro que o componente me retorna é "A sintaxe do nome do arquivo, do nome do diretório ou do rótulo do volume está incorreta. -URL: -SOAPAction:" Agora fiquei na dúvida se o problema está no componente ACBr ou se é na Tecnos. Para implementar em uma cidade que o ACBr não funciona como default é só mudar o arquivo pnfsConversao.pas e recompilá-lo ou é necessário fazer outras implementações? Abraço. Thomas