//--------------------------------------------------------------------------- int __fastcall TDocPrihod::GetNewNomer() { int result = -1; TIBQuery * q = CreateQuery(0, "select gen_id(gen_nomer_prihod,1) from rdb$database", true); if(!q->FieldByName("gen_id")->IsNull) result = q->FieldByName("gen_id")->AsInteger; FNomer = result; return result; }
//--------------------------------------------------------------------------- void TDocPrihod::Fill(int nomer) { TIBQuery * q = CreateQuery(0, "select nomer, datadok, id_partner, sum(kilxkist*cina) as suma from prihod where nomer = " +IntToStr(nomer)+ " group by nomer, datadok, id_partner" ,true); FDataDok = q->FieldByName("datadok")->AsDateTime; FNomer = nomer; FSuma = q->FieldByName("suma")->AsFloat; if(!FPartner) FPartner = new TPartner(q->FieldByName("id_partner")->AsInteger); }
//--------------------------------------------------------------------------- float __fastcall TKassa::GetOplataNakladna(int Nomer, int Partner) { float result = 0; TIBQuery * q = CreateQuery(NULL, " select sum(suma) sumaoplata from kassa where typedok = 2 and nomerdok = " + IntToStr(Nomer)+ " and id_partner = "+IntToStr(Partner),true); result = q->FieldByName("sumaoplata")->AsFloat; delete q; return result; }
//--------------------------------------------------------------------------- void __fastcall TKassa::Fill(int id) { TIBQuery * q = CreateQuery(0, "select * from kassa where id_kassa="+IntToStr(id),true); FID_Kassa = q->FieldByName("id_kassa")->AsInteger; FID_Partner = q->FieldByName("ID_Partner")->AsInteger; FSuma = q->FieldByName("Suma")->AsFloat; FTypeDok = (TTypeDok)q->FieldByName("TypeDok")->AsInteger; FNomerDok = q->FieldByName("NomerDok")->AsInteger; FData = q->FieldByName("Data")->AsDateTime; FComment = q->FieldByName("Comment")->AsString; FPartner = new TPartner(q->FieldByName("id_partner")->AsInteger); delete q; }
//--------------------------------------------------------------------------- void TRashod::Fill(int id) { TIBQuery * q = CreateQuery(0, "select * from rashod where id_rashod="+IntToStr(id),true); FID_Rashod = q->FieldByName("ID_Rashod")->AsInteger; FID_Partner = q->FieldByName("ID_Partner")->AsInteger; FCina = q->FieldByName("Cina")->AsFloat; FKilxkist = q->FieldByName("Kilxkist")->AsFloat; FID_Tovar = q->FieldByName("ID_Tovar")->AsInteger; FNomer = q->FieldByName("Nomer")->AsInteger; FDataDok = q->FieldByName("datadok")->AsDateTime; }