Příklad 24 - Ukončení výrobního příkladu

Následující příklad popisuje práci s objektem Výrobního příkazu. Nejprve provede jeho ukončení, následně zrušení ukončení. Místa, kde je nutné při případném použití tohoto příkladu dosadit vlastní OID, jsou v textu označeny znakem "%". Použitá syntaxe odpovídá prostředí Visual Basic.

Sub JobOrder()
    Set mApplication = CreateObject("AbraOLE.Application")
   
    Set JOObject = mApplication.CreateObject("@PLMJobOrder")
    JOID = %ID výrobního příkazu%
    
    Dim JOWarningResult As String
    Dim JOErrorResult As String
	
    ' Ukončení, protože je zadáno 0, tak datum ukončení je roven datumu na serveru
    ' Není potřeba načíst data objektu, protože v metodě Finish se data načtou
    If Not JOObject.Finish(JOID, 0, JOWarningResult, JOErrorResult) Then
      MsgBox (JOWarningResult)
      MsgBox (JOErrorResult)
    End If    
	
    ' Zrušení ukončení
    ' Není potřeba načíst data objektu, protože v metodě FinishCancel se data načtou
    If Not JOObject.FinishCancel(JOID, JOErrorResult) Then
      MsgBox (JOErrorResult)
    End If
	 
    ' Ukončení, protože je zadáno 0, tak datum ukončení je roven datumu na serveru
    ' Není potřeba načíst data objektu, protože v metodě Finish2 se data načtou 
    ' V případě chyby se zeptáme na poslední validační hlášení
    If Not JOObject.Finish2(JOID, 0) Then
      MsgBox (JOObject.GetLastWarningMessage)
      MsgBox (JOObject.GetLastErrorMessage)
    End If
    
    ' Zrušení ukončení
    ' Není potřeba načíst data objektu, protože v metodě FinishCancel2 se data načtou
    ' V případě chyby se zeptáme na poslední validační hlášení
    If Not JOObject.FinishCancel2(JOID) Then
      MsgBox (JOObject.GetLastErrorMessage)
    End If
End Sub