Конвертор расходов | Кабинет | Артем Сапронов. Дом, который построил я.

		Кабинет
		1. Практически резюме 2. Quest игры 3. Joomla! · Joomla! LocalLinker 4. Мои работы · Low-traffic KharkovForum.com · Краситель таблиц · Http-лог Eserv · Спам-фильтр под Eserv · Удаление архивов видеонаблюдения · Конвертор расходных документов · Перевод LJ moods · Логотипы IDO group · Переводчик транслита · Переводчик дат 5. HTML в BBC 6. Это я люблю (± 100) 7. Страница памяти

Внимание! У вас отключен JavaScript. Некоторые страницы этого сайта будут работать некорректно или не будут работать совсем.

Последние новости
17.05.10 Вернулись из путешествия по Средней Азии! Киргизстан (Бишкек, Ош, Иссык-Куль) - Узбекистан (Ташкент, Хива, Бухара, Самарканд) - Та... »»

Поиск

Вид из окна

Быстрый переход

Морские круизы 2010. Путевки для детей, Греция, курорты мира.

Полезно

Статистика

	Прихожая Гостиная Кабинет Библиотека Детская Выход
	Конвертор расходов

Собственно говоря данный скрипт не делает ничего сложно и он очень приметивен. Зато он отображает как использование Perl'а на локальных машинах может облегчить вам жизнь.

Суть работы:

При запуске скрипт спрашивает имя файла.
Предполагается, что исходный файл имеет имя вида "Axxxxx.exp", где xxxxx - произвольный набор цифр. Таков формат экспортного документа из БД. Так вот, скрипт спрашивает только эти саммые цифры.
Потом подставляет остальное.
Считывает файл (с пятой строки, пропуская все ненужное)
Разбивает в массив.
Переставляет нужные столбцы местами.
Создает новый файл и записывает в него измененные строки.
Удаляет исходный файл.

Исходный код:
Каждая строка этого файла не содержит переносов. Что бы вы могли его правильно собрать, я их пронумеровал.

