REGISTRI - LeggiREGINIGlobale

Public Sub LeggiRegINIGlobale()
On Error GoTo Errore
Dim I As Long
TypeConn.MyDirPath = My.Application.Info.DirectoryPath
I = InStr(TypeConn.MyDirPath, "\bin\Debug")
If I > 0 Then
TypeConn.MyDirPath = Mid(TypeConn.MyDirPath, 1, I - 1)
End If

If Dir(TypeConn.MyDirPath & "\INI\Registry.ini") = "" Then
Exit Sub
End If
Dim X As Long = FreeFile()


FileOpen(X, TypeConn.MyDirPath & "\INI\Registry.ini", OpenMode.Input)
'PrintLine(1, "NomeDatabase=Archivio.mdb")

TypeConn.NomeDatabase = TogliReg(LineInput(X))
'PrintLine(1, "PathDataBase=" & TypeConn.MyDirPath & "\Database\Archivio.mdb")

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

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

TypeConn.Autenticazione = TogliReg(LineInput(X))
'PrintLine(1, "PathDataBase=" & TypeConn.MyDirPath & "\Database\Archivio.mdb")

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

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

TypeConn.User = TogliReg(LineInput(X))
'PrintLine(1, "PassWord=2")

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

TypeConn.DNS = TogliReg(LineInput(X))
'PrintLine(1, "TipoConnessione=[Gestione database Aziendale]")

TypeConn.TipoConnessione = TogliReg(LineInput(X))
'PrintLine(1, "Trasparenze=True")

TypeConn.Trasparenze = TogliReg(LineInput(X))
'PrintLine(1, "DimensionaForm=True")

TypeConn.DimensionaForm = TogliReg(LineInput(X))
'PrintLine(1, "Rete=True")

TypeConn.Rete = TogliReg(LineInput(X))
'PrintLine(1, "Schermo=True")

TypeConn.Schermo = TogliReg(LineInput(X))
If TypeConn.Schermo = "False" Then
Sfondo.Visible = False
Else
Sfondo.Visible = True
End If


'PrintLine(1, "Backup=False")

TypeConn.Backup = TogliReg(LineInput(X))
'PrintLine(1, "BackupArch=True")

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

TypeConn.ConnectionString = Decrypta(TogliReg(LineInput(X)))

If Len(Trim(TypeConn.ConnectionString)) = 0 Then
TypeConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & TypeConn.MyDirPath & "\Database\Archivio.mdb" & ";Jet OLEDB:Database PassWord=iw0blpiw0fnb;"
End If



'PrintLine(1, "DelPdf=True")

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

TypeConn.NCry = TogliReg(LineInput(X))
Dim Stringa As String = TogliReg(LineInput(X))
If Stringa = "True" Then
TypeConn.FatturaCartaIntestata = True
Else
TypeConn.FatturaCartaIntestata = False
End If
'************************************************* 10/9/2010

Stringa = TogliReg(LineInput(X))
If Stringa = "True" Then
TypeConn.MForzaPDFPrinter = True
Else
TypeConn.MForzaPDFPrinter = False
End If

'FileClose(1)


If Dir(TypeConn.MyDirPath & "\INI\NONScriveNeiRegistry.ini", FileAttribute.Normal) <> "" Then
NONScriveNeiRegistry = True
Else
NONScriveNeiRegistry = False
End If

FileClose(X)

Exit Sub
Errore:

FileClose(X)

MsgBox("Uscita anomala da LeggiRegINIGlobale " & Err.Description, MsgBoxStyle.Information, "Anomalia")

ScriviRegINIGlobale()
LeggiRegINIGlobale()

End Sub