Não Esta criando 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