Member 13613834 Ответов: 0

Почему crystal report не генерирует данные при экспорте в pdf с помощью PHP?


Я пробую этот код.
Он работает, но не может экспортировать данные crystal report в формате pdf. Как я могу экспортировать эти данные сообщить? Спасибо

Что я уже пробовал:

<?php


$my_pdf = "C:\xampp\htdocs\CrystalReport1.pdf";
$databaselocation = "C:\Users\Plastimer\Documents\Visual Studio 2015\Projects\CReport\CReport\TABLEREPORT.mdb";
$conn = new COM('ADODB.Connection') или exit('не удается запустить ADO.');
$conn->Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=$databaselocation");

$среда SQL = "выбрать пункт" STOCK_ISSUANCE_HDR`.`SIS #`, `STOCK_ISSUANCE_HDR`.`SIS DATE`, `STOCK_ISSUANCE_HDR`.`TRANS #*A`, `T_STOCKFG`.`PRODCODE *Б`, `T_STOCKFG`.`STK_DESC`, `STOCK_ISSUANCE_DTL``.КОЛ-ВО`, `STOCK_ISSUANCE_DTL`.`СЛОВО`
ИЗ (`STOCK_ISSUANCE_HDR` `STOCK_ISSUANCE_HDR` ВНУТРЕННЕЕ СОЕДИНЕНИЕ `STOCK_ISSUANCE_DTL` `STOCK_ISSUANCE_DTL` НА `STOCK_ISSUANCE_HDR`.`TRANS #*A`=`STOCK_ISSUANCE_DTL`.ТРАНС #*А`) ВНУТРЕННЕЕ СОЕДИНЕНИЕ `T_STOCKFG` `T_STOCKFG` НА `STOCK_ISSUANCE_DTL`.`PRODCODE *B`=`T_STOCKFG`.`PRODCODE *B`
';


$rs = $conn->Execute($sql);


$my_report = "C:\Users\Plastimer\Documents\CrystalReport1.rpt";


$ObjectFactory= new COM("CrystalReports13.ObjectFactory.1") или die ("ошибка при загрузке");
$crapp = $ObjectFactory-> CreateObject("CrystalDesignRunTime.Приложение");
$creport = $crapp->OpenReport($my_report, 1);

$rptParams = $creport->поля параметров;
$rptParam = $rptParams->Item(1);
$para = $creport->поля параметров;
$param = $para->Item(2);


$oScript = new COM("MSScriptControl.ScriptControl");
$oScript->Language = "VBScript";
$oScript->AllowUI = false;
$oScript->AddObject('rptParam', $rptParam, false);
$oScript->AddCode('Function SetDateParameter(end_date)
rptParam.AddCurrentValue(CDate(end_date))
Конечная Функция');

$oScript = new COM("MSScriptControl.ScriptControl");
$oScript->Language = "VBScript";
$oScript->AllowUI = false;
$oScript->AddObject('param', $param,false);
$oScript->AddCode('Function SetDateParameter(srat_date)
парам.AddCurrentValue(функция cdate(srat_date))
Конечная Функция');

$creport->DiscardSavedData();
$creport->ReadRecords();
$creport->EnableParameterPrompting = 0;
$creport->FormulaSyntax = 0;


$creport->ExportOptions->DiskFileName = $my_pdf;
$creport->ExportOptions->PDFExportAllPages = True;
$creport->ExportOptions->DestinationType = 1;
$creport->ExportOptions->FormatType = 31;
$creport->экспорт(true);

print "<Embedded src='http://localhost/CrystalReport1.pdf' width=\"100%\" height=\"100%\">"
?>

0 Ответов