$metalinfotype = "p"
MsgBox(0, @ScriptName, $metalinfotype)
IniWrite("prod.ini", "prod", "prod", "Другое")
$prod = IniRead("prod.ini", "prod", "prod", "")
If $prod == "Покупка" then $metalinfotype = "s"
If $prod == "Продажа" then $metalinfotype = "b"
If $prod == "Другое" then $metalinfotype = "o"
MsgBox(0, @ScriptName, $metalinfotype)
IniWrite("prod.ini", "prod", "prod", "Покупка")
$prod = IniRead("prod.ini", "prod", "prod", "")
If $prod == "Покупка" then $metalinfotype = "s"
If $prod == "Продажа" then $metalinfotype = "b"
If $prod == "Другое" then $metalinfotype = "o"
MsgBox(0, @ScriptName, $metalinfotype)
IniWrite("prod.ini", "prod", "prod", "Продажа")
$prod = IniRead("prod.ini", "prod", "prod", "")
If $prod == "Покупка" then $metalinfotype = "s"
If $prod == "Продажа" then $metalinfotype = "b"
If $prod == "Другое" then $metalinfotype = "o"
MsgBox(0, @ScriptName, $metalinfotype)