TFormQCTestCycle

Klasse zur Durchführung von Prüfvorgängen

Hinweis

Die Klasse kann nicht erzeugt werden. Folgende Eigenschaften, Ereignisse und Methoden dienen nur zur Anpassung des Workflows.

Eigenschaften

Eigenschaft	Beschreibung
Verfügbare Ereignisse
OnPPEControlsUpdated	Nach Aktualisierung der Sichtbarkeit und ReadOnly-Eigenschaft aller GUI-Elemente

Funktionen

Funktion	Beschreibung
CbReset()	Setzt die GUI des Prüfvorgangs zurück. Entspricht schließen und neu öffnen des Fensters.
CbNextActivity()	Startet die nächste Aktion des Workflows.

Beispiel

CODE

//******************************************************************************
// Inhalt eines CalcEdits auf der Maske Prüfergebnisse
//******************************************************************************

| oForm |

SetPersistent(True),

//******************************************************************************
// Steuerung der Sichtbarkeit des IST-Wertes
//******************************************************************************
function AfterReadOnlyUpdate()
   | cMaskID, oDS_DABPPV, oDABPPV, edt_istwert,
     lbl_sollwert_eh, bMeasuringInspection
   |
   cMaskId                   := "<em>"+strtoken(self.name,"</em>",2),
   edt_istwert               := FindObject(GetOwner(self),"ISTWERT"+cMaskId),
   lbl_sollwert_eh           := FindObject(GetOwner(self),"TBeLabel_SOLLWERT_EH"+cMaskId),

  // Achtung
  // im gestarten Prüfmodus ist das Dataset DABPPE dieser Maske LEER
  // daher über den Owner die DABPPV bestimmen
  oDS_DABPPV := FindObject(GetOwner(self),"DS_MAINTABLE"),
  if not empty(oDS_DABPPV) and ClassOf(oDS_DABPPV,'TDataSourceEx') then
     oDABPPV := oDS_DABPPV.Dataset,
     if ClassOf(oDABPPV, "TBeRightsTable") and (oDABPPV.Workarea = waDABPPV) then
        // Prüfen, welche Felder ausgeblendet werden sollen
        bMeasuringInspection     := oDABPPV:MESSWERTE,
        lbl_sollwert_eh.caption  := oDABPPV:SOLLW_EH,
     endif,
  endif,

  lbl_sollwert_eh.visible := bMeasuringInspection,
  edt_istwert.visible     := bMeasuringInspection,
end,


oForm := GetParentForm(self),
if ClassOf(oForm, 'TFormQCTestCycle') then
  AssignEvent(oForm, 'OnPPEControlsUpdated', 'AfterReadOnlyUpdate'),
endif,

Weitere Verknüpfungen

PruefVorgang()