Fatturazione elettronica B2B

Vittorio1946

il 15 feb 2018, 19:02

1159 risposte

1159 Risposte - Pagina 71

D
dario46
Utente Attivo
Iscritto da
set, 2018
Messaggi:
267
Re: Fatturazione elettronica B2B
16 nov 2018, 20:11
+m2+ ha scritto:
dario46 ha scritto:
Per quanto riguarda le fatture che chiedi in che formato le vuoi?
XML o XML.P7M o EML (cioè le PEC)
Il mio programmello le "succhia" tutte.
Per comodità direi xml
questo we ne preparo (elimino i dati sensibili) dove le inoltro?
ho ricevuto la tua mail
buon we
J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 10:02
Ciao a tutti scusate se insisto ma sono bloccato da 1000 dubbi per quanto riguarda la generazione del file xml quando tratto la fattura differita con più bolle.
Qualcuno ha affrontato la questione? E come ha risolto ?

Io ho inserito tutti i ddt nella sezione Dati del documento di trasporto indicando la linea del dettaglio articolo.
Il file mi supera il test sul sito Fatturapa ma non sono sicuro che sia il metodo giusto.

Grazie
+
+m2+
Utente Famoso
Iscritto da
mag, 2017
Messaggi:
3548
Re: Fatturazione elettronica B2B
17 nov 2018, 11:09
JumX ha scritto:
Ciao a tutti scusate se insisto ma sono bloccato da 1000 dubbi per quanto riguarda la generazione del file xml quando tratto la fattura differita con più bolle.
Qualcuno ha affrontato la questione? E come ha risolto ?

Io ho inserito tutti i ddt nella sezione Dati del documento di trasporto indicando la linea del dettaglio articolo.
Il file mi supera il test sul sito Fatturapa ma non sono sicuro che sia il metodo giusto.

Grazie
non è che me manderesti un paio (di xml)?

ettore56

Molto attivo

Iscritto da: mag, 2017

Messaggi:: 661

Re: Fatturazione elettronica B2B

17 nov 2018, 11:12

JumX ha scritto:
Ciao a tutti scusate se insisto ma sono bloccato da 1000 dubbi per quanto riguarda la generazione del file xml quando tratto la fattura differita con più bolle.
Qualcuno ha affrontato la questione? E come ha risolto ?

Io ho inserito tutti i ddt nella sezione Dati del documento di trasporto indicando la linea del dettaglio articolo.
Il file mi supera il test sul sito Fatturapa ma non sono sicuro che sia il metodo giusto.

Grazie

Questa è una parte di codice riguardante la sezione dei Ddt:

<DatiDDT>
<NumeroDDT>5</NumeroDDT>
<DataDDT>2018-10-10</DataDDT>
<RiferimentoNumeroLinea>1</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>2</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>3</RiferimentoNumeroLinea>
</DatiDDT>
<DatiDDT>
<NumeroDDT>6</NumeroDDT>
<DataDDT>2018-10-20</DataDDT>
<RiferimentoNumeroLinea>4</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>5</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>6</RiferimentoNumeroLinea>
</DatiDDT>
<DatiDDT>
<NumeroDDT>8</NumeroDDT>
<DataDDT>2018-10-25</DataDDT>
<RiferimentoNumeroLinea>7</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>8</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>9</RiferimentoNumeroLinea>
<RiferimentoNumeroLinea>10</RiferimentoNumeroLinea>
</DatiDDT>

Spero ti sia d'aiuto.

J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 11:26
Ettore56
Grazie molto utile . Io ripeto ogni volta il num ddt
<DatiDDT>
<NumeroDDT>5</NumeroDDT>
<DataDDT>2018-10-10</DataDDT>
<RiferimentoNumeroLinea>1</RiferimentoNumeroLinea>
<NumeroDDT>5</NumeroDDT>
<DataDDT>2018-10-10</DataDDT>
<RiferimentoNumeroLinea>2</RiferimentoNumeroLinea>
<NumeroDDT>5</NumeroDDT>
<DataDDT>2018-10-10</DataDDT>
<RiferimentoNumeroLinea>3</RiferimentoNumeroLinea>
</DatiDDT>
<DatiDDT>
Ma cercherò di farre come consigli tu.

Grazie 1000
J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 11:27
+m2+
Si ma dove te li mando ?
Sto facendo molte prove

Ciao
J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 12:01
Per Ettore56

ecco il mio codice ma non so far ripetere il numero linea se il numero ddt non cambia

Set Rsb = MioDB.OpenRecordset("DettaglioRigheDDT", dbOpenDynaset, dbSeeChanges)
Do While Not Rsb.EOF
NumeroDDT = Rsb!AGGNB
dataddt = Rsb!AGGDB
dataddt = Format(dataddt, "yyyy-mm-dd")
NumeroLinea = Rsb!Progressivo2

' inizio dettaglio linee
Forms![FE]!testo = "<DatiDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<NumeroDDT>" + NumeroDDT + "</NumeroDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<DataDDT>" + dataddt + "</DataDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<RiferimentoNumeroLinea>" + NumeroLinea + "</RiferimentoNumeroLinea>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "</DatiDDT>"
DoCmd.GoToRecord , "", acNewRec
Rsb.MoveNext
Loop
Rsb.Close

