|
|
|
@ -9,7 +9,7 @@ date-current: func [] [ |
|
|
|
insert/dup n "0" (2 - length? n) |
|
|
|
insert/dup n "0" (2 - length? n) |
|
|
|
n |
|
|
|
n |
|
|
|
] |
|
|
|
] |
|
|
|
rejoin [date-add0 now/year date-add0 now/month now/day] |
|
|
|
rejoin [now/year date-add0 now/month date-add0 now/day] |
|
|
|
] |
|
|
|
] |
|
|
|
|
|
|
|
|
|
|
|
make-csv: func [] [ |
|
|
|
make-csv: func [] [ |
|
|
|
@ -67,7 +67,7 @@ view layout [ |
|
|
|
h4 "6" tx "TK-340" c_tk340: entry return |
|
|
|
h4 "6" tx "TK-340" c_tk340: entry return |
|
|
|
h4 "7" tx "TK-540" c_tk540: entry return |
|
|
|
h4 "7" tx "TK-540" c_tk540: entry return |
|
|
|
|
|
|
|
|
|
|
|
h4 "E-Mail: " mailto: field 159x24 italic 80.250.120 return |
|
|
|
h4 "E-Mail: " mailto: field 159x24 "v.kerasilov@tkpetrovich.ru" italic 80.250.120 return |
|
|
|
|
|
|
|
|
|
|
|
button 175 "Îòïðàâèòü" [mail/send mailto/text make-csv] |
|
|
|
button 175 "Îòïðàâèòü" [mail/send mailto/text make-csv] |
|
|
|
button 25 "+" [call/show reform ["explorer.exe" (to-local-file pwd)]] |
|
|
|
button 25 "+" [call/show reform ["explorer.exe" (to-local-file pwd)]] |
|
|
|
|
