Follow along with the video below to see how to install our site as a web app on your home screen.
Примечание: This feature may not be available in some browsers.
Всех рад приветствовать!
*** скрытое содержание ***
Сейчас ищу ключ и сертификат SSL для интерфейся кассира.
Всем, кого интересует, могу поделиться интерфейсом (не демо).
#!/usr/bin/perl
open(DAT,"from_old_utml.txt");
open(DB,">>to_new_utm.xml");
print DB "<?xml version=1.0 encoding=UTF-8?>\n";
print DB "<import>\n";
while (<DAT>) {
($login, $full_name, $passport, $home_tel, $mod_tel, $jur_address, $tax_number, $kpp_number, $work_tel, $act_address) = split (/\t/, $_);
print DB "<users>\n";
print DB "<user>\n";
print DB "<accounts>\n";
print DB "<account>\n";
print DB "<is_bloked>0</is_bloked>\n";
print DB "</account>\n";
print DB "</accounts>\n";
print DB "<login>$login</login>\n";
print DB "<full_name>$full_name</full_name>\n";
print DB "<passport>$passport</passport>\n";
print DB "<home_tel>$home_tel</home_tel>\n";
print DB "<mod_tel>$mod_tel</mod_tel>\n";
print DB "<jur_address>$jur_address</jur_address>\n";
print DB "<tax_number>$tax_number</tax_number>\n";
print DB "<kpp_number>$kpp_number</kpp_number>\n";
print DB "<work_tel>$work_tel</work_tel>\n";
print DB "<act_address>$act_address</act_address>\n";
print DB "<is_juridical>0</is_juridical>\n";
print DB "</user>\n";
print DB "</users>\n";
}
print DB "</import>";
close DAT;
close DB;