Edimar Ribeiro de Almeida

O único problema que o padrão do report está em cm e ai da problema na função abaixo, DANFEClassOwner.MargemSuperior está vindo em cm e Page.TopMargin está em mm, assim as margem ficam erradas procedure TACBrNFeFRClass.AjustaMargensReports; var Page: TfrxReportPage; I: Integer; begin for I := 0 to (frxReport.PreviewPages.Count - 1) do begin Page := frxReport.PreviewPages.Page; if (DANFEClassOwner.MargemSuperior > 0) then Page.TopMargin := DANFEClassOwner.MargemSuperior; if (DANFEClassOwner.MargemInferior > 0) then Page.BottomMargin := DANFEClassOwner.MargemInferior; if (DANFEClassOwner.MargemEsquerda > 0) then Page.LeftMargin := DANFEClassOwner.MargemEsquerda; if (DANFEClassOwner.MargemDireita > 0) then Page.RightMargin := DANFEClassOwner.MargemDireita; frxReport.PreviewPages.ModifyPage(I, Page); end; end;

No meu caso o sistema estava funcionado tudo certo depois que atualizei o cStar começou a ficar zerado, e tenho que fazer muitas manobras para consegui pegar o valor. fRetorno.cStat := mMDFe.WebServices.Retorno.cStat; if fRetorno.cStat = 0 then fRetorno.cStat := mMDFe.Manifestos.Items[0].MDFe.procMDFe.cStat; if fRetorno.cStat = 0 then fRetorno.cStat := mMDFe.WebServices.Retorno.MDFeRetorno.cStat;

Sim instalei primeiro, tenho mesmo fast no delphi 7 e funciona, no xe6 que apresenta o erro. quais são os componentes que no standard não tem olhei no site do Fast e a diferença do Standard para o Full que o Full vem com fonte, minha instalação é não é pirata, comprei o componente. Começou depois que atualizei os fontes, e deu esse erro quando compila, [dcc32 Fatal Error] frxrcClass.pas(104): F2051 Unit ACBrNFeDANFEFR was compiled with a different version of frxClass.TfrxReport

Estou com o mesmo problema quando vou inserir um componente que usa FR presenta o erro: ex ACBrNFeDANFEFR "Out of Memory" Todos componentes instalados corretamente uso o FastReport 5 VCL Standard, ultima versão. Se alguem tiver uma ideia de como resolver, pois já entre em contato com o fornecedor do FastReport e não puderam me ajudar.

Segue arquivo alterado. ACBrBALClass.pas

Encontrei o problema, no debug identifique que quando usa alíquota de valor, em determinadas ecf's a variável fpAliquotas da classe TACBrECFClass fica vazia e a função (function TACBrECFClass.GetAliquotas: TACBrECFAliquotas;) está vazendo uma validação (if not Assigned( fpAliquotas ) then), contudo o objeto não é nulo(foi criado) mas está vazio (sem dados), diante dessa condição o sistema acbr não executa a função ECF.CarregaAliquotas; e apresenta a falha. Antes function TACBrECFClass.GetAliquotas: TACBrECFAliquotas; var ECF: TACBrECF; begin if not Assigned( fpAliquotas ) then begin ECF := GetECFComponente(Self); ECF.CarregaAliquotas ; end; result := fpAliquotas ; end; Depois (**Nota não coloquei como ( or ) a condição fpAliquotas.Count = 0, pois quando usa-se o ( or ) o if testa as duas condições e iria apresentar um falha quando a variável (fpAliquotas for nula) **) function TACBrECFClass.GetAliquotas: TACBrECFAliquotas; var ECF: TACBrECF; begin if not Assigned( fpAliquotas ) then begin ECF := GetECFComponente(Self); ECF.CarregaAliquotas ; end else if fpAliquotas.Count = 0 then begin ECF := GetECFComponente(Self); ECF.CarregaAliquotas ; end; result := fpAliquotas ; end;

Só mudar a unit ACBrUtil na função function EAN13_DV(CodEAN13: String): String; linha CodEAN13 := String( padR(AnsiString(Trim(String(CodEAN13))),12,'0') ) ; para CodEAN13 := String( padL(AnsiString(Trim(String(CodEAN13))),12,'0') ) ; No fonte do acbr está padR, e só mudar padL na função de fazer o digito.

Tem um erro mesmo nessa leitura do xml, realizei uma alteração no componente e resolveu o problema. Depois que atualizar o arquivo e só compilar o pacote PCN2.dpk. linhas adicionada 498 e 499. aTexto := StringReplace(aTexto, '<![CDATA[','', [rfReplaceAll]); aTexto := StringReplace(aTexto, ']]>','', [rfReplaceAll]); pcnAuxiliar.pas pcnAuxiliar.pas

Resolvido, lendo as configurações antes de validar.

Depois que atualizei o CT-e, quando valido o xml apresenta a mensagem Error: unable to parse, logo já atualizei o schema e continuou o erro. Debugando peguei o xml em anexo. Contudo validei um xml já transmitido antes de atualizar o fonte e deu mesmo erro. Algum pode me ajudar? XmlHomologacao.xml

"Erro Desconhecido ao Enviar Lote de CT-e" Estou com esse problema e fazendo um debug na função abaixo do acbr pega o retorno do sefaz que responde um html (StrStream.DataString="|html|HTTP Error 403.17 - Forbidden: Client certificate has expired or is not yet valid.|/hmlt|"), contudo quando o acbr gera o xml fica vazio, pois o retorno do sefaz não é em html. Logo para resolver, coloque um certificado valido e funcionou perfeitamente. //-------------------------------- unit ACBrCTeWebServices ... linha=1293 FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados( FRetornoWS, 'cteRecepcaoLoteResult'); //----------------------------------

Para resolver o problema diminuir o tamanho dos region's height e funcionou, aproximadamente 0,400 a 0,300 distribuído em três região.

Estou com esse problema Já tentei resolver preenchendo a propriedade relDanfe.ProdutosPorPagina, e diminuir o tamanho do report do rave mas não resolveu. Uso rave nativo do delphi 7. 32140403799534000118550020000000141000000144-NFe.xml 32140403799534000118550010000001701000001700-NFe.xml

RAVE.

Gostaria de imprimir cEAN no Lugar do cProd quando cEAN for preenchido como faço? Alguem pode me ajudar?