CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10

  [ô]Tag da Declaração de Importação - <DI> - Ocorrência 0-N
Public Function Looze_Importacao(Optional nDi As String, Optional dDi As String, _
                                Optional xLocDesemb As String, Optional UFDesemb As String, _
                                Optional dDesemb As String, Optional cExportador As String, _
                                Optional nAdicao As String, Optional nSeqAdi As String, _
                                Optional cFabricante As String, Optional vDescDI As String)
Print #1, ([Ô]    <DI>[Ô])
Print #1, ([Ô]            <nDi>[Ô] & nDi & [Ô]</nDi>[Ô])                        [ô]// I19 - Número do Documento de Importação DI/DSI/DA (DI/DSI/DA)
Print #1, ([Ô]            <dDi>[Ô] & dDi & [Ô]</dDi>[Ô])                        [ô]// I20 - Data de Registro da DI/DSI/DA
Print #1, ([Ô]            <xLocDesemb>[Ô] & xLocDesemb & [Ô]</xLocDesemb>[Ô])   [ô]// I21 - Local de desembaraço
Print #1, ([Ô]            <UFDesemb>[Ô] & UFDesemb & [Ô]</UFDesemb>[Ô])         [ô]// I22 - Sigla da UF onde ocorreu o Desembaraço Aduaneiro
Print #1, ([Ô]            <dDesemb>[Ô] & dDesemb & [Ô]</dDesemb>[Ô])            [ô]// I23 - Data do Desembaraço Aduaneiro
Print #1, ([Ô]            <cExportador>[Ô] & cExportador & [Ô]</cExportador>[Ô])    [ô]// I24 - Código do exportador
Print #1, ([Ô]    </DI>[Ô])
[ô]//       Tag de Adições - <adi> - Ocorrência 1-N
Print #1, ([Ô]    <adi>[Ô])
Print #1, ([Ô]            <nAdicao>[Ô] & nAdicao & [Ô]</nAdicao>[Ô])            [ô]// I26 - Numero da adição
Print #1, ([Ô]            <nSeqAdi>[Ô] & nSeqAdi & [Ô]</nSeqAdi>[Ô])            [ô]// I27 - Numero seqüencial do item dentro da adição
Print #1, ([Ô]            <cFabricante>[Ô] & cFabricante & [Ô]</cFabricante>[Ô])    [ô]// I28 - Código do fabricante estrangeiro
Print #1, ([Ô]            <vDescDI>[Ô] & vDescDI & [Ô]</vDescDI>[Ô])            [ô]// I29 - Valor do desconto do item da DI – adição
Print #1, ([Ô]    </adi>[Ô])

End Function 

SELECT [ô]root[ô]
	,(SELECT 
		g.id_Grupo
		,g.nm_Grupo 
		,(SELECT 
			f.id_Familia
			,f.nm_Familia 
			,(SELECT 
				s.id_subFamilia
				,s.nm_subFamilia 
			  FROM  
				subfamilia s
			  WHERE 
				s.id_Grupo = f.id_Grupo and s.id_Familia = f.id_Familia FOR XML AUTO, TYPE) 
		  FROM  
			familia f
		  WHERE 
			f.id_Grupo = g.id_Grupo FOR XML AUTO, TYPE ) 
	FROM 
		grupo g FOR XML AUTO, TYPE, ROOT) 


   

 

<root>
  <g id_Grupo=[Ô]0[Ô] nm_Grupo=[Ô]N/A[Ô]>
    <f id_Familia=[Ô]0[Ô] nm_Familia=[Ô]N/A[Ô]>
      <s id_subFamilia=[Ô]0[Ô] nm_subFamilia=[Ô]N/A[Ô] />
    </f>
  </g>
  <g id_Grupo=[Ô]1[Ô] nm_Grupo=[Ô]ELETRICA[Ô]>
    <f id_Familia=[Ô]1[Ô] nm_Familia=[Ô]FICAP[Ô]>
      <s id_subFamilia=[Ô]1[Ô] nm_subFamilia=[Ô]FICAP GERAL[Ô] />
    </f>
    <f id_Familia=[Ô]2[Ô] nm_Familia=[Ô]TERMINAL[Ô]>
      <s id_subFamilia=[Ô]1[Ô] nm_subFamilia=[Ô]TERMINAL ANEL[Ô] />
      <s id_subFamilia=[Ô]2[Ô] nm_subFamilia=[Ô]TERMINAL GARFO[Ô] />
      <s id_subFamilia=[Ô]3[Ô] nm_subFamilia=[Ô]TERMINAL PINO[Ô] />
      <s id_subFamilia=[Ô]4[Ô] nm_subFamilia=[Ô]TERMINAL TUBULAR[Ô] />
      <s id_subFamilia=[Ô]5[Ô] nm_subFamilia=[Ô]LUVA ISOLADA[Ô] />
      <s id_subFamilia=[Ô]7[Ô] nm_subFamilia=[Ô]TERMINAL MACHO / FEMEA[Ô] />
      <s id_subFamilia=[Ô]8[Ô] nm_subFamilia=[Ô]TERMINAL E LUVA COMPRESSÃO[Ô] />
      <s id_subFamilia=[Ô]9[Ô] nm_subFamilia=[Ô]TERMINAL TOTALMENTE ISOLADO[Ô] />
    </f>
    <f id_Familia=[Ô]3[Ô] nm_Familia=[Ô]CONTER[Ô]>
      <s id_subFamilia=[Ô]1[Ô] nm_subFamilia=[Ô]CONTER GERAL[Ô] />
    </f>
  </g>
</root>
  

Citação:

LOOZE escreveu:
EMERSONTADEU - Valeu a dica... mas agora to com quase tudo pronto do XML