TrsBluetoothService.LoggerService.LogInformation("before call","Module:"&Module&"Sub"&StateCode&" function:"&requestMessageCode&" State:"&state)
CallSubDelayed3(Module, StateCode, requestMessageCode, currentMessage.work)
TrsBluetoothService.LoggerService.LogInformation("after call","Module:"&Module&"Sub"&StateCode&" function:"&requestMessageCode&" State:"&state)
Sub SurveyManagerCode(event As Int, data As Object)
TrsBluetoothService.LoggerService.LogInformation("sm run",event)
*12:01:01:551::I:sm run:-1
*12:01:01:810::I:sm run:-1
*12:01:02:072::I:before call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:01:02:072::I:after call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:01:02:079::I:sm run:-1
*12:01:02:364::I:sm run:-1
*12:01:02:415::I:sm run:104
*12:01:02:425::I:SurveyManagerCode:Manual log requested, myBool is false
*12:01:02:440::I:accept simple, no stacked work :work state was 1 stack 0
*12:01:02:440::I:SurveyManagerCode::: 1->1004
*12:01:02:528::I:sm run:58
*12:01:02:583::I:SurveyManagerCode:reply - to True
*12:01:02:806::I:sm run:-1
*12:01:02:835::I:SurveyManagerCode::: 1004->1005
*12:01:02:990::I:sm run:-1
*12:01:03:100::I:manualLogManagerCode::: 0->1 Send A0
*12:01:03:304::I:sm run:-1
*12:01:03:521::I:sm run:-1
*12:01:03:580::T:BtSimManagerCode:Start logging as A0
*12:01:03:919::I:manualLogManagerCode::: 1->2
*12:01:04:233::I:manualLogManagerCode::: 2->0 Got a V
*12:01:04:238::I:sm run:-18
*12:01:04:669::I:SurveyManagerCode::: 1005->1
*12:01:04:928::I:sm run:-1
*12:01:05:148::I:sm run:-1
*12:01:05:400::I:sm run:-1
*12:01:05:688::I:sm run:-1
*12:01:05:960::I:sm run:-1
*12:01:06:033::I:before call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:01:06:034::I:after call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:01:06:119::I:sm run:58
*12:01:06:374::I:sm run:-1
*12:01:06:558::I:sm run:-1
*12:01:06:845::I:sm run:-1
*12:01:07:093::I:sm run:-1
*12:01:07:386::I:sm run:-1
*12:01:07:586::I:sm run:58
*12:01:07:890::I:sm run:-1
*12:05:20:616::I:sm run:-1
*12:05:20:741::I:sm run:-1
*12:05:20:744::I:sm run:58
*12:05:20:866::I:sm run:-1
*12:05:20:991::I:sm run:-1
*12:05:21:116::I:sm run:-1
*12:05:21:139::I:before call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:21:140::I:after call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:21:142::I:sm run:104
*12:05:21:143::I:SurveyManagerCode:Manual log requested, myBool is true
*12:05:21:144::I:accept simple, no stacked work :work state was 1 stack 0
*12:05:21:145::I:SurveyManagerCode::: 1->1004
*12:05:21:241::I:sm run:-1
*12:05:21:242::I:SurveyManagerCode::: 1004->1005
*12:05:21:244::I:manualLogManagerCode::: 0->1 Send A0
*12:05:21:245::T:BtSimManagerCode:Start logging as A0
*12:05:21:247::I:manualLogManagerCode::: 1->2
*12:05:21:264::I:manualLogManagerCode::: 2->0 Got a V
*12:05:21:265::I:sm run:-18
*12:05:21:363::I:SurveyManagerCode::: 1005->1
*12:05:21:388::I:sm run:-1
*12:05:21:389::I:sm run:58
*12:05:21:513::I:sm run:-1
*12:05:21:637::I:sm run:-1
*12:05:21:762::I:sm run:-1
*12:05:21:888::I:sm run:-1
*12:05:21:890::I:sm run:58
*12:05:21:953::I:before call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:21:953::I:after call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:21:955::I:sm run:104
*12:05:21:955::I:SurveyManagerCode:Manual log requested, myBool is true
*12:05:21:956::I:accept simple, no stacked work :work state was 1 stack 0
*12:05:21:956::I:SurveyManagerCode::: 1->1004
*12:05:22:014::I:sm run:-1
*12:05:22:014::I:SurveyManagerCode::: 1004->1005
*12:05:22:015::I:manualLogManagerCode::: 0->1 Send A0
*12:05:22:016::T:BtSimManagerCode:Start logging as A0
*12:05:22:017::I:manualLogManagerCode::: 1->2
*12:05:22:019::I:manualLogManagerCode::: 2->0 Got a V
*12:05:22:019::I:sm run:-18
*12:05:22:118::I:SurveyManagerCode::: 1005->1
*12:05:22:138::I:sm run:-1
*12:05:22:263::I:sm run:-1
*12:05:22:398::I:sm run:-1
*12:05:22:400::I:sm run:58
*12:05:22:523::I:sm run:-1
*12:05:22:648::I:sm run:-1
*12:05:22:719::I:before call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:22:720::I:after call:Module:class trs.Mk2ResistanceMeter.mainSubSurveyManagerCode function:104 State:1
*12:05:22:721::I:sm run:104
*12:05:22:722::I:SurveyManagerCode:Manual log requested, myBool is true
*12:05:22:723::I:accept simple, no stacked work :work state was 1 stack 0
*12:05:22:724::I:SurveyManagerCode::: 1->1004
*12:05:22:789::I:sm run:-1
*12:05:22:790::I:SurveyManagerCode::: 1004->1005
*12:05:22:792::I:manualLogManagerCode::: 0->1 Send A0
*12:05:22:794::T:BtSimManagerCode:Start logging as A0
I will see what i can do.
Sub X55_MainEntra(VieneDe As String, Resultado As String)
Select VieneDe
Case "X55_DownUpdteSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownUpdte: " & Resultado , "3")
CallSubDelayed3("DownCombus", "X00_DownCombusEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_DownCombusSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownCombus: " & Resultado , "3")
If Resultado.IndexOf("YaActualizado") >= 0 OR _
Resultado.IndexOf("NoConecction") >= 0 Then
X60_MainSalir("Finalizado. " & Resultado )
ExitApplication
Else
CallSubDelayed3("DownElect", "X00_DownElectEntra", "Main;X55_MainEntra;", "")
DoEvents
End If
Case "X55_DownElectSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownElect: " & Resultado , "3")
CallSubDelayed3("IpExternal", "X00_IpExternaEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_IpExternaSale"
Csr.LogMemory1(" X55_MainEntra Finalizado IpExterna: " & Resultado , "3")
CallSubDelayed3("DownTA", "X00_DownTAEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_DownTASale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownTA: " & Resultado , "3")
CallSubDelayed3("DownClima", "X00_DownClimaEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_DownClimaSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownClima: " & Resultado , "3")
CallSubDelayed3("DownClimaAcu", "X00_DownClimaAcuEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_DownClimaAcuSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownClimaAcu: " & Resultado , "3")
CallSubDelayed3("DownClimaAcW", "X00_DownClimaAcWEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_DownClimaAcWSale"
Csr.LogMemory1(" X55_MainEntra Finalizado DownClimaAcW: " & Resultado , "3")
' CallSubDelayed3("IpExternal", "X00_IpExternaEntra", "Main;X55_MainEntra;", "")
CallSubDelayed3("SndMyFtp", "X00_SndMyFtpEntra", "Main;X55_MainEntra;", "")
DoEvents
Case "X55_SndMyFtpSale"
Csr.LogMemory1(" X55_MainEntra Finalizado SndMyFtp: " & Resultado , "3")
CallSubDelayed3("SndMyMail", "X00_SndMyMailEntra", "Main;X55_MainEntra;", "")
Case "X55_SndMyMailSale"
Csr.LogMemory1(" X55_MainEntra Finalizado SndMyMail: " & Resultado , "3")
X60_MainSalir(Resultado)
End Select
' DoEvents ' Si lo pongo detiene el proceso SendMail
End Sub
Sub X55_SndMyFtpSale(Resultado As String)
FTP1.Close
FTP1.CloseNow
If Main.ActivLog Then Csr.LogMemory1(" X55_SndMyFtpSale ........ " & Resultado, "3")
CallSubDelayed3(ModuloRet, SubRet, "X55_SndMyFtpSale", Resultado)
' CallSub3(ModuloRet, SubRet, "X55_SndMyFtpSale", Resultado)
Activity.finish
End Sub
Sub Activity_Pause (UserClosed As Boolean)
DoEvents
Csr.LogMemory1(" Main Activity_Pause", "3")
End Sub
Sub Activity_Resume
DoEvents
Csr.LogMemory1(" Main Activity_Resume", "3")
End Sub
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim SMTP1 As SMTP
' 'Dim DirSalida As String = Main.DirMCheck
Dim MiModuloRet, MiSubRet, MiParametro0, MiParametro1 As String
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?