Example Product Rule - Log File Maintenance

Scenario: A log file is created or appended to for production samples, that is, where the client code is PRODUCTION.

Sub Main ()

'Maintain a log file

dim oFS

dim oTS

cDataDir = "C:\CCLASELSQL\"

On Error Resume Next

MsgBox "Product Rules " & Chr(13) & Chr(10) & cstr(Now()) & " " & Current.Pro_Job & " " _

& Current.Sampletype & " " & current.Sampleident & " " & current.Sch_Code

if clsbdprofjob.ProfJob.Cli_Code = "PRODUCTION" then

Set oFS = CreateObject ("Scripting.FileSystemObject")

If oFS.FileExists (cDataDir & "\LOGS\SAMPLES.LOG") Then

set oTS = oFS.OpenTextFile (cDataDir & "\LOGS\SAMPLES.LOG", 8)

Else

set oTS = oFS.CreateTextFile (cDataDir & "\LOGS\SAMPLES.LOG")

End If

oTS.WriteLine cstr(Now()) & "," & Current.Pro_Job & "," & Current.Sampletype & "," & _

current.Sampleident & "," & current.Sch_Code

oTS.Close

Set oTS = Nothing

set oFS = Nothing

End If

End Sub