Aggiunti altri files ICO

Aggiunti ulteriori files utilita
This commit is contained in:
Samuele E. Locatelli
2012-09-06 15:54:16 +02:00
parent 927da718d1
commit 6c8e175f1e
93 changed files with 2389 additions and 0 deletions
Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 201 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1004 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1003 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 989 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 201 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 989 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 202 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 318 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 318 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.
Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.
Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 37 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.
Binary file not shown.
Binary file not shown.
+6
View File
@@ -0,0 +1,6 @@
[SCC]
SCC=This is a source code control file
[SciP.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
+863
View File
@@ -0,0 +1,863 @@
Attribute VB_Name = "DB"
Option Explicit
' "ModDB"
'[!!!] Il modulo contiene tutte le funzioni che servono alla gestione delle interrogazioni
' del database e la definizione di tutte le variabili globali gestite da più di un form
'Dichiarazione di tutte le costanti utilizzate all'interno del software
Public Const kEsclErrore = "Errore:" 'Costanti per la messaggistica
Public Const kEsclInformazione = "Informazione:" 'Costanti per la messaggistica
Public Const kEsclDomanda = "Domanda:" 'Costanti per la messaggistica
Public Const kEsclSistema = "Contattare l'amministratore del sistema!" 'Costanti per la messaggistica
Public Const kEsclWarning = "Attenzione: cliccando sul bottone 'Annulla' il valore selezionato sarà CANCELLATO!!"
Public Const kEsclAbort = "Premendo 'Annulla' è possibile arrestare il processo"
Public Const kSeparatoreInterno As String = " ÷ " 'Costante che indica il simbolo separatore tra varie stringhe
Public Const kSeparatoreEsterno As String = " - " 'Costante che indica il simbolo separatore tra varie stringhe
Public Const kNomeFileCfg As String = "config.cfg" 'Costante utilizzata per memorizzare il nome del file di configurazione
Public Const kBlocksize = 32768 ' --------- 32 Kb ------------ (da modificare a piacere)
'Costanti per gestire i colori
Public Const kColoreSelezionato = &H8000000D 'blu
Public Const kColGrigio As Long = &HC0C0C0
Public Const kColBluChiaro As Long = &HFFFF00
Public Const kColBlu As Long = &HFF0000
Public Const kColBianco As Long = &H80000005
Public Const kColRosso As Long = &HFF&
Public Const kColGiallo As Long = &HFFFF&
Public Const kColVerde As Long = &HC000&
Public Const kColGrigioBase As Long = &H80000004
Public Const kColNero As Long = vbBlack
Public Const kSfondoSelezionato As Long = &H800000
Public Const kTestoSelezionato As Long = &HFFFFFF
Public Const kSfondoNonSelezionato As Long = &H80000005
Public Const kTestoNonSelezionato As Long = &H80000008
Public Const kSfondoEvidenziato As Long = &H808000
Public Const kColoreAttivate_StandBy = &H80FFFF 'giallo
Public Const kColorePreviste_Completate = &H80C0FF 'arancione
Public Const kColoreNon_Pianificate = vbRed 'rosso
Public Const kColorePreviste = vbWhite 'bianco
Public Const kColoreAttivate = vbYellow 'giallo
Public Const kColoreStandBy = &HC0C0& 'giallo-verde
Public Const kColoreCompletate = vbWhite 'bianco
Public Const kColoreCompletateTesto = &H80000003 'grigio
Public Const kColoreIntestazione = &H80000000 'grigio
Public Const kColoreRiga = vbWhite 'bianco
'Costanti per gestire lo stato e la modalità di trasmissione dei documenti
Public Const kStatoDocL As String = "Letto"
Public Const kStatoDocNL As String = "Non letto"
Public Const kStatoDocE As Integer = 1
Public Const kStatoDocNE As Integer = 0
Public Const kModalitaDocU As String = "Urgente"
Public Const kModalitaDocPC As String = "Per conoscenza"
'POSSIBILI STATI DI UN DOCUMENTO
'Form "Inserimento", tab ACQUISIZIONE (0)
'1.1 "compilato" - all (è la situazione di partenza: le info. del documento vengono definite)
'1.2 "prenotato" - all
'1.3 "composto" - all
'1.4 "scansionato" - all
'1.5 "associato" - all
'1.6 "distribuito" - all
'1.7 "salvato" - all (quando viene salvato un modello di composizione del form)
'Form "Inserimento", tab "Gestione documento" -> CONSULTAZIONE/modifica (1)
'2.1 "ri-compilato" - all (è la situazione che si ha riaprendo il documento per aggiornamenti)
'2.2 "ri-distribuito" - all (il documento viene ritrasmesso a seguito di una modifica anche solo
' nella sua lista di distribuzione)
'2.3 "ri-associato" - amministratore
'2.4 "annullato" - amministratore
'2.5 "eliminato" - amministratore
'2.6 "post-salvato" - all (quando viene salvato un modello di composizione del form)
'Form "SySManArchiviazione", ARCHIVIAZIONE
'3.1 "archiviato" - amministratore
'1.
Public Const kContrDocCompilato As String = "Compilato"
Public Const kContrDocPrenotato As String = "Prenotato"
Public Const kContrDocComposto As String = "Composto"
Public Const kContrDocScansionato As String = "Scansionato"
Public Const kContrDocAssociato As String = "Associato"
Public Const kContrDocDistribuito As String = "Distribuito"
Public Const kContrDocSalvato As String = "Salvato"
'2.
Public Const kContrDocRiCompilato As String = "Ri-Compilato"
Public Const kContrDocRiDistribuito As String = "Ri-distribuito"
Public Const kContrDocRiassociato As String = "Riassociato"
Public Const kContrDocAnnullato As String = "Annullato"
Public Const kContrDocEliminato As String = "Eliminato"
Public Const kContrDocPostSalvato As String = "Post-Salvato"
'3.
Public Const kContrDocArchiviato As String = "Archiviato"
'Costanti per la gestione dei files binari
Public Const maxlenghtNum As Integer = 4
Public Const maxlenghtAnno As Integer = 4
'Costante che fissa la versione del programma ed altre scritte sui forms ecc.
Public Const kVersion = " SciP (Ver. Febbraio 2007)"
Public Const kStringPersonalFolder = "CARTELLA PERSONALE"
Public Const kStringExtensiveSearch1 = "RICERCA ESTESA"
Public Const kStringExtensiveSearch2 = " - di tutti gli utenti"
Public Const kStringDeleted = " - eliminati "
Public Const kStringNotDeleted = " - non eliminati "
Public Const kStringDeletedAndNotDeleted = " - eliminati e non"
Public Const kStringJobOrder = " - commessa"
Public Const kStringProtocoll = " - nr. di protocollo"
Public Const kStringDateRange = " - intervallo di data"
Public Const kStringExtension = " - estensione del file"
Public Const kStringAuthor = " - Autore"
Public Const kStringWriter = " - Redattore"
Public Const kStringTypology = " - tipologia"
Public Const kStringActivity = " - attività"
Public Const kStringCompany = " - Mittente/Destinatario"
Public Const kStringSubject = " - oggetto"
'Costante di processo per la persona che gestisce il protocollo
Public Const kNomeSegrProt = "Pamela Carminati"
Public Const kNomeSegrTecn = "Elena Nava"
'Costante per il settaggio a null delle date
Public Const kDataNull = "null"
'Costanti per identificare degli specifici caratteri
Public Const kKeyAsciiVirgola = 44
Public Const kKeyAsciiPunto = 46
'Costanti per la funzione "SenMessage"
Public Const WM_CLOSE& = &H10
Public Const WM_QUIT& = &H12
Public Const WM_SETFOCUS = &H7
Public Const WM_ACTIVATE = &H6
Public Const WM_SHOWWINDOW = &H18
Public Const WM_PAINT = &HF
Public Const WM_PRINT = &H317
'Funzioni utili per l'esecuzione di altri programmi per la visualizzazione dei documenti
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nsize As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
'Variabili globali: variabili di classe
Public glClasseAlbero As New Albero
Public glClasseDocumento As New Documento
Public glClasseSocieta As New Societa
Public glClassePianificazione As New Pianificazione
'Variabili per l'identificazione dell'utente connesso
Public glWindowsLoginName As String 'stringa che identifica univocamente l'utente che si è connesso a windows
Public glLoginName As String 'glLoginName contiene la stringa che identifica univocamente il singolo utente
'Variabli per la gestione delle connessioni e dei recordsets
'1: Database SciP
Public glProviderSciP As String
Public glConnectionStringSciP As String
Public glProviderStorico As String
Public glConnectionStringStorico As String
Public glNomeDatabaseSciP As String
Public glTabBinaryDoc As String
Public glNS_DD_SciP As String
Public glNomeDatabaseStorico As String
Public glNS_DD_Storico As String
Public glDocumentsPathSciP As String
Public glImageViewerPath As String
Public glConnSciP As Connection
Public glConnHSciP As Connection
Public glRsSciP0 As Recordset '(+ di uno per effettuare multi-connessioni)
Public glRsSciP1 As Recordset
Public glRsSciP2 As Recordset
Public glRsSciP3 As Recordset
Public glRsHSciP0 As Recordset
Public glRsHSciP1 As Recordset
Public glRsHSciP2 As Recordset
'Variabile per le ricerche in consultazione
Public glSqlTbDocumenti As String
'Altre variabili globali
Public glSel As Boolean
'Funzione di apertura e chiusura connessione
Public Function ConnectDB(ByRef ac As Connection, ByVal DataBase As String, ByVal ConnProvider As String, ByVal ConnConnectionString As String, Optional temp As CursorLocationEnum = adUseServer) As Boolean
ConnectDB = False
If ac Is Nothing Then
Set ac = New Connection
Else
If ac = "" Then
Set ac = New Connection
End If
End If
If ac.State <> 1 Then
On Error GoTo GoAway
ac.CursorLocation = temp
ac.Provider = ConnProvider
ac.ConnectionString = ConnConnectionString
ac.Open
ConnectDB = True
Else
ConnectDB = True
End If
Exit Function
GoAway:
ConnectDB = False
End Function
Sub DisConnectDB(ByRef ac As Connection)
If ac Is Nothing Then
Set ac = New Connection
Else
If ac = "" Then
Set ac = New Connection
End If
End If
If ac.State = 1 Then ac.Close
Set ac = Nothing
End Sub
'Funzione di apertura e chiusura recordset
Sub RSOpen(ByRef RS As Recordset, ByRef CONN As Connection, ByRef SQLString As String, Optional scrittura As Boolean = False)
If (CONN.State <> 1) Then 'Verifico lo stato della connessione
Exit Sub
End If
Set RS = New Recordset
If SQLString <> "" Then
If scrittura = False Then
RS.Open SqlFormatString(SQLString, CONN), CONN, adOpenStatic, adLockReadOnly
Else
RS.Open SqlFormatString(SQLString, CONN), CONN, adOpenDynamic, adLockOptimistic
End If
End If
End Sub
Sub RSClose(ByRef RS As Recordset)
RS.Close
Set RS = Nothing
End Sub
'Funzione che serve all'estrazione di uno specifico
'valore di un campo dal database
Function Fsql(ByRef RS As Recordset, ByRef CONN As Connection, sql As String, Optional Numero As Boolean = False) As Variant
If (CONN.State <> 1) Then 'Verifico lo stato della connessione
Exit Function
End If
RSOpen RS, CONN, sql
If Not (RS.BOF And RS.EOF) Then
If Not IsNull(RS!Elem) Then
Fsql = RS!Elem
Else
If Numero Then
Fsql = 0 'se si cerca un numero, nel caso in cui il risultato sia
'un record vuoto, viene restituito '0' al posto di 'null'
Else
Fsql = ""
End If
End If
Else
If Numero Then
Fsql = 0
Else
Fsql = ""
End If
End If
RSClose RS
End Function
'Funzione che serve al conteggio dei records estratti
Function ContaRecs(ByRef RS As Recordset) As Long
Dim cont As Long
cont = 0
If RS.State = 1 Then
If Not (RS.EOF And RS.BOF) Then
RS.MoveFirst
While Not RS.EOF
RS.MoveNext
cont = cont + 1
Wend
RS.MoveFirst
End If
ContaRecs = cont
End If
End Function
'Funzione che serve a formattare le stringhe contenenti apici ("'")
'da gestire nelle istruzioni sql
Function DblApos(ByVal sBr As Variant) As String
Dim lPos As Long
Dim sBl As String
If IsNull(sBr) Then Exit Function
'Necessario per gestire caratteri "+" e "&" nelle stringhe sql (cfr. function "SQLFomatString")
sBr = Replace(sBr, "+", "÷!÷")
sBr = Replace(sBr, "&", "!÷!")
lPos = InStr(sBr, Chr(39))
While lPos <> 0
sBl = sBl & Left(sBr, lPos) & Chr(39)
sBr = Right(sBr, Len(sBr) - lPos)
lPos = InStr(sBr, Chr(39))
Wend
DblApos = sBl & sBr
End Function
'Funzione che serve a formattare le date in modo universale: yyyy/mm/dd
Function SqlDataType(ByVal DataToConv As Variant, ByRef CONN As Connection) As String
With CONN
If (DataToConv = kDataNull Or IsNull(DataToConv) Or DataToConv = "") Then
SqlDataType = kDataNull
Else
Select Case LCase(.Provider)
Case "sqloledb.1"
'Formato data UNIVERSALE (Valida per SQL, Sybase, ...)
SqlDataType = "'" & Format(CDate(DataToConv), "yyyy/MM/dd") & "'" 'Restituisce la data in formato "mm/gg/aaaa"
Case "microsoft.jet.oledb.4.0"
'Formato data ITALIANA (Valida per Access)
SqlDataType = "#" & Format(CDate(DataToConv), "yyyy/MM/dd") & "#" 'Restituisce la data in formato "mm/gg/aaaa"
End Select
End If
End With
End Function
'Funzione che serve a formattare le stringhe d'istruzione SQL in modo da poter gestire
'campi espressione composti di stringhe (&, +)
Function SqlFormatString(ByVal Istruzione As String, ByRef CONN As Connection) As String
With CONN
If LCase(.Provider) = "sqloledb.1" Then
SqlFormatString = Replace(Istruzione, "&", "+")
ElseIf LCase(.Provider) = "microsoft.jet.oledb.4.0" Then
SqlFormatString = Replace(Istruzione, "+", "&")
End If
End With
SqlFormatString = Replace(SqlFormatString, "÷!÷", "+")
SqlFormatString = Replace(SqlFormatString, "!÷!", "&")
End Function
'Funzione avente il compito di riempire una combo box con i dati ottenuti da una query SQL sul db SQL.
Sub RiempiCbo(ByRef cb As ComboBox, ByRef RS As Recordset, ByRef CONN As Connection, sql As String)
Dim tmpxStringa As String
Dim Presente As Boolean
Presente = False
'Acquisisco la stringa che c'è nella combo prima del riempimento
tmpxStringa = cb.Text
cb.Clear 'Svuoto la combo
If (CONN.State <> 1) Then 'Verifico lo stato della connessione
Exit Sub
End If
RSOpen RS, CONN, sql
If Not (RS.BOF And RS.EOF) Then
RS.MoveFirst
While Not RS.EOF
If (RS!Elem <> "") Then
cb.AddItem Trim(RS!Elem)
If RS!Elem = tmpxStringa Then Presente = True
End If
RS.MoveNext
Wend
End If
RSClose RS
'Ripristino il testo presente inizialmente nella combo solo se presente
'nella nuova list
'Questa operazione deve essere effettuata dopo la chiusura dei rs
If Presente Then cb.Text = tmpxStringa
End Sub
'Funzione che serve a popolare una ListBox con valori
'estratti tramite query dal DB o salvati in un oggetto di
'tipo array
Sub RiempiListBox(ByRef LB As ListBox, Optional ByRef RS As Recordset, Optional ByRef CONN As Connection, Optional ByVal sql As String, Optional ByVal CampoElenco As String)
Dim MyString
Dim cont As Integer
LB.Clear 'Svuoto la ListBox
If sql <> "" Then
If (CONN.State <> 1) Then 'Verifico lo stato della connessione
Exit Sub
End If
RSOpen RS, CONN, sql
If Not (RS.BOF And RS.EOF) Then
RS.MoveFirst
While Not RS.EOF
If (RS!Elem <> "") Then
LB.AddItem RS!Elem
End If
RS.MoveNext
Wend
End If
RSClose RS
Else
If CampoElenco <> "" Then
MyString = Split(CampoElenco, kSeparatoreEsterno)
cont = 0
For cont = 0 To UBound(MyString)
LB.AddItem Replace(MyString(cont), kSeparatoreInterno, kSeparatoreEsterno)
Next
End If
End If
End Sub
'Funzione che serve a togliere da una ListBox i valori
'estratti tramite query dal DB o salvati in un oggetto di
'tipo array
Sub TogliDaListBox(ByRef LB As ListBox, Optional ByRef RS As Recordset, Optional ByRef CONN As Connection, Optional ByVal sql As String, Optional ByVal CampoElenco As String)
Dim MyString
Dim cont As Integer
Dim indice As String
If sql <> "" Then
If (CONN.State <> 1) Then 'Verifico lo stato della connessione
Exit Sub
End If
RSOpen RS, CONN, sql
If Not (RS.BOF And RS.EOF) Then
RS.MoveFirst
While Not RS.EOF
If (RS!Elem <> "") Then
indice = TrovaIndiceListBox(LB, RS!Elem)
If indice <> "" Then LB.RemoveItem indice
End If
RS.MoveNext
Wend
End If
RSClose RS
Else
If CampoElenco <> "" Then
MyString = Split(CampoElenco, kSeparatoreEsterno)
cont = 0
For cont = 0 To UBound(MyString)
indice = TrovaIndiceListBox(LB, MyString(cont))
If indice <> "" Then LB.RemoveItem indice
Next
End If
End If
End Sub
'Funzione che restituisce il valore dell'indice di un item
'della listbox avente valore specificato
Public Function TrovaIndiceListBox(ByRef TempLB As ListBox, ByVal Valore As Variant) As String
Dim i As Integer
Dim ValoreRidotto
TrovaIndiceListBox = ""
ValoreRidotto = Split(Valore, kSeparatoreInterno)
With TempLB
For i = 0 To .ListCount
If .List(i) = ValoreRidotto(0) Then
TrovaIndiceListBox = i
Exit For
End If
Next
End With
End Function
'Funzione che formatta i dati di tipo numerico in modo da essere registrati correttamente
'in SQL (trasforma le virgole in punti)
Function TrasfDecimal(Numero As Variant) As String
TrasfDecimal = Numero
If TrasfDecimal <> "" Then
If InStr(TrasfDecimal, ",") <> 0 Then TrasfDecimal = Replace(TrasfDecimal, ",", ".")
End If
End Function
'Funzione per la gestione del troncamento delle stringhe senza generare errori SQL
Public Function VerificaLunghezza(ByVal Valore As Variant, ByVal DataBase As String, ByVal Tabella As String, ByVal Campo As String) As Variant
Dim RecordsetCorrente As Recordset
Dim ConnessioneCorrente As Connection
Set RecordsetCorrente = New Recordset
Set ConnessioneCorrente = New Connection
ConnessioneCorrente.ConnectionString = glConnSciP.ConnectionString
ConnessioneCorrente.Open ConnessioneCorrente.ConnectionString
RSOpen RecordsetCorrente, ConnessioneCorrente, "SELECT * FROM " & Tabella
Dim i As Integer
For i = 0 To RecordsetCorrente.Fields.Count - 1
If LCase(RecordsetCorrente.Fields(i).Name) = LCase(Campo) Then GoTo Continua
Next
MsgBox "Errore nella struttura del database.", vbCritical, kEsclSistema
Exit Function
Continua:
RSOpen RecordsetCorrente, ConnessioneCorrente, "SELECT " & Campo & " AS CampoVerificato FROM " & Tabella
If Len(Valore) <= RecordsetCorrente.Fields("CampoVerificato").DefinedSize Then
VerificaLunghezza = Valore
Else
MsgBox "Causa l'eccessiva lunghezza, una o più informazioni verranno troncate.", vbInformation, kEsclInformazione
VerificaLunghezza = Left(Valore, RecordsetCorrente.Fields("CampoVerificato").DefinedSize)
End If
RSClose RecordsetCorrente
End Function
'Funzione che restituisce in formato std la data e l'ora di un evento contestuale
Public Function CalcolaDataOra() As String
CalcolaDataOra = Format(Now, "dd/mm/yyyy hh:mm")
End Function
'Funzione che permette di inserire un documento (file) all'interno di un record
'di una tabella del database: è in stretta relazione con la funzione "FileToDb" del
'modulo "DB".
'[2007-Febbr.]: per un problema con la gestione dei documenti (una volta associati al database non si riesce più
' a modificarli con uno dello stesso tipo), modifico la funzione.
' Sostituisco l'"UPDATE" con un "DELETE + INSERT INTO".
Public Function AssociaAlDB(ByVal NomeFile As String, ByVal Estensione As String, ByVal Tabella As String, ByVal PriKey As String) As Boolean
On Error GoTo error_ToDb
If LCase(Tabella) = "tbbinary" Then
RSOpen glRsSciP0, glConnSciP, "DELETE FROM " & Tabella & " WHERE NrProtocollo = " & PriKey, True
RSOpen glRsSciP0, glConnSciP, "INSERT INTO " & Tabella & " (NrProtocollo,Nome,TipoDoc) VALUES ('" & PriKey & "','" & glClasseDocumento.LabelNrProtocollo(False) & "','" & Estensione & "')", True
End If
RSOpen glRsSciP0, glConnSciP, "SELECT DocOggetto,TipoDoc FROM " & Tabella & " WHERE NrProtocollo = " & PriKey, True
If Not (glRsSciP0.BOF And glRsSciP0.EOF) Then
AssociaAlDB = FileToDB(NomeFile, glRsSciP0.Fields("DOCoggetto"))
glRsSciP0.Fields("TipoDoc") = Estensione
glRsSciP0.Update
End If
RSClose glRsSciP0
GoTo Fine
error_ToDb:
MsgBox "Errore imprevisto: " & Err.Description, vbCritical, kEsclErrore
Fine:
End Function
'Funzione che inserisce un file in formato binario all'interno del DB
Function FileToDB(NomeDocumento As String, fld As ADODB.Field) As Boolean
Dim FileLength As Long
Dim SourceFile As Integer
Dim ByteData() As Byte 'Byte array per dati Blob
Dim i As Integer
Dim Numblocks As Integer
Dim LeftOver As Long
SourceFile = FreeFile
Open NomeDocumento For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)
If FileLength = 0 Then
Close SourceFile
FileToDB = False
Exit Function
Else
Numblocks = FileLength / kBlocksize
LeftOver = FileLength Mod kBlocksize
fld = Null
ReDim ByteData(LeftOver)
Get SourceFile, , ByteData()
fld.AppendChunk ByteData()
ReDim ByteData(kBlocksize)
For i = 1 To Numblocks
Get SourceFile, , ByteData()
fld.AppendChunk ByteData()
Next i
Close SourceFile
FileToDB = True
End If
End Function
'Funzione che ricostruisce un file dal formato binario presente nel DB
Function DbToFile(ByRef fld As ADODB.Field, ByRef NomeDocumento As String)
Dim FileLength As Long
Dim DestFileNum As Integer
Dim ByteData() As Byte
Dim i As Long
Dim Numblocks As Integer
Dim LeftOver As Long
On Error Resume Next
Kill NomeDocumento
FileLength = fld.ActualSize
DestFileNum = FreeFile
Open NomeDocumento For Binary As DestFileNum
Numblocks = FileLength / kBlocksize
LeftOver = FileLength Mod kBlocksize
ByteData() = fld.GetChunk(LeftOver)
Put DestFileNum, , ByteData()
For i = 1 To Numblocks
ByteData() = fld.GetChunk(kBlocksize)
Put DestFileNum, , ByteData()
Next i
Close DestFileNum
End Function
'La funzione ha la funnzione di registrare nella tabella "DocInviati" il fatto che il
'documento sia stato letto
Sub Segna(Destinazione As String, NrProt_AnProt As Variant, NrComm As Variant, AnComm As Variant, StatoOut As String)
'La funzione deve agire direttamente a livello di DOCUMENTO
If (NrProt_AnProt <> "" And StatoOut <> "") Then
'Aggiorna lo stato del documento selezionato per l'utente che lo sta consultando
RSOpen glRsSciP0, glConnSciP, "UPDATE " & Destinazione & " SET Stato = '" & StatoOut & "' WHERE RIGHT('00000'+LTRIM(CAST(Numero AS VarChar)),5)+'-'+CAST(Anno AS NVarChar)='" & NrProt_AnProt & "' AND Utente = '" & DblApos(glLoginName) & "'", True
End If
'la funzione deve agire a livello di COMMESSA
If (NrComm <> "" And AnComm <> "") Then
'Aggiorna lo stato dei documenti della commessa selezionata trasmessi all'utente che consulta il sistema
RSOpen glRsSciP0, glConnSciP, "SELECT TD.* FROM tbDocumenti TD INNER JOIN " & Destinazione & " DI ON TD.Numero = DI.Numero AND TD.Anno = DI.Anno WHERE TD.NumeroCommessa = " & NrComm & " AND TD.AnnoCommessa = " & AnComm & " AND DI.Utente = '" & DblApos(glLoginName) & "'"
If Not (glRsSciP0.BOF And glRsSciP0.EOF) Then
glRsSciP0.MoveFirst
Do Until glRsSciP0.EOF
RSOpen glRsSciP1, glConnSciP, "UPDATE " & Destinazione & " SET Stato = '" & DblApos(StatoOut) & "' WHERE RIGHT('00000'+LTRIM(CAST(Numero AS NVarChar)),5)+'-'+CAST(Anno AS NVarChar)='" & NrProt_AnProt & "' AND Utente = '" & DblApos(glLoginName) & "'", True
If Not glRsSciP1.EOF Then glRsSciP1.MoveNext
Loop
RSClose glRsSciP1
End If
RSClose glRsSciP0
End If
End Sub
'La funzione deve settare un documento come eliminato all'interno della tabella interessata (tipicamente "DocInviati")
Sub EliminaRipristina(ByVal Destinazione As String, ByVal Codice As String, ByVal EliminatoIn As String, ByVal EliminatoOut As String)
If Codice <> "" Then
Codice = Right(Codice, 10)
'Aggiorna lo stato del/i documento/i selezionato/i per l'utente che lo sta consultando
RSOpen glRsSciP0, glConnSciP, "UPDATE " & Destinazione & " SET Eliminato = '" & EliminatoOut & _
"' WHERE RIGHT('00000'+LTRIM(CAST(Numero as nvarchar)),5)+'-'+CAST(Anno as nvarchar) = '" & Codice & "' AND " & _
"Utente = '" & DblApos(glLoginName) & "' AND Eliminato = " & EliminatoIn, True
End If
End Sub
'Funzione per la verifica del formato/esistenza del numero di commessa o di protocollo
Function VerificaFormato(ByVal Oggetto_Form_Provenienza As Variant, ByVal Tabella As String) As String
Dim Separazione
Dim Campo1 As String
Dim Campo2 As String
Select Case LCase(Tabella)
Case "commesse"
Campo1 = "NrComme"
Campo2 = "Anno"
Case "tbdocumenti"
Campo1 = "Numero"
Campo2 = "Anno"
End Select
If Oggetto_Form_Provenienza <> "" Then
If InStr(Oggetto_Form_Provenienza, "-") <> 0 Then
Separazione = Split(Oggetto_Form_Provenienza, "-")
If (Len(Separazione(0)) = 0 Or Len(Separazione(1)) = 0) Or (Len(Trim(Separazione(0))) > 5 Or Len(Trim(Separazione(1))) > 4) Then
VerificaFormato = ""
Else
If Fsql(glRsSciP0, glConnSciP, "SELECT NrProtocollo AS Elem FROM " & Tabella & " WHERE " & Campo1 & " = " & Separazione(0) & " AND " & Campo2 & " = " & CalcolaAnno(Separazione(1)), True) <> 0 Then
If LCase(Campo1) = "numero" Then
VerificaFormato = Format(Separazione(0), "00000") & "-" & CalcolaAnno(Separazione(1))
Else
If LCase(Campo1) = "nrcomme" Then
VerificaFormato = Format(Separazione(0), "0000") & "-" & CalcolaAnno(Separazione(1))
End If
End If
Else
VerificaFormato = ""
End If
End If
End If
Else
VerificaFormato = ""
End If
End Function
'La funzione verifica che il documento non sia protetto da riservatezza (tramite verifica sulla combinazione dei campi
'"Tipologia" ed "Attività" della tab. "TbDocumenti" incrociata con la tab. "Entita")
Function VerificaVisibilita(ByVal Codice As String, ByRef RS As Recordset) As Boolean
Dim LivelloUtente As Integer
Dim LivelloDocumento As Integer
Dim Tipologia_Val As String
Dim Attivita_Val As String
VerificaVisibilita = True
Tipologia_Val = Fsql(RS, glConnSciP, "SELECT Tipologia FROM TbDocumenti WHERE STR(Numero,5,0) + '-' STR(Anno,4,0) = '" & Codice & "'")
Attivita_Val = Fsql(RS, glConnSciP, "SELECT Attivita FROM TbDocumenti WHERE STR(Numero,5,0) + '-' STR(Anno,4,0) = '" & Codice & "'")
LivelloUtente = Fsql(RS, glConnSciP, "SELECT Visibilita FROM Utenti WHERE Identifier = '" & DblApos(glLoginName) & "'", True)
LivelloDocumento = Fsql(RS, glConnSciP, "SELECT Visibilita FROM Entita WHERE Tipologia = '" & DblApos(Tipologia_Val) & "' AND Attivita = '" & DblApos(Attivita_Val) & "'", True)
If LivelloUtente < LivelloDocumento Then
VerificaVisibilita = False
End If
End Function
'Funzione di formattazione di una stringa "anno"
Function CalcolaAnno(ByVal AnnoInput As String) As String
If (Val(AnnoInput) >= 90 And Val(AnnoInput) <= 100) Then
CalcolaAnno = "19" & Val(AnnoInput)
Else
If Val(AnnoInput) < 90 Then
If Val(AnnoInput) < 10 Then
CalcolaAnno = "200" & Val(AnnoInput)
Else
CalcolaAnno = "20" & Val(AnnoInput)
End If
Else 'caso in cui si sia digitato erroneamente un centinaio d'anni (es. "230")
CalcolaAnno = Format(AnnoInput, "0000")
End If
End If
End Function
+182
View File
@@ -0,0 +1,182 @@
Attribute VB_Name = "FileCfg"
Option Explicit
'[!!!] Il modulo contiene tutte le funzioni necessarie alla gestione
' del file di configurazione ("cfg")
'Funzione per l'assegnazione delle variabili lette dal file "config.cfg"
'variabili da settare:
'-1)glNomeDatabase (es. glNomeDatabase = "SIGEPA-PAOLO")
'-2)glNomeServer (es. glNomeServer = "XPANDING")
Public Function Assegna() As Boolean
Dim PercorsoCFG As String
Assegna = False
PercorsoCFG = App.Path & "\" & kNomeFileCfg
If (Dir(PercorsoCFG) = "") Then
WriteDefaultCfgFile
End If
ReadCfgFromFile
If CtrlVariabiliG = False Then
Assegna = True
SySManSettings.Show 1
End If
End Function
'Funzione utilizzata per leggere le impostazioni globali contenute nel file
'config.cfg presente nella stessa directory del programma
'All'interno del file le informazioni dovranno essere scritte nel modo seguente:
Sub ReadCfgFromFile()
Dim tmpstring As String 'Variabile temporanea utilizzata per memorizzare temporaneamente le varie righe del file di congigurazione
Dim strNomeCampoVal() As String 'Stringa utilizzata per contenere il nome del campo e del valore associato ad esso della riga letta (è dimensionato a 2 perkè il n# max di stringhe restituite è 2)
Dim DirCfg As String
DirCfg = App.Path & "\" & kNomeFileCfg 'Apro il file in lettura
Open DirCfg For Input As #1
Do Until EOF(1) 'Scansiono il file fino alla fine dello stesso
Input #1, tmpstring 'Aquisisco una riga alla volta
strNomeCampoVal = Split(tmpstring, "=", 2)
Select Case UCase(Trim(strNomeCampoVal(0)))
Case "PROVIDERSCIP"
glProviderSciP = Trim(strNomeCampoVal(1))
Case "PROVIDERSTORICO"
glProviderStorico = Trim(strNomeCampoVal(1))
Case "NOMEDBSCIP"
glNomeDatabaseSciP = Trim(strNomeCampoVal(1))
Case "TABBINARYDOC"
glTabBinaryDoc = Trim(strNomeCampoVal(1))
Case "NOMEDBSTORICO"
glNomeDatabaseStorico = Trim(strNomeCampoVal(1))
Case "NS_DD_SCIP"
glNS_DD_SciP = Trim(strNomeCampoVal(1))
Case "NS_DD_STORICO"
glNS_DD_Storico = Trim(strNomeCampoVal(1))
Case "DOCUMENTS_PATH_SCIP"
glDocumentsPathSciP = Trim(strNomeCampoVal(1))
Case "IMAGEVIEWER_PATH"
glImageViewerPath = Trim(strNomeCampoVal(1))
End Select
Loop
Close #1
If glProviderSciP = "SQLOLEDB.1" Then
glConnectionStringSciP = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & glNomeDatabaseSciP & ";Data Source=" & glNS_DD_SciP
Else
glConnectionStringSciP = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & glNS_DD_SciP & "\" & glNomeDatabaseSciP
End If
If glProviderStorico = "SQLOLEDB.1" Then
glConnectionStringStorico = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & glNomeDatabaseStorico & ";Data Source=" & glNS_DD_Storico
Else
glConnectionStringStorico = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & glNS_DD_Storico & "\" & glNomeDatabaseStorico
End If
End Sub
'Funzione avente il compito di scrivere le variabili globali sul file di configurazione
'config.cfg. Quando viene richiamata il file "config.cfg" viene ricreato nel caso non esista, o
'viene interamente sostituito dalle nuove variabili.
Sub WriteCfgToFile()
Dim tmpstring As String 'Variabile temporanea utilizzata per immagazzinare i dati relativi alle stringhe del file "config.cfg"
Dim contatore As Integer 'Variabile utilizzata per scorrere il numero di linee da inserire all'interno del file
Dim DirCfg As String
DirCfg = App.Path & "\" & kNomeFileCfg 'Apro il file in lettura
Open DirCfg For Output As #1 'Apro il file in lettura
contatore = 0 'Inizializzazione della variabile (parto da 0)
Do Until contatore = 9 'Scansiono il file per 5 volte ("5" equivale al numero di campi da inserire)
Select Case contatore
Case 0
tmpstring = "ProviderSciP = " & glProviderSciP
Case 1
tmpstring = "NomeDbSciP = " & glNomeDatabaseSciP
Case 2
tmpstring = "TabBinaryDoc = " & glTabBinaryDoc
Case 3
tmpstring = "NS_DD_SciP = " & glNS_DD_SciP
Case 4
tmpstring = "ProviderStorico = " & glProviderStorico
Case 5
tmpstring = "NomeDbStorico = " & glNomeDatabaseStorico
Case 6
tmpstring = "NS_DD_Storico = " & glNS_DD_Storico
Case 7
tmpstring = "Documents_Path_SciP = " & glDocumentsPathSciP
Case 8
tmpstring = "ImageViewer_Path = " & glImageViewerPath
End Select
Print #1, tmpstring 'Inserisco nel file una riga alla volta
contatore = contatore + 1 'Incremento il contatore di 1 unità
Loop
Close #1
End Sub
'Funzione avente il compito di creare il file di configurazione (config.cfg)
'e di impostarne i campi contenuti in esso con dei valori di default
Sub WriteDefaultCfgFile()
Dim contatore As Integer 'Contatore usato per la scansione delle righe
Dim tmpstring As String 'Stringa contenente i valori da inserire nel file
Dim DirCfg As String
DirCfg = App.Path & "\" & kNomeFileCfg 'Apro il file in lettura
Open DirCfg For Output As #1 'Apro il file in lettura
contatore = 0 'Inizializzazione della variabile (parto da 0)
Do Until contatore = 10 'Scansiono il file per 5 volte ("5" equivale al numero di campi da inserire)
Select Case contatore 'Procedura che riempie solo alcuni valori delle variabili globali (non riempie Società, NomeServer e NomeDB)
Case 0
tmpstring = "ProviderSciP = "
Case 1
tmpstring = "NomeDbSciP = "
Case 2
tmpstring = "TabBinaryDoc = "
Case 3
tmpstring = "NS_DD_SciP = "
Case 4
tmpstring = "ProviderStorico = "
Case 5
tmpstring = "NomeDbStorico = "
Case 6
tmpstring = "NS_DD_Storico = "
Case 7
tmpstring = "Model_Path_SciP = "
Case 8
tmpstring = "Documents_Path_SciP = "
Case 9
' tmpstring = "ImageViewer_Path = "
End Select
Print #1, tmpstring 'Inserisco nel file una riga alla volta
contatore = contatore + 1 'Incremento il contatore di 1 unità
Loop
Close #1
End Sub
'Funzione avente il compito di controllare che tutti i valori delle variabili
'globali (impostabili mediante il file config.cfg) siano stati impostati.
Function CtrlVariabiliG() As Boolean
Dim tmpGlobali As Boolean
tmpGlobali = True 'Parto con la supposizione che siano stati impostati tutti i campi
If Not (((tmpGlobali = True) And (glProviderSciP <> "") And (glConnectionStringSciP <> ""))) Then
tmpGlobali = False
End If
If Not (((tmpGlobali = True) And (glNomeDatabaseSciP <> ""))) Then
tmpGlobali = False
End If
If Not (((tmpGlobali = True) And (glTabBinaryDoc <> ""))) Then
tmpGlobali = False
End If
If Not (((tmpGlobali = True) And (glNS_DD_SciP <> ""))) Then
tmpGlobali = False
End If
'2004-01-23: non ritengo necessaria la connessione automatica
' ad un database storico...
' If Not (((tmpGlobali = True) And (glProviderStorico <> "") And (glConnectionStringStorico <> ""))) Then
' tmpGlobali = False
' End If
' If Not (((tmpGlobali = True) And (glNomeDatabaseStorico <> ""))) Then
' tmpGlobali = False
' End If
' If Not (((tmpGlobali = True) And (glNS_DD_Storico <> ""))) Then
' tmpGlobali = False
' End If
If Not (((tmpGlobali = True) And (glDocumentsPathSciP <> ""))) Then
tmpGlobali = False
End If
If Not (((tmpGlobali = True) And (glImageViewerPath <> ""))) Then
tmpGlobali = False
End If
CtrlVariabiliG = tmpGlobali
End Function
+320
View File
@@ -0,0 +1,320 @@
Attribute VB_Name = "Objects"
Option Explicit
'[!!!] Il modulo contiene tutte le funzioni necessarie alla gestione degli
' oggetti normalmente utilizzati e standardizzati nei vari forms
'Dichiarazione di variabili per l'esecuzione del browser di cartelle
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Const LMEM_FIXED = &H0
Private Const LMEM_ZEROINIT = &H40
Private Const LPTR = (LMEM_FIXED Or LMEM_ZEROINIT)
Private Const BFFM_INITIALIZED = 1
Private Const WM_USER = &H400
Private Const BFFM_SETSELECTIONA As Long = (WM_USER + 102)
Private Const BFFM_SETSELECTIONW As Long = (WM_USER + 103)
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function LocalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal uBytes As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Public Type MailInfo 'Variabile creata per contenere le informazioni di una mail:
MailTo As String 'Destinatario
CopiaCarbone As String 'Coloro che riceveranno la lettera sapendo chi la leggerà
CopiaNascosta As String 'Coloro che riceveranno la lettera senza sapere chi la riceverà (oltre a loro)
Oggetto As String 'L'oggetto della mail
Testo As String 'Il testo contenuto nella mail stessa (ad es. la richiesta d'intervento)
End Type
Public Function BrowseForFolderByPath(ByRef FormInCui As Form, ByVal TitleCD As String, Optional ByVal sSelPath As String = "C:\") As String
Dim BI As BrowseInfo
Dim pidl As Long
Dim lpSelPath As Long
Dim sPath As String * MAX_PATH
With BI
.hWndOwner = FormInCui.hWnd
.pIDLRoot = 0
.lpszTitle = TitleCD
.lpfnCallback = FARPROC(AddressOf BrowseCallbackProcStr)
lpSelPath = LocalAlloc(LPTR, Len(sSelPath) + 1)
CopyMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath) + 1
.lParam = lpSelPath
End With
pidl = SHBrowseForFolder(BI)
If pidl Then
If SHGetPathFromIDList(pidl, sPath) Then
BrowseForFolderByPath = Left$(sPath, InStr(sPath, vbNullChar) - 1)
Else
BrowseForFolderByPath = ""
End If
Call CoTaskMemFree(pidl)
Else
BrowseForFolderByPath = ""
End If
Call LocalFree(lpSelPath)
End Function
Public Function FARPROC(pfn As Long) As Long
'A dummy procedure that receives and returns
'the value of the AddressOf operator.
'This workaround is needed as you can't
'assign AddressOf directly to a member of a
'user-defined type, but you can assign it
'to another long and use that instead!
FARPROC = pfn
End Function
Private Function BrowseCallbackProcStr(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
'Callback for the Browse STRING method.
'On initialization, set the dialog's
'pre-selected folder from the pointer
'to the path allocated as bi.lParam,
'passed back to the callback as lpData param.
Select Case uMsg
Case BFFM_INITIALIZED
Call SendMessage(hWnd, BFFM_SETSELECTIONA, 1&, ByVal lpData)
Case Else:
End Select
End Function
'[2007-Magg]: sostituita con la funzione "BrowseForFolderByPath"
'Funzione per la visualizzazione della scelta della directory
'Public Function ScegliCartella(ByRef FormInCui As Form, ByVal TitleCD As String, Optional ByRef PathCD As String) As String
' Dim lpIDList As Long
' Dim sBuffer As String
' Dim szTitle As String
' Dim tBrowseInfo As BrowseInfo
'
' With tBrowseInfo
'
' .hWndOwner = FormInCui.hWnd
' .lpszTitle = lstrcat(TitleCD, "")
' .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
'
' End With
'
' lpIDList = SHBrowseForFolder(tBrowseInfo) 'TI DA' UN NUMERO
'
' If (lpIDList) Then
'
' sBuffer = Space(MAX_PATH)
' SHGetPathFromIDList lpIDList, sBuffer 'CONVERTE IL NUMERO IN UN PERCORSO
' ScegliCartella = sBuffer
'
' End If
'End Function
'La funzione ha il compito di spedire una mail (compilata in precedenza) ricevendo
'la stringa precostruita "Informazioni" (in successione vengono inserite le informazioni
'riguardanti destinatario, copiacarbone, copianascosta, oggetto, testo e
'l'handle della form chiamante.
Sub MailTo(ByRef frm As Form, ByVal Informazioni As String)
Call ShellExecute(frm.hWnd, vbNullString, Informazioni, vbNullString, vbNullString, 1)
End Sub
'Funzione avente lo scopo di isolare ciò che sta alla destra
'dell'ultimo carattere "Oggetto" all'interno di una stringa.
'In particolare è utilizzata per ricavare l'estensione di un file (--> "TipoDoc")
Function Spezza_Fine(ByVal Testo As String, ByVal Oggetto As String)
Dim MyString
If InStr(Testo, Oggetto) <> 0 Then
MyString = Split(Testo, Oggetto)
Testo = CStr(MyString(UBound(MyString)))
End If
Spezza_Fine = Testo
End Function
'Funzione che verrà generalmente utilizzata per dividere il nome di un edificio dalla sua descrizione
'Riceve il valore della Text da dividere e splittare restituisce il valore
Function SpliTrim(ByVal NomeDaSpliTrimmare As String, ByVal Separatore As String, Optional Posizione As Integer = 0) As Variant
Dim tmpstring
If (NomeDaSpliTrimmare <> "") Then
If InStr(NomeDaSpliTrimmare, Separatore) <> 0 Then
tmpstring = Split(NomeDaSpliTrimmare, Separatore)
SpliTrim = Trim(tmpstring(Posizione))
Else
tmpstring = NomeDaSpliTrimmare
SpliTrim = Trim(tmpstring)
End If
Else
SpliTrim = ""
End If
End Function
'Funzione che serve a porre in maiuscolo le iniziali di nome e cognome,
'qualora fossero state digitate in minuscolo
Public Function InizMaiusc(Nome As String, Optional SoloLaPrima As Boolean) As String
Dim cont As Integer
Dim myName
'Verifico che l'oggetto della function ("Nome") non sia vuoto
If (Nome <> "" And Not IsNull(Nome)) Then
'L'utente vuole visualizzare in maiuscolo la
'prima lettera di una intera frase
If SoloLaPrima Then
InizMaiusc = UCase(Left(Nome, 1)) & LCase(Right(Nome, Len(Nome) - 1))
Else
'Verifico che la variabile "Nome" contenga almeno
'uno spazio bianco al suo interno (tipo nome_cognome)
If InStr(Nome, " ") <> 0 Then
myName = Split(Nome, " ")
For cont = 0 To UBound(myName)
If InizMaiusc <> "" Then
InizMaiusc = InizMaiusc & " " & UCase(Left(myName(cont), 1)) & LCase(Right(myName(cont), Len(myName(cont)) - 1))
Else
InizMaiusc = UCase(Left(myName(cont), 1)) & LCase(Right(myName(cont), Len(myName(cont)) - 1))
End If
Next
Else 'Caso di una parola senza spazi bianchi al suo interno
InizMaiusc = UCase(Left(Nome, 1)) & LCase(Right(Nome, Len(Nome) - 1))
End If
End If
End If
End Function
'Funzione avente il compito di analizzare la stringa PercorsoCompleto e
'dividere il percorso delle directory dal nome del file
' Es. PercorsoCompleto = "C:\Documenti\Dir2\File.txt"
' Nome File = "C:\Documenti\Dir2\" ; Nomepath = "File.txt"
Sub SplitPercorso(ByVal PercorsoCompleto, ByRef NomeFile, ByRef NomePath)
Dim PosLastBar As Integer ' var contenente il valore della posizione dell'ultimo "\" (nell'es. è 17)
PosLastBar = InStrRev(PercorsoCompleto, "\")
If (PosLastBar <> 0) Then ' eseguo le operazioni solo se ho trovato un separatore
NomeFile = Mid(PercorsoCompleto, (PosLastBar + 1)) ' è + 1 per evitare che legga il simbolo "\"
NomePath = Left(PercorsoCompleto, PosLastBar)
Else
NomeFile = ""
NomePath = ""
End If
End Sub
'Funzione per imbrigliare in formato data compatibile i valori restituiti
'da una inputbox
Function InputData(ByRef ValoreInput As Variant) As Boolean
InputData = True
If CStr(ValoreInput) = "" Then
ValoreInput = kDataNull
Else
If IsDate(ValoreInput) Then
ValoreInput = Format(CDate(ValoreInput), "dd/mm/yyyy")
Else
InputData = False
MsgBox "Formato dati non valido.", vbExclamation, kEsclErrore
End If
End If
End Function
'Funzione per la ricerca della cartella sul server relativa ad una commessa
Function TrovaDirectory(ByVal Num_Comm As String) As Variant
If Num_Comm <> "" Then
TrovaDirectory = "\\servernt\"
Select Case Right(Num_Comm, 4)
Case 2002, 2006, 2007 'r
TrovaDirectory = TrovaDirectory & "r\"
Case 2003, 2005 'f
TrovaDirectory = TrovaDirectory & "f\"
Case 2000, 2001, 2004 'd
TrovaDirectory = TrovaDirectory & "d\"
End Select
TrovaDirectory = TrovaDirectory & "Prog-" & Right(Num_Comm, 4) & "\" & Num_Comm & "\"
End If
End Function
'La funzione cerca un valore nella lista della combobox e restituisce valore "true" se lo trova
'o "false" nel caso contrario.
Public Function TrovaInCombo(ByRef Valore As String, ByRef Combo As ComboBox) As Boolean
Dim i As Integer
i = 0
TrovaInCombo = False
With Combo
For i = 0 To .ListCount
If Combo.List(i) = Valore Then
TrovaInCombo = True
Else
TrovaInCombo = False
End If
Next
End With
End Function
+885
View File
@@ -0,0 +1,885 @@
[Root]
Most Recent Package=SciP Aprile 2010 Pacchetto di installazione
[Package|Pacchetto di installazione SciP Febbraio 2007|Root]
SubWizProgID=PDWizard.SetupPkgSubWiz
BuildFolder=g:\TEMP\SciP\New Scip\Installazione
[Package|Pacchetto di installazione SciP Febbraio 2007|Configure DAO ISAMs]
Applicable=No
[Package|Pacchetto di installazione SciP Febbraio 2007|Configure DAO ODBC]
JetWorkspace=
ODBCDirect=
[Package|Pacchetto di installazione SciP Febbraio 2007|Files Found]
[Package|Pacchetto di installazione SciP Febbraio 2007|Files Released]
Rdc20IT.dll=
[Package|Pacchetto di installazione SciP Febbraio 2007|Missing Dependency Information]
C:\WINDOWS\system32\crysdtc.ocx=
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=
C:\WINDOWS\system32\inetcomm.dll=
C:\Programmi\KODAKImaging\kodakimg.exe=
C:\WINDOWS\system32\imgedit.ocx=
C:\WINDOWS\system32\imgadmin.ocx=
C:\WINDOWS\system32\imgthumb.ocx=
C:\WINDOWS\system32\imgscan.ocx=
C:\WINDOWS\msagent\agentctl.dll=
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=
[Package|Pacchetto di installazione SciP Febbraio 2007|Out-of-Date Dependency Information]
C:\WINDOWS\system32\MCI32.OCX=
C:\WINDOWS\system32\MSCAL.OCX=
[Package|Pacchetto di installazione SciP Febbraio 2007|Files Added]
[Package|Pacchetto di installazione SciP Febbraio 2007|Files Removed]
[Package|Pacchetto di installazione SciP Febbraio 2007|Files In Project]
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=Yes
C:\WINDOWS\system32\msvbvm60.dll=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
C:\WINDOWS\system32\VB6IT.DLL=Yes
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=Yes
C:\WINDOWS\system32\MSSTDFMT.DLL=Yes
C:\WINDOWS\system32\STDFTIT.DLL=Yes
C:\WINDOWS\system32\MSBIND.DLL=Yes
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=Yes
C:\WINDOWS\system32\MSDBRPTR.DLL=Yes
C:\WINDOWS\system32\DBRPRIT.DLL=Yes
C:\WINDOWS\msagent\agentctl.dll=Yes
C:\WINDOWS\system32\MSCOMCT2.OCX=Yes
C:\WINDOWS\system32\MSCC2IT.DLL=Yes
C:\WINDOWS\system32\COMDLG32.OCX=Yes
C:\WINDOWS\system32\CMDLGIT.DLL=Yes
C:\WINDOWS\system32\MSMAPI32.OCX=Yes
C:\WINDOWS\system32\MSMPIIT.DLL=Yes
C:\WINDOWS\system32\MSCOMCTL.OCX=Yes
C:\WINDOWS\system32\MSCMCIT.DLL=Yes
C:\WINDOWS\system32\MSDATGRD.OCX=Yes
C:\WINDOWS\system32\DATGDIT.DLL=Yes
C:\WINDOWS\system32\MSHFLXGD.OCX=Yes
C:\WINDOWS\system32\MSHFGIT.DLL=Yes
C:\WINDOWS\system32\MSRDC20.OCX=Yes
C:\WINDOWS\system32\MSRDO20.DLL=Yes
C:\WINDOWS\system32\RDOCURS.DLL=Yes
C:\WINDOWS\system32\RDO20IT.DLL=Yes
C:\WINDOWS\system32\MSADODC.OCX=Yes
C:\WINDOWS\system32\ADODCIT.DLL=Yes
C:\WINDOWS\system32\RICHTX32.OCX=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=Yes
C:\WINDOWS\system32\RCHTXIT.DLL=Yes
C:\WINDOWS\system32\imgscan.ocx=Yes
C:\WINDOWS\system32\imgthumb.ocx=Yes
C:\WINDOWS\system32\imgadmin.ocx=Yes
C:\WINDOWS\system32\imgedit.ocx=Yes
C:\WINDOWS\system32\TABCTL32.OCX=Yes
C:\WINDOWS\system32\TABCTIT.DLL=Yes
C:\WINDOWS\system32\MSCHRT20.OCX=Yes
C:\WINDOWS\system32\MSCH2IT.DLL=Yes
C:\WINDOWS\system32\MSFLXGRD.OCX=Yes
C:\WINDOWS\system32\FLXGDIT.DLL=Yes
C:\WINDOWS\system32\MSCOMM32.OCX=Yes
C:\WINDOWS\system32\MSCOMIT.DLL=Yes
C:\WINDOWS\system32\MSCAL.OCX=Yes
C:\WINDOWS\system32\MSDATLST.OCX=Yes
C:\WINDOWS\system32\DATLSIT.DLL=Yes
C:\Programmi\KODAKImaging\kodakimg.exe=Yes
C:\WINDOWS\system32\inetcomm.dll=Yes
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=Yes
C:\WINDOWS\system32\crysdtc.ocx=Yes
C:\WINDOWS\system32\MCI32.OCX=Yes
C:\WINDOWS\system32\MCIIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
C:\WINDOWS\system32\VB6STKIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
[Package|Pacchetto di installazione SciP Febbraio 2007|Configure Registry Files]
Applicable=No
[Package|Pacchetto di installazione SciP Febbraio 2007|Configure Remote Servers]
Applicable=No
[Package|Pacchetto di installazione SciP Febbraio 2007|Install Locations]
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=$(AppPath)
C:\WINDOWS\system32\msvbvm60.dll=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\VB6IT.DLL=$(WinSysPath)
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=$(CommonFiles)\designer
C:\WINDOWS\system32\MSSTDFMT.DLL=$(WinSysPath)
C:\WINDOWS\system32\STDFTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSBIND.DLL=$(WinSysPath)
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=$(WinSysPath)
C:\WINDOWS\system32\MSDBRPTR.DLL=$(WinSysPath)
C:\WINDOWS\system32\DBRPRIT.DLL=$(WinSysPath)
C:\WINDOWS\msagent\agentctl.dll=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCT2.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCC2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\COMDLG32.OCX=$(WinSysPath)
C:\WINDOWS\system32\CMDLGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSMAPI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSMPIIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCTL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCMCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSDATGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSHFLXGD.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSHFGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSRDC20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSRDO20.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDOCURS.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDO20IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSADODC.OCX=$(WinSysPath)
C:\WINDOWS\system32\ADODCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\RICHTX32.OCX=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\RCHTXIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\imgscan.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgthumb.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgadmin.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgedit.ocx=$(WinSysPath)
C:\WINDOWS\system32\TABCTL32.OCX=$(WinSysPath)
C:\WINDOWS\system32\TABCTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCHRT20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCH2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSFLXGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\FLXGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMM32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCOMIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCAL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSDATLST.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATLSIT.DLL=$(WinSysPath)
C:\Programmi\KODAKImaging\kodakimg.exe=$(AppPath)
C:\WINDOWS\system32\inetcomm.dll=$(WinSysPath)
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=$(WinSysPath)
C:\WINDOWS\system32\crysdtc.ocx=$(WinSysPath)
C:\WINDOWS\system32\MCI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MCIIT.DLL=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
[Package|Pacchetto di installazione SciP Febbraio 2007|Configure Shared Files]
Applicable=Yes
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=No
C:\Programmi\KODAKImaging\kodakimg.exe=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
[Package|Pacchetto di installazione SciP Febbraio 2007|Distribution]
Type=single
Size=
Title=SciP Febbraio 2007
[Package|Pacchetto di installazione SciP Febbraio 2007|IconGroups]
Group0=SciP Febbraio 2007
PrivateGroup0=-1
Parent0=$(Programs)
[Package|Pacchetto di installazione SciP Febbraio 2007|SciP Febbraio 2007]
Icon1=SciP_2007.02+.exe
Title1=SciP Febbraio 2007
StartIn1=$(AppPath)
Key1=Icon1
[Package|Pacchetto di installazione SciP Febbraio 2007|Package]
PackageFolder=g:\TEMP\SciP\New Scip\Installazione
ProjectFolder=H:\Archivio XPANDING\COMMESSE\ETS____Protocollo\ELABORATI\2007-02
ServerSideCab=
File1=g:\TEMP\SciP\New Scip\Installazione\setup.exe
File2=g:\TEMP\SciP\New Scip\Installazione\Setup.Lst
File3=g:\TEMP\SciP\New Scip\Installazione\SciP_2007.02+.CAB
Handler1=PDWizard.FolderDplySubWiz
Handler2=PDWizard.WebPostDplySubWiz
[Package|Pacchetto di installazione SciP Luglio 2009|Root]
SubWizProgID=PDWizard.SetupPkgSubWiz
BuildFolder=c:\Documents and Settings\Paolo Beretta\Desktop
[Package|Pacchetto di installazione SciP Luglio 2009|Configure DAO ISAMs]
Applicable=No
[Package|Pacchetto di installazione SciP Luglio 2009|Configure DAO ODBC]
JetWorkspace=
ODBCDirect=
[Package|Pacchetto di installazione SciP Luglio 2009|Files Found]
[Package|Pacchetto di installazione SciP Luglio 2009|Files Released]
Rdc20IT.dll=
U2LSAMP1.DLL=
U2LFINRA.DLL=
U2LEXCH.DLL=
U2LESBSE.DLL=
U2LDTS.DLL=
U2LCOM.DLL=
U2LBAR.DLL=
U2L2000.DLL=
U25TOTAL.DLL=
U25STORE.DLL=
U25DTS.DLL=
U2FRDEF.DLL=
CRXLAT32.DLL=
[Package|Pacchetto di installazione SciP Luglio 2009|Missing Dependency Information]
C:\WINDOWS\system32\crysdtc.ocx=
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=
C:\WINDOWS\system32\inetcomm.dll=
C:\Programmi\KODAKImaging\kodakimg.exe=
C:\WINDOWS\system32\imgedit.ocx=
C:\WINDOWS\system32\imgadmin.ocx=
C:\WINDOWS\system32\imgthumb.ocx=
C:\WINDOWS\system32\imgscan.ocx=
C:\WINDOWS\msagent\agentctl.dll=
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=
C:\Programmi\kodak\imgedit.ocx=
C:\Programmi\kodak\imgadmin.ocx=
C:\Programmi\kodak\imgthumb.ocx=
C:\Programmi\kodak\imgscan.ocx=
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=
C:\WINDOWS\kodakimg.exe=
[Package|Pacchetto di installazione SciP Luglio 2009|Out-of-Date Dependency Information]
C:\WINDOWS\system32\MCI32.OCX=
C:\WINDOWS\system32\MSCAL.OCX=
C:\WINDOWS\system32\crystl32.ocx=
C:\WINDOWS\system32\MSCOMCTL.OCX=
[Package|Pacchetto di installazione SciP Luglio 2009|Files Added]
[Package|Pacchetto di installazione SciP Luglio 2009|Files Removed]
[Package|Pacchetto di installazione SciP Luglio 2009|Files In Project]
C:\WINDOWS\system32\msvbvm60.dll=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
C:\WINDOWS\system32\VB6IT.DLL=Yes
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=Yes
C:\WINDOWS\system32\MSSTDFMT.DLL=Yes
C:\WINDOWS\system32\STDFTIT.DLL=Yes
C:\WINDOWS\system32\MSBIND.DLL=Yes
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=Yes
C:\WINDOWS\system32\MSDBRPTR.DLL=Yes
C:\WINDOWS\system32\DBRPRIT.DLL=Yes
C:\WINDOWS\msagent\agentctl.dll=Yes
C:\WINDOWS\system32\MSCOMCT2.OCX=Yes
C:\WINDOWS\system32\MSCC2IT.DLL=Yes
C:\WINDOWS\system32\COMDLG32.OCX=Yes
C:\WINDOWS\system32\CMDLGIT.DLL=Yes
C:\WINDOWS\system32\MSMAPI32.OCX=Yes
C:\WINDOWS\system32\MSMPIIT.DLL=Yes
C:\WINDOWS\system32\MSCOMCTL.OCX=Yes
C:\WINDOWS\system32\MSCMCIT.DLL=Yes
C:\WINDOWS\system32\MSDATGRD.OCX=Yes
C:\WINDOWS\system32\DATGDIT.DLL=Yes
C:\WINDOWS\system32\MSHFLXGD.OCX=Yes
C:\WINDOWS\system32\MSHFGIT.DLL=Yes
C:\WINDOWS\system32\MSRDC20.OCX=Yes
C:\WINDOWS\system32\MSRDO20.DLL=Yes
C:\WINDOWS\system32\RDOCURS.DLL=Yes
C:\WINDOWS\system32\RDO20IT.DLL=Yes
C:\WINDOWS\system32\MSADODC.OCX=Yes
C:\WINDOWS\system32\ADODCIT.DLL=Yes
C:\WINDOWS\system32\RICHTX32.OCX=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=Yes
C:\WINDOWS\system32\RCHTXIT.DLL=Yes
C:\WINDOWS\system32\TABCTL32.OCX=Yes
C:\WINDOWS\system32\TABCTIT.DLL=Yes
C:\WINDOWS\system32\MSCHRT20.OCX=Yes
C:\WINDOWS\system32\MSCH2IT.DLL=Yes
C:\WINDOWS\system32\MSFLXGRD.OCX=Yes
C:\WINDOWS\system32\FLXGDIT.DLL=Yes
C:\WINDOWS\system32\MSCOMM32.OCX=Yes
C:\WINDOWS\system32\MSCOMIT.DLL=Yes
C:\WINDOWS\system32\MSCAL.OCX=Yes
C:\WINDOWS\system32\MSDATLST.OCX=Yes
C:\WINDOWS\system32\DATLSIT.DLL=Yes
C:\WINDOWS\system32\inetcomm.dll=Yes
C:\WINDOWS\system32\crysdtc.ocx=Yes
C:\WINDOWS\system32\MCI32.OCX=Yes
C:\WINDOWS\system32\MCIIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
C:\WINDOWS\system32\VB6STKIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
C:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.exe=Yes
C:\WINDOWS\kodakimg.exe=Yes
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=Yes
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=Yes
C:\Programmi\kodak\imgscan.ocx=Yes
C:\Programmi\kodak\imgthumb.ocx=Yes
C:\Programmi\kodak\imgadmin.ocx=Yes
C:\Programmi\kodak\imgedit.ocx=Yes
C:\WINDOWS\system32\crystl32.ocx=Yes
C:\WINDOWS\system32\crpe32.dll=Yes
C:\WINDOWS\system32\implode.dll=Yes
C:\WINDOWS\system32\ccsdk32.dll=Yes
C:\WINDOWS\system32\crpaig32.dll=Yes
C:\WINDOWS\system32\p2bact.dll=Yes
C:\WINDOWS\system32\p2bbde.dll=Yes
C:\WINDOWS\system32\p2bbnd.dll=Yes
C:\WINDOWS\system32\p2bbtrv.dll=Yes
C:\WINDOWS\system32\p2bdao.dll=Yes
C:\WINDOWS\system32\p2bxbse.dll=Yes
C:\WINDOWS\system32\p2ctbtrv.dll=Yes
C:\WINDOWS\system32\p2ctdao.dll=Yes
C:\WINDOWS\system32\p2iract.dll=Yes
C:\WINDOWS\system32\p2irdao.dll=Yes
C:\WINDOWS\system32\p2ixbse.dll=Yes
C:\WINDOWS\system32\p2lodbc.dll=Yes
C:\WINDOWS\system32\p2oesbse.dll=Yes
C:\WINDOWS\system32\p2sacl.dll=Yes
C:\WINDOWS\system32\p2sdb2.dll=Yes
C:\WINDOWS\system32\p2sevt.dll=Yes
C:\WINDOWS\system32\p2sexsr.dll=Yes
C:\WINDOWS\system32\p2sifmx.dll=Yes
C:\WINDOWS\system32\p2smapi.dll=Yes
C:\WINDOWS\system32\p2smon.dll=Yes
C:\WINDOWS\system32\p2sodbc.dll=Yes
C:\WINDOWS\system32\p2sora7.dll=Yes
C:\WINDOWS\system32\p2soutlk.dll=Yes
C:\WINDOWS\system32\p2srepl.dll=Yes
C:\WINDOWS\system32\p2ssql.dll=Yes
C:\WINDOWS\system32\p2ssyb10.dll=Yes
C:\WINDOWS\system32\p2strack.dll=Yes
C:\WINDOWS\system32\p2swblg.dll=Yes
C:\WINDOWS\system32\u2ddisk.dll=Yes
C:\WINDOWS\system32\u2dmapi.dll=Yes
C:\WINDOWS\system32\u2dnotes.dll=Yes
C:\WINDOWS\system32\u2dpost.dll=Yes
C:\WINDOWS\system32\u2dvim.dll=Yes
C:\WINDOWS\system32\u2fcr.dll=Yes
C:\WINDOWS\system32\u2fdif.dll=Yes
C:\WINDOWS\system32\u2fhtml.dll=Yes
C:\WINDOWS\system32\u2fodbc.dll=Yes
C:\WINDOWS\system32\u2frec.dll=Yes
C:\WINDOWS\system32\u2frtf.dll=Yes
C:\WINDOWS\system32\u2fsepv.dll=Yes
C:\WINDOWS\system32\u2ftext.dll=Yes
C:\WINDOWS\system32\u2fwks.dll=Yes
C:\WINDOWS\system32\u2fwordw.dll=Yes
C:\WINDOWS\system32\u2fxls.dll=Yes
[Package|Pacchetto di installazione SciP Luglio 2009|Configure Registry Files]
Applicable=No
[Package|Pacchetto di installazione SciP Luglio 2009|Configure Remote Servers]
Applicable=No
[Package|Pacchetto di installazione SciP Luglio 2009|Install Locations]
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=$(AppPath)
C:\WINDOWS\system32\msvbvm60.dll=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\VB6IT.DLL=$(WinSysPath)
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=$(CommonFiles)\designer
C:\WINDOWS\system32\MSSTDFMT.DLL=$(WinSysPath)
C:\WINDOWS\system32\STDFTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSBIND.DLL=$(WinSysPath)
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=$(WinSysPath)
C:\WINDOWS\system32\MSDBRPTR.DLL=$(WinSysPath)
C:\WINDOWS\system32\DBRPRIT.DLL=$(WinSysPath)
C:\WINDOWS\msagent\agentctl.dll=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCT2.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCC2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\COMDLG32.OCX=$(WinSysPath)
C:\WINDOWS\system32\CMDLGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSMAPI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSMPIIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCTL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCMCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSDATGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSHFLXGD.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSHFGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSRDC20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSRDO20.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDOCURS.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDO20IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSADODC.OCX=$(WinSysPath)
C:\WINDOWS\system32\ADODCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\RICHTX32.OCX=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\RCHTXIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\imgscan.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgthumb.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgadmin.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgedit.ocx=$(WinSysPath)
C:\WINDOWS\system32\TABCTL32.OCX=$(WinSysPath)
C:\WINDOWS\system32\TABCTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCHRT20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCH2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSFLXGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\FLXGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMM32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCOMIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCAL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSDATLST.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATLSIT.DLL=$(WinSysPath)
C:\Programmi\KODAKImaging\kodakimg.exe=$(AppPath)
C:\WINDOWS\system32\inetcomm.dll=$(WinSysPath)
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=$(WinSysPath)
C:\WINDOWS\system32\crysdtc.ocx=$(WinSysPath)
C:\WINDOWS\system32\MCI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MCIIT.DLL=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
C:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.exe=$(AppPath)
C:\WINDOWS\kodakimg.exe=$(AppPath)
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=$(WinSysPath)
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=$(WinSysPath)
C:\Programmi\kodak\imgscan.ocx=$(WinSysPath)
C:\Programmi\kodak\imgthumb.ocx=$(WinSysPath)
C:\Programmi\kodak\imgadmin.ocx=$(WinSysPath)
C:\Programmi\kodak\imgedit.ocx=$(WinSysPath)
C:\WINDOWS\system32\crystl32.ocx=$(WinSysPath)
C:\WINDOWS\system32\crpe32.dll=$(WinSysPath)
C:\WINDOWS\system32\implode.dll=$(AppPath)
C:\WINDOWS\system32\ccsdk32.dll=$(WinSysPath)
C:\WINDOWS\system32\crpaig32.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bact.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbde.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbnd.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbtrv.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bxbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ctbtrv.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ctdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2iract.dll=$(WinSysPath)
C:\WINDOWS\system32\p2irdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ixbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2lodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\p2oesbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sacl.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sdb2.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sevt.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sexsr.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sifmx.dll=$(WinSysPath)
C:\WINDOWS\system32\p2smapi.dll=$(WinSysPath)
C:\WINDOWS\system32\p2smon.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sora7.dll=$(WinSysPath)
C:\WINDOWS\system32\p2soutlk.dll=$(WinSysPath)
C:\WINDOWS\system32\p2srepl.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ssql.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ssyb10.dll=$(WinSysPath)
C:\WINDOWS\system32\p2strack.dll=$(WinSysPath)
C:\WINDOWS\system32\p2swblg.dll=$(WinSysPath)
C:\WINDOWS\system32\u2ddisk.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dmapi.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dnotes.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dpost.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dvim.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fcr.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fdif.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fhtml.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\u2frec.dll=$(WinSysPath)
C:\WINDOWS\system32\u2frtf.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fsepv.dll=$(WinSysPath)
C:\WINDOWS\system32\u2ftext.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fwks.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fwordw.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fxls.dll=$(WinSysPath)
[Package|Pacchetto di installazione SciP Luglio 2009|Configure Shared Files]
Applicable=Yes
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=No
C:\Programmi\KODAKImaging\kodakimg.exe=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
C:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.exe=No
C:\WINDOWS\kodakimg.exe=Yes
C:\WINDOWS\system32\implode.dll=Yes
[Package|Pacchetto di installazione SciP Luglio 2009|Distribution]
Type=single
Size=
Title=SciP Luglio 2009
[Package|Pacchetto di installazione SciP Luglio 2009|IconGroups]
Group0=SciP Luglio 2009
PrivateGroup0=-1
Parent0=$(Programs)
[Package|Pacchetto di installazione SciP Luglio 2009|SciP Luglio 2009]
Icon1=SciP_luglio2009.exe
Title1=SciP Luglio 2009
StartIn1=$(AppPath)
Key1=Icon1
[Package|Pacchetto di installazione SciP Luglio 2009|Package]
PackageFolder=c:\Documents and Settings\Paolo Beretta\Desktop
ProjectFolder=C:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\luglio 2009
ServerSideCab=
File1=c:\Documents and Settings\Paolo Beretta\Desktop\setup.exe
File2=c:\Documents and Settings\Paolo Beretta\Desktop\Setup.Lst
File3=c:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.CAB
Handler1=PDWizard.FolderDplySubWiz
Handler2=PDWizard.WebPostDplySubWiz
[Package|SciP Aprile 2010 Pacchetto di installazione|Root]
SubWizProgID=PDWizard.SetupPkgSubWiz
BuildFolder=c:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP
[Package|SciP Aprile 2010 Pacchetto di installazione|Configure DAO ISAMs]
Applicable=No
[Package|SciP Aprile 2010 Pacchetto di installazione|Configure DAO ODBC]
JetWorkspace=
ODBCDirect=
[Package|SciP Aprile 2010 Pacchetto di installazione|Files Found]
[Package|SciP Aprile 2010 Pacchetto di installazione|Files Released]
Rdc20IT.dll=
U2LSAMP1.DLL=
U2LFINRA.DLL=
U2LEXCH.DLL=
U2LESBSE.DLL=
U2LDTS.DLL=
U2LCOM.DLL=
U2LBAR.DLL=
U2L2000.DLL=
U25TOTAL.DLL=
U25STORE.DLL=
U25DTS.DLL=
U2FRDEF.DLL=
CRXLAT32.DLL=
[Package|SciP Aprile 2010 Pacchetto di installazione|Missing Dependency Information]
C:\WINDOWS\system32\crysdtc.ocx=
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=
C:\WINDOWS\system32\inetcomm.dll=
C:\Programmi\KODAKImaging\kodakimg.exe=
C:\WINDOWS\system32\imgedit.ocx=
C:\WINDOWS\system32\imgadmin.ocx=
C:\WINDOWS\system32\imgthumb.ocx=
C:\WINDOWS\system32\imgscan.ocx=
C:\WINDOWS\msagent\agentctl.dll=
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=
C:\Programmi\kodak\imgedit.ocx=
C:\Programmi\kodak\imgadmin.ocx=
C:\Programmi\kodak\imgthumb.ocx=
C:\Programmi\kodak\imgscan.ocx=
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=
C:\WINDOWS\kodakimg.exe=
[Package|SciP Aprile 2010 Pacchetto di installazione|Out-of-Date Dependency Information]
C:\WINDOWS\system32\MCI32.OCX=
C:\WINDOWS\system32\MSCAL.OCX=
C:\WINDOWS\system32\crystl32.ocx=
C:\WINDOWS\system32\MSCOMCTL.OCX=
[Package|SciP Aprile 2010 Pacchetto di installazione|Files Added]
[Package|SciP Aprile 2010 Pacchetto di installazione|Files Removed]
c:\windows\system32\crysdtc.ocx=
c:\windows\system32\crystl32.ocx=
[Package|SciP Aprile 2010 Pacchetto di installazione|Files In Project]
C:\WINDOWS\system32\msvbvm60.dll=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
C:\WINDOWS\system32\VB6IT.DLL=Yes
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=Yes
C:\WINDOWS\system32\MSSTDFMT.DLL=Yes
C:\WINDOWS\system32\STDFTIT.DLL=Yes
C:\WINDOWS\system32\MSBIND.DLL=Yes
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=Yes
C:\WINDOWS\system32\MSDBRPTR.DLL=Yes
C:\WINDOWS\system32\DBRPRIT.DLL=Yes
C:\WINDOWS\msagent\agentctl.dll=Yes
C:\WINDOWS\system32\MSCOMCT2.OCX=Yes
C:\WINDOWS\system32\MSCC2IT.DLL=Yes
C:\WINDOWS\system32\COMDLG32.OCX=Yes
C:\WINDOWS\system32\CMDLGIT.DLL=Yes
C:\WINDOWS\system32\MSMAPI32.OCX=Yes
C:\WINDOWS\system32\MSMPIIT.DLL=Yes
C:\WINDOWS\system32\MSCOMCTL.OCX=Yes
C:\WINDOWS\system32\MSCMCIT.DLL=Yes
C:\WINDOWS\system32\MSDATGRD.OCX=Yes
C:\WINDOWS\system32\DATGDIT.DLL=Yes
C:\WINDOWS\system32\MSHFLXGD.OCX=Yes
C:\WINDOWS\system32\MSHFGIT.DLL=Yes
C:\WINDOWS\system32\MSRDC20.OCX=Yes
C:\WINDOWS\system32\MSRDO20.DLL=Yes
C:\WINDOWS\system32\RDOCURS.DLL=Yes
C:\WINDOWS\system32\RDO20IT.DLL=Yes
C:\WINDOWS\system32\MSADODC.OCX=Yes
C:\WINDOWS\system32\ADODCIT.DLL=Yes
C:\WINDOWS\system32\RICHTX32.OCX=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=Yes
C:\WINDOWS\system32\RCHTXIT.DLL=Yes
C:\WINDOWS\system32\TABCTL32.OCX=Yes
C:\WINDOWS\system32\TABCTIT.DLL=Yes
C:\WINDOWS\system32\MSCHRT20.OCX=Yes
C:\WINDOWS\system32\MSCH2IT.DLL=Yes
C:\WINDOWS\system32\MSFLXGRD.OCX=Yes
C:\WINDOWS\system32\FLXGDIT.DLL=Yes
C:\WINDOWS\system32\MSCOMM32.OCX=Yes
C:\WINDOWS\system32\MSCOMIT.DLL=Yes
C:\WINDOWS\system32\MSCAL.OCX=Yes
C:\WINDOWS\system32\MSDATLST.OCX=Yes
C:\WINDOWS\system32\DATLSIT.DLL=Yes
C:\WINDOWS\system32\inetcomm.dll=Yes
C:\WINDOWS\system32\crysdtc.ocx=No
C:\WINDOWS\system32\MCI32.OCX=Yes
C:\WINDOWS\system32\MCIIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
C:\WINDOWS\system32\VB6STKIT.DLL=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
C:\WINDOWS\kodakimg.exe=Yes
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=Yes
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=Yes
C:\Programmi\kodak\imgscan.ocx=Yes
C:\Programmi\kodak\imgthumb.ocx=Yes
C:\Programmi\kodak\imgadmin.ocx=Yes
C:\Programmi\kodak\imgedit.ocx=Yes
C:\WINDOWS\system32\crystl32.ocx=No
C:\WINDOWS\system32\crpe32.dll=Yes
C:\WINDOWS\system32\implode.dll=Yes
C:\WINDOWS\system32\ccsdk32.dll=Yes
C:\WINDOWS\system32\crpaig32.dll=Yes
C:\WINDOWS\system32\p2bact.dll=Yes
C:\WINDOWS\system32\p2bbde.dll=Yes
C:\WINDOWS\system32\p2bbnd.dll=Yes
C:\WINDOWS\system32\p2bbtrv.dll=Yes
C:\WINDOWS\system32\p2bdao.dll=Yes
C:\WINDOWS\system32\p2bxbse.dll=Yes
C:\WINDOWS\system32\p2ctbtrv.dll=Yes
C:\WINDOWS\system32\p2ctdao.dll=Yes
C:\WINDOWS\system32\p2iract.dll=Yes
C:\WINDOWS\system32\p2irdao.dll=Yes
C:\WINDOWS\system32\p2ixbse.dll=Yes
C:\WINDOWS\system32\p2lodbc.dll=Yes
C:\WINDOWS\system32\p2oesbse.dll=Yes
C:\WINDOWS\system32\p2sacl.dll=Yes
C:\WINDOWS\system32\p2sdb2.dll=Yes
C:\WINDOWS\system32\p2sevt.dll=Yes
C:\WINDOWS\system32\p2sexsr.dll=Yes
C:\WINDOWS\system32\p2sifmx.dll=Yes
C:\WINDOWS\system32\p2smapi.dll=Yes
C:\WINDOWS\system32\p2smon.dll=Yes
C:\WINDOWS\system32\p2sodbc.dll=Yes
C:\WINDOWS\system32\p2sora7.dll=Yes
C:\WINDOWS\system32\p2soutlk.dll=Yes
C:\WINDOWS\system32\p2srepl.dll=Yes
C:\WINDOWS\system32\p2ssql.dll=Yes
C:\WINDOWS\system32\p2ssyb10.dll=Yes
C:\WINDOWS\system32\p2strack.dll=Yes
C:\WINDOWS\system32\p2swblg.dll=Yes
C:\WINDOWS\system32\u2ddisk.dll=Yes
C:\WINDOWS\system32\u2dmapi.dll=Yes
C:\WINDOWS\system32\u2dnotes.dll=Yes
C:\WINDOWS\system32\u2dpost.dll=Yes
C:\WINDOWS\system32\u2dvim.dll=Yes
C:\WINDOWS\system32\u2fcr.dll=Yes
C:\WINDOWS\system32\u2fdif.dll=Yes
C:\WINDOWS\system32\u2fhtml.dll=Yes
C:\WINDOWS\system32\u2fodbc.dll=Yes
C:\WINDOWS\system32\u2frec.dll=Yes
C:\WINDOWS\system32\u2frtf.dll=Yes
C:\WINDOWS\system32\u2fsepv.dll=Yes
C:\WINDOWS\system32\u2ftext.dll=Yes
C:\WINDOWS\system32\u2fwks.dll=Yes
C:\WINDOWS\system32\u2fwordw.dll=Yes
C:\WINDOWS\system32\u2fxls.dll=Yes
C:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\aprile 2010\SciP_20100915.exe=Yes
[Package|SciP Aprile 2010 Pacchetto di installazione|Configure Registry Files]
Applicable=No
[Package|SciP Aprile 2010 Pacchetto di installazione|Configure Remote Servers]
Applicable=No
[Package|SciP Aprile 2010 Pacchetto di installazione|Install Locations]
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=$(AppPath)
C:\WINDOWS\system32\msvbvm60.dll=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\VB6IT.DLL=$(WinSysPath)
C:\Programmi\File comuni\DESIGNER\MSDERUN.DLL=$(CommonFiles)\designer
C:\WINDOWS\system32\MSSTDFMT.DLL=$(WinSysPath)
C:\WINDOWS\system32\STDFTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSBIND.DLL=$(WinSysPath)
C:\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB=$(WinSysPath)
C:\WINDOWS\system32\MSDBRPTR.DLL=$(WinSysPath)
C:\WINDOWS\system32\DBRPRIT.DLL=$(WinSysPath)
C:\WINDOWS\msagent\agentctl.dll=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCT2.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCC2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\COMDLG32.OCX=$(WinSysPath)
C:\WINDOWS\system32\CMDLGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSMAPI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSMPIIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMCTL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCMCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSDATGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSHFLXGD.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSHFGIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSRDC20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSRDO20.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDOCURS.DLL=$(WinSysPath)
C:\WINDOWS\system32\RDO20IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSADODC.OCX=$(WinSysPath)
C:\WINDOWS\system32\ADODCIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\RICHTX32.OCX=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\RICHED32.DLL=$(WinSysPathSysFile)
C:\WINDOWS\system32\RCHTXIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\imgscan.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgthumb.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgadmin.ocx=$(WinSysPath)
C:\WINDOWS\system32\imgedit.ocx=$(WinSysPath)
C:\WINDOWS\system32\TABCTL32.OCX=$(WinSysPath)
C:\WINDOWS\system32\TABCTIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCHRT20.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCH2IT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSFLXGRD.OCX=$(WinSysPath)
C:\WINDOWS\system32\FLXGDIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCOMM32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSCOMIT.DLL=$(WinSysPath)
C:\WINDOWS\system32\MSCAL.OCX=$(WinSysPath)
C:\WINDOWS\system32\MSDATLST.OCX=$(WinSysPath)
C:\WINDOWS\system32\DATLSIT.DLL=$(WinSysPath)
C:\Programmi\KODAKImaging\kodakimg.exe=$(AppPath)
C:\WINDOWS\system32\inetcomm.dll=$(WinSysPath)
\\Xpanding\backup ets\Archivio XPANDING\COMMESSE\ETS____Fatturazione\ELABORATI\09 Gennaio 2005\crystl32.ocx=$(WinSysPath)
C:\WINDOWS\system32\crysdtc.ocx=$(WinSysPath)
C:\WINDOWS\system32\MCI32.OCX=$(WinSysPath)
C:\WINDOWS\system32\MCIIT.DLL=$(WinSysPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
C:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.exe=$(AppPath)
C:\WINDOWS\kodakimg.exe=$(AppPath)
C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll=$(WinSysPath)
C:\Programmi\File comuni\Microsoft Shared\web server extensions\40\bin\FP4AWEC.DLL=$(WinSysPath)
C:\Programmi\kodak\imgscan.ocx=$(WinSysPath)
C:\Programmi\kodak\imgthumb.ocx=$(WinSysPath)
C:\Programmi\kodak\imgadmin.ocx=$(WinSysPath)
C:\Programmi\kodak\imgedit.ocx=$(WinSysPath)
C:\WINDOWS\system32\crystl32.ocx=$(WinSysPath)
C:\WINDOWS\system32\crpe32.dll=$(WinSysPath)
C:\WINDOWS\system32\implode.dll=$(AppPath)
C:\WINDOWS\system32\ccsdk32.dll=$(WinSysPath)
C:\WINDOWS\system32\crpaig32.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bact.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbde.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbnd.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bbtrv.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2bxbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ctbtrv.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ctdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2iract.dll=$(WinSysPath)
C:\WINDOWS\system32\p2irdao.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ixbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2lodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\p2oesbse.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sacl.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sdb2.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sevt.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sexsr.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sifmx.dll=$(WinSysPath)
C:\WINDOWS\system32\p2smapi.dll=$(WinSysPath)
C:\WINDOWS\system32\p2smon.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\p2sora7.dll=$(WinSysPath)
C:\WINDOWS\system32\p2soutlk.dll=$(WinSysPath)
C:\WINDOWS\system32\p2srepl.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ssql.dll=$(WinSysPath)
C:\WINDOWS\system32\p2ssyb10.dll=$(WinSysPath)
C:\WINDOWS\system32\p2strack.dll=$(WinSysPath)
C:\WINDOWS\system32\p2swblg.dll=$(WinSysPath)
C:\WINDOWS\system32\u2ddisk.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dmapi.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dnotes.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dpost.dll=$(WinSysPath)
C:\WINDOWS\system32\u2dvim.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fcr.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fdif.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fhtml.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fodbc.dll=$(WinSysPath)
C:\WINDOWS\system32\u2frec.dll=$(WinSysPath)
C:\WINDOWS\system32\u2frtf.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fsepv.dll=$(WinSysPath)
C:\WINDOWS\system32\u2ftext.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fwks.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fwordw.dll=$(WinSysPath)
C:\WINDOWS\system32\u2fxls.dll=$(WinSysPath)
C:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\aprile 2010\SciP_20100915.exe=$(AppPath)
[Package|SciP Aprile 2010 Pacchetto di installazione|Configure Shared Files]
Applicable=Yes
\\Servernt\r\TEMP\SciP\New Scip\SciP_2007.02+.exe=No
C:\Programmi\KODAKImaging\kodakimg.exe=Yes
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=Yes
C:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.exe=No
C:\WINDOWS\kodakimg.exe=Yes
C:\WINDOWS\system32\implode.dll=Yes
C:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\aprile 2010\SciP_20100915.exe=No
[Package|SciP Aprile 2010 Pacchetto di installazione|Distribution]
Type=single
Size=
Title=SciP Aprile 2010
[Package|SciP Aprile 2010 Pacchetto di installazione|IconGroups]
Group0=SciP Aprile 2010
PrivateGroup0=-1
Parent0=$(Programs)
[Package|SciP Aprile 2010 Pacchetto di installazione|SciP Aprile 2010]
Icon1=SciP_luglio2009.exe
Title1=SciP Aprile 2010
StartIn1=$(AppPath)
Key1=Icon1
[Package|SciP Aprile 2010 Pacchetto di installazione|Package]
PackageFolder=c:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP
ProjectFolder=C:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\aprile 2010
ServerSideCab=
File1=c:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\setup.exe
File2=c:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\Setup.Lst
File3=c:\Documents and Settings\Paolo Beretta\Desktop\codice sw\SciP\SciP_20100915.CAB
Handler1=PDWizard.FolderDplySubWiz
Handler2=PDWizard.WebPostDplySubWiz
+5
View File
@@ -0,0 +1,5 @@
Il file .cab dell'applicazione è stato creato come 'c:\Documents and Settings\Paolo Beretta\Desktop\beta_SciP.CAB'.
Nella directory di supporto (c:\Documents and Settings\Paolo Beretta\Desktop\Support\beta_SciP.BAT) è inoltre disponibile un file batch che consente di ricreare il file .cab se vengono apportate modifiche a uno o più file.
Nel pacchetto di installazione è stato incluso il file Mdac_typ.exe. Se il pacchetto verrà installato in un sistema Windows 95/98, dovrà essere installato in modo appropriato DCOM98.
+90
View File
@@ -0,0 +1,90 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Reference=*\G{3D5C6BF0-69A3-11D0-B393-00A0C9055D8E}#1.0#0#..\..\..\..\..\..\Programmi\File comuni\designer\MSDERUN.DLL#Microsoft Data Environment Instance 1.0
Reference=*\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#..\..\..\..\..\..\Programmi\File comuni\System\ADO\msado25.tlb#Microsoft ActiveX Data Objects 2.0 Library
Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\MSSTDFMT.DLL#Microsoft Data Formatting Object Library
Reference=*\G{56BF9020-7A2F-11D0-9482-00A0C91110ED}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\MSBIND.DLL#Microsoft Data Binding Collection VB 6.0 (SP4)
Reference=*\G{00020905-0000-0000-C000-000000000046}#8.1#0#..\..\..\..\..\..\Programmi\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 9.0 Object Library
Reference=*\G{642AC760-AAB4-11D0-8494-00A0C90DC8A9}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\MSDBRPTR.DLL#Microsoft Data Report Designer 6.0 (SP4)
Object={F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0; agentctl.dll
Object=Imaging.Document; kodakimg.exe
Object=Paint.Picture; mspaint.exe
Object=OutlookExpress.MimeEdit.1; inetcomm.dll
Reference=*\G{E64169B3-3592-47D2-816E-602C5C13F328}#1.1#0#..\..\..\..\..\..\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.dll#Adobe Acrobat 7.0 Type Library
Reference=*\G{F6FD0A0C-43F0-11D1-BE58-00A0C90A4335}#2.0#0#..\..\..\..\..\..\PROGRA~1\FILECO~1\MICROS~1\WEBSER~1\40\bin\FP4AWEC.DLL#FPAPI 2.0 Type Library
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={84926CA3-2941-101C-816F-0E6013114B7F}#1.0#0; imgscan.ocx
Object={E1A6B8A3-3603-101C-AC6E-040224009C02}#1.0#0; imgthumb.ocx
Object={009541A3-3B81-101C-92F3-040224009C02}#2.1#0; imgadmin.ocx
Object={6D940288-9F11-11CE-83FD-02608C3EC08A}#2.2#0; imgedit.ocx
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
Object={8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0; MSCAL.OCX
Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
Object={00025600-0000-0000-C000-000000000046}#5.2#0; crystl32.ocx
Object={BC8817B1-1A82-11D1-88BE-00A0C9311D28}#1.0#0; crysdtc.ocx
Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
Module=Objects; ModObjects.bas
Form=FrmMenu.frm
Form=FrmObj.frm
Class=Albero; ClAlbero.cls
Form=FrmElencoCommesse.frm
Form=FrmSysManMenu.frm
Form=FrmElencoDocumenti.frm
Form=FrmAcquisizioneScanner.frm
Module=FileCfg; ModFileCfg.bas
Module=DB; ModDB.bas
Class=Documento; ClDocumento.cls
Form=FrmSySManSettings.frm
Form=FrmLogin.frm
Form=FrmElencoSocieta.frm
Form=FrmInserimento.frm
Class=Societa; ClSocieta.cls
Form=FrmSysManModelli.frm
Class=Pianificazione; ClPianificazione.cls
Form=FrmChiusuraFase.frm
Form=FrmEditing.frm
IconForm="Menu"
Startup="Login"
HelpFile=""
Title="ETS"
ExeName32="SciP_20110922.exe"
Command32=""
Name="SciP"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=" "
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0
[MS Transaction Server]
AutoRefresh=1
+20
View File
@@ -0,0 +1,20 @@
Objects = 11, 6, 960, 705, C
Menu = 198, 198, 736, 646, C, 176, 176, 714, 624, C
Obj = 44, 44, 592, 520, C, 88, 88, 626, 536, C
Albero = 1, 0, 1026, 682, C
ElencoCommesse = 110, 110, 691, 558, C, -62, 19, 519, 466, C
SySManMenu = 142, 63, 690, 512, C, 22, 22, 570, 470, C
ElencoDocumenti = 3, 1, 1025, 729, C, 44, 44, 591, 492, C
AcquisizioneScanner = 176, 176, 714, 624, C, 66, 66, 751, 514, C
FileCfg = 9, 7, 970, 717, C
DB = 4, 60, 1024, 773, C
Documento = 132, 132, 670, 580, C
SySManSettings = 66, 66, 604, 514, C, 154, 154, 692, 602, C
Login = 110, 110, 648, 558, C, 88, 88, 626, 536, C
ElencoSocieta = 132, 132, 679, 608, C, 110, 110, 658, 586, C
Inserimento = 88, 88, 636, 564, C, 66, 66, 614, 542, C
Societa = 132, 132, 680, 608, C
SysManModelli = 132, 132, 680, 608, C, 110, 110, 658, 586, C
Pianificazione = 44, 44, 790, 605, C
ChiusuraFase = 264, 264, 1010, 825, C, 198, 198, 944, 759, C
Editing = 154, 154, 693, 600, C, 110, 110, 649, 556, C
Binary file not shown.
+9
View File
@@ -0,0 +1,9 @@
ProviderSciP = SQLOLEDB.1
NomeDbSciP = SciP_Prova
TabBinaryDoc = TbBinary
NS_DD_SciP = XPANDING
ProviderStorico = SQLOLEDB.1
NomeDbStorico =
NS_DD_Storico = XPANDING
Documents_Path_SciP = c:\
ImageViewer_Path = C:\WINDOWS\KODAKIMG.EXE
+9
View File
@@ -0,0 +1,9 @@
ProviderSciP = SQLOLEDB.1
NomeDbSciP = SciP
TabBinaryDoc = TbBinary
NS_DD_SciP = XPANDING
ProviderStorico = SQLOLEDB.1
NomeDbStorico =
NS_DD_Storico = XPANDING
Documents_Path_SciP = \\servernt\f\archets
ImageViewer_Path = C:\WINDOWS\KODAKIMG.EXE
Binary file not shown.

After

Width:  |  Height:  |  Size: 37 KiB