'Class Stops: funkton FinishStop
Sub FinishStop(StopId As String, mySQL As SQL)
If BuildConfig.CurrentBuildConfiguration = BuildConfig.BuildConfiguration.MSM Then
Dim modulName As String
Dim suppMustFill As Boolean
Dim Cursor As Cursor
modulName = GetModulByFinishOrder(StopId, mySQL)
If modulName.Length > 0 Then
Select modulName
Case "16"
ACTEquipmentList.SelectedStopId = StopId
'out here is th stack trace (from this call)
StartActivity(ACTEquipmentList)
SetFinishState(StopId, "16", "1", mySQL)
Return
Case "10"
End Select
End If
suppMustFill = GetSuppMustFill(StopId, mySQL)
If suppMustFill = True Then
Return
End If
If CheckSig(StopId, mySQL) = False Then
SetActiveStopState(BuildConfig.OrderStatus.Ready)
Else
ACTSignature.Context = "STOP"
StartActivity(ACTSignature)
End If
Else
SetActiveStopState(BuildConfig.OrderStatus.Ready)
End If
End Sub