vbFattEl: Fattura Elettronica per Visual Basic

vbFattEl é una classe per Visual Basic 6.0 che permette di generare il file XML di fatture elettroniche secondo le specifiche 1.3 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
  • 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
  • Generazione XML in formato stringa o salvataggio su file

Screenshot

Ecco alcune schermate 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

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