-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathbootstra.prg
101 lines (75 loc) · 3.45 KB
/
bootstra.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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
#include "FiveWeb.ch"
//----------------------------------------------------------------------------//
function EditQueryRow( oQuery, cTableName )
local aValues := oQuery:FillArray()
local aHeaders := {}, aRow := {}
for n = 1 to Len( aValues[ 1 ] )
AAdd( aHeaders, oQuery:FieldName( n ) )
AAdd( aRow, aValues[ 1, n ] )
next
Edit( "Edit " + cTableName, aHeaders, aRow )
return nil
//----------------------------------------------------------------------------//
function Edit( cTitle, aLabels, aValues )
local n, m
? '<div class="modal fade" id="oDlg" role="dialog">'
? '<div class="modal-dialog">'
? '<div class="modal-content">'
? '<div class="modal-header">'
? '<button type="button" class="close" data-dismiss="modal">×</button>'
? '<h4 class="modal-title">' + cTitle + '</h4>'
? '</div>'
? '<div class="modal-body">'
? '<form class="form-horizontal">'
for n = 1 to Len( aLabels )
? '<div class="form-group">'
? '<label class="col-sm-2 control-label">' + aLabels[ n ] + '</label>'
? '<div class="col-sm-10">'
do case
case ValType( aValues[ n ] ) == "A"
? '<select id="' + aLabels[ n ] + '" class="form-control">'
for m = 1 to Len( aValues[ n ] )
? '<option>' + cValToChar( aValues[ n, m ] ) + '</option>'
next
? '</select>'
case ValType( aValues[ n ] ) == "L"
? '<select id="' + aLabels[ n ] + '" class="form-control">'
? '<option' + If( aValues[ n ], " selected", "" ) + '>Yes</option>'
? '<option' + If( aValues[ n ], " selected", "" ) + '>No</option>'
? '</select>'
otherwise
? '<input class="form-control" id="' + aLabels[ n ] + '" type="text" value="' + ;
cValToChar( aValues[ n ] ) + '">'
endcase
? '</div>'
? '</div>'
next
? '</form>'
? '</div>'
? '<div class="modal-footer">'
? '<button type="button" class="btn btn-success" data-dismiss="modal">Save</button>'
? '<button type="button" class="btn btn-danger" data-dismiss="modal">Cancel</button>'
? '</div>'
? '</div>'
? '</div>'
? '</div>'
? "<script>$('#oDlg').modal('show');</script>"
return nil
//----------------------------------------------------------------------------//
function Footer( cTableName )
? '<div id="footer">'
? '<div class="col-xs-16 navbar-inverse navbar-fixed-bottom">'
? '<div class="row" id="bottomNav">'
? '<div class="col-xs-4 text-center" style=width:25%;>' + ;
'<a href="#" onclick="Go( ' + "'fivegen?" + cTableName + ':add' + "' );" + ;
'"><br><i class="glyphicon glyphicon-plus"></i><br><br>Edit</a></div>'
? '<div class="col-xs-4 text-center" style=width:25%;>' + ;
'<a href="#" onclick="Go( ' + "'fivegen?" + cTableName + ':edit:1' + "' );" + ;
'"><br><i class="glyphicon glyphicon-pencil"></i><br><br>Edit</a></div>'
? '<div class="col-xs-4 text-center" style=width:25%;><a href="#"><br><i class="glyphicon glyphicon-minus"></i><br><br>Delete</a></div>'
? '<div class="col-xs-4 text-center" style=width:25%;><a href="#"><br><i class="glyphicon glyphicon-remove"></i><br><br>Close</a></div>'
? '</div>'
? '</div>'
? '</div>'
return nil
//----------------------------------------------------------------------------//