29 апр. 2013 г.

Открытие сезона. Мост на Уссурийский остров.

Открыл сезон, прокатив первые 50 километров, съездил к новому мосту. Моста еще нет, но опоры уже стоят. Постоянно по новой дороге ездит народ, интересуется. На указателе уже "Пограничный переход" - только речку надо перепрыгнуть.
Указатель в никуда

Дорога в никуда

Опоры моста

А тут был наплавной мост.

Excel из PHP

Есть система ведения распоряжений по курсам валют в обменниках. Обеспечивает ввод, печать, подтверждение курсов. Внезапно старшие товарищи решили нас осчастливить и обеспечить "автоматическую" загрузку курсов в Диасофт 5NT. Пришлось для получения требуемого к загрузке файла в формате MS Excel научиться изготавливать из CSV XLS.
 include_once "Spreadsheet/Excel/Writer.php";
 $xls =& new Spreadsheet_Excel_Writer();

 $name=$_GET['rasp'];
 $xls->send("KURS_".substr($name,0,3)."_".substr($name,7).".xls");
 $f = fopen($name, "rt") or die("Ошибка!");
 $sheet =& $xls->addWorksheet('Распоряжение');
 $format =& $xls->addFormat();
 $format->setColor("black");
 $dateFmt =& $xls->addFormat();
 $dateFmt->setColor("black");
 $dateFmt->setNumFormat("D MMMM,YYYY");
 $sheet->setColumn(0,5,20);
 for ($i=0; $data=fgetcsv($f,1000,","); $i++){
        $sheet->writeString(2, 0, "Филиал банка в г.Москве", $format);
        $sheet->writeString(4, 0, "Приказ № ".$data[0], $format);
        $sheet->writeString(6, 3, $data[2], $dateFmt);
        $sheet->writeString(12, 0, "Доллары США:", $format);
 $sheet->writeString(13, 0, "покупка -", $format);
 $sheet->writeString(13, 1, $data[3], $format);
 $sheet->writeString(13, 3, "продажа -", $format);
 $sheet->writeString(13, 4, $data[4], $format);
 $sheet->writeString(15, 0, "Евро:", $format);
 $sheet->writeString(16, 0, "покупка -", $format);
 $sheet->writeString(16, 1, $data[6], $format);
 $sheet->writeString(16, 3, "продажа -", $format);
 $sheet->writeString(16, 4, $data[7], $format);
 $sheet->writeString(18, 0, "Английские фунты стерлингов:", $format);
 $sheet->writeString(19, 0, "покупка -", $format);
 $sheet->writeString(19, 1, $data[9], $format);
 $sheet->writeString(19, 3, "продажа -", $format);
 $sheet->writeString(19, 4, $data[10], $format);
 $sheet->writeString(21, 0, "Швейцарские франки:", $format);
 $sheet->writeString(22, 0, "покупка -", $format);
 $sheet->writeString(22, 1, $data[12], $format);
 $sheet->writeString(22, 3, "продажа -", $format);
 $sheet->writeString(22, 4, $data[13], $format);
 $sheet->writeString(26, 1, "USD", $format);
 $sheet->writeString(26, 2, "EUR", $format);
 $sheet->writeString(26, 3, "GBP", $format);
 $sheet->writeString(26, 4, "CHF", $format);
 $sheet->writeString(27, 0, "USD", $format);
 $sheet->writeString(28, 0, "EUR", $format);
 $sheet->writeString(29, 0, "GBP", $format);
 $sheet->writeString(30, 0, "CHF", $format);
 $sheet->writeString(27, 1, "X", $format);
 $sheet->writeString(27, 2, $data[16], $format); //USD-EUR
 $sheet->writeString(27, 3, "0.00", $format);
 $sheet->writeString(27, 4, "0.00", $format);
 $sheet->writeString(28, 1, $data[15], $format); //EUR-USD
 $sheet->writeString(28, 2, "X", $format);
 $sheet->writeString(28, 3, "0.00", $format);
 $sheet->writeString(28, 4, "0.00", $format);
 $sheet->writeString(29, 1, "0.00", $format);
 $sheet->writeString(29, 2, "0.00", $format);
 $sheet->writeString(29, 3, "X", $format);
 $sheet->writeString(29, 4, "0.00", $format);
 $sheet->writeString(30, 1, "0.00", $format);
 $sheet->writeString(30, 2, "0.00", $format);
 $sheet->writeString(30, 3, "0.00", $format);
 $sheet->writeString(30, 4, "X", $format);
 $sheet->writeString(35, 0, $data[17], $format);
 $sheet->writeString(35, 3, $data[18], $format);
 $sheet->writeString(36, 0, $data[19], $format);
 $sheet =& $xls->addWorksheet('Приложение');
 $sheet->writeString(0,5,$data[2]);
 for($i=0;$i<3;$i++){
         $sheet->writeString($i+2,3,$data[1]); //time of the day
 }
 $sheet->writeString(2,5,"Ф-Л");
 $sheet->writeString(3,5,"ДО 1");
 $sheet->writeString(4,5,"ДО 2");

 }
        fclose($f);
 $xls->close();
 exit;