Unit8.cpp#include
#pragma hdrstop #include "Unit8.h" #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h"
#include "Unit5.h" #include "Unit6.h" #include "Unit7.h" #include "Unit9.h"
#pragma package(smart_init) #pragma resource "*.dfm" TForm8 *Form8;
fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
voidfastcall TForm8::Button1Click(TObject *Sender)
{DataModule2->title_select->Close();
DataModule2->title_select->ParamByName("VIN_SHOWDEL")->AsInteger=0; DataModule2->title_select->ParamByName("VIN_STARTDATE")-
>AsDate=Form8->DateTimePicker1->Date;
DataModule2->title_select->ParamByName("VIN_ENDDATE")-
>AsDate=Form8->DateTimePicker2->Date;
DataModule2->title_select->ParamByName("VIN_METHOD")->AsInteger=5; DataModule2->title_select->ParamByName("VIN_VALUE")->AsInteger=0; DataModule2->title_select->ParamByName("VIN_USERID")->AsInteger=1; DataModule2->title_select->Open();}
// voidfastcall TForm8::DBGrid1DblClick(TObject *Sender)
{Application->CreateForm(classid(TForm3), &Form3); DataModule2->person->Close();
DataModule2->person->ParamByName("VID")->AsInteger=DataModule2-
>title_select->FieldByName("VPERSONID")->AsInteger; DataModule2->person->Open();
Form3->number_doc->Caption=DataModule2->title_select-
>FieldByName("VID")->AsString; int typedoc;
int statedoc;
typedoc=DataModule2->title_select->FieldByName("VTYPEID")->AsInteger; statedoc=DataModule2->title_select->FieldByName("VSTATEID")->AsInteger; switch(typedoc)
{
case 1: Form3->type_doc->Caption="Приход товара (Приходная накладная)"; Form3->type->Caption="1";
DataModule2->person_select->Close();
DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=1; DataModule2->person_select->Open();
DataModule2->goods_select->Close();
DataModule2->goods_select->ParamByName("VIN_CURRID")-
>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-
>AsInteger=0;
DataModule2->goods_select->Open(); break;
case 2: Form3->type_doc->Caption="Продажа товара (Расходная накладная)"; Form3->type->Caption="2";
DataModule2->person_select->Close();
DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=2; DataModule2->person_select->Open();
DataModule2->goods_select->Close();
DataModule2->goods_select->ParamByName("VIN_CURRID")-
>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-
>AsInteger=1;
DataModule2->goods_select->Open(); break;
case 3: Form3->type_doc->Caption="Списание товара (Расходная накладная)"; Form3->type->Caption="3";
DataModule2->person_select->Close();
DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=3; DataModule2->person_select->Open();
DataModule2->goods_select->Close();
DataModule2->goods_select->ParamByName("VIN_CURRID")-
>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-
>AsInteger=1;
DataModule2->goods_select->Open(); break;
case 4: Form3->type_doc->Caption="Возврат товара (Приходная накладная)"; Form3->type->Caption="4";
DataModule2->person_select->Close();
DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=2; DataModule2->person_select->Open();
DataModule2->goods_select->Close();
DataModule2->goods_select->ParamByName("VIN_CURRID")-
>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-
>AsInteger=0;
DataModule2->goods_select->Open(); break;
}
switch(statedoc)
{case 1: Form3->state_doc->Caption="Сохранён, не проведён";break; case 2: Form3->state_doc->Caption="Проведён";break;} if(statedoc==2)
{Form3->DBEdit1->Visible=True; Form3->Button1->Visible=False; Form3->DBGrid1->Visible=False; Form3->DBGrid4->Enabled=False; Form3->GroupBox2->Visible=False;} DataModule2->get_content->Close();
DataModule2->get_content->ParamByName("VIN_DOCID")-
>AsInteger=DataModule2->title_select->FieldByName("VID")->AsInteger; DataModule2->get_content->Open();
float s; s=0;
DataModule2->get_content->First(); while(!DataModule2->get_content->Eof)
{s=s+DataModule2->get_content->FieldByName("summ")->AsFloat; DataModule2->get_content->Next();}
Form3->itog->Caption=FloatToStr(s); Form3->ShowModal();
}
// voidfastcall TForm8::N1Click(TObject *Sender)
{
int state;
state=DataModule2->title_select->FieldByName("VSTATEID")->AsInteger; switch(state){
case 1:
DataModule2->edit_title->ParamByName("VIN_ACTION")->AsInteger=1; DataModule2->edit_title->ParamByName("VIN_ID")->AsInteger=DataModule2-
>title_select->FieldByName("VID")->AsInteger;
DataModule2->edit_title->ParamByName("VIN_PERSON")->AsInteger=0; DataModule2->edit_title->ParamByName("VIN_STATE")->AsInteger=3; DataModule2->edit_title->ParamByName("VIN_SUMM")->AsFloat=0; DataModule2->edit_title->Prepare();
DataModule2->edit_title->ExecProc(); DataModule2->IBTransaction1->Commit(); DataModule2->title_select->Open(); break;
case 2: ShowMessage("Нельзя удалять документ, который ПРОВЕДЁН"); break;
case 3: ShowMessage("Документ уже удалён"); break;
}
}
1 ... 19 20 21 22 23 24 25 26 27