|
1
|
define variable lch_CrewCode as character no-undo.
|
|
2
|
define variable ldt_StartDate as date no-undo.
|
|
3
|
define variable ldt_EndDate as date no-undo.
|
|
4
|
define variable lin_ApproveEmp as character no-undo.
|
|
5
|
define variable lch_ApproveName as character no-undo.
|
|
6
|
define variable lin_ForemanEmp as character no-undo.
|
|
7
|
define variable lch_ForemanName as character no-undo.
|
|
8
|
define variable lch_UserID as character no-undo.
|
|
9
|
define variable lch_TermID as character no-undo.
|
|
10
|
|
|
11
|
|
|
12
|
define temp-table tt_Approve no-undo
|
|
13
|
field ttin_ApproveID as integer
|
|
14
|
field ttin_EmpNum as integer
|
|
15
|
field ttch_EmpName as character
|
|
16
|
field ttlg_ApproveClock as logical .
|
|
17
|
|
|
18
|
def var i as int init 0.
|
|
19
|
|
|
20
|
do while i < 30:
|
|
21
|
create tt_Approve.
|
|
22
|
assign
|
|
23
|
ttin_ApproveID = i
|
|
24
|
ttin_EmpNum = i
|
|
25
|
ttch_EmpName = "Sdfsdfasdfasd"
|
|
26
|
ttlg_ApproveClock = true.
|
|
27
|
i = i + 1.
|
|
28
|
end.
|
|
29
|
|
|
30
|
|
|
31
|
define query qry_Approve for tt_Approve scrolling.
|
|
32
|
open query qry_Approve for each tt_Approve.
|
|
33
|
|
|
34
|
define browse ubr_Approve query qry_Approve
|
|
35
|
display
|
|
36
|
ttin_EmpNum format ">>>>>9" label "EmpNo"
|
|
37
|
ttch_EmpName format "x(18)" label "Employee Name"
|
|
38
|
ttlg_ApproveClock format "Y/N" label "Y/N"
|
|
39
|
enable
|
|
40
|
ttlg_ApproveClock auto-return
|
|
41
|
with 10 down no-row-markers
|
|
42
|
title " Clock Violations "
|
|
43
|
.
|
|
44
|
|
|
45
|
define button Btn_Save auto-go default
|
|
46
|
label "Save"
|
|
47
|
size 8 by 1.
|
|
48
|
|
|
49
|
|
|
50
|
define frame frm_Approve
|
|
51
|
lch_CrewCode colon 14 format "x(3)" label "Crew"
|
|
52
|
ldt_StartDate colon 28 format "99/99/9999" label "Start"
|
|
53
|
ldt_EndDate colon 48 format "99/99/9999" label "End" skip
|
|
54
|
lin_ForemanEmp colon 14 format ">>>>>9" label "Foreman"
|
|
55
|
lch_ForemanName format "x(18)" no-label skip
|
|
56
|
lin_ApproveEmp colon 14 format ">>>>>9" label "Approve By"
|
|
57
|
lch_ApproveName format "x(18)" no-label skip(1)
|
|
58
|
ubr_Approve skip
|
|
59
|
btn_Save at 26
|
|
60
|
with side-labels no-box row 3 centered.
|
|
61
|
|
|
62
|
|
|
63
|
enable
|
|
64
|
ubr_Approve
|
|
65
|
Btn_Save
|
|
66
|
with frame frm_Approve.
|
|
67
|
|
|
68
|
wait-for choose of Btn_Save.
|
|
69
|
|