Вот эта пакость не работает
| Код |
void __fastcall TWebModule1::WebModule1WebActionItemOPRZBLTOSVBAction(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
AnsiString IND;
IND=Request->ContentFields->Values["IND"];
WebModule1->IBStoredProc_main->StoredProcName="ZBL_TO_SVB";
WebModule1->IBStoredProc_main->ParamByName("ID_ZBL")->AsInteger=IND.ToInt();
WebModule1->IBStoredProc_main->Prepare();
WebModule1->IBStoredProc_main->ExecProc();
WebModule1->IBTransaction_main->Commit();
WebModule1->IBQuery_ZABLK->Close();
WebModule1->IBQuery_ZABLK->Open();
WebModule1->IBQuery_SVOBODN->Close();
WebModule1->IBQuery_SVOBODN->Open();
}
|
если кода нет например есть только вот это, то выполняется
| Код |
Response->Content=PageProducerSELECT->Content();
Handled=true;
|
Как быть? Спасибо заранее!!! |