ð? Send EMailþ'Send email message EMail.MailFrom="[PUT FROM EMAIL ADDRESS HERE]" EMail.MailTo="[PUT TO EMAIL ADDRESS HERE]" EMail.Subject="[PUT SUBJECT HERE]" EMail.Message="[PUT MESSAGE HERE]" EMail.MailServer="[PUT SMTP MAIL SERVER NAME HERE]" EMail.SendMail Simple Data LookupKSet dbe = CreateObject("DAO.DBEngine.36") Set db = dbe.OpenDatabase("[Database location and name]") SQLQuery = "SELECT * FROM [Table] WHERE [Field] ='[Value]'" Set ds = db.OpenRecordset(SQLQuery) If (ds.EOF And ds.BOF) Then msgbox Else CurrentState.SymbolTable.SetSymbolValue "[Symbol]",ds("[FIELD]") End If Set a symbol valueT'Set symbol value CurrentState.SymbolTable.SetSymbolValue "[Symbol name]","[Value]"Disable the PREVIOUS Button J'Previous button is disabled CURRENTFORM.COMMAND_PREVIOUS.ENABLED = FalseAdd Data to the top of the formd'Adds information in symbol "CAPTION" to title bar of form CurrentForm.Caption = "<>" Delete from table+Set dbe = CreateObject("DAO.DBEngine.36") 'Deletes data from database Set db = dbe.OpenDatabase("[Database]") SQLQuery = "DELETE *" SQLQuery = SQLQuery + " FROM [Table_Name]" SQLQuery = SQLQuery + " WHERE [Field]='[Value]'" SQLQuery = SQLQuery + " AND [Field]='[Value]'" db.Execute SQLQuery #Convert todays date to 6 digit dateê'Converts today to 6 digits m = cstr(month(now())) d = cstr(day(now())) y = right(cstr(year(now())),2) If cint(m) <= 9 Then m = "0" & m End If If cint(d) <= 9 Then d = "0" & d End If date6 = m & d & y 'msgbox date6 Udate QuerySet dbe = CreateObject("DAO.DBEngine.36") Set db = dbe.OpenDatabase("[DATABASE location and name]") SQLUpdate = "UPDATE [Table] " SQLUPDATE = SQLUPDATE + "set [[Field]] = '[Value]' " SQLUPDATE = SQLUPDATE + "where [Field] = '[Value]'" db.execute sqlupdate Echo "*" during data entryR'Input box of question form echos *s CurrentForm.Text_Answer.PasswordChar = "*" EXIT SCRIPTB'Exit from rule file On Error Resume Next ScriptUtils.ExitScriptChoices from databaseôSet dbe = CreateObject("DAO.DBEngine.36") 'Set [DATABASE] = to path and name of database to open Set db = dbe.OpenDatabase("[DATABASE]") 'Create SQL query using table, field names from database SQLQuery = "SELECT * FROM [Table_Name] WHERE [Field] = [Value]" Set ds = db.OpenRecordset(SQLQuery) 'If data is returned then add as choices While Not ds.eof Choice.UserTextExp = utext Choice.ValueExp = ds("[Field]") CurrentObject.AddChoice Choice ds.movenext Wend Form Properties'Set layout of choice form currentform.list_choices.font="Courier" currentform.list_choices.font.bold="True" currentform.list_choices.font.size = 8 currentform.WIDTH=6000 currentform.LIST_CHOICES.WIDTH=5000 currentform.TEXT_QUESTION.WIDTH=5000 currentform.wlframe1.width=5820 Open .dbf file·Set dbe = CreateObject("DAO.DBEngine.36") 'Opens dbf file for use Set db = dbe.OpenDatabase("[Path]", False, False, "dBase III;") Set ds = db.OpenRecordset("[dBASE file name]") ODBCOSet dbe = CreateObject("DAO.DBEngine.36") 'ODBC connection into FS (use m:\mfgsys\FSTABLES.SQL to determine table and field names) Set db = dbe.OpenDatabase("MSS-Fourth Shift",dbDriverCompleteRequired, True,"ODBC;uid=AAA;pwd=ADMIN") SQLQuery = "SELECT * FROM [TABLE] WHERE [FIELD] = [VALUE]" Set ds = db.OpenRecordset(SQLQuery) Cancel nextV'Keeps the rule file from progessing to the next object ScriptUtils.CancelNext = TrueValidates @ in e-mailÞ'Checks string to find '@' symbol for e-mail validation If instr(1,"[STRING]","@",1) > 0 Then '@ symbol found Else '@ symbol not found msgbox ("Invalid email address.") scriptutils.cancelnext = True End If Open Import file for appendingX'Open file to write, then close Dim fso, MyFile Set fso = CreateObject("AMSFileSupport.AMSFileSystem") Set MyFile = fso.OpenFile("[Path and file name]", fso.ForAppending) a = "MOMT00,,,,,,,MO Number,Plnr,,Gateway WC,Deliver To,,(text line1)," a = a & "(text line2),(text line3),(text line4)" MyFile.WriteLine(a) MyFile.CloseFile Convert date to 6 digitsÓ'Converts promise delivery date to 6 digits d = split("<>","/",-1,0) If d(0) <= 9 Then d(0) = "0" & d(0) End If If d(1) <= 9 Then d(1) = "0" & d(1) End If date6 = d(0) & d(1) & d(2) Msgbox with script exit—'Message box that allows for rule file exit ans = msgbox (message,1) If ans = 2 Then On Error Resume Next SCRIPTUTILS.ExitSCRIPT End If SQLAppendSet dbe = CreateObject("DAO.DBEngine.36") Set dc = dbe.OpenDatabase("[DATABASE location and name]") SQLAppend = "INSERT INTO [Table] ([Field1], [Field2], [Field3])" SQLAppend = SQLAppend & " Values ('[Value1]','[Value2]','[Value3]') dc.execute SQLAppend File searchÀ'Search for file Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("[File path and Name]") Then msgbox "File found." Else msgbox "File not found." End If Logged into FS‚'Searches for fsuser.sem to determine if logged into FS 'No longer valid in release 7.10 of Fourth Shift Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists("c:\fsuser\fsuser.sem")) Then CurrentState.SymbolTable.SetSymbolValue "FS_flag",1 flag = 1 Else CurrentState.SymbolTable.SetSymbolValue "FS_flag",0 flag = 0 End If Get symbol value2CurrentState.SymbolTable.GetSymbolValue "[symbol]"Multi-line (note) entryC'Change form properties to allow for better looking note entry 'Set layout of choice form CurrentForm.Text_Answer.Height=1000 CurrentForm.Text_Conditions.Visible=False CurrentForm.Label3.Visible=False CurrentForm.Text_Answer.Multiline=True CurrentForm.Text_Answer.Scrollbars=2 CurrentForm.Text_Answer.Maxlength=255 Move date‰'Changes prom_dlvry date to most recent Monday and saves as prom_dock prom_dlvry = left(ds("prom_dlvry"),2) & "/" & mid(ds("prom_dlvry"),3,2) & "/" & right(ds("prom_dlvry"),2) wday = weekday(prom_dlvry) Select Case wday Case 1 'SUNDAY move to last Monday***** d = dateadd("d",-6,prom_dlvry) prom_dock = FormatDateTime(d, 2) Case 2 'Monday, leave prom dock same prom_dock = FormatDateTime(prom_dlvry, 2) Case Else 'Other,move to Monday of current week move_date = 2 - wday d = dateadd("d",move_date,prom_dlvry) prom_dock = FormatDateTime(d,2) End SelectPrefill line number with zerosŽ'Prefill line numbers with zeros; needed for most Fourth Shift imports co_line = string((3 - len(ds("co_ln_no"))),"0") & cstr(ds("co_ln_no"))BusinessDays diffü'Calculates number of weekdays between two dates difference = DateDiff("d", dateFirst, dateSecond) starting = WeekDay(dateFirst) For x = 1 To Abs(WORKDAYS) If starting > 1 And starting < 7 Then counter = counter + 1 End If If difference < 0 Then starting = starting - 1 Else starting = starting + 1 End If If starting > 7 Then starting = 1 If starting < 1 Then starting = 7 Next x If difference < 0 Then counter = counter * -1