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.7 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
Esempio di utilizzo
'' 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