mudança no cte

[Dfox]

Boa tarde a todos,

instalei o acbr hoje e esta da erro no cte como ficou essa parte do cte

 

                  with infCTeNorm.infDoc.infNF.Add do
                  {$ELSE}
                  with Rem.InfNF.Add do
                  {$ENDIF}
                  begin
                    nRoma := qrnotafiscal_cteNR_ROMANEIO.asstring;
                    nPed := qrnotafiscal_cteNR_PEDIDO.asstring;
                    // criar tabela
                    serie := qrnotafiscal_cteSERIE.asstring;
                    nDoc := qrnotafiscal_cteNUMERO.asstring;
                    dEmi := qrnotafiscal_cteDATA_EMISSAO.AsDateTime;
                    vBC := qrnotafiscal_cteBASE_CALC_ICMS.Value;
                    vICMS := qrnotafiscal_cteVALOR_ICMS.Value;
                    vBCST := qrnotafiscal_cteBASE_CALC_ICMS_ST.Value;
                    vST := qrnotafiscal_cteVALOR_ICMS_ST.Value;
                    vProd := qrnotafiscal_cteVALOR_PRODUTOS.Value;
                    vNF := qrnotafiscal_cteVALOR_NOTA.Value;
                    nCFOP := StrToInt
                      (qrnotafiscal_cteCFOP.asstring);
                    nPeso := qrnotafiscal_ctePESO_TOTAL.Value;
                    PIN := qrnotafiscal_ctePIN.asstring;

 

[Dfox]

pelo que vi é esse campo que foi retirado Rem.InfNFe.Add

[BigWings]

Foi removido o suporte as versões antigas do CTe 1.03 e 1.04.

Eram essas versões que exigiam esses $IFDEF no código, você pode remover na sua aplicação.

[Juliomar Marchetti]

16 horas atrás, Dfox disse:

Boa tarde a todos,

instalei o acbr hoje e esta da erro no cte como ficou essa parte do cte

 

                  with infCTeNorm.infDoc.infNF.Add do
                  {$ELSE}
                  with Rem.InfNF.Add do
                  {$ENDIF}
                  begin
                    nRoma := qrnotafiscal_cteNR_ROMANEIO.asstring;
                    nPed := qrnotafiscal_cteNR_PEDIDO.asstring;
                    // criar tabela
                    serie := qrnotafiscal_cteSERIE.asstring;
                    nDoc := qrnotafiscal_cteNUMERO.asstring;
                    dEmi := qrnotafiscal_cteDATA_EMISSAO.AsDateTime;
                    vBC := qrnotafiscal_cteBASE_CALC_ICMS.Value;
                    vICMS := qrnotafiscal_cteVALOR_ICMS.Value;
                    vBCST := qrnotafiscal_cteBASE_CALC_ICMS_ST.Value;
                    vST := qrnotafiscal_cteVALOR_ICMS_ST.Value;
                    vProd := qrnotafiscal_cteVALOR_PRODUTOS.Value;
                    vNF := qrnotafiscal_cteVALOR_NOTA.Value;
                    nCFOP := StrToInt
                      (qrnotafiscal_cteCFOP.asstring);
                    nPeso := qrnotafiscal_ctePESO_TOTAL.Value;
                    PIN := qrnotafiscal_ctePIN.asstring;

 

Este seu caso é que foi feito a copia do código do exemplo e sim ele existia a muito tempo atrás . e como falado pelo bigwings não existe mais e não precisa de IFDEFS

[Dfox]

ah sim entendi mais como fica essa parte

                    // Local de Retirada
                    {$IFNDEF PL_200}
                    if qrnotafiscal_cteLOCAL_RETIRADA_DIF.AsString = 'Sim'
                    then
                    begin

                      locRet.CNPJCPF :=
                        qrnotafiscal_ctecnpj.AsString;
                      locRet.xNome := qrnotafiscal_ctenome.AsString;
                      locRet.xLgr :=
                        qrnotafiscal_ctelogradouro.AsString;
                      locRet.nro :=
                        qrnotafiscal_ctenumero_retirada.AsString;
                      locRet.xCpl :=
                        qrnotafiscal_ctecomplemento.AsString;
                      locRet.xBairro :=
                        qrnotafiscal_ctebairro.AsString;
                      // locRet.cMun := StrToInt(frmmodulo.qrnotafiscal_cteco.Text);
                      locRet.xMun :=
                        qrnotafiscal_ctemunicipio.AsString;
                      locRet.UF := qrnotafiscal_cteuf.AsString;
                    end;}
                    {$ENDIF}

 

[Juliomar Marchetti]

47 minutos atrás, Dfox disse:

ah sim entendi mais como fica essa parte

                    // Local de Retirada
                    {$IFNDEF PL_200}
                    if qrnotafiscal_cteLOCAL_RETIRADA_DIF.AsString = 'Sim'
                    then
                    begin

                      locRet.CNPJCPF :=
                        qrnotafiscal_ctecnpj.AsString;
                      locRet.xNome := qrnotafiscal_ctenome.AsString;
                      locRet.xLgr :=
                        qrnotafiscal_ctelogradouro.AsString;
                      locRet.nro :=
                        qrnotafiscal_ctenumero_retirada.AsString;
                      locRet.xCpl :=
                        qrnotafiscal_ctecomplemento.AsString;
                      locRet.xBairro :=
                        qrnotafiscal_ctebairro.AsString;
                      // locRet.cMun := StrToInt(frmmodulo.qrnotafiscal_cteco.Text);
                      locRet.xMun :=
                        qrnotafiscal_ctemunicipio.AsString;
                      locRet.UF := qrnotafiscal_cteuf.AsString;
                    end;}
                    {$ENDIF}

 

No exemplo tem ela bem certinho. chegou a olhar?

[Italo Giurizzato Junior]

Boa tarde @Dfox,

Primeiramente o que significa?

{$IFNDEF PL_200}

Se não estiver definido PL_200 execute/compile o código abaixo.

Da versão 2.00 em diante deixamos de usar as diretivas de compilação.

Tudo o que se encontra dentro da diretiva apresentada acima deve ser removido do código, pois se refere a versão anterior a versão 2.00.

Por outro lado tudo o que estiver dentro da diretiva abaixo deve permanecer no código;

{$IFDEF PL_200}

Observe a diferença entre elas.

[Dfox]

{$IFDEF PL_200}

era isso mesmo valeu.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.