Pesquisar na Comunidade

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

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