Ir para conteúdo
  • Cadastre-se

Thomas

Membros
  • Total de ítens

    24
  • Registro em

  • Última visita

Posts postados por Thomas

  1. Em 13/10/2016 at 17:46, hleorj disse:

    @Thomas , chegou a testar a propriedade QuebraLinhaEmDetalhamentoEspecifio igual True ?

    Desculpe a demora ao responder, talvez nem adiante a minha resposta, mas vamos lá...
    @hleorj não testei com QuebraLinhaEmDetalhamentoEspecifio = True.

    Em 13/10/2016 at 17:14, Juliomar Marchetti disse:

    Boa tarde

    O mesmo ocorreu com a versão em Paisagem? pois só vi o exemplo em retrato!

    ficou bom parabéns

     

    @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.

  2. 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

  3. 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;

    ....
     

  4. 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!!

  5. 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.

  6. 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.

  7. 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

     

×
×
  • 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.