Ejemplos de TSumaPropysom::Propys en C++ (Cpp)

Ejemplo n.º 1

Archivo: AktPrihod.cpp Proyecto: 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();

}

Ejemplo n.º 2

Archivo: AktPrihod.cpp Proyecto: 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();
   }
}

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

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