dario46 ha scritto:
nicola.montemaggi ha scritto:
dario46 ha scritto:
Io ho usato la seguente procedura, che mi serve anche per importare in prima nota, estrapolando dapprima i dati univoci dal file xml e memorizzandoli in una tabella temporanea (io ho utilizzato, per mia praticità, una form):
1) Recupero il numero delle righe della fattura ricevuta
Set Righe = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiBeniServizi/DettaglioLinee/NumeroLinea")
For Each NumeroLinea In Righe
'Incremento contatore
Contatore = Contatore + 1
Next
Successivamente recupero i dati di riepilogo
'NomeFile
[Forms]!PN_ImpFE_XML_1![NomeFile] = File
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
'Allegati
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/Allegati/NomeAttachment")
For Each Nome In nodo
Testo = Nome.Text
If Not IsNull(Testo) Then
Allegati = "1"
[Forms]!PN_ImpFE_XML_1![Allegato] = True
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Else
Allegati = "0"
End If
Next
'IdPaeseTrasmittente
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/IdTrasmittente/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdPaeseTrasmittente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'IdCodiceTrasmittente
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/IdTrasmittente/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdCodiceTrasmittente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'ProgressivoInvio
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/ProgressivoInvio")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ProgressivoInvio] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'FormatoTrasmissione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/FormatoTrasmissione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![FormatoTrasmissione] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CodiceDestinatario
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/CodiceDestinatario")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ProgressivoInvio] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'ContattiTrasmittente - Telefono
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/ContattiTrasmittente/Telefono")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TelefonoTrasmittente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'ContattiTrasmittente - Email
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/ContattiTrasmittente/Email")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![EmailTrasmittente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'PECDestinatario
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/DatiTrasmissione/PECDestinatario")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![PecDestinatario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - IdPaese
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/IdFiscaleIVA/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdPaeseCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - IdCodice
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/IdFiscaleIVA/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdCodiceCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - CodiceFiscale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/CodiceFiscale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CodiceFiscaleCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Denominazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Denominazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![DenominazioneCedente] = Testo
A = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Nome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Nome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NomeCedente] = Testo
A = A & " " & Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Cognome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Cognome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CognomeCedente] = Testo
A = A & " " & Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Titolo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Titolo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TitoloCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - CodEORI
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/CodEORI")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CodEORICedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - AlboProfessionale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/AlboProfessionale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![AlboProfessionaleCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - ProvinciaAlbo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/ProvinciaAlbo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ProvinciaAlboCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - NumeroIscrizioneAlbo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/NumeroIscrizioneAlbo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NumeroIscrizioneAlboCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - DataIscrizioneAlbo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/DataIscrizioneAlbo")
For Each Nome In nodo
Testo = Nome.Text
Testo = Format(Testo, "dd-mm-yyyy")
[Forms]!PN_ImpFE_XML_1![DataIscrizioneAlboCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RegimeFiscale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/RegimeFiscale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RegimeFiscaleCedente] = Testo
If Testo = "RF01" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Ordinario"
End If
If Testo = "RF02" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Contribuenti minimi (art.1, c.96-117, L. 244/07)"
End If
If Testo = "RF03" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Nuove iniziative produttive (art.13, L. 388/00)"
End If
If Testo = "RF04" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Agricoltura e attivit? connesse e pesca (artt.34 e 34-bis, DPR 633/72)"
End If
If Testo = "RF05" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Vendita sali e tabacchi (art.74, c.1, DPR. 633/72)"
End If
If Testo = "RF06" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Commercio fiammiferi (art.74, c.1, DPR 633/72)"
End If
If Testo = "RF07" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Editoria (art.74, c.1, DPR 633/72)"
End If
If Testo = "RF08" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Gestione servizi telefonia pubblica (art.74, c.1, DPR 633/72)"
End If
If Testo = "RF09" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Rivendita documenti di trasporto pubblico e di sosta (art.74, c.1, DPR 633/72)"
End If
If Testo = "RF10" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Intrattenimenti, giochi e altre attivit? di cui alla tariffa allegata al DPR 640/72 (art.74, c.6, DPR 633/72)"
End If
If Testo = "RF11" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Agenzie viaggi e turismo (art.74-ter, DPR 633/72)"
End If
If Testo = "RF12" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Agriturismo (art.5, c.2, L. 413/91)"
End If
If Testo = "RF13" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Vendite a domicilio (art.25-bis, c.6, DPR 600/73)"
End If
If Testo = "RF14" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Rivendita beni usati, oggetti d?arte, d?antiquariato o da collezione (art.36, DL 41/95)"
End If
If Testo = "RF15" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Agenzie di vendite all?asta di oggetti d?arte, antiquariato o da collezione (art.40-bis, DL 41/95)"
End If
If Testo = "RF16" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "IVA per cassa P.A. (art.6, c.5, DPR 633/72)"
End If
If Testo = "RF17" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "IVA per cassa soggetti con vol. d?affari inferiore ad euro 200.000 (art.7, DL 185/2008)"
End If
If Testo = "RF18" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Altro"
End If
If Testo = "RF19" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneRegimeFiscaleCedente] = "Forfettario"
End If
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - Indirizzo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/Indirizzo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IndirizzoCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - NumeroCivico
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/NumeroCivico")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NumeroCivicoCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - CAP
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/CAP")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CAPCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - Comune
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/Comune")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ComuneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - Provincia
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/Provincia")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ProvinciaCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Sede - Nazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Sede/Nazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NazioneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - Indirizzo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/Indirizzo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_IndirizzoCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - NumeroCivico
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/NumeroCivico")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_NumeroCivicoCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - CAP
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/CAP")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_CAPCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - Comune
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/Comune")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_ComuneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - Provincia
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/Provincia")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_ProvinciaCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - StabileOrganizzazione - Nazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/StabileOrganizzazione/Nazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_NazioneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Iscrizione REA - Ufficio
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/IscrizioneREA/Ufficio")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![UfficioIscrizioneREACedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Iscrizione REA - NumeroREA
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/IscrizioneREA/NumeroREA")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NumeroREACedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Iscrizione REA - CapitaleSociale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/IscrizioneREA/CapitaleSociale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CapitaleSocialeCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Iscrizione REA - SocioUnico
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/IscrizioneREA/SocioUnico")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SocioUnicoCedente] = Testo
If Testo = "SM" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneSocioUnicoCedente] = "pi? soci"
End If
If Testo = "SU" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneSocioUnicoCedente] = "socio unico"
End If
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Iscrizione REA - StatoLiquidazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/IscrizioneREA/StatoLiquidazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![StatoLiquidazioneCedente] = Testo
If Testo = "LS" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneStatoLiquidazioneCedente] = "in liquidazione"
End If
If Testo = "LN" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneStatoLiquidazioneCedente] = "non in liquidazione"
End If
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Contatti - Telefono
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Contatti/Telefono")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TelefonoCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Contatti - Fax
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Contatti/Fax")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![FaxCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - Contatti - Email
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CedentePrestatore/Contatti/Email")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![EmailCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - IdPaese
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/IdFiscaleIVA/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_IdPaeseCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - IdCodice
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/IdFiscaleIVA/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_IdCodiceCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - CodiceFiscale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/CodiceFiscale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_CodiceFiscaleCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - Denominazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/Anagrafica/Denominazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_DenominazioneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - Nome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/Anagrafica/Nome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_NomeCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - Cognome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/Anagrafica/Cognome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_CognomeCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - Titolo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/Anagrafica/Titolo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_TitoloCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CedentePrestatore - RappresentanteFiscale - CodEORI
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/RappresentanteFiscale/DatiAnagrafici/Anagrafica/CodEORI")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_CodEORICedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - IdPaese
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/IdFiscaleIVA/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdPaeseCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - IdCodice
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/IdFiscaleIVA/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IdCodiceCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - CodiceFiscale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/CodiceFiscale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CodiceFiscaleCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Denominazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/Anagrafica/Denominazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![DenominazioneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Nome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/Anagrafica/Nome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NomeCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Cognome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/Anagrafica/Cognome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CognomeCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Titolo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/Anagrafica/Titolo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TitoloCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - CodEORI
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/DatiAnagrafici/Anagrafica/CodEORI")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CodEORICessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Indirizzo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/Indirizzo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![IndirizzoCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - NumeroCivico
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/NumeroCivico")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NumeroCivicoCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - CAP
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/CAP")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CAPCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Comune
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/Comune")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ComuneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Provincia
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/Provincia")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![ProvinciaCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - Nazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/Sede/Nazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![NazioneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - Indirizzo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/Indirizzo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_IndirizzoCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - NumeroCivico
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/NumeroCivico")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_NumeroCivicoCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - CAP
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/CAP")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_CAPCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - Comune
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/Comune")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_ComuneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - Provincia
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/Provincia")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_ProvinciaCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - StabileOrganizzazione - Nazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/StabileOrganizzazione/Nazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SO_NazioneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - RappresentanteFiscale - IdPaese
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/RappresentanteFiscale/IdFiscaleIVA/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_IdPaeseCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - RappresentanteFiscale - IdCodice
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/RappresentanteFiscale/IdFiscaleIVA/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_IdCodiceCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - RappresentanteFiscale - Denominazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/RappresentanteFiscale/Denominazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_DenominazioneCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - RappresentanteFiscale - Nome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/RappresentanteFiscale/Nome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_NomeCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'CessionarioCommittente - RappresentanteFiscale - Cognome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/CessionarioCommittente/RappresentanteFiscale/Cognome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![RF_CognomeCessionario] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - IdPaese
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/IdFiscaleIVA/IdPaese")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_IdPaeseCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - IdCodice
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/IdFiscaleIVA/IdCodice")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_IdCodiceCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - CodiceFiscale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/CodiceFiscale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_CodiceFiscaleCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - Denominazione
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/Anagrafica/Denominazione")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_DenominazioneCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - Nome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/Anagrafica/Nome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_NomeCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - Cognome
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/Anagrafica/Cognome")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_CognomeCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - Titolo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/Anagrafica/Titolo")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_TitoloCedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TerzoIntermediarioOSoggettoEmittente - CodEORI
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/TerzoIntermediarioOSoggettoEmittente/DatiAnagrafici/Anagrafica/CodEORI")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TISE_CodEORICedente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'SoggettoEmittente
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaHeader/SoggettoEmittente")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![SoggettoEmittente] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'TipoDocumento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/TipoDocumento")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TipoDocumento] = Testo
If Testo = "TD01" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Fattura"
End If
If Testo = "TD02" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Acconto/Anticipo su Fattura"
End If
If Testo = "TD03" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Acconto/Anticipo su Parcella"
End If
If Testo = "TD04" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Nota di Credito"
End If
If Testo = "TD05" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Nota di Debito"
End If
If Testo = "TD06" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumento] = "Parcella"
End If
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'Divisa
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Divisa")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![Divisa] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DataDocumento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Data")
For Each Nome In nodo
Testo = Nome.Text
Testo = Format(Testo, "dd-mm-yyyy")
[Forms]!PN_ImpFE_XML_1![DATA] = Testo
C = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'NumeroDocumento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Numero")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![Numero] = Testo
B = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiRitenuta - TipoRitenuta
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiRitenuta/TipoRitenuta")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![TipoRitenuta] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiRitenuta - ImportoRitenuta
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiRitenuta/ImportoRitenuta")
For Each Nome In nodo
Testo = Nome.Text
Testo = Replace(Testo, ".", ",")
[Forms]!PN_ImpFE_XML_1![ImportoRitenuta] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiRitenuta - AliquotaRitenuta
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiRitenuta/AliquotaRitenuta")
For Each Nome In nodo
Testo = Nome.Text
Testo = Replace(Testo, ".", ",")
[Forms]!PN_ImpFE_XML_1![AliquotaRitenuta] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiRitenuta - CausalePagamento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiRitenuta/CausalePagamento")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CausalePagamentoRitenuta] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiBollo - BolloVirtuale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiBollo/BolloVirtuale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![BolloVirtuale] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiBollo - ImportoBollo
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/DatiBollo/ImportoBollo")
For Each Nome In nodo
Testo = Nome.Text
Testo = Replace(Testo, ".", ",")
[Forms]!PN_ImpFE_XML_1![BolloVirtuale] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiGeneraliDocumento - ImportoTotaleDocumento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/ImportoTotaleDocumento")
For Each Nome In nodo
Testo = Nome.Text
Testo = Replace(Testo, ".", ",")
[Forms]!PN_ImpFE_XML_1![ImportoTotaleDocumento] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiGeneraliDocumento - Arrotondamento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Arrotondamento")
For Each Nome In nodo
Testo = Nome.Text
Testo = Replace(Testo, ".", ",")
[Forms]!PN_ImpFE_XML_1![Arrotondamento] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiGeneraliDocumento - Causale
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Causale")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CausaleDocumento] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiGeneraliDocumento - Art73
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiGenerali/DatiGeneraliDocumento/Art73")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![Art73] = Testo
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'DatiPagamento - CondizioniPagamento
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiPagamento/CondizioniPagamento")
For Each Nome In nodo
Testo = Nome.Text
[Forms]!PN_ImpFE_XML_1![CondizioniPagamento] = Testo
If Testo = "TP01" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneCondizioniPagamento] = "pagamento a rate"
End If
If Testo = "TP02" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneCondizioniPagamento] = "pagamento completo"
End If
If Testo = "TP03" Then
[Forms]!PN_ImpFE_XML_1![DescrizioneCondizioniPagamento] = "anticipo"
End If
DoCmd.SelectObject acForm, "PN_ImpFE_XML_1", False
DoCmd.Save
Next
'ASW - Altri dati gestionali
Dim BB As Integer
Dim CC As Integer
Set nodo = obj.documentElement.selectNodes("FatturaElettronicaBody/DatiBeniServizi/DettaglioLinee/AltriDatiGestionali")
For Each Nome In nodo
Testo = Nome.Text
If Left(Testo, 9) = "AswRelStd" Then
Testo = Right(Testo, 8)
Testo = Left(Testo, 7)
[Forms]!PN_ImpFE_XML_1![VersioneASW] = Testo
End If
If Left(Testo, 10) = "AswSwHouse" Then
BB = Len(Testo)
CC = BB - 11
Testo = Right(Testo, CC)
[Forms]!PN_ImpFE_XML_1![SwHouseASW] = Testo
End If
If Left(Testo, 10) = "AswTipoDoc" Then
Testo = Right(Testo, 6)
Testo = Left(Testo, 5)
[Forms]!PN_ImpFE_XML_1![TipoDocumentoASW] = Testo
[Forms]!frmAppoggio![Testo0] = Testo
DoCmd.OpenForm "PN_ImpostaTipoDocumento", acNormal, , , , acHidden
If Not IsNull(Forms!PN_ImpostaTipoDocumento!TipoDocumentoFE) Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoDocumentoASW] = Forms!PN_ImpostaTipoDocumento!TipoDocumentoFE
End If
DoCmd.Close acForm, "PN_ImpostaTipoDocumento"
End If
If Left(Testo, 10) = "AswTipoPag" Then
Testo = Right(Testo, 5)
Testo = Left(Testo, 4)
[Forms]!PN_ImpFE_XML_1![TipoPagamentoAsw] = Testo
[Forms]!frmAppoggio![Testo0] = Testo
DoCmd.OpenForm "PN_ImpostaTipoPagamento", acNormal, , , , acHidden
If Not IsNull(Forms!PN_ImpostaTipoTapamento!TipoPagamentoFE) Then
[Forms]!PN_ImpFE_XML_1![DescrizioneTipoPagamentoASW] = Forms!PN_ImpostaTipoPagamento!TipoPagamentoFE
End If
DoCmd.Close acForm, "PN_ImpostaTipoPagamento"
End If
If Left(Testo, 10) = "AswMailDes" Then
BB = Len(Testo)
CC = BB - 11
Testo = Right(Testo, CC)
[Forms]!PN_ImpFE_XML_1![MailDestinatarioASW] = Testo
End If
Next
Poi proseguo recuperando e memorizzando in altre tabelle temporanee, una per ogni elemento di quelli elencati, tutti gli altri dati che possono essere molteplici, quali:
. Dati pagamento;
. Dettaglio linee;
. Altri dati gestionali; (qui potrei trovare campi interessanti per la contabilizzazione automatica dei costi, quali ContoContabile, CentroDiCosto, etc.)
. Dati di riepilogo;
. Allegati;
. Dati Cassa Previdenziale.