home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
spd_2104.zip
/
SPD_2104.MDL
< prev
Wrap
Text File
|
1990-08-15
|
8KB
|
129 lines
!==============================================================================
! To make the SUPER_PD model work for 2104, remove *MemForm, *NextForm and
*NextMemForm from SUPER_PD.MDL. Then insert the following model procedures
! in their places. (Don't worry, the *NextMemForm is supposed to be missing.)
! This should solve your problem until 2105 arrives. Don't forget to save a
! copy of SUPER_PD.MDL before you begin making changes. If you have any
! troubles, just give me a call. Catch you later!
!
! -=> Mike Hanson <=-
!
! P.S.: Remember, this is not a good fix, only a temporary patch.
!==============================================================================
*MemForm************************************************************************
!==============================================================================
! @ProcName Prodecure
!==============================================================================
@ProcName PROCEDURE
Screen SCREEN PRE(Scr),@ScreenOpt
@Paints
@Strings
@Variables
ENTRY,USE(?First_Field)
@Fields
@Pause
ENTRY,USE(?Last_Field)
PAUSE(''),USE(?Pause) !!Add ?Pause Field
.
Up_Ok BYTE !!Interface Process Switch
Tab_Ok BYTE !!Interface Process Switch
EJECT
CODE
OPEN(Screen) !Open The Screen
SETCURSOR !Turn Off Any Cursor
Up_Ok=True; Tab_Ok=True !!Default Is "Switches On"
@Setup !Call Setup Procedure
DISPLAY !Display The Fields
Action# = Action !!Save Action
LOOP !Loop Thru All The Fields
Action = Action# !!Restore Action
Mem:Message = CENTER(Mem:Message) !!Display Action Message
@Lookups !Display From Other Files
@Show !Display String Variables
@Compute !Display Computed Fields
@Result !Move Resulting Values
ALERT !Reset Alerted Keys
ALERT(Accept_Key) !Alert Screen Accept Key
ALERT(Reject_Key) !Alert Screen Reject Key
IF Up_Ok !!If Processing Up_Key
ALERT(Up_Key) !! Alert It
. !!.
IF Tab_Ok !!If Processing Tab Keys
ALERT(Tab_Key) !! Alert Tab
ALERT(Shft_Tab) !! Alert Shift-Tab
. !!.
@Alert !Alert Hot Key
ACCEPT !Read A Field
CASE KEYCODE() !!Check Keycodes
OF Reject_Key !!Reject_Key
BREAK !! Return
OF Up_Key OROF Shft_Tab !!Up Key And Shift-Tab
IF FIELD() > ?First_Field !! If Beyond First Field
UPDATE(?) !! Save Current Field
SELECT(?-1) !! Goto Previous Field
ClrKcd !! Clear Keycode
CYCLE !! Cycle For Next Field
. !! .
OF Tab_Key !!Tab Key
UPDATE(?) !! Save Current Field
OF Accept_Key !!Move & Change !Accept_Key
UPDATE ! Move All Fields From Screen
SELECT(?) ! Start With Current Field
SELECT ! Edit All Fields
CYCLE ! Go To Top Of Loop
. !.
@CheckHot !On Hot Key, Call Procedure
IF Action = eView !!Show Message For View
Mem:Message = 'Press <<Enter> to Continue' !!
. !!
CASE FIELD() !Jump To Field Edit Routine
OF ?First_Field !From The First Field
IF KEYCODE() = Esc_Key THEN BREAK. ! Return On Esc Key
IF Action = eView THEN SELECT(?Pause). !! Goto ?Pause If Viewing
@Edits !Edit Routines Go Here
OF ?Last_Field !From The Last Field
PUT(@Filename2); ChkErr ! Update Secondary Files
PUT(@Filename3); ChkErr ! Update Secondary Files
PUT(@Filename4); ChkErr ! Update Secondary Files
@NextForm ! Call Next Form Procedure
Action = eDone ! Set Action To Complete
BREAK ! And Return To Caller
OF ?Pause !!From The Pause Field
IF KEYCODE() = Enter_Key | !! On Enter Key
OR KEYCODE() = Accept_Key !! Or Ctrl-Enter Key
SELECT(?Last_Field) !! Delete The Record
ELSE !! Otherwise
BEEP !! Beep And Ask Again
. . .
*NextForm***********************************************************************
IF Action <> eDelete !If This Is Not A Delete
IF Action <> eView !! If Not Viewing
Action = eChange ! Set Action To Change Mode
. !! .
@NextPage ! Call Next Form Procedure
IF Action <> eDone ! If Record Was Not Changed
IF Action <> eView !! If Not Viewing
SELECT(?Last_Field - 1) ! Select The Last Entry
ELSE !! Else
ClrKcd !! Clear Keycode
SELECT(?First_Field) !! Select ?First_Field
. !! .
!!! GET(Table,1) ! Reread Original
!!! Save_Record = @Pre:Record ! Save It In The Table
!!! PUT(Table) ! "
Action = eChange ! Set Logical And Physical
!!! Disk_Actn# = eChange ! Action To Change
CYCLE ! And Loop Again
. .