Puoi / potete aiutarmi ?
+
+m2+
Utente Famoso
Iscritto da
mag, 2017
Messaggi:
3548
Re: Fatturazione elettronica B2B
17 nov 2018, 12:32
JumX ha scritto:
+m2+
Si ma dove te li mando ?
Sto facendo molte prove

Ciao

più ne mandi, più mi fai contento.
grazie

ettore56

Molto attivo

Iscritto da: mag, 2017

Messaggi:: 661

Re: Fatturazione elettronica B2B

17 nov 2018, 12:50

JumX ha scritto:
Per Ettore56

ecco il mio codice ma non so far ripetere il numero linea se il numero ddt non cambia

Set Rsb = MioDB.OpenRecordset("DettaglioRigheDDT", dbOpenDynaset, dbSeeChanges)
Do While Not Rsb.EOF
NumeroDDT = Rsb!AGGNB
dataddt = Rsb!AGGDB
dataddt = Format(dataddt, "yyyy-mm-dd")
NumeroLinea = Rsb!Progressivo2

' inizio dettaglio linee
Forms![FE]!testo = "<DatiDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<NumeroDDT>" + NumeroDDT + "</NumeroDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<DataDDT>" + dataddt + "</DataDDT>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "<RiferimentoNumeroLinea>" + NumeroLinea + "</RiferimentoNumeroLinea>"
DoCmd.GoToRecord , "", acNewRec
Forms![FE]!testo = "</DatiDDT>"
DoCmd.GoToRecord , "", acNewRec
Rsb.MoveNext
Loop
Rsb.Close

Puoi / potete aiutarmi ?

Forms!FE!testo!Testo = "<DatiDDT>"
DoCmd.GoToRecord , "", acNewRec
  
 'scrivo i dati del Ddt
 NumeroDDT = TuoRecordSet![DdtNr]
 DataDDT = TuoRecordSet![DdtData]
 DataDDT = Format(DataDDT, "yyyy-mm-dd")
 Forms!FE!Testo = "<NumeroDDT>" + NumeroDDT + "</NumeroDDT>"
 DoCmd.GoToRecord , "", acNewRec
 If Not IsNull(DataDDT) Then
        Forms!FE!Testo = "<DataDDT>" + DataDDT + "</DataDDT>"
         DoCmd.GoToRecord , "", acNewRec
  End If
        
  'scrivo le righe del Ddt
  If A > 0 Then     'CONTATORE DELLE RIGHE DEL DDT
        For Index = 1 To A
              RiferimentoNumeroLinea = TuoRecordSet!RiferimentoLineaFattura
              Forms!FE!Testo = "<RiferimentoNumeroLinea>" + RiferimentoNumeroLinea + "</RiferimentoNumeroLinea>"
              DoCmd.SelectObject TuoRecordSet
              DoCmd.GoToRecord , , acNext
              DoCmd.SelectObject acForm, "FE", False
              DoCmd.GoToRecord , "", acNewRec
         Next
         DoCmd.Close TuoRecordSet
 Else
         DoCmd.Close TuoRecordSet
 End If
 Forms!FE!Testo = "</DatiDDT>"

Fammi sapere se non ti è sufficientemente chiaro.

J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 13:00
Per +m2+
Ok inviato il primo
ciao
J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 13:02
Per Ettore56

Grazie 1000 , me lo studio e ti farò sapere.
+
+m2+
Utente Famoso
Iscritto da
mag, 2017
Messaggi:
3548
Re: Fatturazione elettronica B2B
17 nov 2018, 13:22
JumX ha scritto:
Per +m2+
Ok inviato il primo
ciao
Dopo beautiful ci guardo, grazie
J
JumX
Pochi posts
Iscritto da
ott, 2015
Messaggi:
26
Re: Fatturazione elettronica B2B
17 nov 2018, 13:29
Per Ettore56

il debug della routine mi restituisce "Tipo non corrispondente" alla riga del For Index = 1 To a

probabilmente confondo testo da numero ?
E
ettore56
Molto attivo
Iscritto da
mag, 2017
Messaggi:
661
Re: Fatturazione elettronica B2B
17 nov 2018, 14:45
JumX ha scritto:
Per Ettore56

il debug della routine mi restituisce "Tipo non corrispondente" alla riga del For Index = 1 To a

probabilmente confondo testo da numero ?
```
Dim A As String
```
Prova così.
E
ettore56
Molto attivo
Iscritto da
mag, 2017
Messaggi:
661
Re: Fatturazione elettronica B2B
17 nov 2018, 14:46
JumX ha scritto:
Per Ettore56

il debug della routine mi restituisce "Tipo non corrispondente" alla riga del For Index = 1 To a

probabilmente confondo testo da numero ?
E poi:
```
A = Len(TuoRecordSet)
```

Devi accedere o registrarti per scrivere nel forum

1159 risposte