Скрипт для отправки отчёта по запасу тонер-картриджей Kyocera

kyocera.r

@@ -0,0 +1,75 @@
+REBOL [
+	Title:  "Ó÷¸ò êàðòðèäæåé KYOCERA"
+	Author: Maxim Lihachev
+]
+
+date-current: func [] [
+	date-add0: func [n][
+	    n: to-string n
+	    insert/dup n "0" (2 - length? n)
+	    n 
+	]
+	rejoin [date-add0 now/day "." date-add0 now/month "." now/year]
+]
+
+make-csv: func [] [
+	fileOUT: to-file rejoin ["KYOCERA " date-current ".csv"]
+
+	write/lines fileOUT ["Ó÷¸ò êàðòðèäæåé íà ñêëàäå;;"]
+	write/lines/append fileOUT reduce [
+		";;"
+		(rejoin [";Äàòà:         " date-current ";"])
+		";;"
+		"¹;Ìîäåëü;Êîë-âî"
+		(rejoin ["1;TK-110;"     c_tk110/text])
+		(rejoin ["2;TK-110,112;" c_tk112/text])
+		(rejoin ["3;TK-1100;"    c_tk1100/text])
+		(rejoin ["4;TK-1140;"    c_tk1140/text])
+		(rejoin ["5;TK-3100;"    c_tk3100/text])
+		(rejoin ["6;TK-340;"     c_tk340/text])
+		(rejoin ["7;TK-540;"     c_tk540/text])
+	]
+	return fileOUT
+]
+
+mail: make object! [
+	subject: "Ó÷¸ò êàðòðèäæåé KYOCERA"
+
+	outlook:    "^"c:\program files\microsoft office\office14\outlook.exe^""
+
+	message: func [mailto subject] [
+		rejoin [" /m ^"" (reduce [mailto "&subject=" subject]) "^""]
+	]
+
+	attach: func [filename] [
+		rejoin [" /a ^"" (to-local-file get-modes filename 'full-path) "^""]
+	]
+
+	send: func [mailto filename] [
+		call reform [mail/outlook (mail/attach filename) (mail/message mailto mail/subject)]
+	]
+]
+
+view layout [ 
+	style tx h4 80x24 left
+	style entry field 100x24 center
+
+	title "Ó÷¸ò êàðòðèäæåé"
+
+	h5 200 right date-current return
+
+	across 
+	h4 "1" tx "TK-110"     c_tk110:  entry return
+	h4 "2" tx "TK-110,112" c_tk112:  entry return
+	h4 "3" tx "TK-1100"    c_tk1100: entry return
+	h4 "4" tx "TK-1140"    c_tk1140: entry return
+	h4 "5" tx "TK-3100"    c_tk3100: entry return
+	h4 "6" tx "TK-340"     c_tk340:  entry return
+	h4 "7" tx "TK-540"     c_tk540:  entry return
+
+	h4 "E-Mail: " mailto: field 159x24 italic 80.250.120 return
+
+	button 175 "Îòïðàâèòü" [mail/send mailto/text make-csv]
+	button 25  "+" [call/show reform ["explorer.exe" (to-local-file pwd)]]
+]
+