tag iest no xml

[Pedro Antonio Marchette]

Boa tarde amigos estou com um problema ja procurei pelo forum porem nao encotrei nada que solucione isso,

tem um cliente do RJ que esta enviando uma nota para SP com st, o mesmo consguiu uma IEST(iscrição estadual subistituto tributario)

informe a tag no meu codigo de emissao de nota porem nao cria a tag no xml. trecho em negrito, ate coloquei mensagens pra ver se nao estava pulando ele passou dentro de tudo e nao gerou

segue o codigo :

  if QPAIRUF_DESTINARIO.AsString = 'EX' then
        begin
           Ide.idDest := doExterior;

           end
        else
          if QPAIRUF_DESTINARIO.AsString = QPAIRUF_EMISSOR.AsString then
             ide.idDest := doInterna
          else
             ide.idDest := doInterestadual;

        Emit.CNPJCPF           := QPAIRCGC_EMISSOR.AsString;
        Emit.IE                := QPAIRICMS_EMISSOR.asString;

        {** Inscrição Estadual Substituto Tributário ** Isso permite que possamos faturar do 'RJ' para 'SP',
         sem a necessidade de pagamento antecipado da Guia de ST. }
        if (QPAIRFINALIDADE_NF.AsString <> 'VENDA PARA CONSUMO/ATIVO') then
        begin
            //ShowMessage('PASSOU, VENDA PARA CONSUMO/ATIVO');
            if (Trim(CONSULTAS.QPAIRRG.AsString) <> '') or (CONSULTAS.QPAIRRG.AsString <> null)then
            begin
                //ShowMessage('VERIFICAÇÃO SE TEM O IEST' + CONSULTAS.QPAIRRG.AsString);
                if CONSULTAS.QPAIRUF_DESTINARIO.AsString = 'SP' then
                begin
                     Emit.IEST             := Trim(CONSULTAS.QPAIRRG.ASSTRING) ;
                     //ShowMessage('ALIMENTOU A TAG' + CONSULTAS.QPAIRRG.AsString);
                end;
            end;
        end;

        //if QPAIRCGC_EMISSOR.AsString = '0000000000000' then
        //    Emit.xNome             := ''
        //else
            Emit.xNome             := QPAIRRAZAO_SOCIAL_EMISSOR.AsString;

        Emit.xFant             := QPAIRRAZAO_SOCIAL_EMISSOR.AsString;
        Emit.EnderEmit.fone    := QPAIRTEL_EMISSOR.AsString;

        if (QPAIRCEP_EMISSOR.AsString <> '') then
            Emit.EnderEmit.CEP := StrToInt(QPAIRCEP_EMISSOR.AsString)
        else
            Emit.EnderEmit.CEP := 0;

        Emit.EnderEmit.xLgr    := QPAIRENDERECO_EMISSOR.AsString;

        if QPAIRNUMERO_EMISSOR.IsNull then
            Emit.EnderEmit.nro := '.'
        else
            Emit.EnderEmit.nro := QPAIRNUMERO_EMISSOR.AsString;

        Emit.EnderEmit.xCpl    := QPAIRCOMPLEMENTO_EMISSOR.AsString;
        Emit.EnderEmit.xBairro := QPAIRBAIRRO_EMISSOR.AsString;
        Emit.EnderEmit.cMun    := QPAIRCOD_CIDADE_EMISSOR.AsInteger;
        Emit.EnderEmit.xMun    := QPAIRCIDADE_EMISSOR.AsString;
        Emit.EnderEmit.UF      := QPAIRUF_EMISSOR.AsString;
 

xml em anexo

1-env-lot.xml

[Italo Giurizzato Junior]

Boa tarde Pedro,

No componente não existe nada que possa definir ou não a criação da TAG a não ser se a propriedade IEST for alimentada com uma string vazia.

Sendo assim, verifique na sua rotina se após alimentar a mesma não existe nenhuma outra linha que esteja "zerando" o seu conteúdo.

[Pedro Antonio Marchette]

12 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Pedro,

No componente não existe nada que possa definir ou não a criação da TAG a não ser se a propriedade IEST for alimentada com uma string vazia.

Sendo assim, verifique na sua rotina se após alimentar a mesma não existe nenhuma outra linha que esteja "zerando" o seu conteúdo.

agradeço a colaboração Italo, conferi na rotina e estava passando vazio a tag em outro momento