Fatturazione elettronica B2B

di Vittorio1946 il
1158 risposte

1158 Risposte - Pagina 71

  • /
    Anonimizzato18314
    Utente anonimizzato
    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
  • /
    Anonimizzato21468
    Utente anonimizzato

    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)?
  • Molto attivo
    Iscritto da
    mag, 2017
    Messaggi
    664

    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.
  • /
    Anonimizzato18314
    Utente anonimizzato
    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
  • /
    Anonimizzato18314
    Utente anonimizzato
    +m2+
    Si ma dove te li mando ?
    Sto facendo molte prove

    Ciao
  • /
    Anonimizzato18314
    Utente anonimizzato
    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 ?
  • /
    Anonimizzato21468
    Utente anonimizzato

    JumX ha scritto:

    +m2+
    Si ma dove te li mando ?
    Sto facendo molte prove

    Ciao


    più ne mandi, più mi fai contento.
    grazie
  • Molto attivo
    Iscritto da
    mag, 2017
    Messaggi
    664

    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.
  • /
    Anonimizzato18314
    Utente anonimizzato
    Per +m2+
    Ok inviato il primo
    ciao
  • /
    Anonimizzato18314
    Utente anonimizzato
    Per Ettore56

    Grazie 1000 , me lo studio e ti farò sapere.
  • /
    Anonimizzato21468
    Utente anonimizzato

    JumX ha scritto:

    Per +m2+
    Ok inviato il primo
    ciao
    Dopo beautiful ci guardo, grazie
  • /
    Anonimizzato18314
    Utente anonimizzato
    Per Ettore56

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

    probabilmente confondo testo da numero ?
  • Molto attivo
    Iscritto da
    mag, 2017
    Messaggi
    664

    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ì.
  • Molto attivo
    Iscritto da
    mag, 2017
    Messaggi
    664

    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)
  • /
    Anonimizzato18314
    Utente anonimizzato
    Verifico
Devi accedere o registrarti per scrivere nel forum
1158 risposte