//---------------------------------------------------------------------------
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;
}
