Erro schemas XML(TIeDestNaoIsento) quando UF diferente e não contribuinte

[Tercio Lins]

Boa tarde.
Primeiro informo que uso o Lazarus 1.8.4 com FPC 3.0.4 no Windows.

Atualizei os Schemas Hoje.

Está ocorrendo um erro na montagem do XML quando a NFe é emitida para outra UF, e o Destinatário 
não é Contribuinte ("NaoContribuinte"<indIEDest>9</indIEDest>).

Vejam como estão preenchidas as TAG's:

Dest.IE:=' ';
Dest.indIEDest:=inNaoContribuinte;

O problema é que nesse caso, a tag da inscrição estadual é colocada vazia <IE /> .

coloco abaixo a parte do xml referente:

<emit>
  <CNPJ>XXXXXXXXXXXXXXXXX</CNPJ> 
  <xNome>XXXXXXXXX XXXXXXXXXXXXXXXXXXXX</xNome> 
  <xFant>XXXXXXXXXXXXXXX</xFant> 
- <enderEmit>
  <xLgr>XXXXXXXXXXXXXXXXXXXXXXXXXXXX</xLgr> 
  <nro>600</nro> 
  <xBairro>XXXXXXXXX</xBairro> 
  <cMun>2704302</cMun> 
  <xMun>MACEIO</xMun> 
  <UF>AL</UF> 
  <CEP>57000000</CEP> 
  <cPais>1058</cPais> 
  <xPais>BRASIL</xPais> 
  <fone>XXXXXXXXXX</fone> 
  </enderEmit>
  <IE>XXXXXXXXX</IE> 
  <CRT>3</CRT> 
</emit>

<dest>
  <CPF>XXXXXXXXXXX</CPF> 
  <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome> 
- <enderDest>
  <xLgr>XXXXXXXXXXXXXXXXXXXX</xLgr> 
  <nro>000</nro> 
  <xBairro>AFLITOS</xBairro> 
  <cMun>2611606</cMun> 
  <xMun>RECIFE</xMun> 
  <UF>PE</UF> 
  <CEP>50000000</CEP> 
  <cPais>1058</cPais> 
  <xPais>BRASIL</xPais> 
  </enderDest>
  <indIEDest>9</indIEDest> 
  <IE />    <<<<<<   acredito que o erro esteja aqui. Se o destinatário não é contribuinte, não existe IE. >>>>>>
</dest>

Erro na validação do XML:
tiposBasico_v4.00.xsd

    </xs:simpleType>
    <xs:simpleType name="TIeDestNaoIsento">
        <xs:annotation>
            <xs:documentation>Tipo Inscrição Estadual do Destinatário // alterado para aceitar vazio ou ISENTO - maio/2010 v2.0</xs:documentation>
        </xs:annotation>
        <xs:restriction base="xs:string">
            <xs:whiteSpace value="preserve"/>
            <xs:maxLength value="14"/>
            <xs:pattern value="[0-9]{2,14}"/>
        </xs:restriction>
    </xs:simpleType>
 

Desde já agradeço, 

Tércio Lins.

 

[Italo Giurizzato Junior]

Boa tarde Tercio,

Faça o seguinte teste:

Na unit pcnNFeW altere a linha:

  if nfe.Dest.indIEDest <> inIsento then

para

  if nfe.Dest.indIEDest <> inNaoContribuinte then

 

Se você estiver com os fontes atualizados essa linha é de numero: 638.
 

[Tercio Lins]

49 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Tercio,

Faça o seguinte teste:

Na unit pcnNFeW altere a linha:

  if nfe.Dest.indIEDest <> inIsento then

para

  if nfe.Dest.indIEDest <> inNaoContribuinte then

 

Se você estiver com os fontes atualizados essa linha é de numero: 638.
 

Boa tarde Ítalo.

Lhe agradeço muito pela disposição em ajudar.

Foi enviada e aprovada em ambiente de homologação.

[Italo Giurizzato Junior]

Tercio,

Muito obrigado pelo retorno, já enviei para o repositório a correção.