Public Function Main(ISN, Error, DEV, TSP, DATA, ROUTE, CPKFlag, STATION, Retry, LibDef) '11011580
Dim var_B4 As Me
Dim var_104 As App
Dim var_20 As Me
Dim var_2C As Me
loc_110115E5: repz stosd
loc_110115F2: repz stosd
loc_11011700: On Error Resume Next
loc_11011726: var_2D0 = var_B4
loc_1101172C: var_1DC = vbNullString
loc_1101174D: var_114 = vbNullString
loc_11011764: GETSETTING.1 = PropBag.ReadProperty(var_114, var_2C8)
loc_1101178F: If var_1101D04E = 0 Then GoTo loc_110160A2
loc_1101179C: If var_1101D04C = 0 Then GoTo loc_11016080
loc_110117BD: var_2D0 = var_50
loc_110117DA: var_eax = Unknown_VTable_Call[edx+0000001Ch]
loc_11011801: call __vbaVarVargNofree(var_50, "http://10.176.33.13/SFISWebService/SFISTSPWebService.asmx?WSDL", vbNullString, vbNullString, vbNullString, var_B4, __vbaVarVargNofree, 00000008h)
loc_11011804: var_ret_1 = CStr(__vbaVarVargNofree(var_50, "http://10.176.33.13/SFISWebService/SFISTSPWebService.asmx?WSDL", vbNullString, vbNullString, vbNullString, var_B4, __vbaVarVargNofree, 00000008h))
loc_11011818: var_E0 = var_ret_1
loc_11011834: call __vbaVarVargNofree
loc_11011837: var_ret_2 = CStr(__vbaVarVargNofree)
loc_11011845: var_E8 = var_ret_2
loc_11011853: setz cl
loc_11011863: call __vbaVarVargNofree
loc_11011866: var_ret_3 = CStr(__vbaVarVargNofree)
loc_11011874: var_E4 = var_ret_3
loc_11011887: var_2D0 = Len(var_E4)
loc_110118B0: If Len(var_E4) = 0 Then GoTo loc_11014702
loc_110118B6: var_1DC = "TEST","STATUS","VALUE","UCL","LCL"
loc_11011905: call __vbaVarVargNofree(00000001h)
loc_11011934: var_144 = "TEST","STATUS","VALUE","UCL","LCL" & Chr(13) & Chr(10)
loc_11011940: call InStr(var_154, 00000000h, var_144, __vbaVarVargNofree(00000001h))
loc_11011954: var_2D0 = (InStr(var_154, 00000000h, var_144, __vbaVarVargNofree(00000001h)) = 0)
loc_11011990: If var_2D0 = 0 Then GoTo loc_11011A38
loc_11011996: var_1DC = "TEST","STATUS","VALUE","UCL","LCL"
loc_110119C2: var_124 = Chr(10)
loc_110119EE: var_144 = "TEST","STATUS","VALUE","UCL","LCL" & Chr(13) & var_124
loc_110119FA: call __vbaVarVargNofree(var_144)
loc_11011A04: var_154 = & __vbaVarVargNofree(var_144)
loc_11011A0B: call __vbaVargVarMove
loc_11011A38: 'Referenced from: 11011990
loc_11011A67: var_104 = Global.App
loc_11011A91: var_E0 = Global.Path
loc_11011AD3: var_ret_4 = var_E0 & "\Versatile.ini"
loc_11011AE1: call __vbaStrFixstr(0000000Ah, var_DC, 0000000Ah, var_ret_4)
loc_11011AF9: var_ret_5 = __vbaStrFixstr(0000000Ah, var_DC, 0000000Ah, var_ret_4)
loc_11011B29: var_eax = GetPrivateProfileString("SFIS_Setting", "SFIS_MANUAL", "ON", var_ret_5, , )
loc_11011B54: call __vbaLsetFixstr(0000000Ah, var_DC, var_F4)
loc_11011B5E: setg cl
loc_11011BBE: If var_104 = 0 Then GoTo loc_11014482
loc_11011BCD: call __vbaStrFixstr(0000000Ah, var_DC)
loc_11011BDB: var_E0 = __vbaStrFixstr(0000000Ah, var_DC)
loc_11011BE3: var_1DC = var_E0
loc_11011C01: var_114 = Ucase(var_E0)
loc_11011C17: call __vbaLsetFixstr(0000000Ah, var_DC, var_E0)
loc_11011C1D: var_1EC = "ON"
loc_11011C5E: call InStr(var_124, 00000000h, var_1F4, var_114, 00000001h)
loc_11011C74: var_2D0 = (InStr(var_124, 00000000h, var_1F4, var_114, 00000001h) > 0)
loc_11011CA2: If (InStr(var_124, 00000000h, var_1F4, var_114, 00000001h) > 0) = 0 Then GoTo loc_1101329B
loc_11011CCA: var_1EC = "SFIS warning"
loc_11011CF0: var_124 = "SFIS warning"
loc_11011CF2: var_1DC = "Upload error to SFIS?"
loc_11011D12: var_114 = "Upload error to SFIS?"
loc_11011D40: setz bl
loc_11011D75: If ebx = 0 Then GoTo loc_1101317C
loc_11011D7B: var_1EC = "tsp_iad1"
loc_11011D90: var_20C = "ap_i1sus"
loc_11011DA0: var_22C = vbNullString
loc_11011DC8: call __vbaVarVargNofree
loc_11011DD1: var_25C = CLng(__vbaVarVargNofree)
loc_11011ECC: call __vbaVargVar(var_318, var_258)
loc_11011F58: var_114 = Chr(127)
loc_11011F74: var_124 = Split(var_50."WTSP_LOGINOUT", var_114, -1, 0)
loc_11011F83: var_3C = var_124
loc_11011FCD: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_11011FD7: var_ret_B = CInt(__vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8))
loc_11011FE0: ebx = var_ret_B - 1
loc_11011FE7: ebx = var_ret_B - 1 + 1
loc_11011FEA: var_2D0 = var_ret_B - 1 + 1
loc_11011FFF: If var_ret_B - 1 + 1 = 0 Then GoTo loc_110121D7
loc_11012005: var_1EC = "tsp_iad1"
loc_1101201A: var_20C = "ap_i1sus"
loc_1101202A: var_22C = vbNullString
loc_11012052: call __vbaVarVargNofree
loc_1101205B: var_25C = CLng(__vbaVarVargNofree)
loc_11012156: call __vbaVargVar(var_328, var_258)
loc_110121C9: var_54 = var_50."WTSP_LOGINOUT"
loc_110121D7: 'Referenced from: 11011FFF
loc_110121E0: var_114 = Chr(0)
loc_11012207: call __vbaVarVargNofree(00000001h)
loc_1101221A: call InStr(var_124, 00000000h, var_114, __vbaVarVargNofree(00000001h))
loc_1101222E: var_2D0 = (InStr(var_124, 00000000h, var_114, __vbaVarVargNofree(00000001h)) <> 0)
loc_11012255: If var_2D0 = 0 Then GoTo loc_11012345
loc_11012273: call __vbaVarVargNofree(var_110061B8, ",,", 00000001h, FFFFFFFFh, 00000000h)
loc_1101228A: var_10C = Replace(CStr(__vbaVarVargNofree(var_110061B8, ",,", 00000001h, FFFFFFFFh, 00000000h)), , , , , )
loc_110122A2: call __vbaVargVarMove
loc_110122DC: var_E4 = CStr(Chr(0))
loc_110122EB: call __vbaVarVargNofree(var_E4, var_110061B8, 00000001h, FFFFFFFFh, 00000000h)
loc_11012302: var_11C = Replace(CStr(__vbaVarVargNofree(var_E4, var_110061B8, 00000001h, FFFFFFFFh, 00000000h)), , , , , )
loc_1101231A: call __vbaVargVarMove
loc_11012345: 'Referenced from: 11012255
loc_11012345: var_20C = "tsp_iad1"
loc_1101235A: var_22C = "ap_i1sus"
loc_11012373: call __vbaVarVargNofree
loc_11012376: var_ret_D = CStr(__vbaVarVargNofree)
loc_1101237C: var_10C = var_ret_D
loc_1101239A: var_124 = Ucase(var_ret_D)
loc_110123A9: call __vbaVarVargNofree
loc_110123B2: var_25C = CLng(__vbaVarVargNofree)
loc_110123C1: call __vbaVarVargNofree
loc_110123CA: var_27C = CInt(__vbaVarVargNofree)
loc_1101244B: call __vbaVargVar(var_338, var_228)
loc_110124C5: call __vbaVargVar(var_348, var_258)
loc_110124F5: call __vbaVargVar(var_358, eax+0000000Ch)
loc_11012544: call __vbaVargVar(var_368, var_278)
loc_1101258B: var_54 = var_50."WTSP_RESULT"
loc_110125C2: If InStr(1, var_54, "Login First", 0) > 0 Then GoTo loc_11011D7B
loc_110125D1: var_114 = Chr(127)
loc_110125FC: var_3C = Split(var_54, var_114, -1, 0)
loc_1101264C: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_1101267C: var_ret_10 = CInt(var_114)
loc_11012682: eax = var_ret_10 - 1
loc_11012689: eax = var_ret_10 - 1 + 1
loc_1101268C: var_1FC = var_ret_10 - 1 + 1
loc_110126B9: var_144 = IIf(var_ret_10 - 1 + 1, 0, 1)
loc_110126C6: var_144 = CInt()
loc_110126CE: var_5C = var_144
loc_1101273B: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8, 2, 2, var_144)
loc_11012749: call __vbaVargVarMove
loc_11012752: If var_144 <> 0 Then GoTo loc_1101315F
loc_11012773: var_2D0 = var_20
loc_1101278B: GETERDESC.var_2C8 = PropBag.ReadProperty(Error, var_4C)
loc_110127E2: var_114 = vbNullString
loc_110127EB: var_1DC = var_28
loc_11012827: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_1101287A: var_104 = Global.App
loc_110128A4: var_E0 = Global.Path
loc_110128E6: var_ret_11 = var_E0 & "\Versatile.ini"
loc_110128F4: call __vbaStrFixstr(00000014h, var_B0, 00000014h, var_ret_11, var_4C, STATION, var_1E4, var_114, var_2C8)
loc_1101290C: var_ret_12 = __vbaStrFixstr(00000014h, var_B0, 00000014h, var_ret_11, var_4C, STATION, var_1E4, var_114, var_2C8)
loc_1101291B: var_ret_13 = vbNullString
loc_1101292A: var_ret_14 = "project"
loc_11012939: var_ret_15 = "iPLAS"
loc_1101293C: var_eax = GetPrivateProfileString(var_ret_15, var_ret_14, var_ret_13, var_ret_12, , )
loc_11012941: var_2CC = GetPrivateProfileString(var_ret_15, var_ret_14, var_ret_13, var_ret_12, , )
loc_1101296B: call __vbaLsetFixstr(00000014h, var_B0, var_F4)
loc_1101297B: setg cl
loc_110129E4: If var_2E0 = 0 Then GoTo loc_1101315F
loc_11012A18: var_104 = Global.App
loc_11012A4C: var_E0 = Global.Path
loc_11012A8E: var_ret_17 = var_E0 & "\Versatile.ini"
loc_11012A9C: call __vbaStrFixstr(00000014h, var_88, 00000014h, var_ret_17)
loc_11012AE4: var_eax = GetPrivateProfileString("iPLAS", "station", vbNullString, __vbaStrFixstr(00000014h, var_88, 00000014h, var_ret_17), , )
loc_11012B0F: call __vbaLsetFixstr(00000014h, var_88, var_F4)
loc_11012B19: setg al
loc_11012B79: If var_E0 = 0 Then GoTo loc_1101315F
loc_11012B7F: var_1DC = "#SAVE:SNE,FAIL,"
loc_11012BB3: call __vbaVarVargNofree(00000001h)
loc_11012BC6: call InStr(var_114, 00000001h, var_1E4, __vbaVarVargNofree(00000001h))
loc_11012BE2: InStr(var_114, 00000001h, var_1E4, __vbaVarVargNofree(00000001h)) + 15 = CInt()
loc_11012BE8: var_58 = InStr(var_114, 00000001h, var_1E4, __vbaVarVargNofree(00000001h)) + 15
loc_11012C25: var_1EC = var_58
loc_11012C49: call __vbaVarVargNofree(var_58)
loc_11012C61: var_134 = Chr(13) & Chr(10)
loc_11012C71: call InStr(var_144, 00000000h, var_134, __vbaVarVargNofree(var_58))
loc_11012C86: var_ret_1D = InStr(var_144, 00000000h, var_134, __vbaVarVargNofree(var_58)) - var_58
loc_11012C93: var_60 = CInt()
loc_11012CC2: If var_58 <= 15 Then GoTo loc_11012D0A
loc_11012CC7: var_1DC = var_60
loc_11012D02: var_C4 = Mid(DATA, var_58, var_60)
loc_11012D08: GoTo loc_11012D2C
loc_11012D0A: 'Referenced from: 11012CC2
loc_11012D26: var_C4 = "No Error Name Define"
loc_11012D2C: 'Referenced from: 11012D08
loc_11012D35: call __vbaVarVargNofree
loc_11012D38: call __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012D3E: var_16C = __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012D53: call __vbaVarVargNofree
loc_11012D56: call __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012D5C: var_17C = __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012D68: var_22C = "FAIL"
loc_11012D81: call __vbaVarVargNofree
loc_11012D84: var_ret_1E = CStr(__vbaVarVargNofree)
loc_11012D8A: var_18C = var_ret_1E
loc_11012DB4: var_E0 = CStr(var_C4)
loc_11012DC1: var_10C = Replace(var_E0, vbNullString, vbNullString, 1, -1, 0)
loc_11012DEE: var_19C = RTrim(Replace(var_E0, vbNullString, vbNullString, 1, -1, 0))
loc_11012E03: call __vbaVarVargNofree
loc_11012E06: call __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012E0C: var_1AC = __vbaStrVarCopy(__vbaVarVargNofree)
loc_11012E37: call __vbaStrFixstr(00000014h, var_B0, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11012E41: var_E4 = __vbaStrFixstr(00000014h, var_B0, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11012E52: var_E8 = Replace(var_E4, , , , , )
loc_11012E64: call __vbaLsetFixstr(00000014h, var_B0, var_E4)
loc_11012E7A: var_12C = var_E8
loc_11012EA7: var_1BC = RTrim(var_E8)
loc_11012ECC: call __vbaStrFixstr(00000014h, var_88, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11012ED6: var_EC = __vbaStrFixstr(00000014h, var_88, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11012EE7: var_F0 = Replace(var_EC, , , , , )
loc_11012EF9: call __vbaLsetFixstr(00000014h, var_88, var_EC)
loc_11012F0F: var_14C = var_F0
loc_11012F3C: var_1CC = RTrim(var_F0)
loc_11012F59:
loc_11012F69:
loc_110130D0: .DispID_9
loc_1101315F: 'Referenced from: 11012752
loc_11013166: call __vbaCastObj(00000000h, var_11005194)
loc_11013177: GoTo loc_110146E5
loc_1101317C: 'Referenced from: 11011D75
loc_1101319E: var_2D0 = var_20
loc_110131B6: GETERDESC.var_2C8 = PropBag.ReadProperty(Error, var_4C)
loc_110131E7: var_2D0 = var_2C
loc_110131ED: var_1EC = vbNullString
loc_1101320E: var_114 = vbNullString
loc_11013217: var_1DC = var_28
loc_11013253: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_11013277: var_1DC = "User cancel the fail upload"
loc_11013290: call __vbaVargVarCopy(var_4C, STATION, 8, var_114, var_2C8, var_50, __vbaCastObj(00000000h, var_11005194))
loc_11013296: GoTo loc_110146E5
loc_1101329B: 'Referenced from: 11011CA2
loc_1101329B: var_1EC = "tsp_iad1"
loc_110132B0: var_20C = "ap_i1sus"
loc_110132C0: var_22C = vbNullString
loc_110132E8: call __vbaStrFixstr
loc_110132F1: var_25C = CLng(__vbaStrFixstr)
loc_110133EC: call __vbaVargVar(var_378, var_258)
loc_11013447: var_114 = var_50."WTSP_LOGINOUT"
loc_1101345F: call edi
loc_11013478: var_114 = Chr(127)
loc_11013494: var_124 = Split(var_54, var_114, -1, 0)
loc_110134A3: var_3C = var_124
loc_110134ED: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_110134F7: var_ret_20 = CInt(__vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8))
loc_11013500: ebx = var_ret_20 - 1
loc_11013507: ebx = var_ret_20 - 1 + 1
loc_1101350A: var_2D0 = var_ret_20 - 1 + 1
loc_1101351F: If var_ret_20 - 1 + 1 = 0 Then GoTo loc_110136F7
loc_11013525: var_1EC = "tsp_iad1"
loc_1101353A: var_20C = "ap_i1sus"
loc_1101354A: var_22C = vbNullString
loc_11013572: call __vbaStrFixstr
loc_1101357B: var_25C = CLng(__vbaStrFixstr)
loc_11013676: call __vbaVargVar(var_388, var_258)
loc_110136D1: var_114 = var_50."WTSP_LOGINOUT"
loc_110136E9: call edi
loc_110136F7: 'Referenced from: 1101351F
loc_11013700: var_114 = Chr(0)
loc_11013727: call __vbaStrFixstr(00000001h)
loc_1101373A: call InStr(var_124, 00000000h, var_114, __vbaStrFixstr(00000001h))
loc_1101374E: var_2D0 = (InStr(var_124, 00000000h, var_114, __vbaStrFixstr(00000001h)) <> 0)
loc_11013775: If var_2D0 = 0 Then GoTo loc_11013865
loc_11013793: call __vbaStrFixstr(var_110061B8, ",,", 00000001h, FFFFFFFFh, 00000000h)
loc_110137AA: var_10C = Replace(CStr(__vbaStrFixstr(var_110061B8, ",,", 00000001h, FFFFFFFFh, 00000000h)), , , , , )
loc_110137C2: call __vbaVargVarMove
loc_110137FC: var_E4 = CStr(Chr(0))
loc_1101380B: call __vbaStrFixstr(var_E4, var_110061B8, 00000001h, FFFFFFFFh, 00000000h)
loc_11013822: var_11C = Replace(CStr(__vbaStrFixstr(var_E4, var_110061B8, 00000001h, FFFFFFFFh, 00000000h)), , , , , )
loc_1101383A: call __vbaVargVarMove
loc_11013865: 'Referenced from: 11013775
loc_11013865: var_20C = "tsp_iad1"
loc_1101387A: var_22C = "ap_i1sus"
loc_11013893: call __vbaStrFixstr
loc_11013896: var_ret_22 = CStr(__vbaStrFixstr)
loc_1101389C: var_10C = var_ret_22
loc_110138BA: var_124 = Ucase(var_ret_22)
loc_110138C9: call __vbaStrFixstr
loc_110138D2: var_25C = CLng(__vbaStrFixstr)
loc_110138E1: call __vbaStrFixstr
loc_110138EA: var_27C = CInt(__vbaStrFixstr)
loc_1101396B: call __vbaVargVar(var_398, var_228)
loc_110139E5: call __vbaVargVar(var_3A8, var_258)
loc_11013A15: call __vbaVargVar(var_3B8, eax+0000000Ch)
loc_11013A64: call __vbaVargVar(var_3C8, var_278)
loc_11013A93: var_134 = var_50."WTSP_RESULT"
loc_11013AAB: call edi
loc_11013AE2: If InStr(1, var_54, "Login First", 0) > 0 Then GoTo loc_1101329B
loc_11013AF1: var_114 = Chr(127)
loc_11013B1C: var_3C = Split(var_54, var_114, -1, 0)
loc_11013B6C: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_11013B9C: var_ret_25 = CInt(var_114)
loc_11013BA2: eax = var_ret_25 - 1
loc_11013BA9: eax = var_ret_25 - 1 + 1
loc_11013BAC: var_1FC = var_ret_25 - 1 + 1
loc_11013BD9: var_144 = IIf(var_ret_25 - 1 + 1, 0, 1)
loc_11013BE6: var_144 = CInt()
loc_11013BEE: var_5C = var_144
loc_11013C5B: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8, 2, 2, var_144)
loc_11013C69: call __vbaVargVarMove
loc_11013C72: If var_144 <> 0 Then GoTo loc_1101315F
loc_11013C93: var_2D0 = var_20
loc_11013CAB: GETERDESC.var_2C8 = PropBag.ReadProperty(Error, var_4C)
loc_11013D02: var_114 = vbNullString
loc_11013D0B: var_1DC = var_28
loc_11013D47: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_11013D9A: var_104 = Global.App
loc_11013DC4: var_E0 = Global.Path
loc_11013DF6: call edi(var_4C, STATION, var_1E4, var_114, var_2C8)
loc_11013E14: call __vbaStrFixstr(00000014h, var_B0, 00000014h, edi(var_4C, STATION, var_1E4, var_114, var_2C8))
loc_11013E22: call edi
loc_11013E2C: var_ret_27 = CInt(8)
loc_11013E3B: var_ret_28 = vbNullString
loc_11013E4A: var_ret_29 = "project"
loc_11013E59: var_ret_2A = "iPLAS"
loc_11013E5C: var_eax = GetPrivateProfileString(var_ret_2A, var_ret_29, var_ret_28, var_ret_27, , )
loc_11013E61: var_2CC = GetPrivateProfileString(var_ret_2A, var_ret_29, var_ret_28, var_ret_27, , )
loc_11013E8B: call __vbaLsetFixstr(00000014h, var_B0, var_F4)
loc_11013E9B: setg cl
loc_11013F04: If var_2E0 = 0 Then GoTo loc_1101315F
loc_11013F38: var_104 = Global.App
loc_11013F6C: var_E0 = Global.Path
loc_11013FA4: call edi
loc_11013FBC: call __vbaStrFixstr(00000014h, var_88, 00000014h, CInt(8))
loc_11013FCA: call edi
loc_11014004: var_eax = GetPrivateProfileString("iPLAS", "station", vbNullString, CInt(8), , )
loc_1101402F: call __vbaLsetFixstr(00000014h, var_88, var_F4)
loc_11014039: setg al
loc_11014099: If var_E0 = 0 Then GoTo loc_1101315F
loc_1101409F: var_1DC = "#SAVE:SNE,FAIL,"
loc_110140D3: call __vbaStrFixstr(00000001h)
loc_110140E6: call InStr(var_114, 00000001h, var_1E4, __vbaStrFixstr(00000001h))
loc_11014102: InStr(var_114, 00000001h, var_1E4, __vbaStrFixstr(00000001h)) + 15 = CInt()
loc_11014108: var_58 = InStr(var_114, 00000001h, var_1E4, __vbaStrFixstr(00000001h)) + 15
loc_11014145: var_1EC = var_58
loc_11014169: call __vbaStrFixstr(var_58)
loc_11014181: var_134 = Chr(13) & Chr(10)
loc_11014191: call InStr(var_144, 00000000h, var_134, __vbaStrFixstr(var_58))
loc_110141A6: var_ret_32 = InStr(var_144, 00000000h, var_134, __vbaStrFixstr(var_58)) - var_58
loc_110141B3: var_60 = CInt()
loc_110141E2: If var_58 <= 15 Then GoTo loc_1101422A
loc_110141E7: var_1DC = var_60
loc_11014222: var_C4 = Mid(DATA, var_58, var_60)
loc_11014228: GoTo loc_1101424C
loc_1101422A: 'Referenced from: 110141E2
loc_11014246: var_C4 = "No Error Name Define"
loc_1101424C: 'Referenced from: 11014228
loc_11014255: call __vbaStrFixstr
loc_11014258: call __vbaStrVarCopy(__vbaStrFixstr)
loc_1101425E: var_16C = __vbaStrVarCopy(__vbaStrFixstr)
loc_11014273: call __vbaStrFixstr
loc_11014276: call __vbaStrVarCopy(__vbaStrFixstr)
loc_1101427C: var_17C = __vbaStrVarCopy(__vbaStrFixstr)
loc_11014288: var_22C = "FAIL"
loc_110142A1: call __vbaStrFixstr
loc_110142AA: var_18C = CStr(__vbaStrFixstr)
loc_110142D4: var_E0 = CStr(var_C4)
loc_110142E1: var_10C = Replace(var_E0, vbNullString, vbNullString, 1, -1, 0)
loc_110142FB: var_124 = RTrim(Replace(var_E0, vbNullString, vbNullString, 1, -1, 0))
loc_1101430E: var_19C = var_124
loc_11014323: call __vbaStrFixstr
loc_11014326: call __vbaStrVarCopy(__vbaStrFixstr)
loc_1101432C: var_1AC = __vbaStrVarCopy(__vbaStrFixstr)
loc_11014357: call __vbaStrFixstr(00000014h, var_B0, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11014361: call edi
loc_11014372: call edi
loc_11014384: call __vbaLsetFixstr(00000014h, var_B0, var_E4)
loc_1101439A: var_12C = var_E8
loc_110143C7: var_1BC = RTrim(var_E8)
loc_110143EC: call __vbaStrFixstr(00000014h, var_88, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_110143F6: call edi
loc_11014407: call edi
loc_11014419: call __vbaLsetFixstr(00000014h, var_88, var_EC)
loc_1101442F: var_14C = var_F0
loc_1101445C: var_1CC = RTrim(var_F0)
loc_11014477: If var_1101D064 <> 0 Then GoTo loc_11012F69
loc_1101447D: GoTo loc_11012F59
loc_11014482: 'Referenced from: 11011BBE
loc_110144B8: var_104 = Global.App
loc_110144E2: var_E0 = Global.Path
loc_11014516: call edi
loc_11014520: var_10C = 16392 & "\Versatile.ini"
loc_1101453A: call __vbaVargVarMove
loc_110145A3: var_114 = "SFIS warning"
loc_110145D0: call edi(var_114, var_124, var_134)
loc_110145DF: call edi(edi(var_114, var_124, var_134))
loc_110145EC: call edi
loc_110145EF: var_ret_34 = CLng(16392)
loc_1101467C: var_114 = vbNullString
loc_11014685: var_1DC = var_28
loc_110146C1: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_110146E5: 'Referenced from: 11013177
loc_110146EC: call __vbaCastObj(00000000h, var_110067F8, var_4C, STATION, var_1E4, var_114, var_2C8)
loc_110146FD: GoTo loc_1101605F
loc_11014702: 'Referenced from: 110118B0
loc_11014731: var_104 = Global.App
loc_1101475B: var_E0 = Global.Path
loc_1101478D: call edi(var_20, __vbaCastObj(00000000h, var_110067F8, var_4C, STATION, var_1E4, var_114, var_2C8))
loc_110147AB: call __vbaStrFixstr(0000000Ah, var_DC, 0000000Ah, edi(var_20, __vbaCastObj(00000000h, var_110067F8, var_4C, STATION, var_1E4, var_114, var_2C8)))
loc_110147B9: call edi
loc_110147C3: var_ret_36 = CInt(16392)
loc_110147D2: var_ret_37 = vbNullString
loc_110147E1: var_ret_38 = "item"
loc_110147F0: var_ret_39 = "PASS_ITEM"
loc_110147F3: var_eax = GetPrivateProfileString(var_ret_39, var_ret_38, var_ret_37, var_ret_36, , )
loc_1101481E: call __vbaLsetFixstr(0000000Ah, var_DC, var_F4)
loc_11014826: var_ret_3B = GetPrivateProfileString(var_ret_39, var_ret_38, var_ret_37, var_ret_36, , )
loc_11014887: If var_ret_3B <= 0 Then GoTo loc_110149DE
loc_11014896: call __vbaStrFixstr(0000000Ah, var_DC)
loc_110148A4: call edi
loc_110148AC: var_1DC = var_E0
loc_110148CE: var_114 = Left(var_E0, var_ret_3B)
loc_110148E4: call __vbaLsetFixstr(0000000Ah, var_DC, var_E0)
loc_1101493A: call InStr(var_124, ebx, var_114, & 1)
loc_1101497F: var_174 = IIf((InStr(var_124, ebx, var_114, & 1) > ""), True, False)
loc_11014992: var_C8 = var_174
loc_110149D9: GoTo loc_11014B84
loc_110149DE: 'Referenced from: 11014887
loc_11014A00: var_1EC = "Versatile.ini Error!!!"
loc_11014A26: var_124 = "Versatile.ini Error!!!"
loc_11014A28: var_1DC = "PASS_ITEM setting incorrect, using default setting 'S_SFIS'"
loc_11014A48: var_114 = "PASS_ITEM setting incorrect, using default setting 'S_SFIS'"
loc_11014ABA: var_1DC = "S_SFIS"
loc_11014AFC: call InStr(var_114, 00000000h, var_1E4, var_174 & 1)
loc_11014B1F: var_134 = (InStr(var_114, 00000000h, var_1E4, var_174 & 1) > "")
loc_11014B41: var_164 = IIf(var_134, True, False)
loc_11014B54: var_C8 = var_134
loc_11014B84: 'Referenced from: 110149D9
loc_11014B90: var_ret_40 = CStr( & var_164)
loc_11014B9E: call edi
loc_11014BBD: var_ret_41 = CStr( &)
loc_11014BCB: call edi
loc_11014BDE: var_21C = Len(16392)
loc_11014C0B: var_22C = var_C8
loc_11014C6C: var_ret_44 = And (Len( & 11) <> 0) And var_C8
loc_11014C77: var_2D0 = CBool(var_ret_44)
loc_11014CAF: If CBool(var_ret_44) = 0 Then GoTo loc_11015F9A
loc_11014CB5: var_1DC = "TEST","STATUS","VALUE","UCL","LCL"
loc_11014D33: var_144 = "TEST","STATUS","VALUE","UCL","LCL" & Chr(13) & Chr(10)
loc_11014D3F: call InStr(var_154, 00000000h, var_144, & 1)
loc_11014D53: var_2D0 = (InStr(var_154, 00000000h, var_144, & 1) = 0)
loc_11014D8F: If var_2D0 = 0 Then GoTo loc_11014E37
loc_11014D95: var_1DC = "TEST","STATUS","VALUE","UCL","LCL"
loc_11014E03: var_154 = & & "TEST","STATUS","VALUE","UCL","LCL" & Chr(13) & Chr(10)
loc_11014E0A: call __vbaVargVarMove
loc_11014E37: 'Referenced from: 11014D8F
loc_11014E37: var_1EC = "tsp_iad1"
loc_11014E4C: var_20C = "ap_i1sus"
loc_11014E5C: var_22C = vbNullString
loc_11014E8D: var_25C = CLng( &)
loc_11014F88: call __vbaVargVar(var_3D8, var_258)
loc_11014FE3: var_114 = var_50."WTSP_LOGINOUT"
loc_11014FFB: call edi
loc_11015014: var_114 = Chr(127)
loc_11015030: var_124 = Split(var_54, var_114, -1, 0)
loc_1101503F: var_3C = var_124
loc_11015089: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_11015093: var_ret_46 = CInt(__vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8))
loc_1101509C: ebx = var_ret_46 - 1
loc_110150A3: ebx = var_ret_46 - 1 + 1
loc_110150A6: var_2D0 = var_ret_46 - 1 + 1
loc_110150BB: If var_ret_46 - 1 + 1 = 0 Then GoTo loc_11015293
loc_110150C1: var_1EC = "tsp_iad1"
loc_110150D6: var_20C = "ap_i1sus"
loc_110150E6: var_22C = vbNullString
loc_11015117: var_25C = CLng( &)
loc_11015212: call __vbaVargVar(var_3E8, var_258)
loc_1101526D: var_114 = var_50."WTSP_LOGINOUT"
loc_11015285: call edi
loc_11015293: 'Referenced from: 110150BB
loc_1101529C: var_114 = Chr(0)
loc_110152D6: call InStr(var_124, 00000000h, var_114, & 1)
loc_110152EA: var_2D0 = (InStr(var_124, 00000000h, var_114, & 1) <> 0)
loc_11015311: If var_2D0 = 0 Then GoTo loc_11015401
loc_11015346: var_10C = Replace(CStr(",," & var_110061B8), 1, -1, 0, , )
loc_1101535E: call __vbaVargVarMove
loc_110153BE: var_11C = Replace(CStr(var_110061B8 & CStr(Chr(0))), 1, -1, 0, , )
loc_110153D6: call __vbaVargVarMove
loc_11015401: 'Referenced from: 11015311
loc_11015401: var_1FC = "tsp_iad1"
loc_11015416: var_21C = "ap_i1sus"
loc_11015426: var_23C = vbNullString
loc_11015448: var_25C = CLng( &)
loc_1101546A: var_27C = CInt( &)
loc_110154EB: call __vbaVargVar(var_3F8, var_218)
loc_11015566: call __vbaVargVar(var_408, var_258)
loc_11015596: call __vbaVargVar(var_418, eax+0000000Ch)
loc_110155E5: call __vbaVargVar(var_428, var_278)
loc_11015614: var_114 = var_50."WTSP_RESULT"
loc_1101562C: call edi
loc_1101564F: If InStr(1, var_54, "Login First", 0) > 0 Then GoTo loc_11014E37
loc_1101565E: var_114 = Chr(127)
loc_11015689: var_3C = Split(var_54, var_114, -1, 0)
loc_110156D9: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8)
loc_11015709: var_ret_4A = CInt(var_114)
loc_1101570F: eax = var_ret_4A - 1
loc_11015716: eax = var_ret_4A - 1 + 1
loc_11015719: var_1FC = var_ret_4A - 1 + 1
loc_11015746: var_144 = IIf(var_ret_4A - 1 + 1, 0, 1)
loc_11015753: var_144 = CInt()
loc_1101575B: var_5C = var_144
loc_110157C8: call __vbaVarIndexLoad(var_114, var_3C, 00000001h, var_1D8, 2, 2, var_144)
loc_110157D6: call __vbaVargVarMove
loc_110157F9: var_4C = "PASS"
loc_11015802: If var_144 <> 0 Then GoTo loc_11015F7D
loc_11015847: var_114 = vbNullString
loc_11015850: var_1DC = var_28
loc_1101588C: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_110158DF: var_104 = Global.App
loc_11015909: var_E0 = Global.Path
loc_1101593B: call edi(var_4C, STATION, var_1E4, var_114, var_2C8)
loc_11015959: call __vbaStrFixstr(00000014h, var_B0, 00000014h, edi(var_4C, STATION, var_1E4, var_114, var_2C8))
loc_11015967: call edi
loc_11015971: var_ret_4C = CInt(16392)
loc_11015980: var_ret_4D = vbNullString
loc_1101598F: var_ret_4E = "project"
loc_1101599E: var_ret_4F = "iPLAS"
loc_110159A1: var_eax = GetPrivateProfileString(var_ret_4F, var_ret_4E, var_ret_4D, var_ret_4C, , )
loc_110159A6: var_2CC = GetPrivateProfileString(var_ret_4F, var_ret_4E, var_ret_4D, var_ret_4C, , )
loc_110159D0: call __vbaLsetFixstr(00000014h, var_B0, var_F4)
loc_110159E0: setg cl
loc_11015A49: If var_2E0 = 0 Then GoTo loc_11015F7D
loc_11015A7D: var_104 = Global.App
loc_11015AB1: var_E0 = Global.Path
loc_11015AE9: call edi
loc_11015B01: call __vbaStrFixstr(00000014h, var_88, 00000014h, CInt(16392))
loc_11015B0F: call edi
loc_11015B49: var_eax = GetPrivateProfileString("iPLAS", "station", vbNullString, CInt(16392), , )
loc_11015B74: call __vbaLsetFixstr(00000014h, var_88, var_F4)
loc_11015B7E: setg al
loc_11015BDE: If var_E0 = 0 Then GoTo loc_11015F7D
loc_11015BF6: call __vbaStrVarCopy( &)
loc_11015BF8: var_14C = __vbaStrVarCopy( &)
loc_11015C14: call __vbaStrVarCopy( &)
loc_11015C16: var_15C = __vbaStrVarCopy( &)
loc_11015C27: var_21C = "PASS"
loc_11015C43: call __vbaStrVarCopy( &)
loc_11015C45: var_16C = __vbaStrVarCopy( &)
loc_11015C6F: call __vbaStrFixstr(00000014h, var_B0, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11015C7D: call edi
loc_11015C8E: call edi
loc_11015CA0: call __vbaLsetFixstr(00000014h, var_B0, var_E0)
loc_11015CB6: var_10C = var_E4
loc_11015CE7: var_17C = RTrim(var_E4)
loc_11015D10: call __vbaStrFixstr(00000014h, var_88, vbNullString, vbNullString, 00000001h, FFFFFFFFh, 00000000h)
loc_11015D1E: call edi
loc_11015D2F: call edi
loc_11015D41: call __vbaLsetFixstr(00000014h, var_88, var_E8)
loc_11015D57: var_12C = var_EC
loc_11015D76: var_144 = RTrim(var_EC)
loc_11015D81: var_18C = var_144
loc_11015F11: .DispID_9
loc_11015F7D: 'Referenced from: 11015802
loc_11015F84: call __vbaCastObj(00000000h, var_11005194)
loc_11015F95: GoTo loc_1101605F
loc_11015F9A: 'Referenced from: 11014CAF
loc_11015F9F: var_1DC = vbNullString
loc_11015FB9: var_4C = vbNullString
loc_11015FF6: var_114 = vbNullString
loc_11015FFF: var_1DC = var_28
loc_1101603B: Save_Data.DATA = PropBag.ReadProperty(ISN, DEV)
loc_1101605F: 'Referenced from: 110146FD
loc_11016066: call __vbaCastObj(00000000h, var_11006ADC, var_4C, STATION, var_1E4, var_114, var_2C8, var_50, __vbaCastObj(00000000h, var_11005194))
loc_1101607E: GoTo loc_110160A2
loc_11016080: 'Referenced from: 1101179C
loc_11016083: var_1DC = vbNullString
loc_1101609C: call __vbaVargVarCopy(var_2C, __vbaCastObj(00000000h, var_11006ADC, var_4C, STATION, 8, var_114, var_2C8, var_50, __vbaCastObj(00000000h, var_11005194)))
loc_110160A2: 'Referenced from: 1101178F
loc_110160A6: If var_5C = 0 Then GoTo loc_11016157
loc_110160EA: var_114 = "SFIS warning"
loc_11016116: setz cl
loc_11016146: If ecx = 0 Then GoTo loc_11016157
loc_11016152: GoTo loc_110162A8
loc_11016157: 'Referenced from: 110160A6
loc_1101615D: GoTo loc_110162A8
loc_11016169: call __vbaCastObj(00000000h, var_11005194)
loc_11016182: var_1DC = "SFIS Test RESULT process error!!"
loc_110161A2: call __vbaVargVarCopy(var_50, __vbaCastObj(00000000h, var_11005194))
loc_110161E6: var_134 = "SFIS warning"
loc_110161EF: var_1DC = var_54
loc_110161FB: var_1FC = ",retry again?"
loc_1101622A: call __vbaVarVargNofree(00000010h, var_134, var_144, var_154)
loc_11016256: var_124 = __vbaVarVargNofree(00000010h, var_134, var_144, var_154) & var_54 & ",retry again?"
loc_11016261: esi = MsgBox(var_124, , , , ) - 1
loc_11016266: esi = MsgBox(var_124, , , , ) - 1 + 1
loc_11016269: var_2D0 = MsgBox(var_124, , , , ) - 1 + 1
loc_110162A0: If MsgBox(var_124, , , , ) - 1 + 1 = 0 Then GoTo loc_110162C1
loc_110162A8: 'Referenced from: 11016152
loc_110162BB: call __vbaVargVarMove
loc_110162C1: Exit Sub
loc_110162CC: GoTo loc_1101638E
loc_1101638D: Exit Sub
loc_1101638E: 'Referenced from: 110162CC
End Function 請幫我轉成VB6