API tools faq
paste
Advertisement
penright

Untitled

penright
Oct 3rd, 2023
1,078
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 56.08 KB | None | 0 0
raw download clone embed print report
  1.     Sub FixKitchen()
  2.  
  3.         Dim KitchenIni As New PrivateIniFile("c:\iris\ini\kitchen.ini")
  4.  
  5.         'Clear Monitors Numbers
  6.         For xLoop As Integer = 1 To 99
  7.             KitchenIni.DeleteKey("Monitors", xLoop.ToString)
  8.  
  9.         Next
  10.         'Clear Forwarding Mask
  11.         KitchenIni.DeleteKey("Grill", "ForwardingMask")
  12.         KitchenIni.DeleteKey("GrillTop", "ForwardingMask")
  13.         KitchenIni.DeleteKey("GrillBottom", "ForwardingMask")
  14.         KitchenIni.DeleteKey("HvGrillTop", "ForwardingMask")
  15.         KitchenIni.DeleteKey("HvGrillBottom", "ForwardingMask")
  16.         KitchenIni.DeleteKey("Grill3", "ForwardingMask")
  17.         KitchenIni.DeleteKey("GrillTop3", "ForwardingMask")
  18.         KitchenIni.DeleteKey("GrillBottom3", "ForwardingMask")
  19.         KitchenIni.DeleteKey("Grill<2>", "ForwardingMask")
  20.         KitchenIni.DeleteKey("GrillTop<2>", "ForwardingMask")
  21.         KitchenIni.DeleteKey("GrillBottom<2>", "ForwardingMask")
  22.         KitchenIni.DeleteKey("HvGrillTop<2>", "ForwardingMask")
  23.         KitchenIni.DeleteKey("HvGrillBottom<2>", "ForwardingMask")
  24.         KitchenIni.DeleteKey("Grill3<2>", "ForwardingMask")
  25.         KitchenIni.DeleteKey("GrillTop3<2>", "ForwardingMask")
  26.         KitchenIni.DeleteKey("GrillBottom3<2>", "ForwardingMask")
  27.         KitchenIni.DeleteKey("Grill<3>", "ForwardingMask")
  28.         KitchenIni.DeleteKey("GrillTop<3>", "ForwardingMask")
  29.         KitchenIni.DeleteKey("GrillBottom<3>", "ForwardingMask")
  30.         KitchenIni.DeleteKey("HvGrillTop<3>", "ForwardingMask")
  31.         KitchenIni.DeleteKey("HvGrillBottom<3>", "ForwardingMask")
  32.         KitchenIni.DeleteKey("Grill3<3>", "ForwardingMask")
  33.         KitchenIni.DeleteKey("GrillTop3<3>", "ForwardingMask")
  34.         KitchenIni.DeleteKey("GrillBottom3<3>", "ForwardingMask")
  35.         KitchenIni.DeleteKey("Expedite", "ForwardingMask")
  36.         KitchenIni.DeleteKey("Expedite2", "ForwardingMask")
  37.         KitchenIni.DeleteKey("Drive", "ForwardingMask")
  38.         KitchenIni.DeleteKey("Drive2", "ForwardingMask")
  39.         KitchenIni.DeleteKey("Fountain", "ForwardingMask")
  40.         KitchenIni.DeleteKey("FountainTop", "ForwardingMask")
  41.         KitchenIni.DeleteKey("FountainBottom", "ForwardingMask")
  42.         KitchenIni.DeleteKey("Fountain2", "ForwardingMask")
  43.         KitchenIni.DeleteKey("FountainTop2", "ForwardingMask")
  44.         KitchenIni.DeleteKey("FountainBottom2", "ForwardingMask")
  45.         KitchenIni.DeleteKey("Fry", "ForwardingMask")
  46.         KitchenIni.DeleteKey("FryTop", "ForwardingMask")
  47.         KitchenIni.DeleteKey("FryBottom", "ForwardingMask")
  48.  
  49.         'Clear Master Bump
  50.         KitchenIni.DeleteKey("Grill", "MasterBump")
  51.         KitchenIni.DeleteKey("GrillTop", "MasterBump")
  52.         KitchenIni.DeleteKey("GrillBottom", "MasterBump")
  53.         KitchenIni.DeleteKey("HvGrillTop", "MasterBump")
  54.         KitchenIni.DeleteKey("HvGrillBottom", "MasterBump")
  55.         KitchenIni.DeleteKey("Grill3", "MasterBump")
  56.         KitchenIni.DeleteKey("GrillTop3", "MasterBump")
  57.         KitchenIni.DeleteKey("GrillBottom3", "MasterBump")
  58.         KitchenIni.DeleteKey("Grill<2>", "MasterBump")
  59.         KitchenIni.DeleteKey("GrillTop<2>", "MasterBump")
  60.         KitchenIni.DeleteKey("GrillBottom<2>", "MasterBump")
  61.         KitchenIni.DeleteKey("HvGrillTop<2>", "MasterBump")
  62.         KitchenIni.DeleteKey("HvGrillBottom<2>", "MasterBump")
  63.         KitchenIni.DeleteKey("Grill3<2>", "MasterBump")
  64.         KitchenIni.DeleteKey("GrillTop3<2>", "MasterBump")
  65.         KitchenIni.DeleteKey("GrillBottom3<2>", "MasterBump")
  66.         KitchenIni.DeleteKey("Grill<3>", "MasterBump")
  67.         KitchenIni.DeleteKey("GrillTop<3>", "MasterBump")
  68.         KitchenIni.DeleteKey("GrillBottom<3>", "MasterBump")
  69.         KitchenIni.DeleteKey("HvGrillTop<3>", "MasterBump")
  70.         KitchenIni.DeleteKey("HvGrillBottom<3>", "MasterBump")
  71.         KitchenIni.DeleteKey("Grill3<3>", "MasterBump")
  72.         KitchenIni.DeleteKey("GrillTop3<3>", "MasterBump")
  73.         KitchenIni.DeleteKey("GrillBottom3<3>", "MasterBump")
  74.         KitchenIni.DeleteKey("Expedite", "MasterBump")
  75.         KitchenIni.DeleteKey("Expedite2", "MasterBump")
  76.         KitchenIni.DeleteKey("Drive", "MasterBump")
  77.         KitchenIni.DeleteKey("Drive2", "MasterBump")
  78.         KitchenIni.DeleteKey("Fountain", "MasterBump")
  79.         KitchenIni.DeleteKey("FountainTop", "MasterBump")
  80.         KitchenIni.DeleteKey("FountainBottom", "MasterBump")
  81.         KitchenIni.DeleteKey("Fountain2", "MasterBump")
  82.         KitchenIni.DeleteKey("FountainTop2", "MasterBump")
  83.         KitchenIni.DeleteKey("FountainBottom2", "MasterBump")
  84.         KitchenIni.DeleteKey("Fry", "MasterBump")
  85.         KitchenIni.DeleteKey("FryTop", "MasterBump")
  86.         KitchenIni.DeleteKey("FryBottom", "MasterBump")
  87.         '*********************************************************************************
  88.         'Set Monitor Names and Numbers
  89.         KitchenIni.WriteInteger("Monitors", "NumMonitors", PosMaint.NumberOfMonitors)
  90.         For xLoop As Integer = 0 To PosMaint.MonitorsDef.Count - 1
  91.             KitchenIni.WriteString("Monitors", PosMaint.MonitorsDef(xLoop).MonitorNumber.ToString, PosMaint.MonitorsDef(xLoop).KitchenININame)
  92.             KitchenIni.WriteString(PosMaint.MonitorsDef(xLoop).KitchenININame, "MasterBump", PosMaint.MonitorsDef(xLoop).MasterBump.ToString)
  93.             If PosMaint.MonitorsDef(xLoop).FowardingMask > 0 Then
  94.                 KitchenIni.WriteString(PosMaint.MonitorsDef(xLoop).KitchenININame, "ForwardingMask", PosMaint.MonitorsDef(xLoop).FowardingMask.ToString)
  95.             End If
  96.         Next
  97.         '*********************************************************************************
  98.  
  99.  
  100.         '*********************************************************************************
  101.         'Load up Monitors Class
  102.         Dim MonitorDefGrill As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Grill, PosMaint10.eKitchenMonitorPostion.None)
  103.         Dim MonitorDefGrillTop As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Grill, PosMaint10.eKitchenMonitorPostion.Top)
  104.         Dim MonitorDefGrillBottom As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Grill, PosMaint10.eKitchenMonitorPostion.Bottom)
  105.         Dim MonitorDefGrill3Top As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Grill3, PosMaint10.eKitchenMonitorPostion.Top)
  106.         Dim MonitorDefGrill3Bottom As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Grill3, PosMaint10.eKitchenMonitorPostion.Bottom)
  107.         Dim MonitorDefFry As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fry, PosMaint10.eKitchenMonitorPostion.None)
  108.         Dim MonitorDefFryTop As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fry, PosMaint10.eKitchenMonitorPostion.Top)
  109.         Dim MonitorDefFryBottom As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fry, PosMaint10.eKitchenMonitorPostion.Bottom)
  110.         Dim MonitorDefFountain As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fountain, PosMaint10.eKitchenMonitorPostion.None)
  111.         Dim MonitorDefFountainTop As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fountain, PosMaint10.eKitchenMonitorPostion.Top)
  112.         Dim MonitorDefFountainBottom As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fountain, PosMaint10.eKitchenMonitorPostion.Bottom)
  113.         Dim MonitorDefFountain2Top As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fountain2, PosMaint10.eKitchenMonitorPostion.Top)
  114.         Dim MonitorDefFountain2Bottom As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Fountain2, PosMaint10.eKitchenMonitorPostion.Bottom)
  115.         Dim MonitorDefExpedite As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Expedite, PosMaint10.eKitchenMonitorPostion.None)
  116.         Dim MonitorDefDrive As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Drive, PosMaint10.eKitchenMonitorPostion.None)
  117.         Dim MonitorDefExpedite2 As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Expedite2, PosMaint10.eKitchenMonitorPostion.None)
  118.         Dim MonitorDefDrive2 As PosMaint10.clsMonitorDef = PosMaint.MonitorDef(PosMaint10.eKitchenMonitorName.Drive2, PosMaint10.eKitchenMonitorPostion.None)
  119.         '*********************************************************************************
  120.  
  121.  
  122.         '*********************************************************************************
  123.         'Set Monitor Titles, Dest, and DestMast
  124.         'Grill(s)
  125.         If MonitorDefGrill IsNot Nothing Then
  126.             KitchenIni.WriteString(MonitorDefGrill.KitchenININame, "Title", (MonitorDefGrill.Monitor.ToString).Trim)
  127.             KitchenIni.WriteInteger(MonitorDefGrill.KitchenININame, "Mask", MonitorDefGrill.Mask(0))
  128.             KitchenIni.WriteString(MonitorDefGrill.KitchenININame, "DestMask", MonitorDefGrill.DestMaskFlags(0))
  129.         Else
  130.             'Grill Top
  131.             Dim GrillTopSplitName As String = MonitorDefGrillTop.SplitName.ToString
  132.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame, "Title", (MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim)
  133.             KitchenIni.WriteInteger(MonitorDefGrillTop.KitchenININame, "Mask", MonitorDefGrillTop.Mask(0))
  134.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame, "DestMask", MonitorDefGrillTop.DestMaskFlags(0))
  135.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame & "<2>", "Title", (MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " (HV)")
  136.             KitchenIni.WriteInteger(MonitorDefGrillTop.KitchenININame & "<2>", "Mask", MonitorDefGrillTop.Mask(2))
  137.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame & "<2>", "DestMask", MonitorDefGrillTop.DestMaskFlags(2))
  138.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame & "<3>", "Title", (MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " (OD)")
  139.             KitchenIni.WriteInteger(MonitorDefGrillTop.KitchenININame & "<3>", "Mask", MonitorDefGrillTop.Mask(3))
  140.             KitchenIni.WriteString(MonitorDefGrillTop.KitchenININame & "<3>", "DestMask", MonitorDefGrillTop.DestMaskFlags(3))
  141.             'Grill Bottom
  142.             Dim GrillBottomSplitName As String = MonitorDefGrillBottom.SplitName.ToString
  143.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame, "Title", (MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim)
  144.             KitchenIni.WriteInteger(MonitorDefGrillBottom.KitchenININame, "Mask", MonitorDefGrillBottom.Mask(0))
  145.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame, "DestMask", MonitorDefGrillBottom.DestMaskFlags(0))
  146.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame & "<2>", "Title", (MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " (HV)")
  147.             KitchenIni.WriteInteger(MonitorDefGrillBottom.KitchenININame & "<2>", "Mask", MonitorDefGrillBottom.Mask(2))
  148.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame & "<2>", "DestMask", MonitorDefGrillBottom.DestMaskFlags(2))
  149.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame & "<3>", "Title", (MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " (OD)")
  150.             KitchenIni.WriteInteger(MonitorDefGrillBottom.KitchenININame & "<3>", "Mask", MonitorDefGrillBottom.Mask(3))
  151.             KitchenIni.WriteString(MonitorDefGrillBottom.KitchenININame & "<3>", "DestMask", MonitorDefGrillBottom.DestMaskFlags(3))
  152.             'HVGrill Top
  153.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame, "Title", ("HV" & MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " Closed")
  154.             KitchenIni.WriteInteger("HV" & MonitorDefGrillTop.KitchenININame, "Mask", MonitorDefGrillTop.Mask(0))
  155.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame, "DestMask", MonitorDefGrillTop.DestMaskFlags(0))
  156.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame & "<2>", "Title", ("HV" & MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " Closed")
  157.             KitchenIni.WriteInteger("HV" & MonitorDefGrillTop.KitchenININame & "<2>", "Mask", MonitorDefGrillTop.Mask(2))
  158.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame & "<2>", "DestMask", MonitorDefGrillTop.DestMaskFlags(2))
  159.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame & "<3>", "Title", ("HV" & MonitorDefGrillTop.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " Closed")
  160.             KitchenIni.WriteInteger("HV" & MonitorDefGrillTop.KitchenININame & "<3>", "Mask", MonitorDefGrillTop.Mask(3))
  161.             KitchenIni.WriteString("HV" & MonitorDefGrillTop.KitchenININame & "<3>", "DestMask", MonitorDefGrillTop.DestMaskFlags(3))
  162.             'HVGrill Bottom
  163.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame, "Title", ("HV" & MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " Closed")
  164.             KitchenIni.WriteInteger("HV" & MonitorDefGrillBottom.KitchenININame, "Mask", MonitorDefGrillBottom.Mask(0))
  165.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame, "DestMask", MonitorDefGrillBottom.DestMaskFlags(0))
  166.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame & "<2>", "Title", ("HV" & MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " (HV)")
  167.             KitchenIni.WriteInteger("HV" & MonitorDefGrillBottom.KitchenININame & "<2>", "Mask", MonitorDefGrillBottom.Mask(2))
  168.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame & "<2>", "DestMask", MonitorDefGrillBottom.DestMaskFlags(2))
  169.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame & "<3>", "Title", ("HV" & MonitorDefGrillBottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " (OD)")
  170.             KitchenIni.WriteInteger("HV" & MonitorDefGrillBottom.KitchenININame & "<3>", "Mask", MonitorDefGrillBottom.Mask(3))
  171.             KitchenIni.WriteString("HV" & MonitorDefGrillBottom.KitchenININame & "<3>", "DestMask", MonitorDefGrillBottom.DestMaskFlags(3))
  172.  
  173.             'Grill3 Top
  174.             If PosMaint.MonitorsDefinedList.Contains("Grill3") Then
  175.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame, "Title", (MonitorDefGrill3Top.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " Closed")
  176.                 KitchenIni.WriteInteger(MonitorDefGrill3Top.KitchenININame, "Mask", MonitorDefGrill3Top.Mask(0))
  177.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame, "DestMask", MonitorDefGrill3Top.DestMaskFlags(0))
  178.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame & "<2>", "Title", (MonitorDefGrill3Top.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " Closed")
  179.                 KitchenIni.WriteInteger(MonitorDefGrill3Top.KitchenININame & "<2>", "Mask", MonitorDefGrill3Top.Mask(2))
  180.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame & "<2>", "DestMask", MonitorDefGrill3Top.DestMaskFlags(2))
  181.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame & "<3>", "Title", (MonitorDefGrill3Top.Monitor.ToString & " " & GrillTopSplitName.ToString).Trim & " (OD)")
  182.                 KitchenIni.WriteInteger(MonitorDefGrill3Top.KitchenININame & "<3>", "Mask", MonitorDefGrill3Top.Mask(3))
  183.                 KitchenIni.WriteString(MonitorDefGrill3Top.KitchenININame & "<3>", "DestMask", MonitorDefGrill3Top.DestMaskFlags(3))
  184.                 'Grill3 Bottom
  185.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame, "Title", (MonitorDefGrill3Bottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " Closed")
  186.                 KitchenIni.WriteInteger(MonitorDefGrill3Bottom.KitchenININame, "Mask", MonitorDefGrill3Bottom.Mask(0))
  187.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame, "DestMask", MonitorDefGrill3Bottom.DestMaskFlags(0))
  188.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame & "<2>", "Title", (MonitorDefGrill3Bottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " Closed")
  189.                 KitchenIni.WriteInteger(MonitorDefGrill3Bottom.KitchenININame & "<2>", "Mask", MonitorDefGrill3Bottom.Mask(2))
  190.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame & "<2>", "DestMask", MonitorDefGrill3Bottom.DestMaskFlags(2))
  191.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame & "<3>", "Title", (MonitorDefGrill3Bottom.Monitor.ToString & " " & GrillBottomSplitName.ToString).Trim & " (OD)")
  192.                 KitchenIni.WriteInteger(MonitorDefGrill3Bottom.KitchenININame & "<3>", "Mask", MonitorDefGrill3Bottom.Mask(3))
  193.                 KitchenIni.WriteString(MonitorDefGrill3Bottom.KitchenININame & "<3>", "DestMask", MonitorDefGrill3Bottom.DestMaskFlags(3))
  194.             End If
  195.         End If
  196.         'Fry
  197.         If MonitorDefFry IsNot Nothing Then
  198.             KitchenIni.WriteString(MonitorDefFry.KitchenININame, "Title", (MonitorDefFry.Monitor.ToString).Trim)
  199.             KitchenIni.WriteInteger(MonitorDefFry.KitchenININame, "Mask", MonitorDefFry.Mask(0))
  200.             KitchenIni.WriteString(MonitorDefFry.KitchenININame, "DestMask", MonitorDefFry.DestMaskFlags(0))
  201.         Else
  202.             If MonitorDefFryTop IsNot Nothing Then
  203.                 'Fry Top
  204.                 Dim FryTopSplitName As String = MonitorDefFryTop.SplitName.ToString
  205.                 KitchenIni.WriteString(MonitorDefFryTop.KitchenININame, "Title", (MonitorDefFryTop.Monitor.ToString & " " & FryTopSplitName).Trim)
  206.                 KitchenIni.WriteInteger(MonitorDefFryTop.KitchenININame, "Mask", MonitorDefFryTop.Mask(0))
  207.                 KitchenIni.WriteString(MonitorDefFryTop.KitchenININame, "DestMask", MonitorDefFryTop.DestMaskFlags(0))
  208.             End If
  209.             If MonitorDefFryBottom IsNot Nothing Then
  210.                 'Fry Bottom
  211.                 Dim FryBottomSplitName As String = MonitorDefFryBottom.SplitName.ToString
  212.                 KitchenIni.WriteString(MonitorDefFryBottom.KitchenININame, "Title", (MonitorDefFryBottom.Monitor.ToString & " " & FryBottomSplitName).Trim)
  213.                 KitchenIni.WriteInteger(MonitorDefFryBottom.KitchenININame, "Mask", MonitorDefFryBottom.Mask(0))
  214.                 KitchenIni.WriteString(MonitorDefFryBottom.KitchenININame, "DestMask", MonitorDefFryBottom.DestMaskFlags(0))
  215.             End If
  216.         End If
  217.         'Fountain(s)
  218.         If MonitorDefFountain IsNot Nothing Then
  219.             KitchenIni.WriteString(MonitorDefFountain.KitchenININame, "Title", (MonitorDefFountain.Monitor.ToString).Trim)
  220.             KitchenIni.WriteInteger(MonitorDefFountain.KitchenININame, "Mask", MonitorDefFountain.Mask(0))
  221.             KitchenIni.WriteString(MonitorDefFountain.KitchenININame, "DestMask", MonitorDefFountain.DestMaskFlags(0))
  222.         Else
  223.             If MonitorDefFountainTop IsNot Nothing Then
  224.                 'Fountain Top
  225.                 Dim FountainTopSplitName As String = MonitorDefFountainTop.SplitName.ToString
  226.                 KitchenIni.WriteString(MonitorDefFountainTop.KitchenININame, "Title", (MonitorDefFountainTop.Monitor.ToString & " " & FountainTopSplitName).Trim)
  227.                 KitchenIni.WriteInteger(MonitorDefFountainTop.KitchenININame, "Mask", MonitorDefFountainTop.Mask(0))
  228.                 KitchenIni.WriteString(MonitorDefFountainTop.KitchenININame, "DestMask", MonitorDefFountainTop.DestMaskFlags(0))
  229.             End If
  230.             If MonitorDefFountainBottom IsNot Nothing Then
  231.                 'Fountain Bottom
  232.                 Dim FountainBottomSplitName As String = MonitorDefFountainBottom.SplitName.ToString
  233.                 KitchenIni.WriteString(MonitorDefFountainBottom.KitchenININame, "Title", (MonitorDefFountainBottom.Monitor.ToString & " " & FountainBottomSplitName).Trim)
  234.                 KitchenIni.WriteInteger(MonitorDefFountainBottom.KitchenININame, "Mask", MonitorDefFountainBottom.Mask(0))
  235.                 KitchenIni.WriteString(MonitorDefFountainBottom.KitchenININame, "DestMask", MonitorDefFountainBottom.DestMaskFlags(0))
  236.             End If
  237.         End If
  238.         'Fountain2
  239.         If PosMaint.MonitorsDefinedList.Contains("Fountain2") Then
  240.             '  Fountain2 Top
  241.             Dim Fountain2TopSplitName As String = MonitorDefFountainTop.SplitName.ToString
  242.             KitchenIni.WriteString(MonitorDefFountain2Top.KitchenININame, "Title", (MonitorDefFountain2Top.Monitor.ToString & " " & Fountain2TopSplitName).Trim)
  243.             KitchenIni.WriteInteger(MonitorDefFountain2Top.KitchenININame, "Mask", MonitorDefFountain2Top.Mask(0))
  244.             KitchenIni.WriteString(MonitorDefFountain2Top.KitchenININame, "DestMask", MonitorDefFountain2Top.DestMaskFlags(0))
  245.             ' Fountain2 Bottom
  246.             Dim Fountain2BottomSplitName As String = MonitorDefFountainBottom.SplitName.ToString
  247.             KitchenIni.WriteString(MonitorDefFountain2Bottom.KitchenININame, "Title", (MonitorDefFountain2Bottom.Monitor.ToString & " " & Fountain2BottomSplitName).Trim)
  248.             KitchenIni.WriteInteger(MonitorDefFountain2Bottom.KitchenININame, "Mask", MonitorDefFountain2Bottom.Mask(0))
  249.             KitchenIni.WriteString(MonitorDefFountain2Bottom.KitchenININame, "DestMask", MonitorDefFountain2Bottom.DestMaskFlags(0))
  250.             'Expedite
  251.             If MonitorDefExpedite IsNot Nothing Then
  252.                 KitchenIni.WriteString(MonitorDefExpedite.KitchenININame, "Title", (MonitorDefExpedite.Monitor.ToString).Trim)
  253.                 KitchenIni.WriteInteger(MonitorDefExpedite.KitchenININame, "Mask", MonitorDefExpedite.Mask(0))
  254.                 KitchenIni.WriteString(MonitorDefExpedite.KitchenININame, "DestMask", MonitorDefExpedite.DestMaskFlags(0))
  255.             End If
  256.         End If
  257.         'Drive
  258.         If MonitorDefDrive IsNot Nothing Then
  259.             KitchenIni.WriteString(MonitorDefDrive.KitchenININame, "Title", (MonitorDefDrive.Monitor.ToString).Trim)
  260.             KitchenIni.WriteInteger(MonitorDefDrive.KitchenININame, "Mask", MonitorDefDrive.Mask(0))
  261.             KitchenIni.WriteString(MonitorDefDrive.KitchenININame, "DestMask", MonitorDefDrive.DestMaskFlags(0))
  262.         End If
  263.         'Drive2
  264.         If MonitorDefDrive2 IsNot Nothing Then
  265.             KitchenIni.WriteString(MonitorDefDrive2.KitchenININame, "Title", (MonitorDefDrive2.Monitor.ToString).Trim)
  266.             KitchenIni.WriteInteger(MonitorDefDrive2.KitchenININame, "Mask", MonitorDefDrive2.Mask(0))
  267.             KitchenIni.WriteString(MonitorDefDrive2.KitchenININame, "DestMask", MonitorDefDrive2.DestMaskFlags(0))
  268.         End If
  269.         'Expedite
  270.         If MonitorDefExpedite IsNot Nothing Then
  271.             KitchenIni.WriteString(MonitorDefExpedite.KitchenININame, "Title", (MonitorDefExpedite.Monitor.ToString).Trim)
  272.             KitchenIni.WriteInteger(MonitorDefExpedite.KitchenININame, "Mask", MonitorDefExpedite.Mask(0))
  273.             KitchenIni.WriteString(MonitorDefExpedite.KitchenININame, "DestMask", MonitorDefExpedite.DestMaskFlags(0))
  274.         End If
  275.         'Expedite2
  276.         If MonitorDefExpedite2 IsNot Nothing Then
  277.             KitchenIni.WriteString(MonitorDefExpedite2.KitchenININame, "Title", (MonitorDefExpedite2.Monitor.ToString).Trim)
  278.             KitchenIni.WriteInteger(MonitorDefExpedite2.KitchenININame, "Mask", MonitorDefExpedite2.Mask(0))
  279.             KitchenIni.WriteString(MonitorDefExpedite2.KitchenININame, "DestMask", MonitorDefExpedite2.DestMaskFlags(0))
  280.         End If
  281.         '*********************************************************************************
  282.  
  283.         '*********************************************************************************
  284.         'Set Redundant Kitchen
  285.         If PosMaint.RedundantKitchen Then
  286.             KitchenIni.WriteInteger("Monitors", "RedundantID", 0)
  287.             KitchenIni.WriteInteger("Monitors", "LocateActiveTimeout", 15)
  288.             KitchenIni.WriteInteger("Monitors", "SendOrderTimeout", 5)
  289.         Else
  290.             KitchenIni.DeleteKey("Monitors", "RedundantID")
  291.             KitchenIni.DeleteKey("Monitors", "LocateActiveTimeout")
  292.             KitchenIni.DeleteKey("Monitors", "SendOrderTimeout")
  293.         End If
  294.         '*********************************************************************************
  295.  
  296.  
  297.         '**********************************************************************************************
  298.         'P.E. 7/16/2018
  299.         'Start of clean up of ResequenceOrderOnPaid
  300.         'Scheme 1 clean up of ResequenceOrderOnPaid
  301.         KitchenIni.DeleteKey("Grill", "ResequenceOrderOnPaid")
  302.         KitchenIni.DeleteKey("GrillTop", "ResequenceOrderOnPaid")
  303.         KitchenIni.DeleteKey("GrillBottom", "ResequenceOrderOnPaid")
  304.         KitchenIni.DeleteKey("HVGrillTop", "ResequenceOrderOnPaid")
  305.         KitchenIni.DeleteKey("HVGrillBottom", "ResequenceOrderOnPaid")
  306.         KitchenIni.DeleteKey("Drive", "ResequenceOrderOnPaid")
  307.         KitchenIni.DeleteKey("Fry", "ResequenceOrderOnPaid")
  308.         KitchenIni.DeleteKey("FryTop", "ResequenceOrderOnPaid")
  309.         KitchenIni.DeleteKey("FryBottom", "ResequenceOrderOnPaid")
  310.         KitchenIni.DeleteKey("Fountain", "ResequenceOrderOnPaid")
  311.         KitchenIni.DeleteKey("FountainTop", "ResequenceOrderOnPaid")
  312.         KitchenIni.DeleteKey("FountainBottom", "ResequenceOrderOnPaid")
  313.         KitchenIni.DeleteKey("Expedite", "ResequenceOrderOnPaid")
  314.         KitchenIni.DeleteKey("Expedite2", "ResequenceOrderOnPaid")
  315.         KitchenIni.DeleteKey("Expedite3", "ResequenceOrderOnPaid")
  316.  
  317.         'Scheme 2 needs in case Load Balancing
  318.         KitchenIni.DeleteKey("Grill<2>", "ResequenceOrderOnPaid")
  319.         KitchenIni.DeleteKey("GrillTop<2>", "ResequenceOrderOnPaid")
  320.         KitchenIni.DeleteKey("GrillBottom<2>", "ResequenceOrderOnPaid")
  321.         KitchenIni.DeleteKey("HVGrillTop<2>", "ResequenceOrderOnPaid")
  322.         KitchenIni.DeleteKey("HVGrillBottom<2>", "ResequenceOrderOnPaid")
  323.         KitchenIni.DeleteKey("Drive<2>", "ResequenceOrderOnPaid")
  324.         KitchenIni.DeleteKey("Fry<2>", "ResequenceOrderOnPaid")
  325.         KitchenIni.DeleteKey("FryTop<2>", "ResequenceOrderOnPaid")
  326.         KitchenIni.DeleteKey("FryBottom<2>", "ResequenceOrderOnPaid")
  327.         KitchenIni.DeleteKey("Fountain<2>", "ResequenceOrderOnPaid")
  328.         KitchenIni.DeleteKey("FountainTop<2>", "ResequenceOrderOnPaid")
  329.         KitchenIni.DeleteKey("FountainBottom<2>", "ResequenceOrderOnPaid")
  330.         KitchenIni.DeleteKey("Expedite<2>", "ResequenceOrderOnPaid")
  331.         KitchenIni.DeleteKey("Expedite2<2>", "ResequenceOrderOnPaid")
  332.         KitchenIni.DeleteKey("Expedite3<2>", "ResequenceOrderOnPaid")
  333.  
  334.         'Might as well cleanup Scheme 3 in case
  335.         KitchenIni.DeleteKey("Grill<3>", "ResequenceOrderOnPaid")
  336.         KitchenIni.DeleteKey("GrillTop<3>", "ResequenceOrderOnPaid")
  337.         KitchenIni.DeleteKey("GrillBottom<3>", "ResequenceOrderOnPaid")
  338.         KitchenIni.DeleteKey("HVGrillTop<3>", "ResequenceOrderOnPaid")
  339.         KitchenIni.DeleteKey("HVGrillBottom<3>", "ResequenceOrderOnPaid")
  340.         KitchenIni.DeleteKey("Drive<3>", "ResequenceOrderOnPaid")
  341.         KitchenIni.DeleteKey("Fry<3>", "ResequenceOrderOnPaid")
  342.         KitchenIni.DeleteKey("FryTop<3>", "ResequenceOrderOnPaid")
  343.         KitchenIni.DeleteKey("FryBottom<3>", "ResequenceOrderOnPaid")
  344.         KitchenIni.DeleteKey("Fountain<3>", "ResequenceOrderOnPaid")
  345.         KitchenIni.DeleteKey("FountainTop<3>", "ResequenceOrderOnPaid")
  346.         KitchenIni.DeleteKey("FountainBottom<3>", "ResequenceOrderOnPaid")
  347.         KitchenIni.DeleteKey("Expedite<3>", "ResequenceOrderOnPaid")
  348.         KitchenIni.DeleteKey("Expedite2<3>", "ResequenceOrderOnPaid")
  349.         KitchenIni.DeleteKey("Expedite3<3>", "ResequenceOrderOnPaid")
  350.         'End of clean up of ResequenceOrderOnPaid
  351.  
  352.         If PosMaint.DriveOrderTaker = PosMaint10.eDriveOrderTaker.Dual Then
  353.             KitchenIni.WriteString("Drive", "ResequenceOrderOnPaid", "1")
  354.             KitchenIni.WriteString("Drive2", "ResequenceOrderOnPaid", "1")
  355.         End If
  356.  
  357.         '**********************************************************************************************
  358.         'Set according to Monitor Types
  359.         If PosMaint.KitchenMonitorType = PosMaint10.eKitchenMonitorType.LS6000 Then
  360.             'Address of LS6000
  361.             'Grill       = 41
  362.             'Drive       = 42
  363.             'Fountain    = 43
  364.             'Fountain2   = 44
  365.             'Expedite    = 45
  366.             'Expedite2   = 46
  367.             'HVGrill     = 47
  368.             'Grill3      = 48
  369.             'Fry         = 49
  370.             'Drive2      = 50
  371.  
  372.  
  373.             'Grill
  374.             KitchenIni.WriteString("grill", "MonType", "LS6000")
  375.             KitchenIni.WriteString("grill", "Address", "1")
  376.             KitchenIni.WriteString("grill", "netaddr", "10.77.77.41")
  377.             KitchenIni.WriteString("grill", "netport", "8888")
  378.             'GrillTop
  379.             KitchenIni.WriteString("GrillTop", "MonType", "LS6000")
  380.             KitchenIni.WriteString("GrillTop", "Address", "1")
  381.             KitchenIni.WriteString("GrillTop", "netaddr", "10.77.77.41")
  382.             KitchenIni.WriteString("GrillTop", "netport", "8888")
  383.             'GrillTop<2>
  384.             KitchenIni.WriteString("GrillTop<2>", "Address", "1")
  385.             'GrillTop<3>
  386.             KitchenIni.WriteString("GrillTop<3>", "Address", "1")
  387.             'GrillBottom
  388.             KitchenIni.WriteString("GrillBottom", "MonType", "LS6000")
  389.             KitchenIni.WriteString("GrillBottom", "Address", "1")
  390.             KitchenIni.WriteString("GrillBottom", "netaddr", "10.77.77.41")
  391.             KitchenIni.WriteString("GrillBottom", "netport", "8888")
  392.             'GrillBottom<2>
  393.             KitchenIni.WriteString("GrillBottom<2>", "Address", "32")
  394.             'GrillBottom<3>
  395.             KitchenIni.WriteString("GrillBottom<3>", "Address", "32")
  396.             'HVGrillTop
  397.             KitchenIni.WriteString("HVGrillTop", "MonType", "LS6000")
  398.             KitchenIni.WriteString("HVGrillTop", "Address", "1")
  399.             KitchenIni.WriteString("HVGrillTop", "netaddr", "10.77.77.47")
  400.             KitchenIni.WriteString("HVGrillTop", "netport", "8888")
  401.             'HVGrillTop<2>
  402.             KitchenIni.WriteString("HVGrillTop<2>", "Address", "32")
  403.             'HVGrillTopTop<3>
  404.             KitchenIni.WriteString("HVGrillTop<3>", "Address", "32")
  405.             'HVGrillBottom
  406.             KitchenIni.WriteString("HVGrillBottom", "MonType", "LS6000")
  407.             KitchenIni.WriteString("HVGrillBottom", "Address", "1")
  408.             KitchenIni.WriteString("HVGrillBottom", "netaddr", "10.77.77.47")
  409.             KitchenIni.WriteString("HVGrillBottom", "netport", "8888")
  410.             'HVGrillBottom<2>
  411.             KitchenIni.WriteString("HVGrillBottom<2>", "Address", "1")
  412.             'HVGrillTopBottom<3>
  413.             KitchenIni.WriteString("HVGrillTopBottom", "Address", "1")
  414.  
  415.  
  416.  
  417.             'Grill3Top
  418.             KitchenIni.WriteString("Grill3Top", "MonType", "LS6000")
  419.             KitchenIni.WriteString("Grill3Top", "Address", "1")
  420.             KitchenIni.WriteString("Grill3Top", "netaddr", "10.77.77.48")
  421.             KitchenIni.WriteString("Grill3Top", "netport", "8888")
  422.             'Grill3Top<2>
  423.             KitchenIni.WriteString("Grill3Top<2>", "Address", "1")
  424.             'GrillTop<3>
  425.             KitchenIni.WriteString("Grill3Top<3>", "Address", "1")
  426.             'Grill3Bottom
  427.             KitchenIni.WriteString("Grill3Bottom", "MonType", "LS6000")
  428.             KitchenIni.WriteString("Grill3Bottom", "Address", "1")
  429.             KitchenIni.WriteString("Grill3Bottom", "netaddr", "10.77.77.48")
  430.             KitchenIni.WriteString("Grill3Bottom", "netport", "8888")
  431.             'Grill3Bottom<2>
  432.             KitchenIni.WriteString("Grill3Bottom<2>", "Address", "1")
  433.             'Grill3Bottom<3>
  434.             KitchenIni.WriteString("Grill3Bottom<3>", "Address", "1")
  435.  
  436.  
  437.  
  438.  
  439.  
  440.             'Drive
  441.             KitchenIni.WriteString("Drive", "MonType", "LS6000")
  442.             KitchenIni.WriteString("Drive", "Address", "1")
  443.             KitchenIni.WriteString("Drive", "netaddr", "10.77.77.42")
  444.             KitchenIni.WriteString("Drive", "netport", "8888")
  445.             'Fry
  446.             KitchenIni.WriteString("Fry", "MonType", "LS6000")
  447.             KitchenIni.WriteString("Fry", "Address", "1")
  448.             KitchenIni.WriteString("Fry", "netaddr", "10.77.77.49")
  449.             KitchenIni.WriteString("Fry", "netport", "8888")
  450.             'FryTop
  451.             KitchenIni.WriteString("FryTop", "MonType", "LS6000")
  452.             KitchenIni.WriteString("FryTop", "Address", "1")
  453.             KitchenIni.WriteString("FryTop", "netaddr", "10.77.77.49")
  454.             KitchenIni.WriteString("FryTop", "netport", "8888")
  455.             'FryBottom
  456.             KitchenIni.WriteString("FryBottom", "MonType", "LS6000")
  457.             KitchenIni.WriteString("FryBottom", "Address", "1")
  458.             KitchenIni.WriteString("FryBottom", "netaddr", "10.77.77.49")
  459.             KitchenIni.WriteString("FryBottom", "netport", "8888")
  460.  
  461.  
  462.             'Fountain
  463.             KitchenIni.WriteString("Fountain", "MonType", "LS6000")
  464.             KitchenIni.WriteString("Fountain", "Address", "1")
  465.             KitchenIni.WriteString("Fountain", "netaddr", "10.77.77.43")
  466.             KitchenIni.WriteString("Fountain", "netport", "8888")
  467.             'FountainTop
  468.             KitchenIni.WriteString("FountainTop", "MonType", "LS6000")
  469.             KitchenIni.WriteString("FountainTop", "Address", "1")
  470.             KitchenIni.WriteString("FountainTop", "netaddr", "10.77.77.43")
  471.             KitchenIni.WriteString("FountainTop", "netport", "8888")
  472.             'FountainBottom
  473.             KitchenIni.WriteString("FountainBottom", "MonType", "LS6000")
  474.             KitchenIni.WriteString("FountainBottom", "Address", "1")
  475.             KitchenIni.WriteString("FountainBottom", "netaddr", "10.77.77.43")
  476.             KitchenIni.WriteString("FountainBottom", "netport", "8888")
  477.  
  478.             'Fountain2Top
  479.             KitchenIni.WriteString("Fountain2Top", "MonType", "LS6000")
  480.             KitchenIni.WriteString("Fountain2Top", "Address", "1")
  481.             KitchenIni.WriteString("Fountain2Top", "netaddr", "10.77.77.44")
  482.             KitchenIni.WriteString("Fountain2Top", "netport", "8888")
  483.             'Fountain2Bottom
  484.             KitchenIni.WriteString("Fountain2Bottom", "MonType", "LS6000")
  485.             KitchenIni.WriteString("Fountain2Bottom", "Address", "1")
  486.             KitchenIni.WriteString("Fountain2Bottom", "netaddr", "10.77.77.44")
  487.             KitchenIni.WriteString("Fountain2Bottom", "netport", "8888")
  488.  
  489.  
  490.             'Expedite
  491.             KitchenIni.WriteString("Expedite", "MonType", "LS6000")
  492.             KitchenIni.WriteString("Expedite", "Address", "1")
  493.             KitchenIni.WriteString("Expedite", "netaddr", "10.77.77.45")
  494.             KitchenIni.WriteString("Expedite", "netport", "8888")
  495.             'Expedite2
  496.             KitchenIni.WriteString("Expedite2", "MonType", "LS6000")
  497.             KitchenIni.WriteString("Expedite2", "Address", "1")
  498.             KitchenIni.WriteString("Expedite2", "netaddr", "10.77.77.46")
  499.             KitchenIni.WriteString("Expedite2", "netport", "8888")
  500.             'Drive2
  501.             KitchenIni.WriteString("Drive2", "MonType", "LS6000")
  502.             KitchenIni.WriteString("Drive2", "Address", "1")
  503.             KitchenIni.WriteString("Drive2", "netaddr", "10.77.77.50")
  504.             KitchenIni.WriteString("Drive2", "netport", "8888")
  505.         ElseIf PosMaint.KitchenMonitorType = PosMaint10.eKitchenMonitorType.EKitchen Then
  506.             'Grill
  507.             KitchenIni.WriteString("grill", "MonType", "ekitchen")
  508.             KitchenIni.WriteString("grill", "Address", "1")
  509.             KitchenIni.WriteString("grill", "netaddr", "127.0.0.1")
  510.             KitchenIni.WriteString("grill", "netport", "6969")
  511.             'GrillTop
  512.             KitchenIni.WriteString("GrillTop", "MonType", "ekitchen")
  513.             KitchenIni.WriteString("GrillTop", "Address", "1")
  514.             KitchenIni.WriteString("GrillTop", "netaddr", "127.0.0.1")
  515.             KitchenIni.WriteString("GrillTop", "netport", "6969")
  516.             KitchenIni.WriteString("GrillTop", "eKitchenIndex", "1")
  517.             KitchenIni.WriteString("GrillTop", "left", "0")
  518.             KitchenIni.WriteString("GrillTop", "right", "79")
  519.             KitchenIni.WriteString("GrillTop", "top", "0")
  520.             KitchenIni.WriteString("GrillTop", "bottom", "15")
  521.             KitchenIni.WriteString("GrillTop", "fontsize", "31")
  522.             'GrillTop<2>
  523.             KitchenIni.WriteString("GrillTop<2>", "Address", "1")
  524.             'GrillTop<3>
  525.             KitchenIni.WriteString("GrillTop<3>", "Address", "1")
  526.             'GrillBottom
  527.             KitchenIni.WriteString("GrillBottom", "MonType", "ekitchen")
  528.             KitchenIni.WriteString("GrillBottom", "Address", "1")
  529.             KitchenIni.WriteString("GrillBottom", "netaddr", "127.0.0.1")
  530.             KitchenIni.WriteString("GrillBottom", "netport", "6969")
  531.             KitchenIni.WriteString("GrillBottom", "eKitchenIndex", "2")
  532.             KitchenIni.WriteString("GrillBottom", "left", "0")
  533.             KitchenIni.WriteString("GrillBottom", "right", "79")
  534.             KitchenIni.WriteString("GrillBottom", "top", "15")
  535.             KitchenIni.WriteString("GrillBottom", "bottom", "30")
  536.             KitchenIni.WriteString("GrillBottom", "fontsize", "31")
  537.             'GrillBottom<2>
  538.             KitchenIni.WriteString("GrillBottom<2>", "Address", "32")
  539.             'GrillBottom<3>
  540.             KitchenIni.WriteString("GrillBottom<3>", "Address", "32")
  541.             'HVGrillTop
  542.             KitchenIni.WriteString("HVGrillTop", "MonType", "ekitchen")
  543.             KitchenIni.WriteString("HVGrillTop", "Address", "7")
  544.             KitchenIni.WriteString("HVGrillTop", "netaddr", "127.0.0.1")
  545.             KitchenIni.WriteString("HVGrillTop", "netport", "6969")
  546.             KitchenIni.WriteString("HVGrillTop", "FontSize", "31")
  547.             'HVGrillTop<2>
  548.             KitchenIni.WriteString("HVGrillTop<2>", "Address", "32")
  549.             'HVGrillTop<3>
  550.             KitchenIni.WriteString("HVGrillTop<3>", "Address", "7")
  551.             'HVGrillBottom
  552.             KitchenIni.WriteString("HVGrillBottom", "MonType", "ekitchen")
  553.             KitchenIni.WriteString("HVGrillBottom", "Address", "7")
  554.             KitchenIni.WriteString("HVGrillBottom", "netaddr", "127.0.0.1")
  555.             KitchenIni.WriteString("HVGrillBottom", "netport", "6969")
  556.             KitchenIni.WriteString("HVGrillBottom", "FontSize", "31")
  557.             'HVGrillBottom<2>
  558.             KitchenIni.WriteString("HVGrillBottom<2>", "Address", "7")
  559.             'HVGrillBottom<3>
  560.             KitchenIni.WriteString("HVGrillBottom<3>", "Address", "7")
  561.             'Drive
  562.             KitchenIni.WriteString("Drive", "MonType", "ekitchen")
  563.             KitchenIni.WriteString("Drive", "Address", "2")
  564.             KitchenIni.WriteString("Drive", "netaddr", "127.0.0.1")
  565.             KitchenIni.WriteString("Drive", "netport", "6969")
  566.             KitchenIni.WriteString("Drive", "FontSize", "31")
  567.  
  568.             'Fry
  569.             KitchenIni.WriteString("Fry", "MonType", "ekitchen")
  570.             KitchenIni.WriteString("Fry", "Address", "9")
  571.             KitchenIni.WriteString("Fry", "netaddr", "127.0.0.1")
  572.             KitchenIni.WriteString("Fry", "netport", "6969")
  573.             KitchenIni.WriteString("Fry", "FontSize", "31")
  574.             'FryTop
  575.             KitchenIni.WriteString("FryTop", "MonType", "ekitchen")
  576.             KitchenIni.WriteString("FryTop", "Address", "9")
  577.             KitchenIni.WriteString("FryTop", "netaddr", "127.0.0.1")
  578.             KitchenIni.WriteString("FryTop", "netport", "6969")
  579.             KitchenIni.WriteString("FryTop", "eKitchenIndex", "1")
  580.             KitchenIni.WriteString("FryTop", "left", "0")
  581.             KitchenIni.WriteString("FryTop", "right", "79")
  582.             KitchenIni.WriteString("FryTop", "top", "0")
  583.             KitchenIni.WriteString("FryTop", "bottom", "15")
  584.             KitchenIni.WriteString("FryTop", "FontSize", "31")
  585.             'FryBottom
  586.             KitchenIni.WriteString("FryBottom", "MonType", "ekitchen")
  587.             KitchenIni.WriteString("FryBottom", "Address", "9")
  588.             KitchenIni.WriteString("FryBottom", "netaddr", "127.0.0.1")
  589.             KitchenIni.WriteString("FryBottom", "netport", "6969")
  590.             KitchenIni.WriteString("FryBottom", "eKitchenIndex", "2")
  591.             KitchenIni.WriteString("FryBottom", "left", "0")
  592.             KitchenIni.WriteString("FryBottom", "right", "79")
  593.             KitchenIni.WriteString("FryBottom", "top", "15")
  594.             KitchenIni.WriteString("FryBottom", "bottom", "30")
  595.             KitchenIni.WriteString("FryBottom", "FontSize", "31")
  596.  
  597.  
  598.             'Fountain
  599.             KitchenIni.WriteString("Fountain", "MonType", "ekitchen")
  600.             KitchenIni.WriteString("Fountain", "Address", "3")
  601.             KitchenIni.WriteString("Fountain", "netaddr", "127.0.0.1")
  602.             KitchenIni.WriteString("Fountain", "netport", "6969")
  603.             KitchenIni.WriteString("Fountain", "FontSize", "31")
  604.             'FountainTop
  605.             KitchenIni.WriteString("FountainTop", "MonType", "ekitchen")
  606.             KitchenIni.WriteString("FountainTop", "Address", "3")
  607.             KitchenIni.WriteString("FountainTop", "netaddr", "127.0.0.1")
  608.             KitchenIni.WriteString("FountainTop", "netport", "6969")
  609.             KitchenIni.WriteString("FountainTop", "eKitchenIndex", "1")
  610.             KitchenIni.WriteString("FountainTop", "left", "0")
  611.             KitchenIni.WriteString("FountainTop", "right", "79")
  612.             KitchenIni.WriteString("FountainTop", "top", "0")
  613.             KitchenIni.WriteString("FountainTop", "bottom", "15")
  614.             KitchenIni.WriteString("FountainTop", "FontSize", "31")
  615.             'FountainBottom
  616.             KitchenIni.WriteString("FountainBottom", "MonType", "ekitchen")
  617.             KitchenIni.WriteString("FountainBottom", "Address", "3")
  618.             KitchenIni.WriteString("FountainBottom", "netaddr", "127.0.0.1")
  619.             KitchenIni.WriteString("FountainBottom", "netport", "6969")
  620.             KitchenIni.WriteString("FountainBottom", "eKitchenIndex", "2")
  621.             KitchenIni.WriteString("FountainBottom", "left", "0")
  622.             KitchenIni.WriteString("FountainBottom", "right", "79")
  623.             KitchenIni.WriteString("FountainBottom", "top", "15")
  624.             KitchenIni.WriteString("FountainBottom", "bottom", "30")
  625.             KitchenIni.WriteString("FountainBottom", "FontSize", "31")
  626.  
  627.             'Expedite
  628.             KitchenIni.WriteString("Expedite", "MonType", "ekitchen")
  629.             KitchenIni.WriteString("Expedite", "Address", "5")
  630.             KitchenIni.WriteString("Expedite", "netaddr", "127.0.0.1")
  631.             KitchenIni.WriteString("Expedite", "netport", "6969")
  632.             KitchenIni.WriteString("Expedite", "FontSize", "31")
  633.             'Expedite2
  634.             KitchenIni.WriteString("Expedite2", "MonType", "ekitchen")
  635.             KitchenIni.WriteString("Expedite2", "Address", "6")
  636.             KitchenIni.WriteString("Expedite2", "netaddr", "127.0.0.1")
  637.             KitchenIni.WriteString("Expedite2", "netport", "6969")
  638.             KitchenIni.WriteString("Expedite2", "FontSize", "31")
  639.             'Expedite3
  640.             KitchenIni.WriteString("Expedite3", "MonType", "ekitchen")
  641.             KitchenIni.WriteString("Expedite3", "Address", "10")
  642.             KitchenIni.WriteString("Expedite3", "netaddr", "127.0.0.1")
  643.             KitchenIni.WriteString("Expedite3", "netport", "6969")
  644.             KitchenIni.WriteString("Expedite3", "FontSize", "31")
  645.         ElseIf PosMaint.KitchenMonitorType = PosMaint10.eKitchenMonitorType.LS3000 Then
  646.             'Address of LS3000
  647.             'Grill       = 1
  648.             'Drive       = 2
  649.             'Fountain    = 3
  650.             'Fountain2   = 4
  651.             'Expedite    = 5
  652.             'Expedite2   = 6
  653.             'HVGrill     = 7
  654.             'Grill3      = 8
  655.             'Fry         = 9
  656.             'Drive2      = 10
  657.  
  658.             'Grill
  659.             KitchenIni.WriteString("grill", "MonType", "jl")
  660.             KitchenIni.WriteString("grill", "Address", "1")
  661.             KitchenIni.WriteString("grill", "netaddr", "10.77.77.41")
  662.             KitchenIni.WriteString("grill", "netport", "3000")
  663.             'GrillTop
  664.             KitchenIni.WriteString("GrillTop", "MonType", "jl")
  665.             KitchenIni.WriteString("GrillTop", "Address", "1")
  666.             KitchenIni.WriteString("GrillTop", "netaddr", "10.77.77.41")
  667.             KitchenIni.WriteString("GrillTop", "netport", "3000")
  668.             'GrillTop<2>
  669.             KitchenIni.WriteString("GrillTop<2>", "Address", "1")
  670.             'GrillTop<3>
  671.             KitchenIni.WriteString("GrillTop<3>", "Address", "1")
  672.             'GrillBottom
  673.             KitchenIni.WriteString("GrillBottom", "MonType", "jl")
  674.             KitchenIni.WriteString("GrillBottom", "Address", "1")
  675.             KitchenIni.WriteString("GrillBottom", "netaddr", "10.77.77.41")
  676.             KitchenIni.WriteString("GrillBottom", "netport", "3000")
  677.             'GrillBottom<2>
  678.             KitchenIni.WriteString("GrillBottom<2>", "Address", "32")
  679.             'GrillBottom<3>
  680.             KitchenIni.WriteString("GrillBottom<3>", "Address", "32")
  681.             'HVGrillTop
  682.             KitchenIni.WriteString("HVGrillTop", "MonType", "jl")
  683.             KitchenIni.WriteString("HVGrillTop", "Address", "7")
  684.             KitchenIni.WriteString("HVGrillTop", "netaddr", "10.77.77.41")
  685.             KitchenIni.WriteString("HVGrillTop", "netport", "3000")
  686.             'HVGrillTop<2>
  687.             KitchenIni.WriteString("HVGrillTop<2>", "Address", "32")
  688.             'HVGrillTop<3>
  689.             KitchenIni.WriteString("HVGrillTop<3>", "Address", "7")
  690.             'HVGrillBottom
  691.             KitchenIni.WriteString("HVGrillBottom", "MonType", "jl")
  692.             KitchenIni.WriteString("HVGrillBottom", "Address", "7")
  693.             KitchenIni.WriteString("HVGrillBottom", "netaddr", "10.77.77.41")
  694.             KitchenIni.WriteString("HVGrillBottom", "netport", "3000")
  695.             'HVGrillBottom<2>
  696.             KitchenIni.WriteString("HVGrillBottom<2>", "Address", "7")
  697.             'HVGrillBottom<3>
  698.             KitchenIni.WriteString("HVGrillBottom<3>", "Address", "7")
  699.  
  700.  
  701.             'Grill3Top
  702.             KitchenIni.WriteString("Grill3Top", "MonType", "jl")
  703.             KitchenIni.WriteString("Grill3Top", "Address", "8")
  704.             KitchenIni.WriteString("Grill3Top", "netaddr", "10.77.77.41")
  705.             KitchenIni.WriteString("Grill3Top", "netport", "3000")
  706.             'Grill3Top<2>
  707.             KitchenIni.WriteString("Grill3Top<2>", "Address", "8")
  708.             'Grill3Top<3>
  709.             KitchenIni.WriteString("Grill3Top<3>", "Address", "8")
  710.             'Grill3Bottom
  711.             KitchenIni.WriteString("Grill3Bottom", "MonType", "jl")
  712.             KitchenIni.WriteString("Grill3Bottom", "Address", "8")
  713.             KitchenIni.WriteString("Grill3Bottom", "netaddr", "10.77.77.41")
  714.             KitchenIni.WriteString("Grill3Bottom", "netport", "3000")
  715.             'Grill3Bottom<2>
  716.             KitchenIni.WriteString("Grill3Bottom<2>", "Address", "8")
  717.             'Grill3Bottom<3>
  718.             KitchenIni.WriteString("Grill3Bottom<3>", "Address", "8")
  719.  
  720.  
  721.  
  722.             'Drive
  723.             KitchenIni.WriteString("Drive", "MonType", "jl")
  724.             KitchenIni.WriteString("Drive", "Address", "2")
  725.             KitchenIni.WriteString("Drive", "netaddr", "10.77.77.41")
  726.             KitchenIni.WriteString("Drive", "netport", "3000")
  727.             'Fry
  728.             KitchenIni.WriteString("Fry", "MonType", "jl")
  729.             KitchenIni.WriteString("Fry", "Address", "9")
  730.             KitchenIni.WriteString("Fry", "netaddr", "10.77.77.41")
  731.             KitchenIni.WriteString("Fry", "netport", "3000")
  732.             'FryTop
  733.             KitchenIni.WriteString("FryTop", "MonType", "jl")
  734.             KitchenIni.WriteString("FryTop", "Address", "9")
  735.             KitchenIni.WriteString("FryTop", "netaddr", "10.77.77.41")
  736.             KitchenIni.WriteString("FryTop", "netport", "3000")
  737.             'FryBottom
  738.             KitchenIni.WriteString("FryBottom", "MonType", "jl")
  739.             KitchenIni.WriteString("FryBottom", "Address", "9")
  740.             KitchenIni.WriteString("FryBottom", "netaddr", "10.77.77.41")
  741.             KitchenIni.WriteString("FryBottom", "netport", "3000")
  742.  
  743.  
  744.             'Fountain
  745.             KitchenIni.WriteString("Fountain", "MonType", "jl")
  746.             KitchenIni.WriteString("Fountain", "Address", "3")
  747.             KitchenIni.WriteString("Fountain", "netaddr", "10.77.77.41")
  748.             KitchenIni.WriteString("Fountain", "netport", "3000")
  749.             'FountainTop
  750.             KitchenIni.WriteString("FountainTop", "MonType", "jl")
  751.             KitchenIni.WriteString("FountainTop", "Address", "3")
  752.             KitchenIni.WriteString("FountainTop", "netaddr", "10.77.77.41")
  753.             KitchenIni.WriteString("FountainTop", "netport", "3000")
  754.             'FountainBottom
  755.             KitchenIni.WriteString("FountainBottom", "MonType", "jl")
  756.             KitchenIni.WriteString("FountainBottom", "Address", "3")
  757.             KitchenIni.WriteString("FountainBottom", "netaddr", "10.77.77.41")
  758.             KitchenIni.WriteString("FountainBottom", "netport", "3000")
  759.  
  760.  
  761.             'Fountain2Top
  762.             KitchenIni.WriteString("Fountain2Top", "MonType", "jl")
  763.             KitchenIni.WriteString("Fountain2Top", "Address", "4")
  764.             KitchenIni.WriteString("Fountain2Top", "netaddr", "10.77.77.41")
  765.             KitchenIni.WriteString("Fountain2Top", "netport", "3000")
  766.             'Fountain2Bottom
  767.             KitchenIni.WriteString("Fountain2Bottom", "MonType", "jl")
  768.             KitchenIni.WriteString("Fountain2Bottom", "Address", "4")
  769.             KitchenIni.WriteString("Fountain2Bottom", "netaddr", "10.77.77.41")
  770.             KitchenIni.WriteString("Fountain2Bottom", "netport", "3000")
  771.  
  772.  
  773.             'Expedite
  774.             KitchenIni.WriteString("Expedite", "MonType", "jl")
  775.             KitchenIni.WriteString("Expedite", "Address", "5")
  776.             KitchenIni.WriteString("Expedite", "netaddr", "10.77.77.41")
  777.             KitchenIni.WriteString("Expedite", "netport", "3000")
  778.             'Expedite2
  779.             KitchenIni.WriteString("Expedite2", "MonType", "jl")
  780.             KitchenIni.WriteString("Expedite2", "Address", "6")
  781.             KitchenIni.WriteString("Expedite2", "netaddr", "10.77.77.41")
  782.             KitchenIni.WriteString("Expedite2", "netport", "3000")
  783.             'Drive2
  784.             KitchenIni.WriteString("Drive2", "MonType", "jl")
  785.             KitchenIni.WriteString("Drive2", "Address", "10")
  786.             KitchenIni.WriteString("Drive2", "netaddr", "10.77.77.41")
  787.             KitchenIni.WriteString("Drive2", "netport", "3000")
  788.         End If
  789.  
  790.         ''**********************************************************************************************
  791.         'When moving to More than 10 Reg, I left this code from old, but did not do anything withit
  792.         ''PE 1/4/2016 Added Switches for Load Balancing. All sections are clean up above as needed
  793.         'If PosMaint.IsLoadBalancing Then
  794.         '    KitchenIni.WriteString("Monitors", "LoadBalanceLine1", BitWeightValue_GrillTop.ToString)
  795.         '    KitchenIni.WriteString("Monitors", "LoadBalanceLine2", BitWeightValue_HVGrillBottom.ToString)
  796.  
  797.         '    KitchenIni.WriteString("GrillTop<2>", "EnableLoadBalancing", "1")
  798.         '    KitchenIni.WriteString("HVGrillBottom<2>", "EnableLoadBalancing", "1")
  799.         '    KitchenIni.WriteString("GrillTop<2>", "Title", "Grill Line 1 (HV)")
  800.         '    KitchenIni.WriteString("HVGrillBottom<2>", "Title", "Grill Line 2 (HV)")
  801.  
  802.         '    KitchenIni.WriteString("Drive<2>", "head2", "~loadballine,1~~dest,c16~~regnum,1~")
  803.         '    KitchenIni.WriteString("Expedite<2>", "head2", "~loadballine,1~~dest,c16~~regnum,1~")
  804.         '    KitchenIni.WriteString("Expedite<2>2", "head2", "~loadballine,1~~dest,c16~~regnum,1~")
  805.         '    KitchenIni.WriteString("Expedite<3>2", "head2", "~loadballine,1~~dest,c16~~regnum,1~")
  806.  
  807.         '    For xLoop As Integer = 1 To 9
  808.         '        If RegisterTypeToConfig(xLoop) = eRegisterType.Lobby Then
  809.         '            KitchenIni.WriteInteger("GrillTop<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Lobby_Grill)
  810.         '            KitchenIni.WriteInteger("HVGrillBottom<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Lobby_Grill)
  811.         '        ElseIf RegisterTypeToConfig(xLoop) = eRegisterType.SplitScreen OrElse
  812.         '               RegisterTypeToConfig(xLoop) = eRegisterType.Tender OrElse
  813.         '               RegisterTypeToConfig(xLoop) = eRegisterType.TenderBlockReg OrElse
  814.         '               RegisterTypeToConfig(xLoop) = eRegisterType.DualLane1 OrElse
  815.         '               RegisterTypeToConfig(xLoop) = eRegisterType.DualLane2 Then
  816.         '            KitchenIni.WriteInteger("GrillTop<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Drive_Grill)
  817.         '            KitchenIni.WriteInteger("HVGrillBottom<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Drive_Grill)
  818.         '        ElseIf RegisterTypeToConfig(xLoop) = eRegisterType.Package Then
  819.         '            KitchenIni.WriteInteger("GrillTop<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Package_Grill)
  820.         '            KitchenIni.WriteInteger("HVGrillBottom<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Package_Grill)
  821.         '        ElseIf RegisterTypeToConfig(xLoop) = eRegisterType.Fountain Then
  822.         '            KitchenIni.WriteInteger("GrillTop<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Fountain_Grill)
  823.         '            KitchenIni.WriteInteger("HVGrillBottom<2>", "Reg" & xLoop.ToString.PadLeft(2, "0"c) & "Mask", PosMaint.Fountain_Grill)
  824.         '        End If
  825.         '    Next
  826.         'Else
  827.         '    KitchenIni.WriteString("GrillTop<2>", "EnableLoadBalancing", "0")
  828.         '    KitchenIni.WriteString("HVGrillBottom<2>", "EnableLoadBalancing", "0")
  829.         '    KitchenIni.DeleteKey("Monitors", "LoadBalanceLine1")
  830.         '    KitchenIni.DeleteKey("Monitors", "LoadBalanceLine2")
  831.         'End If
  832.         '    KitchenIni.WriteString("grill", "Line", "1")
  833.         '    KitchenIni.WriteString("GrillTop", "Line", "1")
  834.         '    KitchenIni.WriteString("GrillBottom", "Line", "1")
  835.         '    KitchenIni.WriteString("HVGrillTop", "Line", "1")
  836.         '    KitchenIni.WriteString("HVGrillBottom", "Line", "1")
  837.         '    KitchenIni.WriteString("Drive", "Line", "1")
  838.         '    KitchenIni.WriteString("Fountain", "Line", "1")
  839.         '    KitchenIni.WriteString("FountainTop", "Line", "1")
  840.         '    KitchenIni.WriteString("FountainBottom", "Line", "1")
  841.         '    KitchenIni.WriteString("Expedite", "Line", "1")
  842.         '    KitchenIni.WriteString("Expedite2", "Line", "1")
  843.         '    KitchenIni.WriteString("Expedite3", "Line", "1")
  844.         ''****************************************************************************************************
  845.  
  846.  
  847.  
  848.         'Move to registers
  849.         For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
  850.             Dim RegisterNumber As Integer = PosMaint.RegisterInformations(xLoop).RegisterNumber
  851.             Dim INIFileName As String = "c:\iris\reginfo\Reg" & RegisterNumber & "\ini\kitchen.ini"
  852.             IO.File.Copy("c:\iris\ini\kitchen.ini", INIFileName, True)
  853.             KitchenIni.SetFileName(INIFileName)
  854.             KitchenIni.WriteString("grill", "Line", "3086")
  855.             KitchenIni.WriteString("GrillTop", "Line", "3086")
  856.             KitchenIni.WriteString("GrillBottom", "Line", "3086")
  857.             KitchenIni.WriteString("HVGrillTop", "Line", "3086")
  858.             KitchenIni.WriteString("HVGrillBottom", "Line", "3086")
  859.             KitchenIni.WriteString("Drive", "Line", "3086")
  860.             KitchenIni.WriteString("Fry", "Line", "3086")
  861.             KitchenIni.WriteString("FryTop", "Line", "3086")
  862.             KitchenIni.WriteString("FryBottom", "Line", "3086")
  863.  
  864.             KitchenIni.WriteString("Fountain", "Line", "3086")
  865.             KitchenIni.WriteString("FountainTop", "Line", "3086")
  866.             KitchenIni.WriteString("FountainBottom", "Line", "3086")
  867.             KitchenIni.WriteString("Expedite", "Line", "3086")
  868.             KitchenIni.WriteString("Expedite2", "Line", "3086")
  869.             KitchenIni.WriteString("Drive2", "Line", "3086")
  870.  
  871.             If PosMaint.RedundantKitchen Then
  872.                 KitchenIni.WriteString("Monitors", "RedundantID", CStrNull(1))
  873.                 KitchenIni.WriteString("Monitors", "LocateActiveTimeout", CStrNull(15))
  874.                 KitchenIni.WriteString("Monitors", "SendOrderTimeout", CStrNull(5))
  875.             Else
  876.                 KitchenIni.DeleteKey("Monitors", "RedundantID")
  877.                 KitchenIni.DeleteKey("Monitors", "LocateActiveTimeout")
  878.                 KitchenIni.DeleteKey("Monitors", "SendOrderTimeout")
  879.             End If
  880.         Next
  881.         KitchenIni = Nothing
  882.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!