************************************************** *-- Class: cmdemployee (c:\owl\libs\owlclass.vcx) *-- ParentClass: cmdaction (c:\owl\libs\owlclass.vcx) *-- BaseClass: commandbutton *-- Time Stamp: 07/31/07 11:44:00 AM * DEFINE CLASS cmdemployee AS cmdaction Height = 62 Width = 70 FontName = "Bitstream Vera Sans Mono" Caption = "Employee" BackColor = RGB(0,128,192) caction = "employee" Name = "cmdemployee" PROCEDURE onclick *** Go Directly to the Form IF PEMSTATUS( THISFORM.obz, 'DoEmp', 5 ) * If the form's business object has a DoAction method * then execute it. THISFORM.obz.DoEmp( THIS.cAction , this.nprimarykey) ELSE *** Error here! MESSAGEBOX( "Sorry, the specified method (" + THIS.cAction + ") cannot be found", 16, "" ) ENDIF ENDPROC ENDDEFINE ************************************************** *-- Class: cmdlot (c:\owl\libs\owlclass.vcx) *-- ParentClass: cmdaction (c:\owl\libs\owlclass.vcx) *-- BaseClass: commandbutton *-- Time Stamp: 07/31/07 11:44:05 AM * DEFINE CLASS cmdlot AS cmdaction Height = 62 Width = 156 FontName = "Bitstream Vera Sans Mono" Caption = "Lot" ForeColor = RGB(255,255,255) BackColor = RGB(0,128,0) Alignment = 4 caction = "lot" Name = "cmdlot" PROCEDURE onclick *** Go Directly to the Form IF PEMSTATUS( THISFORM.obz, 'DoLot', 5 ) * If the form's business object has a DoAction method * then execute it. THISFORM.obz.DoLot( THIS.cAction , this.nprimarykey) ELSE *** Error here! MESSAGEBOX( "Sorry, the specified method (" + THIS.cAction + ") cannot be found", 16, "" ) ENDIF ENDPROC ENDDEFINE * *-- EndDefine: cmdlot **************************************************