forked from kurowskicisa/EIB-HMG
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ClearRecords.prg
27 lines (20 loc) · 986 Bytes
/
ClearRecords.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE ClearRecords()
*-----------------------------------------------------------------------------*
DECLARE WINDOW win_Main
win_Main.edb_Record1.Value := ""
win_Main.edb_Record2.Value := ""
win_Main.edb_Record3.Value := ""
win_Main.edb_Record4.Value := ""
win_Main.edb_Record5.Value := ""
win_Main.lbl_First.Value := "||<< 1 <<"
win_Main.lbl_Prior.Value := "<< 1 <<"
win_Main.lbl_Next.Value := ">> 1 >>"
win_Main.lbl_Last.Value := ">> 1 >>||"
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*