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

Nasledujúci príklad popisuje prácu s objektom Výrobného príkazu. Najprv realizuje jeho ukončenie, následne zrušenie ukončenia. Miesta, kde je nutné pri prípadnom použití tohto príkladu dosadiť vlastné OID, sú v texte označené znakom "%". Použitá syntax zodpovedá prostrediu 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