Depois De Atualizar Acbr Surgiu Erro Na Linha "with Rem.infnf.add Do"

[Juliano Otaviano Barreto]

Boa tarde colegas,

 

Hoje efetuei a atualização do componente e imediatamente surgiu este problema na compilação, meu fonte está da seguinte forma:

 

              case strtoint(qrnotasfiscais.Fieldbyname('ncnftipo').asstring) of
                0: // Nota fiscal modelo 01
                  begin
                    // Nota Fiscal
                    {$IFDEF PL_200}
                    with infCTeNorm.infDoc.infNF.Add do
                    {$ELSE}
                    with Rem.InfNF.Add do    (ERRO ESTÁ NESTA LINHA)
                    {$ENDIF}
                      begin
                        serie   :=qrnotasfiscais.Fieldbyname('ncnfserie').asstring;
                        nDoc    :=qrnotasfiscais.Fieldbyname('ncnumeronf').asstring;
                        dEmi    :=qrnotasfiscais.Fieldbyname('ncnfemissaonf').asdatetime;
                        vBC     :=qrnotasfiscais.Fieldbyname('ncnfbcicms').asfloat;
                        vICMS   :=qrnotasfiscais.Fieldbyname('ncnfvricms').asfloat;
                        vBCST   :=qrnotasfiscais.Fieldbyname('ncnfbcicmsst').asfloat;
                        vST     :=qrnotasfiscais.Fieldbyname('ncnficmsst').asfloat;
                        vProd   :=qrnotasfiscais.Fieldbyname('ncnfvrmercadoria').asfloat;
                        vNF     :=qrnotasfiscais.Fieldbyname('ncnfvalor').asfloat;

                        if length(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring))>0 then
                          nCFOP   :=strtoint(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring));

                        nPeso   :=qrnotasfiscais.Fieldbyname('ncnfpeso').asfloat;
                        //PIN     :='';

                        {$IFNDEF PL_200}
                        // Local de Retirada

                        if length(sonumeros(qrretirada.fieldbyname('doc1').asstring))>13 then
                          locret.CNPJCPF  :=sonumeros(qrretirada.fieldbyname('doc1').asstring)
                        else
                          locret.CNPJCPF  :=sonumeros(qrretirada.fieldbyname('doc1').asstring);

                        locRet.xnome:=qrretirada.fieldbyname('razaosocial').asstring;
                        locRet.xLgr:=qrretirada.fieldbyname('endereco').asstring;
                        locRet.nro:=qrretirada.fieldbyname('numero').asstring;
                        locRet.xCpl:=qrretirada.fieldbyname('complemento').asstring;
                        locRet.xBairro:=qrretirada.fieldbyname('bairro').asstring;

                        if (qrretirada.fieldbyname('codmunicipio').value<>null) and (length(sonumeros(qrretirada.fieldbyname('codmunicipio').AsString))>0) then
                          locRet.cMun:=strtoint(sonumeros(qrretirada.fieldbyname('codmunicipio').asstring));

                        locRet.xMun:=qrretirada.fieldbyname('cidade').asstring;
                        locRet.UF:=qrretirada.fieldbyname('uf').asstring;
                      end;
                    {$ENDIF}
                  end;
 

Eu já estou procurando solução para isto mas como vocês todos sabem que nós programadores temos a responsabilidade de manter nossos sistemas rodando entao eu preciso adiantar ao máximo a solução, quem sabe alguem nao passou por esta fase e possa me mostrar o que eu não estou conseguindo ver.

 

Desde já agradeço a quem possa se interessar.

 

Abs.

[Juliomar Marchetti]

Boa tarde

Antes de postar chegou a usar a pesquisa?

foi feito post essa semana mesmo onde o usuário informou o mesmo citado e também acredito

que você tenha olhado os arquivos todos que foram atualizados?

se percebeu no ACBr.inc o Italo comentou a linha que estava para a versão 1.04 para a versão 2.00

então a solução é simples, comenta uma linha e remove da outra!

 

só para completar a pesquisa foi feita usando somente o erro citado veja: