void __fastcall TPrihodForm::cxButton3Click(TObject &Sender)
{
FrameList1->Query->DisableControls();
Report->Vars["Prihod.Nomer"] = Document->Nomer;
Report->Vars["Prihod.Pokupec"] = Document->Partner->NamePartner;
Report->Vars["Prihod.Suma"] = Document->Suma;
Report->Vars["Prihod.Data"] = Document->DataDok;
TSumaPropysom * SumaPropysom;
Report->Vars["Prihod.SumaPropisom"] = SumaPropysom->Propys(Document->Suma);
Report->FileBlank = "aktprihod.frf";
Report->frReport = this->frReport1;
Report->LoadBlankFromFile();
frReport1->ShowReport();
FrameList1->Query->EnableControls();
}
void __fastcall TPrihodForm::cxButton3MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button == mbRight)
{
Report->Vars["Prihod.Nomer"] = Document->Nomer;
Report->Vars["Prihod.Pokupec"] = Document->Partner->NamePartner;
Report->Vars["Prihod.Suma"] = Document->Suma;
Report->Vars["Prihod.Data"] = Document->DataDok;
TSumaPropysom * SumaPropysom;
Report->Vars["Prihod.SumaPropisom"] = SumaPropysom->Propys(Document->Suma);
Report->FileBlank = "aktprihod.frf";
Report->frReport = this->frReport1;
Report->LoadBlankFromFile();
frReport1->DesignReport();
}
}
void __fastcall TNakladnaForm::cxButton6Click(TObject &Sender)
{
FrameList1->Query->DisableControls();
Report->Vars["Nakladna.Nomer"] = Document->Nomer;
Report->Vars["Nakladna.Pokupec"] = Document->Partner->NamePartner;
Report->Vars["Nakladna.Suma"] = Document->Suma;
Report->Vars["Nakladna.Data"] = Document->DataDok;
float s = EditSuma->Value;
Report->Vars["Nakladna.SumaOplata"] = s;
TSumaPropysom * SumaPropysom;
Report->Vars["Nakladna.SumaPropisom"] = SumaPropysom->Propys(Document->Suma);
Report->Vars["Nakladna.Saldo"] = TPartner::GetSaldo(Document->Partner->ID_Partner);
Report->FileBlank = "nakladna_nacenka.frf";
Report->frReport = this->frReport1;
Report->LoadBlankFromFile();
frReport1->ShowReport();
FrameList1->Query->EnableControls();
}
void __fastcall TNakladnaForm::cxButton6MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button == mbRight)
{
Report->Vars["Nakladna.Nomer"] = Document->Nomer;
Report->Vars["Nakladna.Pokupec"] = Document->Partner->NamePartner;
Report->Vars["Nakladna.Suma"] = Document->Suma;
Report->Vars["Nakladna.Data"] = Document->DataDok;
float sumaOplata;
sumaOplata = EditSuma->Value;
Report->Vars["Nakladna.SumaOplata"] = sumaOplata;
TSumaPropysom * SumaPropysom;
Report->Vars["Nakladna.SumaPropisom"] = SumaPropysom->Propys(Document->Suma);
Report->Vars["Nakladna.Saldo"] = TPartner::GetSaldo(Document->Partner->ID_Partner);
Report->FileBlank = "nakladna_nacenka.frf";
Report->frReport = this->frReport1;
Report->LoadBlankFromFile();
frReport1->DesignReport();
}
}
