REGISTRI - SalvaRegINIGlobale

Public Sub SalvaRegINIGlobale()
On Error GoTo Errore
FileOpen(1, TypeConn.MyDirPath & "\INI\Registry.ini", OpenMode.Output)
PrintLine(1, "NomeDatabase=" & TypeConn.NomeDatabase)
'TypeConn.NomeDatabase = TogliReg(LineInput(1))

PrintLine(1, "PathDataBase=" & TypeConn.PathDataBase)
'TypeConn.PathDataBase = TogliReg(LineInput(1))

PrintLine(1, "MyDirPath=" & TypeConn.MyDirPath)
'TypeConn.MyDirPath = TogliReg(LineInput(1))

PrintLine(1, "Autenticazione=" & TypeConn.Autenticazione)
'TypeConn.Autenticazione = TogliReg(LineInput(1))

PrintLine(1, "PathDataBase=" & TypeConn.PathDataBase)
'TypeConn.PathDataBase = TogliReg(LineInput(1))

PrintLine(1, "NomeServer=" & TypeConn.NomeServer)
'TypeConn.NomeServer = TogliReg(LineInput(1))

PrintLine(1, "User=" & TypeConn.User) ' login
'TypeConn.User = TogliReg(LineInput(1))

PrintLine(1, "PassWord=" & TypeConn.PassWord)
'TypeConn.PassWord = TogliReg(LineInput(1))

PrintLine(1, "DNS=" & TypeConn.DNS)
'TypeConn.DNS = TogliReg(LineInput(1))

PrintLine(1, "TipoConnessione=" & TypeConn.TipoConnessione)
'TypeConn.TipoConnessione = TogliReg(LineInput(1))

PrintLine(1, "Trasparenze=" & TypeConn.Trasparenze)
'TypeConn.Trasparenze = TogliReg(LineInput(1))

PrintLine(1, "DimensionaForm=" & TypeConn.DimensionaForm)
'TypeConn.DimensionaForm = TogliReg(LineInput(1))

PrintLine(1, "Rete=" & TypeConn.Rete)
'TypeConn.Rete = TogliReg(LineInput(1))

PrintLine(1, "Schermo=" & TypeConn.Schermo)
If TypeConn.Schermo = "True" Then
If Sfondo.Visible = False Then
Sfondo.Visible = True
End If
Else
If Sfondo.Visible = True Then
Sfondo.Visible = False
End If

End If



'TypeConn.Schermo = TogliReg(LineInput(1))

PrintLine(1, "Backup=" & TypeConn.Backup)
'TypeConn.Backup = TogliReg(LineInput(1))

PrintLine(1, "BackupArch=" & TypeConn.BackupArch)
'TypeConn.BackupArch = TogliReg(LineInput(1))

PrintLine(1, "ConnectionString=" & Crypta(TypeConn.ConnectionString))
'TypeConn.ConnectionString = TogliReg(LineInput(1))

PrintLine(1, "DelPdf=" & TypeConn.DelPdf)
'TypeConn.DelPdf = TogliReg(LineInput(1))

PrintLine(1, "NCry=" & TypeConn.NCry)
'TypeConn.NCry = TogliReg(LineInput(1))

PrintLine(1, "FatturaCartaIntestata=" & TypeConn.FatturaCartaIntestata)
PrintLine(1, "MForzaPDFPrinter=" & TypeConn.MForzaPDFPrinter)


FileClose(1)

Exit Sub
Errore:
MsgBox("SalvaREGINIGlobale - " & Err.Description, MsgBoxStyle.Critical)

End Sub