vbFattEl: Fattura Elettronica per Visual Basic 6.0, .NET e Access

vbFattEl é una classe per Visual Basic 6.0 e .NET, disponibile anche in VBA per Access, che permette di generare il file XML di fatture elettroniche secondo le specifiche 1.5 dell’Agenzia delle Entrate, senza l’utilizzo di OCX o DLL esterne: solo puro codice Visual Basic.

Funzioni

  • Fattura elettronica B2B (verso privati) e B2G (verso pubblica amministrazione)
  • Fatture, parcelle e note di credito
  • Gestione cassa di previdenza
  • Gestione ritenuta
  • Gestione bollo con e senza addebito
  • Calcolo automatico totali, cassa previdenza, ritenuta e riepilogo iva
  • Documenti correlati su testa documento e su riga documento
  • Dati Fatture Collegate su testa documento e su riga documento
  • Riferimento DDT su testa documento e su riga documento
  • Sconti e maggiorazioni su totali documento e su totali di riga
  • Gestione terzo emittente
  • Dati REA del cedente per soggetti iscritti
  • Dati di trasporto
  • Dati pagamento
  • Inserimento allegati
  • Generazione XML in formato stringa o salvataggio su file

Screenshot

Ecco alcune schermate del progetto di esempio:

Come ottenere il codice sorgente

Il codice sorgente della libreria vbFattEl è in fase di sviluppo e di test per essere sempre in linea con gli aggiornamenti delle specifiche.

Se ti interessa, contattami.

Download demo

Icona

vbFattEl_Demo 33.42 KB 102 downloads

...

Esempio di utilizzo

Demo.bas

'' Visual Basic 6.0
  Dim sngTotaleDocumento As Single
 
  Dim vbFattObj As vbFattEl
 
  Set vbFattObj = New vbFattEl
  With vbFattObj
 
    .TipoDocumento = tdTD01_Fattura
    .TipoDestinatario = tdFPR_Privati
    .EsigibilitaIva = eiI_Immediata
    .ProgressivoUnivocoFile = "A0001"
 
    '' dati generali
    .DatiTrasmissione "IT", "HVQWPH73P42H501Y", "0000000", "[email protected]"
    .Cedente "HVQWPH73P42H501Y", "IT", "23333330589", "", "WINPHON", "HIVEQ", rfRF01_Ordinario
    .CedenteSede "Via del Melo", "131", "00100", "Roma", "RM", "IT"
    .CedenteREA "BO", "102030", 500000, slLN_NoLiquidazione
 
    .Cessionario "BLDRFL86E05I452D", "", "", "", "Mario", "Rossi"
    .CessionarioSede "Via del Corso", "45", "00100", "ROMA", "RM", "IT"
 
    .DatiGenerali "14/05/2018", "9876", "Lavori di ristrutturazione generale dell'edificio"
    .DocumentiCorrelati "352 REG. GEN.", "10/11/2018", "", "", "", "Z2025AC5E5"
    .RiferimentoDDT "10", "20/09/2018" '' riferimento generale
    
    .DatiTrasporto "IT", "23444430589", "", "", "Carlo", "Bianchi"
    '' ----
    
    '' righe del documento
    '' riga 1
    .BeniServizi "Sedie PC", 10, "PZ", 38, 22
    .RiferimentoDDT "08", "20/09/2018" '' riferimento su singola riga
    .DocumentiCorrelati "352 REG. GEN.", "10/11/2018", "", "", "", "Z2025AC5E5"
    '' ----
    
    '' riga 2
    .BeniServizi "Pedane poggiapiedi", 10, "PZ", 37, 22
    .RiferimentoDDT "05", "10/09/2018" '' riferimento su singola riga
    .DocumentiCorrelati "352 REG. GEN.", "10/11/2018", "", "", "", "Z2025AC5E5"
    '' ----
    
    sngTotaleDocumento = .CalcolaDocumento
 
    .Pagamento cpTP02_Completo, "WINPHON HIVEQ", mpMP05_Bonifico, "", 0, "", sngTotaleDocumento, "BANCA POPOLARE DI ANCONA SPA", "IT17H05308150010000000XXXXXX"
 
    .SalvaXML App.Path
  End With
 
  Set vbFattObj = Nothing

Riferimenti utili