Pubblicato il 9 Agosto 2021 da Maurizio Matetich
Creare il file di testo per il portale Alloggiati Web
Il turismo è una risorsa molto importante per l’Italia. Per una struttura alberghiera è obbligatorio registrare le generalità delle persone alloggiate e comunicarle entro le 24 ore alla Questura.
La registrazione delle generalità avviene attraverso il portale Alloggiati Web
Le piccole strutture alberghiere non sempre hanno un apposito programma che gestisce questa operazione in modo automatico.
Quando il cliente arriva in hotel deve essere registrato. Poi a fine giornata devi accedere nel portale Alloggiati Web e inserire nuovamente i dati. Doppio lavoro!
Ho creato un semplice programma che permette di gestire questa operazione in automatico. Scopri di più
Se conosci Microsoft Access è possibile creare un database per registrare i dati dei clienti e poi creare in automatico il file di testo contenente tutti i dati degli ospiti arrivati nella giornata. Poi questo file sarà importato in automatico nel portale Alloggiati Web. Con grande risparmio di tempo!
Utilizziamo VBA per creare il file per Alloggiati Web
E’ necessario scaricare i seguenti 4 file in formato CSV:
I quattro file devono essere importati in quattro tabelle di Access.
Il tracciato messo a disposizione dal portale Alloggiati Web ci aiuta a capire come creare il file di testo contenente i dati dei nostri clienti.
La nostra tabella utilizzata per registrare i dati dei clienti (in questo esempio la tabella si chiama Ospiti) deve contenere tutti i campi presenti nel tracciato della Questura. Puoi utilizzare anche una tua tabella Clienti (se l’hai già creata) ma se manca qualche campo allora è necessario aggiungerlo. E’ necessario creare delle caselle combinate collegate con le quattro tabelle precedentemente create.
Le caselle combinate permettono di utilizzare i codici presenti nelle quattro tabelle.
E’ utile creare una maschera che permette di scegliere la data di arrivo. Poi un pulsante crea il file di testo contenente tutti i dati.
Al pulsante è associato del codice VBA e le istruzioni sono molto semplici. Per conoscere tutto su VBA segui il mio corso online su VBA per Access.
Vediamo un estratto del codice.
Dim NomeFile, Riga, DataFile As String
Dim rs1 As DAO.Recordset
Dim NrRighe, i As Integer
DoCmd.SetWarnings False
‘estrai i dati dei clienti dalla tabella Ospiti
DoCmd.OpenQuery “EstraiOspite”, acNormal, acEdit
‘i dati vengono salvati nella tabella temporanea TempAlloggiatiWeb
‘controllo se la tabella è vuota
NrRighe = DCount(“*”, “TempAlloggiatiWeb”)
If (NrRighe > 0) Then
‘MsgBox “Ci sono record”
Else
VisualizzaMessaggio “Non ci sono nominativi”
GoTo Fine
End If
Set rs1 = CurrentDb.OpenRecordset(“TempAlloggiatiWeb”, dbOpenTable)
rs1.MoveFirst
‘me.DataArrivo è il campo presente nella maschera
DataFile = Replace(Me. DataArrivo, “/”, “-“)
‘creo il nome del file con la data di arrivo
NomeFile = “C:\gestione alloggiatiweb\alloggiati-” & DataFile & “.txt”
Open NomeFile For Output As #1
i = 0
‘creo un ciclo per leggere tutti i record della tabella
Do While Not rs1.EOF
i = i + 1
Riga = rs1.Fields(“TipoAlloggiato”)
Riga = Riga + rs1.Fields(“DataArrivo”)
‘aggiungo i dati richiesti dal tracciato della Questura
……..
Print #1, Riga
rs1.MoveNext
Loop
Close #1
rs1.Close
Set rs1 = Nothing
msgbox “File creato correttamente”
E il gioco è fatto !
Vuoi una soluzione già pronta? Acquistala
Le istruzioni che hai appena visto sono molto semplici se si ha una conoscenza base di VBA. Se vuoi migliorare le tue conoscenze segui il mio corso su Microsoft Access VBA
Hai provato le mie istruzioni ? Fammi sapere com’è andata nei commenti.
Scrivi un commento