Esempi in C++ (Cpp) per TSumaPropysom::Propys

Esempio n. 1

File: AktPrihod.cpp Progetto: vhytyk/ProfStor

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();

}

Esempio n. 2

File: AktPrihod.cpp Progetto: vhytyk/ProfStor

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();
   }
}

Esempio n. 3

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();
}

Esempio n. 4

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();
   }
}