Versions Compared

Old Version 3

changes.mady.by.user Rieko Saitoh

Saved on

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     ...
     DEFINE_COM CLASS(#DEPTMENT) NAME(#DEPARTMENT)
     SET COM(#COM_OWNER) PSCENARIO('if cond(#DEPARTMENT *IsNot *null))')
     SET COM(#PASS) VALUE(FALSE)
     IF COND(#DEPARTMENT *IsNot *null)
     SET COM(#PASS) VALUE(TRUE)
     ENDIF
        
     SET COM(#COM_OWNER) PSCENARIO('if (#DEPARTMENT *IS #DEPTMENT)')
     (#ReferenceOne.Left <= 0))
     SET COM(#PASS) VALUE(FALSE)
     IF (#DEPARTMENT *Is #DEPTMENT)
     SET COM(#PASS) VALUE(TRUE)
     ENDIF

        
     IF (((#DEPARTMENT *IsNot *null) *AndIf (#DEPARTMENT *Is #DEPTMENT)) *OrIf (#ADDRESS1 *Is *null))
     SET COM(#PASS) VALUE(TRUE)
     ENDIF
     ...