Atuliazado O Componente Para 2.0 E Erro No Locret

[edulamy]

Bom dia,

Atualizei o componente para a versão 2.0 e esta apresentando erro no locRet, ja fiz as adequações para o funcionamento, porem este ainda esta apresentando erro.

 

Ele esta dentro de with infCTeNorm.infDoc.infNF.Add do. O que pode estar errado ou esta informação não existe mais na versão 2.0?

 

with infCTeNorm.infDoc.infNF.Add do

                         begin

                              nRoma := QryCtrcItemNUM_ROMANEIO.AsString;

                              nPed  := QryCtrcItemNUM_PEDIDO.AsString;

                              serie := QryCtrcItemSERIE.AsString;

                              nDoc  := QryCtrcItemNOTA_FISCAL.AsString;

                              dEmi  := QryCtrcItemDATA.AsDateTime;

                              vBC   := RoundTo(QryCtrcItemVAL_BASE_ICMS.AsFloat, -2);

                              vICMS := RoundTo(QryCtrcItemVAL_ICMS.AsFloat, -2);

                              vBCST := RoundTo(QryCtrcItemVAL_BASE_ICMSST.AsFloat, -2);

                              vST   := RoundTo(QryCtrcItemVAL_ICMSST.AsFloat, -2);

                              vProd := RoundTo(QryCtrcItemVLR_PRODUTO.AsFloat, -2);

                              vNF   := RoundTo(QryCtrcItemVAL_NF.AsFloat, -2);

                              nCFOP := QryCtrcItemCFOP.AsInteger;

                              nPeso := RoundTo(QryCtrcItemPESO.AsFloat, -2);

                              PIN   := QryCtrcItemPIN_SAFRAMA.AsString;

 

                              // Local de Retirada

                                if trim(QryPrincipalCNPJ_REMETENTE.AsString)<>'' then

                                begin

                                    locRet.CNPJCPF := FProc.RemoveChar(QryPrincipalCNPJ_REMETENTE.AsString);

                                    locRet.xNome:=copy(QryPrincipalRAZAO_REMETENTE.AsString,1,60);

                                    locRet.xLgr:=QryPrincipalEND_REMETENTE.AsString;

                                    if (trim(QryPrincipalNumero.AsString)<>'') then

                                      locRet.nro:=QryPrincipalNumero.AsString

                                    else

                                      locRet.nro:='S/N';

                                    locRet.xCpl:=QryPrincipalComplemento.AsString;

                                    locRet.xBairro:=QryPrincipalBairro.AsString;

                                    CodigoMunicipio:= FProc.ObterCodigoMunicipio(QryPrincipalMUN_REMETENTE.AsString, QryPrincipalUF_REMETENTE.AsString);

                                    locRet.cMun:=CodigoMunicipio;

                                    locRet.xMun:=QryPrincipalMUN_REMETENTE.AsString;

                                    locRet.UF:=QryPrincipalUF_REMETENTE.AsString;

                                end;

                              

                          end;

[Juliomar Marchetti]

Bom dia

Use a pesquisa pois já tem tópicos falando veja:

 

para usar a pesquisa é só olhar no canto superior direito tem um local para isso!

[Italo Giurizzato Junior]

Bom dia edulamy,

 

Favor baixar do Portal Nacional do CT-e a Nota Técnica 2013/013 que consta a nova estrutura do XML na versão 2.00

 

O Local de Retirada não fica mais dentro do <infNF> e sim, dentro do <rem> que é muito mais lógico.

 

E outra coisa agora ele se chama Local de Coleta (campo # 131 - Página 129 da NT mencionada acima).

 

O InfNF, infNFe e infOutro estão fora do grupo <rem> eles pertencem agora ao grupo <infDoc> (Página 136).