Code to show warning PopUp

Prof. Frink

Hello s27, 

Sub PrintMyReport()

IF (MotorStatusTag = TRUE) THEN

PrintReport "MyReport"

ENDIF

End Sub

I guess depending on the version you are using, the IF clause should look:

IF (SmartTags("MotorStatusTag") = TRUE) THEN

Regards,

Frink

MotorTemperature=MD100

MotorStatus=Boolaen;

ShowWarningPopUp;            

WarningLed=Booalen;

provided that

SUB VBFunction()

IF (MotorTemperature<50 and MotorStatus=TRUE) THEN

ShowWarningPopUp

Reset Tag WarningLed

END IF

END SUB

------------------------------------------------------------------------------------------
Split from Print Report.