vbF24: Gestione F24 per Visual Basic 6.0

vbF24 é una classe per Visual Basic 6.0 che permette di generare il file file telematico di una delega F24 secondo il tracciato dell’Agenzia delle Entrate . Se integrata con la libreria vbPDF, permette anche la stampa PDF della delega, senza l’utilizzo di OCX o DLL esterne: solo puro codice Visual Basic.

Funzioni

Generazione file telematico F24 cumulativo, cumulativo intermediario o contribuente
Sezioni Erario, Inps, Regioni, IMU/Tributi locali, Inail ed Altri enti
Gestione coobbligato
Generazione F24 in formato PDF (richiede vbPDF)
Generazione automatica di deleghe multiple in caso di molti tributi
Calcolo automatico totali di sezione e di delega

Screenshot

Ecco alcune schermate del progetto di esempio:

Come ottenere il codice sorgente

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

Se ti interessa, contattami.

Download demo

vbF24_demo 179.64 KB 106 downloads

...

Scarica

Esempio di utilizzo

Private Sub Esempio1()
 Dim vbObjF24 As New vbF24
 With vbObjF24
 If (cmbTipoFornitura.ListIndex = 0) Then
   '' il fornitore e il contribuente coincidono
   Call .Fornitura(F24_Contribuente)
   Call .FornitorePF("BNCNTN69H10F205U", "BIANCHI", "ANTONIO", "M", "10/06/1969", "MILANO", "MI")
 Else
   '' il fornitore e il contribuente sono due soggetti diversi
   If (cmbTipoFornitura.ListIndex = 1) Then
     Call .Fornitura(F24_Cumulativo)
   ElseIf (cmbTipoFornitura.ListIndex = 2) Then
     Call .Fornitura(F24_CumulativoIntermediario)
   End If
   Call .FornitorePF("RSSMRA80A01H501U", "ROSSI", "MARIO", "M", "01/01/1980", "ROMA", "RM")
 End If

 '''' 1 .. N : ripetere questa sezione per ogni delega
 '''' ******************************************************************
 Call .AggiungiDelega(txtScadenza.Text, txtIban.Text)
 Call .ContribuentePF("BNCNTN69H10F205U", "BIANCHI", "ANTONIO", "M", "10/06/1969", "MILANO", "MI")

 '' SEZIONE ERARIO: max 6 righe
 Call .Atto("TEH", "12345678901")
 Call .SezioneErario("1040", "0001", "2020", 2240.45, 0)
 Call .SezioneErario("1012", "0012", "2019", 1278.49, 0)
 Call .SezioneErario("1627", "", "2020", 0, 112.56)

 '' SEZIONE REGIONI: max 4 righe
 Call .SezioneRegioni(5, "3802", "0012", 2019, 340, 0)

 '' SEZIONE COMUNI: max 4 righe
 Call .SezioneComuni("A783", "3848", "0012", 2019, 150, 0)
 '''' 1 .. N

 End With

 If chkTelematico.Value = vbChecked Then
     '' salva il file telematico
     vbObjF24.Salva txTelematico.Text, "F24.tel"
     MsgBox ("Generato il file " & txTelematico.Text & "\F24.tel")
 End If

 If chkStampa.Value = vbChecked Then
     '' genera la stampa PDF
     vbObjF24.Stampa txtPDF.Text, chkContribuente.Value = vbChecked, chkBanca1.Value = vbChecked, chkBanca2.Value = vbChecked, chkSepara.Value = vbChecked
 End If

 End Sub

Luigi Micco