//---------------------------------------------------------------------------
void __fastcall TNakladnaForm::ButtonEditPostachPropertiesButtonClick(
TObject *Sender, int AButtonIndex)
{
//
TPartnerListForm * pf = new TPartnerListForm(this, ptPokupec);
pf->ShowModal();
if(pf->SelectedItem)
{
Document->Partner = pf->SelectedItem;
EditPartner->Text = Document->Partner->NamePartner;
}
delete pf;
}
void __fastcall TFormReport::EditPartnerPropertiesButtonClick(
TObject *Sender, int AButtonIndex)
{
//
TPartnerListForm * pf = new TPartnerListForm(this);
pf->ShowModal();
if(pf->SelectedItem)
{
// Document->Partner = pf->SelectedItem;
EditPartner->Text = pf->SelectedItem->NamePartner;
id_partner = pf->SelectedItem->ID_Partner;
FrameList1->Query->SQL->Text = DateReplace(QueryStr);
Refresh();
}
delete pf;
}