Edimar Ribeiro de Almeida
-
Total de ítens
15 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Edimar Ribeiro de Almeida
-
-
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.
-
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]); -
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?
-
"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.
-
Qual tipo de DANFE você utiliza? FastReport, Rave, quickreport?
RAVE.
-
Gostaria de imprimir cEAN no Lugar do cProd quando cEAN for preenchido como faço? Alguem pode me ajudar?
Margens DANFE FastResport
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
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;