#!/usr/bin/perl
print "Input file-name (whithout 'A' & '.exp'!)\n";
$file= <STDIN>;
$ext=".exp";
$convfile="newfile";
$stop=1;
chomp($file);
open (FILE, "<A$file$ext") || die "Can't open file $file$ext: \n $! \nand\n $^E";
@line=;
close (FILE);
open (FILE, ">$convfile$ext") || die "Can't create file $convfile$ext: \n $! \nand\n $^E";
for ($i=0;$i<$#line;$i++) {
if ($i>=5 && $line[$i]=~ /\#\#/ && $stop) {$stop=0;}
if ($i>=5 && $stop) {
($ID,$GoodsID,$GoodsName,$ProducerID,$ProducerName,$SeriaID,$SerialNo,$BestBefore,$SOQNo,$SOQDate,$RegSertNo,$RegSertDate,$RegExpired,$Price,$CurrencyID,$CurrencyAbbr,$DutySum,$DutySum2,$IncomeNDS,$RealPrice,$CustPrice,$PurchPrice,$SellPrice,$EndPrice,$AVCoef,$AVTCoef,$Quantity,$SummaNDS,$Summa,$Dim,$Capacity)=split('\|',$line[$i]);
print FILE "$ID|$GoodsID|$GoodsName|$ProducerID|$ProducerName|$SeriaID|$SerialNo|$BestBefore|$SOQNo|$SOQDate|$RegSertNo|$RegSertDate|$RegExpired|$PurchPrice|$CurrencyID|$CurrencyAbbr|$DutySum|$DutySum2|$IncomeNDS|$SellPrice|$Price|$RealPrice|$CustPrice|$EndPrice|$AVCoef|$AVTCoef|$Quantity|$SummaNDS|$Summa|$Dim|$Capacity";
} else {
print FILE "$line[$i]";
}
}
close (FILE);
unlink ("A$file$ext");

Пример файла (A59647.exp):
Каждая строка этого файла не содержит переносов. Что бы вы могли его правильно собрать, я их пронумеровал.

## Расходная накладная - импортировать в приход
#1DocID|DocNo|DocDate|BookDate|OwnerID|OwnerName|CustomerID|CustomerName|Summa|SummaNDS|AVTMode|AVTBase|PayMode|PayDate|RPerson|LANo|LADate|Comments
59647| 871 |04.03.2003|04.03.2003|1516|ШАНГЛІ УКРАЇНА, ТОВ, м. Харків|1878|Артель "Напрасный труд", ТОВ, м. Харків|47.7700|0.0000|1|2|0|11.03.2003||||(по заявке № 7329/)
##
#2ID|GoodsID|GoodsName|ProducerID|ProducerName|SeriaID|SerialNo|BestBefore|SOQNo|SOQDate|RegSertNo|RegSertDate|RegExpired|Price|CurrencyID|CurrencyAbbr|DutySum|DutySum2|IncomeNDS|RealPrice|CustPrice|PurchPrice|SellPrice|EndPrice|AVCoef|AVTCoef|Quantity|SummaNDS|Summa|Dim|Capacity
325002|14114|Горпилс апельсин лед. д/рас №8|3281|ДЖЕПАК, Индия|26301|GOR-2021|01.08.2005|FPR/GOR-2021|06.09.2002|Р,03,02/04375|12.03.2002|06.03.2007|1.4900|4|ГРН|0.0000|0.0000|0.0000|1.1200|1.4900|1.4900|1.2700|0.0000|-15.000|0.000|2.000|0.0000|2.5400|УП|600
325003|14115|Горпилс лимон лед. д/рас №8|3281|ДЖЕПАК, Индия|26302|GLE-2027|01.07.2005|FPR/GLE-2027|02.09.2002|Р,03,02/04375|12.03.2002|06.03.2007|1.4900|4|ГРН|0.0000|0.0000|0.0000|1.1200|1.4900|1.4900|1.2700|0.0000|-15.000|0.000|2.000|0.0000|2.5400|УП|600
325004|14116|Горпилс лимон-медовые лед. д/рас №8|3281|ДЖЕПАК, Индия|26303|GHL-2026|01.08.2005|FPR/GHL-2026|07.09.2002|Р,03,02/04375|12.03.2002|06.03.2007|1.4900|4|ГРН|0.0000|0.0000|0.0000|1.1300|1.4900|1.4900|1.2700|0.0000|-15.000|0.000|3.000|0.0000|3.8100|УП|600
325005|14117|Горпилс метол-эвкалипт лед. д/рас №8|3281|ДЖЕПАК, Индия|26304|GME-2011|01.08.2005|FPR/GME-2011|05.09.2002|Р,03,02/04375|06.03.2002|06.03.2007|1.4900|4|ГРН|0.0000|0.0000|0.0000|1.1200|1.4900|1.4900|1.2700|0.0000|-15.000|0.000|2.000|0.0000|2.5400|УП|600
325000|13738|Максамин Форте №100|2685|АНГЛО-ФРЕНЧ ДРАГС ЭНД ИНДАСТРИЗ ЛИМИТЕД, ИНДИЯ|18501|01201-PE|31.01.2004|ARN:FE2/029|11.02.2002|Р.01.01/02664||18.01.2006|27.5000|4|ГРН|0.0000|0.0000|0.0000|23.4800|27.5000|27.5000|23.3800|0.0000|-15.000|0.000|1.000|0.0000|23.3800|УП|70
325001|13986|Салмодил сироп 100 мл №1|3051|FDC Limited, Индия|21786|DLW 2031|01.02.2004|209|01.03.2002|P.02.02/04324||15.02.2007|3.9300|4|ГРН|0.0000|0.0000|0.0000|3.9300|3.9300|5.0800|4.3200|0.0000|-15.000|0.000|3.000|0.0000|12.9600|УП|50
##
#3Name|Bank|Account|MFO|OKPO|Address|Phones|Faxes|TaxIDNo|TaxSertNo|ContractNo|ContractDate|LicenseNo
ШАНГЛІ УКРАЇНА, ТОВ, м. Харків|Харьковское ГРУ "ПриватБанк"|26006278519001|351533|24660391|Україна, 61126, м. Харків, вул. Маршала Конєва, 21|14-38-02|14-38-01|246603920355|29422048|||АА248855
##
#4Name|Bank|Account|MFO|OKPO|Address|Phones|Faxes|TaxIDNo|TaxSertNo|ContractNo|ContractDate|LicenseNo
Артель "Напрасный труд", ТОВ, м. Харків|Ком. відд. УСБ, м. Харків|000000000000|000000|00000000|Україна, 61153, м. Харків, пр. Ххххххххххххх, 00|00-00-00|00-00-00|000000000000|00000000|||АА000000

: BBCode
: HTML

Код, текст и фотографии размещенные на этом сайте принадлежат их автору - Сапронову Артёму Александровичу.
Допускается использование материалов сайта в личных целях.
Приветствуется распространение с обязательным указанием активной гиперссылки на страницу, с которой взят материал.
Запрещается внесение изменений в исходный текст (в том числе синонимизация и рерайт).
Использование материалов сайта в коммерческих целях без согласования с автором запрещено.
Обращайте внимание на даты. Некоторые страницы морально устарели.
Автор не несет отвественности за любые возможные последствия связанные с использованием материалов сайта.
С предложениями, замечаниями или пожеланиями обращайтесь по email.

		artem.sapronov@gmail.com
	© 2001-2010 Артем Сапронов

	Удаление архивов видеонаблюдения	↑↓ ← Ctrl →	Перевод LJ moods
	Страстям мы обязаны, быть может, наибольшими победами ума. [ ВОВЕНАРГ, Люк де Клапье ]