Painel de líderes

Bom dia Juliomar, Ontem, após vários testes e comparações, descobrimos o seguinte: Se na propriedade do projeto estiver marcada a opção: Delphi Compiler -> Compiling -> Runtime errors -> Range checking -> True Na unit GZIPUtils.pas, na função: function crc32(thecrc: cardinal; S: TStream; len: Cardinal): Cardinal; Na linha 395: Result := UpdateCrc32(b, Result); Começamos a receber o erro de Range check error. Pelo que verificamos em debug, o escopo do Cardinal é de 0..4294967295, enquanto que a função UpdateCrc32 retorna um tipo Integer que pode ser de -2147483648..2147483647. Logo, ao retornar um valor negativo ou um valor além do escopo do tipo da variável, vai ocasionar a exceção descrita. O demo da ACBr e o outro projeto nosso que não deu erro estava False na propriedade acima. No projeto que apresentava o problema setamos para False, efetuamos um Clean e um Build e voltou a ter o mesmo comportamento dos outros projetos. Com isto, resolvemos o problema. Estamos te passando o que concluímos para uma avaliação. Desde já agradeço.

Fiz alguns ajustes no ACBrCTeDAEventoRLRetrato para imprimir o Evento de Prestação de Serviço em Desacordo. Em anexo unit alterada... ACBrCTeDAEventoRLRetrato.pas

Em Breve e com certeza será publicado um anúncio aqui no fórum como o Juliomar Marchetti esta cansado de responder.! Se voce tem pressa, pode fazer como alguns, criar num computador seu uma área com os fontes disponibilizados pelo Renato Rubinho e iniciar testes te envio, ai nao utiliza os fontes do trunk por enquanto ate que esteja totalmente compatibilizado. ou o do Leivio

Bom dia, Informe os parâmetros com o path do XML entre aspas (") ex: NFe.imprimireventopdf("C:\Users\Desktop\cc.xml","C:\Users\Desktop\nfe.xml")

Boa noite, Muito obrigado pela colaboração, já esta no repositório.

Boa noite Cleonir, Muito obrigado pela colaboração, já esta no repositório.

Não tenho mas segue abaixo o trecho de código onde adiciono as cidades pra você usar como exemplo: // Verifica se o municipio de carregamento já foi adicionado iIndex := -1; iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNINI').AsString,0); for i := 0 to Ide.infMunCarrega.Count - 1 do begin if ( Ide.infMunCarrega.Items[i].cMunCarrega = iCodCid ) then begin iIndex := i; Break; end; end; // Se o município ainda não foi adicionado, adiciona if ( iIndex < 0 ) then begin with Ide.infMunCarrega.Add do begin cMunCarrega := iCodCid; xMunCarrega := qryCTe.FieldByName('XMUNINI').AsString; end; end; // Verifica se o municipio de descarregamento já foi adicionado iIndex := -1; iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNFIM').AsString,0); for i := 0 to infDoc.infMunDescarga.Count - 1 do begin if ( infDoc.infMunDescarga.Items[i].cMunDescarga = iCodCid ) then begin iIndex := i; Break; end; end; // Se o município ainda não foi adicionado, adiciona if ( iIndex < 0 ) then begin with infDoc.infMunDescarga.Add do begin cMunDescarga := iCodCid; xMunDescarga := qryCTe.FieldByName('XMUNFIM').AsString; infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString; end; end else begin // Se o municipio já foi adicionado, adiciona apenas a chave do cte infDoc.infMunDescarga.Items[iIndex].infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString; end;