Есть система ведения распоряжений по курсам валют в обменниках. Обеспечивает ввод, печать, подтверждение курсов. Внезапно старшие товарищи решили нас осчастливить и обеспечить "автоматическую" загрузку курсов в Диасофт 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;
