batch-example-2/displays/new-menu-background.xml

709 lines
52 KiB
XML
Raw Normal View History

2023-11-22 18:29:13 +00:00
<?xml version="1.0" encoding="UTF-8"?>
<gfx xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="Gfx-SE14.xsd">
<displaySettings displayType="onTop" cannotBeReplaced="true" position="specifyPositionInPixels" positionX="0" positionY="1250" securityCode="*" backColor="#E0E0E0" titleBar="false" maximumTagUpdateRate="1" focusHighlightColor="lime" disableFocusHighlight="true" size="specifySizeInPixels" width="2560" height="200" allowMultipleRunningCopies="false" cacheAfterDisplaying="false" sizeToMainWindow="false" showLastAcquiredValue="false" TrackScreenForNavigation="true" TrackName="" allowResizing="false" whenResized="scale" beepOnPress="false" highlightWhenCursorPassesOver="true" interactiveHighlightColor="black" displayOnScreenKeyboard="false" allowButtonActionOnError="true" fieldNotSelectedTextColor="black" fieldNotSelectedFillColor="white" fieldSelectedTextColor="white" fieldSelectedFillColor="navy" fieldInErrorNotSelectedTextColor="black" fieldInErrorNotSelectedFillColor="red" fieldInErrorSelectedTextColor="white" fieldInErrorSelectedFillColor="red" startupCommand="" shutdownCommand="display new-menu-background /M1" useGradientStyle="false" endColor="#F3EA2E" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text20" left="1030" top="22" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="black" wordWrap="true" sizeToFit="true" alignment="topLeft" fontFamily="Courier New" fontSize="11" bold="false" italic="false" underline="false" strikethrough="false" caption=""/>
<activeX name="FactoryTalkAlarmandEventBanner1" height="100" width="1540" left="11" top="66" visible="true" wallpaper="false" toolTipText="" exposeToVba="vbaControl" isReferenceObject="false" classId="{C6379734-8380-40D1-838D-F898DDCC8C1B}" keyNavigation="true" focusHighlight="true" pointerHighlight="true" tabIndex="1">
<data progId="FTAlarmSummary.FTAlarmBannerCtl.1" fileName="FTAlarmSummary.ocx" fileVersion="6.30.0.295" typeLibrary="{E9692737-F0FA-476B-B664-831812EBBCF4}" typeLibVersion="1.0" data="AA4AAKVUAAB3FAAAAQAAAA8AAAAIAAIAAAAAAAgAAgAAAAAACwD//wgAAgAAAAAACwD//wsA&#xA;//8LAP//CwD//wsA//8LAP//AAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIA&#xA;AAAAAAIAAAAJAAAAAQAAAAgAEAAAAEQAZQBmAGEAdQBsAHQAAAADAAQAAAADAAEAAAADAOgD&#xA;AAATAOkDAAADAOgDAAADAOgDAAADAB8AAAAAAAIAAAAAAAIAAAAKAAAAAQAAAAgAEAAAAEQA&#xA;ZQBmAGEAdQBsAHQAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAA&#xA;AAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAACAAAACgAAAAEAAAAIABAAAABEAGUA&#xA;ZgBhAHUAbAB0AAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAA&#xA;AgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAgAAAAoAAAABAAAACAAQAAAARABlAGYA&#xA;YQB1AGwAdAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIA&#xA;AAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAIAAAAKAAAAAQAAAAgAEAAAAEQAZQBmAGEA&#xA;dQBsAHQAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAA&#xA;AAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAABAAAAGAAAAAMADAAAAAgAIgAAAEEAcgBpAGEA&#xA;bAAgAFUAbgBpAGMAbwBkAGUAIABNAFMAAAALAAAACwAAAAsAAAATAJABAAATAMDAwAATAP//&#xA;/wATAAB41wATAAMAAAATAAIAAAAIAAIAAAAAAAIA//8CAP//CAAiAAAAQQByAGkAYQBsACAA&#xA;VQBuAGkAYwBvAGQAZQAgAE0AUwAAABMAAAAAAAIAAAACAAAAAwAAAAAAAgAAABMAAAAAABMA&#xA;AQAAAAIAAAACAAAAAQAAABAAAAACAP//AgD//wIA//8CAAAAAgD//wIAAAACAAAAAgAAAAIA&#xA;AAACAAAAAgD//wIAAAACAP//AgD//wIAAAACAAAAAQAAABAAAAATAAAAAAATAAEAAAATAAIA&#xA;AAATAAMAAAATAAQAAAATAAUAAAATAAYAAAATAAcAAAATAAgAAAATAAkAAAATAAoAAAATAAsA&#xA;AAATAAwAAAATAA0AAAATAA4AAAATAA8AAAABAAAAEAAAABMAGQAAABMAKAAAABMAGQAAABMA&#xA;pQAAABMApQAAABMApQAAABMApQAAABMAtAAAABMAtAAAABMAtAAAABMA9AEAABMAtAAAABMA&#xA;UAAAABMAVAEAABMAKAAAABMAUAAAAAEAAAAQAAAAEwAAAAAAEwAAAAAAEwAAAAAAEwAAAAAA&#xA;EwAAAAAAEwAAAAAAEwAAAAAAEwAAAAAAEwAAAAAAEwAAAAAAEwACAAAAEwACAAAAEwAAAAAA&#xA;EwAAAAAAEwAAAAAAEwAAAAAAAQAAABAAAAATAAAAAAATAAkAAAATAAAAAAATAAQAAAATAAQA&#xA;AAATAAQAAAATAAQAAAATAAMAAAATAAMAAAATAAMAAAATAAMAAAATAAMAAAATAAMAAAATAAMA&#xA;AAATAAkAAAATAAMAAAABAAAACQAAAAIA//8CAAAAAgD//wIA//8CAP//AgAAAAIAAAACAP//&#xA;AgAAAAEAAAAJAAAAEwAAAAAAEwABAAAAEwACAAAAEwADAAAAEwAEAAAAEwAFAAAAEwAHAAAA&#xA;EwAIAAAAEwAGAAAAAQAAAAkAAAAIABQAAABDAG8AbgBuAGUAYwB0AGUAZAAAAAgAGgAAAEQA&#xA;aQBzAGMAbwBuAG4AZQBjAHQAZQBkAAAACACiAAAASQBuAGQAaQBjAGEAdABlAHMAIABpAGYA&#xA;IAB0AGgAZQAgAGwAaQBtAGkAdAAgAGUAeABjAGUAZQBkAGUAZAAgADIAMAAwADAAIABlAHYA&#xA;ZQBuAHQAcwAgAG8AcgAgAGkAZgAgAGEAIAByAGUAZgByAGUAcwBoACAAcwBoAG8AdQBsAGQA&#xA;IABiAGUAIABwAGUAcgBmAG8AcgBtAGUAZAAuAAAACABaAAAATgB1AG0AYgBlAHIAIABvAGYA&#xA;IABJAG4AIABBAGwAYQByAG0AIABhAG4AZAAgAFUAbgBhAGMAawBuAG8AdwBsAGUAZwBlAGQA&#xA;IABhAGwAYQByAG0AcwAuAAAACABYAAAATgB1AG0AYgBlAHIAIABvAGYAIABJAG4AIABBAGwA&#xA;YQByAG0AIABhAG4AZAAgAEEAYwBrAG4AbwB3AGwAZQBkAGcAZQBkACAAYQBsAGEAcgBtAHMA&#xA;LgAAAAgAWAAAAE4AdQBtAGIAZQByACAAbwBmACAATgBvAHIAbQBhAGwAIABhAG4AZAAgAFUA&#xA;bgBhAGMAawBuAG8AdwBsAGUAZABnAGUAZAAgAGEAbABhAHIAbQBzAC4AAAAIAEAAAABOAHUA&#xA;bQBiAGUAcgAgAG8AZgAgAGYAYQB1AGwAdABzACAAZgBvAHIAIABhAGwAbAAgAGkAdABlAG0A&#xA;cwAuAAAACAA8AAAASQBnAG4AbwByAGUAIAB1AG4AawBuAG8AdwBuACAAYQBsAGEAcgBtACAA&#xA;bQBlAHMAcwBhAGcAZQBzAAAACAAyAAAATgB1AG0AYgBlAHIAIABvAGYAIABBAGMAdABpAHYA&#xA;ZQAgAEUAdgBlAG4AdABzAC4AAAABAAAACQAAAAIA//8CAP//AgAAAAIAAAACAAAAAgAAAAIA&#xA;AAACAAAAAgD//wEAAAAJAAAAEwAAAAAAEwABAAAAEwACAAAAEwADAAAAEwAEAAAAEwAFAAAA&#xA;EwAGAAAAEwAHAAAAEwAIAAAAAQAAAAkAAAAIAEAAAABBAGMAawBuAG8AdwBsAGUAZABnAGUA&#xA;IAB0AGgAZQAgAHMAZQBsAGUAYwB0AGUAZAAgAGEAbABhAHIAbQAuAAAACABeAAAAQQBjAGsA&#xA;bgBvAHcAbABlAGQAZwBlACAAdABoAGUAIABzAGUAbABlAGMAdABlAGQAIABhAGwAYQByAG0A&#xA;IAB3AGkAdABoACAAYQAgAGMAbwBtAG0AZQBuAHQALgAAAAgAVAAAAFMAaABlAGwAdgBlACAA&#xA;cwBlAGwAZQBjAHQAZQBkACAAYQBsAGEAcgBtACAAZgBvAHIAIABzAHAAZQBjAGkAZgBpAGUA&#xA;ZAAgAHQAaQBtAGUALgAAAAgAMAAAAFMAaQBsAGUAbgBjAGUAIABhAGwAbAAgAHQAaABlACAA&#xA;YQBsAGEAcgBtAHMALgAAAAgATgAAAEEAdQBkAGkAYgBsAGUAIABzAG8AdQBuAGQAIABmAG8A&#xA;cgAgAHQAaABlACAAYgBlAGwAbAAgAGkAcwAgAGUAbgBhAGIAbABlAGQALgAAAAgAUAAAAEEA&#xA;dQBkAGkAYgBsAGUAIABzAG8AdQBuAGQAIABmAG8AcgAgAHQAaABlACAAYgBlAGwAbAAgAGkA&#xA;cwAgAGQAaQBzAGEAYgBsAGUAZAAuAAAACAB0AAAAUgB1AG4AIAB0A
</activeX>
<group name="Group10" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<group name="Group1" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon1" height="44" width="66" left="11" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text1" height="25" width="46" left="21" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="ta521"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-ta521_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group2" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon2" height="44" width="66" left="88" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text2" height="25" width="46" left="98" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" charHeight="25" charWidth="8" bold="false" italic="false" underline="false" strikethrough="false" caption="ta522"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-ta522_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group3" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon3" height="44" width="77" left="165" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text3" height="25" width="55" left="176" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="mx520"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-mx520_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group4" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon4" height="44" width="66" left="253" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text4" height="25" width="47" left="263" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="dr540"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-dr540_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group5" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon5" height="44" width="66" left="330" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text5" height="25" width="51" left="338" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="ho561"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-ho561_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group6" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon6" height="44" width="66" left="407" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text6" height="25" width="45" left="418" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="bl560"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-bl560_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group7" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon7" height="44" width="77" left="484" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text7" height="25" width="51" left="497" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="ho580"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-ho580_mimic /M1" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
</group>
<group name="Group8" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon8" height="44" width="55" left="583" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text8" height="25" width="30" left="595" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="azo"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-config-azo_detail_screens" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group9" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon9" height="44" width="66" left="875" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text9" height="25" width="40" left="888" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="clear"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="abort * ; display new-mimics-overview" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group11" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon10" height="44" width="88" left="781" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text10" height="25" width="50" left="800" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="logout"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="Logout" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group12" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon11" height="44" width="88" left="686" top="11" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text11" height="25" width="72" left="694" top="21" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="overview"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="display new-mimics-overview" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<stringDisplay name="StringDisplay1" height="25" width="429" left="1125" top="15" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backColor="white" backStyle="transparent" foreColor="black" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" justification="left" dimensionsHeight="1" dimensionsWidth="33" characterOffset="0">
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction="Login" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
<connections>
<connection name="Value" expression="CurrentUserName( )"/>
</connections>
</stringDisplay>
<group name="Group13" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<rectangle name="Polygon12" height="44" width="90" left="950" top="10" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="black" foreColor="#AAAAAA" lineStyle="none" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
<text name="Text12" height="25" width="63" left="964" top="20" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="transparent" backColor="white" foreColor="white" wordWrap="true" sizeToFit="true" alignment="middleCenter" fontFamily="Arial Unicode MS" fontSize="14" bold="false" italic="false" underline="false" strikethrough="false" caption="security"/>
<animations>
<animateTouch TouchStyle="rectangular" pressAction="" repeatAction="" releaseAction=" display security" repeatRate="0.25">
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
</animateTouch>
</animations>
</group>
<group name="Group28" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<numericInput name="NumericInput1" height="22" width="66" left="1853" top="80" visible="true" toolTipText="" exposeToVba="vbaControl" isReferenceObject="false" fontFamily="Arial Unicode MS" charHeight="18" charWidth="1" bold="false" italic="false" underline="false" strikethrough="false" fieldLength="31" justification="left" enabledWhenExpressionIsTrue="true" tabIndex="2" continuouslyUpdate="true" discardInputOnFocusLost="false" defaultData="" decimalPlaces="0" format="decimal" overflow="showExponent" leadingCharacter="blanks" inputSecurityCode="*" displayOnScreenKeypad="false" keypadCustomCaption="" decimalPlaceType="fixed" remarkCheck="false" remarkInfo="">
<connections>
<connection name="Value" expression="system\second"/>
</connections>
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
<eSignature requireElectronicSignature="false" allowBlankComment="false" requireReAuthentication="false" requireCounterSignature="false" authorizedGroup="" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
<useVariable requireUseVariable="false" tagName="" confirmationValue="1" eSigValue1="2" eSigValue2="3">
<confirm buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
<eSignature_1 allowBlankComment="false" requireReAuthentication="false" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
<eSignature_2 allowBlankComment="false" authorizedGroup="Administrators" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
</useVariable>
</numericInput>
<rectangle name="Polygon13" height="75" width="175" left="1848" top="50" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="#E0E0E0" foreColor="#E0E0E0" lineStyle="solid" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
</group>
<group name="Group14" visible="true" wallpaper="false" toolTipText="" exposeToVba="notExposed" isReferenceObject="false">
<numericInput name="NumericInput2" height="22" width="66" left="1863" top="90" visible="true" toolTipText="" exposeToVba="vbaControl" isReferenceObject="false" fontFamily="Arial Unicode MS" charHeight="18" charWidth="1" bold="false" italic="false" underline="false" strikethrough="false" fieldLength="31" justification="left" enabledWhenExpressionIsTrue="true" tabIndex="3" continuouslyUpdate="true" discardInputOnFocusLost="false" defaultData="" decimalPlaces="0" format="decimal" overflow="showExponent" leadingCharacter="blanks" inputSecurityCode="*" displayOnScreenKeypad="false" keypadCustomCaption="" decimalPlaceType="fixed" remarkCheck="false" remarkInfo="">
<connections>
<connection name="Value" expression="system\second"/>
</connections>
<confirm confirmAction="false" buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
<eSignature requireElectronicSignature="false" allowBlankComment="false" requireReAuthentication="false" requireCounterSignature="false" authorizedGroup="" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
<useVariable requireUseVariable="false" tagName="" confirmationValue="1" eSigValue1="2" eSigValue2="3">
<confirm buttonSetting="okCancel" titleBar="true" titleBarText="Confirmation" windowPosition="Centered of screen">
<caption fontFamily="Arial Unicode MS" fontSize="10" bold="false" italic="false" underline="false" strikethrough="false" caption="Are you sure you want to perform this action?"/>
<imageSettings imageReference="noImage"/>
</confirm>
<eSignature_1 allowBlankComment="false" requireReAuthentication="false" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
<eSignature_2 allowBlankComment="false" authorizedGroup="Administrators" ShowConfirmationMessage="false" ConfirmationMessage="By completing this action, I certify that I have reviewed the changes that will be made to the system. I have approval and permission to perform this change."/>
</useVariable>
</numericInput>
<rectangle name="Polygon14" height="75" width="175" left="1858" top="60" visible="true" toolTipText="" exposeToVba="notExposed" isReferenceObject="false" backStyle="solid" backColor="#E0E0E0" foreColor="#E0E0E0" lineStyle="solid" lineWidth="1" patternStyle="none" patternColor="#E0E0E0" endColor="white" gradientStop="50" gradientDirection="gradientDirectionHorizontal" gradientShadingStyle="gradientHorizontalFromRight"/>
</group>
<vbaProject>
<vbaReferencesLink>
<!--All checked references on the references dialog box!-->
<vbaRefLink hash="ad542389a48a5aae612a313b3334f89f" TypeLib_Name="VBA" Description="Visual Basic For Applications">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBWAEIAQQAsACAARABlAHMAYwByAGkAcAB0AGkAbwBu
AD0AVgBpAHMAdQBhAGwAIABCAGEAcwBpAGMAIABGAG8AcgAgAEEAcABwAGwAaQBjAGEAdABpAG8A
bgBzACwAIABHAFUASQBEAD0AewAwADAAMAAyADAANABFAEYALQAwADAAMAAwAC0AMAAwADAAMAAt
AEMAMAAwADAALQAwADAAMAAwADAAMAAwADAAMAAwADQANgB9ACwAIABNAGEAagBvAHIAVgBlAHIA
cwBpAG8AbgA9ADQALAAgAE0AaQBuAG8AcgBWAGUAcgBzAGkAbwBuAD0AMAAsACAA
]]>
</vbaRefLink>
<vbaRefLink hash="9bf92fbe175229b5f0601c4bf4381b5f" TypeLib_Name="DisplayClient" Description="RSView Display Client Object Model">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBEAGkAcwBwAGwAYQB5AEMAbABpAGUAbgB0ACwAIABE
AGUAcwBjAHIAaQBwAHQAaQBvAG4APQBSAFMAVgBpAGUAdwAgAEQAaQBzAHAAbABhAHkAIABDAGwA
aQBlAG4AdAAgAE8AYgBqAGUAYwB0ACAATQBvAGQAZQBsACwAIABHAFUASQBEAD0AewA4ADUANAA2
ADkAMwA0ADAALQBGADEAOAA5AC0AMQAxAEQAMQAtADkAQwAxADcALQAwADAANgAwADkANwA3AEMA
QQBBAEYAMQB9ACwAIABNAGEAagBvAHIAVgBlAHIAcwBpAG8AbgA9ADEALAAgAE0AaQBuAG8AcgBW
AGUAcgBzAGkAbwBuAD0AMAAsACAA
]]>
</vbaRefLink>
<vbaRefLink hash="b0d387d1804d29964988314e5c534502" TypeLib_Name="stdole" Description="OLE Automation">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBzAHQAZABvAGwAZQAsACAARABlAHMAYwByAGkAcAB0
AGkAbwBuAD0ATwBMAEUAIABBAHUAdABvAG0AYQB0AGkAbwBuACwAIABHAFUASQBEAD0AewAwADAA
MAAyADAANAAzADAALQAwADAAMAAwAC0AMAAwADAAMAAtAEMAMAAwADAALQAwADAAMAAwADAAMAAw
ADAAMAAwADQANgB9ACwAIABNAGEAagBvAHIAVgBlAHIAcwBpAG8AbgA9ADIALAAgAE0AaQBuAG8A
cgBWAGUAcgBzAGkAbwBuAD0AMAAsACAA
]]>
</vbaRefLink>
<vbaRefLink hash="77ac50c0d5820bbf428c5a5d2e6fe1f4" TypeLib_Name="FTAlarmEventSummary" Description="FactoryTalk Alarm and Event Controls">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBGAFQAQQBsAGEAcgBtAEUAdgBlAG4AdABTAHUAbQBt
AGEAcgB5ACwAIABEAGUAcwBjAHIAaQBwAHQAaQBvAG4APQBGAGEAYwB0AG8AcgB5AFQAYQBsAGsA
IABBAGwAYQByAG0AIABhAG4AZAAgAEUAdgBlAG4AdAAgAEMAbwBuAHQAcgBvAGwAcwAsACAARwBV
AEkARAA9AHsARQA5ADYAOQAyADcAMwA3AC0ARgAwAEYAQQAtADQANwA2AEIALQBCADYANgA0AC0A
OAAzADEAOAAxADIARQBCAEIAQwBGADQAfQAsACAATQBhAGoAbwByAFYAZQByAHMAaQBvAG4APQAx
ACwAIABNAGkAbgBvAHIAVgBlAHIAcwBpAG8AbgA9ADAALAAgAA==]]>
</vbaRefLink>
<vbaRefLink hash="4d04292f7c12576e749760ecf5ac2ea8" TypeLib_Name="DisplayClientEx" Description="RSView Display Client Object Model">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBEAGkAcwBwAGwAYQB5AEMAbABpAGUAbgB0AEUAeAAs
ACAARABlAHMAYwByAGkAcAB0AGkAbwBuAD0AUgBTAFYAaQBlAHcAIABEAGkAcwBwAGwAYQB5ACAA
QwBsAGkAZQBuAHQAIABPAGIAagBlAGMAdAAgAE0AbwBkAGUAbAAsACAARwBVAEkARAA9AHsAOQBG
ADcAMgA2ADcAQwAxAC0ANQA2ADcAQgAtADEAMQBEADMALQBBAEMAMwBCAC0AMAAwADYAMAA5ADcA
RAA4AEMANwBFAEIAfQAsACAATQBhAGoAbwByAFYAZQByAHMAaQBvAG4APQAxACwAIABNAGkAbgBv
AHIAVgBlAHIAcwBpAG8AbgA9ADAALAAgAA==]]>
</vbaRefLink>
<vbaRefLink hash="0f957d8080265b7a6ff492362f498c1e" TypeLib_Name="BatchRemote" Description="Batch Server Remote 1.0 Type Library">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[VAB5AHAAZQBMAGkAYgBfAE4AYQBtAGUAPQBCAGEAdABjAGgAUgBlAG0AbwB0AGUALAAgAEQAZQBz
AGMAcgBpAHAAdABpAG8AbgA9AEIAYQB0AGMAaAAgAFMAZQByAHYAZQByACAAUgBlAG0AbwB0AGUA
IAAxAC4AMAAgAFQAeQBwAGUAIABMAGkAYgByAGEAcgB5ACwAIABHAFUASQBEAD0AewBEADMANgAz
ADkANgAzADIALQBBAEUARgBDAC0AMQAxAEQAMQAtAEIANgBBAEEALQAwADAANgAwADkANwBFAEUA
MgA1ADYAQwB9ACwAIABNAGEAagBvAHIAVgBlAHIAcwBpAG8AbgA9ADEALAAgAE0AaQBuAG8AcgBW
AGUAcgBzAGkAbwBuAD0AMAAsACAA
]]>
</vbaRefLink>
</vbaReferencesLink>
<vbaItem>
<!--Item Name:ThisDisplay, Item Type:HostProjectItem-->
<encryptedData hash="8d11e2ea90dfed5a96a34bbe51e8b9ff">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[J05BTUU9VGhpc0Rpc3BsYXksVFlQRT0zDQpWRVJTSU9OIDEuMCBDTEFTUw0KQkVHSU4NCiAgTXVs
dGlVc2UgPSAtMSAgJ1RydWUNCkVORA0KQXR0cmlidXRlIFZCX05hbWUgPSAiVGhpc0Rpc3BsYXki
DQpBdHRyaWJ1dGUgVkJfR2xvYmFsTmFtZVNwYWNlID0gRmFsc2UNCkF0dHJpYnV0ZSBWQl9DcmVh
dGFibGUgPSBGYWxzZQ0KQXR0cmlidXRlIFZCX1ByZWRlY2xhcmVkSWQgPSBUcnVlDQpBdHRyaWJ1
dGUgVkJfRXhwb3NlZCA9IFRydWUNCg==]]>
</encryptedData>
<vbaCode>
<![CDATA[Dim serverNode As String
Dim r As New BatchRemote.RemoteSupport
Dim units() As Unit
Dim timeTag As Tag
Dim errorTag As Tag
Dim myGroup As TagGroup
Dim initialised As Boolean
Dim started As Boolean
Dim starting As Boolean
Dim DateAndTimeIntegerTag As Tag
Dim apiDateAndTimeIntegerTag As Tag
Dim apiControllerTag As Tag
Dim rndkey As String
Dim rndkeyTag As Tag
Dim tstring As String
Private Function getUnit(ByVal name As String) As Unit
For x = 0 To UBound(units) - 1
If LCase(units(x).name) = LCase(name) Then
Set getUnit = units(x)
Exit Function
End If
Next x
End Function
Private Function getRndKey()
starttime = VBA.Timer
Dim x As Integer
Dim y As Integer
For x = 0 To 30000
For y = 1 To 4
tstring = CStr(x) & CStr(y)
Next y
Next x
getRndKey = Timer - starttime - (Round(Timer - starttime))
End Function
Private Sub Start()
On Error GoTo err:
s = r.GetItem("UnitsList")
Dim unitStrings() As String
unitStrings = Split(s, vbCrLf)
unitslength = UBound(unitStrings) - LBound(unitStrings)
ReDim Preserve units(UBound(unitStrings) - 1)
1:
For x = LBound(unitStrings) To UBound(unitStrings) - 1
Dim itemStrings() As String
itemStrings = Split(unitStrings(x), vbTab)
2:
Dim u As Unit
Set u = New Unit
u.id = itemStrings(0)
u.area = Me.AreaName
3: u.name = LCase(itemStrings(1))
Set units(x) = u
Next x
errorTag.Value = ""
started = True
Exit Sub
err:
errorTag.Value = err.Description
End Sub
Private Sub clearUpdated()
For x = 0 To UBound(units) - 1
Dim s As String
s = units(x).values.batch
units(x).init
Next x
End Sub
Private Sub setTags()
Set g2 = Application.CreateTagGroup(Me.AreaName)
g2.Add ("system\dateandtimeinteger")
Set dTag = g2.Item("system\dateandtimeinteger")
For x = 0 To UBound(units) - 1
Call units(x).setMe
Next x
apiDateAndTimeIntegerTag.Value = Round(dTag.Value / 10)
End Sub
Private Sub Display_AnimationStart()
Set myGroup = Application.CreateTagGroup(Me.AreaName)
myGroup.Add ("@ClientTags\String01")
Set rndkeyTag = myGroup.Item("@ClientTags\String01")
If rndkeyTag.Value = "" Then
rndkey = CStr(VBA.Timer) & ":" & CStr(getRndKey) & ":" & CStr(getRndKey) & ":" & CStr(getRndKey)
rndkeyTag.Value = rndkey
Else
rndkey = rndkeyTag.Value
End If
myGroup.Add ("batch_server")
myGroup.Item("batch_server").RefreshFromSource
myGroup.Add ("batch\time")
Set timeTag = myGroup.Item("batch\time")
myGroup.Add ("batch\error")
Set errorTag = myGroup.Item("batch\error")
myGroup.Add ("system\dateandtimeinteger")
Set DateAndTimeIntegerTag = myGroup.Item("system\dateandtimeinteger")
myGroup.Add ("batch\apidateandtimeinteger")
Set apiDateAndTimeIntegerTag = myGroup.Item("batch\apidateandtimeinteger")
myGroup.Add ("batch\apicontroller")
Set apiControllerTag = myGroup.Item("batch\apicontroller")
If Round(DateAndTimeIntegerTag.Value / 10) - apiDateAndTimeIntegerTag.Value > 1 Then
apiControllerTag.Value = rndkey
apiDateAndTimeIntegerTag.Value = Round(DateAndTimeIntegerTag.Value / 10)
errorTag.Value = "update"
timeTag.Value = "????"
End If
serverNode = myGroup.Item("batch_server").Value
'MsgBox serverNode
r.Node = serverNode
End Sub
Private Sub FactoryTalkAlarmandEventBanner1_EventClick(ByVal Item As FTAlarmEventSummary.IEventItem)
End Sub
Private Sub NumericInput1_Change()
On Error GoTo errh1
If NumericInput1.Value Mod 5 = 0 Then
If Not initialised Then
initialised = True
Exit Sub
End If
If apiControllerTag.Value <> rndkey Then
If DateAndTimeIntegerTag.Value - apiDateAndTimeIntegerTag.Value > 20 Then
apiControllerTag.Value = rndkey
apiDateAndTimeIntegerTag.Value = DateAndTimeIntegerTag.Value
End If
Exit Sub
End If
If Not started Then
Start
Exit Sub
End If
On Error GoTo errh
update
errorTag.Value = ""
End If
Exit Sub
errh:
errorTag.Value = err.Description
errh1:
End Sub
Private Sub update()
clearUpdated
Dim s As String
s = r.GetItem("TIME")
timeTag.Value = s
Dim values As UnitValues
Dim u As Variant
For Each u In units
s = r.GetItem(u.id & "BatchId")
u.values.batch = s
Next u
update1
setTags
End Sub
Private Sub update1()
Dim unitProcedure As String
Dim unitProcedureId As String
Dim batch As String
s = r.GetItem("BatchList")
Dim batches() As String
batches = Split(s, vbCrLf)
Dim uu As Unit
For x = LBound(batches) To UBound(batches) - 1
Dim c As String
Set values = New UnitValues
values.recipe = Split(batches(x), vbTab)(1)
values.recipeDescription = Split(batches(x), vbTab)(2)
values.createId = Split(batches(x), vbTab)(8)
s = r.GetItem(Split(batches(x), vbTab)(8) & "BatchStepDataList2")
Dim batchSteps() As String
batchSteps = Split(s, vbCrLf)
For xx = LBound(batchSteps) To UBound(batchSteps) - 1
Dim SS() As String
SS = Split(batchSteps(xx), vbTab)
If SS(2) = "1" Then
values.procedureId = SS(0)
values.procedure = SS(1)
End If
If SS(2) = "2" Then
values.unitProcedureId = SS(0)
values.unitProcedure = SS(1)
End If
If SS(2) = "3" Then
If Trim(SS(6)) <> "" Then
Set uu = getUnit(SS(8))
If Not uu Is Nothing Then
uu.values.recipe = values.recipe
If values.unitProcedureId <> "" Then
uu.values.operation = SS(1)
End If
uu.values.operationId = SS(0)
uu.values.procedure = values.procedure
uu.values.procedureId = values.procedureId
uu.values.unitProcedureId = values.unitProcedureId
If values.procedureId <> "" Then
uu.values.unitProcedure = values.unitProcedure
End If
uu.values.state = SS(6)
uu.values.failure = Trim(SS(14))
values.unitProcedure = ""
values.unitProcedureId = ""
'Exit Sub
End If
End If
End If
If SS(2) = "4" Then
If LCase(SS(1)) Like "ep_*" Then
If SS(6) = "RUNNING" Then
uu.values.eps = uu.values.eps + 1
End If
End If
End If
Next xx
Next x
End Sub
]]>
</vbaCode>
</vbaItem>
<vbaItem>
<!--Item Name:Batch, Item Type:ClassModule-->
<encryptedData hash="31e02ec10e8c45dfd21cdf8343a46beb">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[J05BTUU9QmF0Y2gsVFlQRT0xDQpWRVJTSU9OIDEuMCBDTEFTUw0KQkVHSU4NCiAgTXVsdGlVc2Ug
PSAtMSAgJ1RydWUNCkVORA0KQXR0cmlidXRlIFZCX05hbWUgPSAiQmF0Y2giDQpBdHRyaWJ1dGUg
VkJfR2xvYmFsTmFtZVNwYWNlID0gRmFsc2UNCkF0dHJpYnV0ZSBWQl9DcmVhdGFibGUgPSBGYWxz
ZQ0KQXR0cmlidXRlIFZCX1ByZWRlY2xhcmVkSWQgPSBGYWxzZQ0KQXR0cmlidXRlIFZCX0V4cG9z
ZWQgPSBGYWxzZQ0K
]]>
</encryptedData>
<vbaCode>
<![CDATA[Public id As String
Public createId As String
]]>
</vbaCode>
</vbaItem>
<vbaItem>
<!--Item Name:Unit, Item Type:ClassModule-->
<encryptedData hash="b4dc39c109252b364b6f037ec2b3f73a">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[J05BTUU9VW5pdCxUWVBFPTENClZFUlNJT04gMS4wIENMQVNTDQpCRUdJTg0KICBNdWx0aVVzZSA9
IC0xICAnVHJ1ZQ0KRU5EDQpBdHRyaWJ1dGUgVkJfTmFtZSA9ICJVbml0Ig0KQXR0cmlidXRlIFZC
X0dsb2JhbE5hbWVTcGFjZSA9IEZhbHNlDQpBdHRyaWJ1dGUgVkJfQ3JlYXRhYmxlID0gRmFsc2UN
CkF0dHJpYnV0ZSBWQl9QcmVkZWNsYXJlZElkID0gRmFsc2UNCkF0dHJpYnV0ZSBWQl9FeHBvc2Vk
ID0gRmFsc2UNCg==]]>
</encryptedData>
<vbaCode>
<![CDATA[Public area As String
Public id As String
Dim batch As Tag
Dim createId As Tag
Dim procedure As Tag
Dim procedureId As Tag
Dim operation As Tag
Dim unitProcedure As Tag
Dim recipe As Tag
Dim operationId As Tag
Dim unitProcedureId As Tag
Dim failure As Tag
Dim eps As Tag
Dim state As Tag
Dim mvarValues As New UnitValues
Dim mvarName As String
Dim myGroup
Public Property Let name(n As String)
mvarName = n
Set myGroup = Application.CreateTagGroup(area)
myGroup.Add (n & "\batch_info\batch")
myGroup.Add (n & "\batch_info\create_id")
myGroup.Add (n & "\batch_info\unit_procedure")
myGroup.Add (n & "\batch_info\unit_procedure_id")
myGroup.Add (n & "\batch_info\operation")
myGroup.Add (n & "\batch_info\operation_id")
myGroup.Add (n & "\batch_info\state")
myGroup.Add (n & "\batch_info\failure")
myGroup.Add (n & "\batch_info\eps")
myGroup.Add (n & "\batch_info\recipe")
myGroup.Add (n & "\batch_info\procedure")
myGroup.Add (n & "\batch_info\procedure_id")
Set batch = myGroup.Item(n & "\batch_info\batch")
Set createId = myGroup.Item(n & "\batch_info\create_id")
Set unitProcedure = myGroup.Item(n & "\batch_info\unit_procedure")
Set unitProcedureId = myGroup.Item(n & "\batch_info\unit_procedure_id")
Set operation = myGroup.Item(n & "\batch_info\operation")
Set operationId = myGroup.Item(n & "\batch_info\operation_id")
Set state = myGroup.Item(n & "\batch_info\state")
Set failure = myGroup.Item(n & "\batch_info\failure")
Set eps = myGroup.Item(n & "\batch_info\eps")
Set recipe = myGroup.Item(n & "\batch_info\recipe")
Set procedure = myGroup.Item(n & "\batch_info\procedure")
Set procedureId = myGroup.Item(n & "\batch_info\procedure_id")
End Property
Public Property Get name() As String
name = mvarName
End Property
Public Property Get values() As UnitValues
Set values = mvarValues
End Property
Public Sub init()
Set mvarValues = New UnitValues
End Sub
Public Sub setMe()
recipe.Value = Me.values.recipe
operation.Value = Me.values.operation
operationId.Value = Me.values.operationId
procedure.Value = Me.values.procedure
procedureId.Value = Me.values.procedureId
unitProcedure.Value = Me.values.unitProcedure
unitProcedureId.Value = Me.values.unitProcedureId
state.Value = Me.values.state
failure.Value = Me.values.failure
batch.Value = Me.values.batch
createId.Value = Me.values.createId
eps.Value = Me.values.eps
End Sub
]]>
</vbaCode>
</vbaItem>
<vbaItem>
<!--Item Name:UnitValues, Item Type:ClassModule-->
<encryptedData hash="487b9490b0d834bfdabab6ab72e5de82">
<!--The following VBA code is encoded.Please do not edit or import will fail.-->
<![CDATA[J05BTUU9VW5pdFZhbHVlcyxUWVBFPTENClZFUlNJT04gMS4wIENMQVNTDQpCRUdJTg0KICBNdWx0
aVVzZSA9IC0xICAnVHJ1ZQ0KRU5EDQpBdHRyaWJ1dGUgVkJfTmFtZSA9ICJVbml0VmFsdWVzIg0K
QXR0cmlidXRlIFZCX0dsb2JhbE5hbWVTcGFjZSA9IEZhbHNlDQpBdHRyaWJ1dGUgVkJfQ3JlYXRh
YmxlID0gRmFsc2UNCkF0dHJpYnV0ZSBWQl9QcmVkZWNsYXJlZElkID0gRmFsc2UNCkF0dHJpYnV0
ZSBWQl9FeHBvc2VkID0gRmFsc2UNCg==]]>
</encryptedData>
<vbaCode>
<![CDATA[Public recipe As String
Public recipeDescription As String
Public batch As String
Public createId As String
Public operation As String
Public procedure As String
Public procedureId As String
Public unitProcedure As String
Public operationId As String
Public unitProcedureId As String
Public failure As String
Public eps As Integer
Public state As String
Private Sub Class_Initialize()
Me.eps = 0
End Sub
]]>
</vbaCode>
</vbaItem>
</vbaProject>
</gfx>