[go: up one dir, main page]

Menu

[r12]: / incl / test_procs.tcl  Maximize  Restore  History

Download this file

27 lines (21 with data), 914 Bytes

 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
##################################################################################################################################
#
# Copyright (C) 2008-2011 Mind System Connection. Lda. Part of Daidze Software, created by Siqsuruq. All other rights reserved.
#
# Mind System Connection Webpage: www.msysc.org
# Daidze Software Page: www.daidze.com www.daidze.org
# E-mail: admin@msysc.org, siqsuruq@gmail.com
#
##################################################################################################################################
proc return_list {} {
return [list value1 value2]
}
proc print_user {} {
puts $users::username
puts $users::groups
}
proc test_query {} {
# $::db my_select_all product
set data [dict create id "51" name "testing ' product" default_price "23423423" price2 "2452352345" price3 "123456.25" fk_category "Hardware" fk_tax "IVA"]
$::db my_update_all product $data
}