- •1.3. Описание Работ
- •2. Объекты формируемые системой
- •2.1. Экранные формы
- •2.2. Печатные формы
- •Ssn_Print.Cpp
- •Bu_mod.Cpp
- •Cd_sdatat.Cpp
- •Cd_sint.Cpp
- •Cd_snastr.Cpp
- •Menu.Cpp
- •Osv.Cpp
- •SelectCd_snastr.Cpp
- •SelectKd.Cpp
- •SelectKs.Cpp
- •SelectPd.Cpp
- •SelectPs.Cpp
- •SelectRj.Cpp
- •SelectTxo.Cpp
- •SelectVa.Cpp
- •Txo.Cpp
Menu.Cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <string>
#include <fstream>
#include <stdlib.h>
#include "Menu.h"
#include "AcsessToEl.h"
#include "PS.h"
#include "VA.h"
#include "CD_SNASTR.h"
#include "TXO.h"
#include "KD.h"
#include "CD_SDATAT.h"
#include "CD_SINT.h"
#include "PD.h"
#include "KS.h"
#include "RJ.h"
#include "SSN_Print.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMenu_SSN *Menu_SSN;
using namespace std;
//---------------------------------------------------------------------------
__fastcall TMenu_SSN::TMenu_SSN(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N25Click(TObject *Sender)
{
CompUnit->BuMod->Close();
Menu_SSN->Close();
}
void __fastcall TMenu_SSN::N18Click(TObject *Sender)
{
ps_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N19Click(TObject *Sender)
{
va_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N20Click(TObject *Sender)
{
txo_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N22Click(TObject *Sender)
{
cd_snastr_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N21Click(TObject *Sender)
{
kd_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N2Click(TObject *Sender)
{
cd_sdatat_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N3Click(TObject *Sender)
{
cd_sint_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N4Click(TObject *Sender)
{
pd_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N8Click(TObject *Sender)
{
ks_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N6Click(TObject *Sender)
{
cd_sint_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N42Click(TObject *Sender)
{
rj_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N7Click(TObject *Sender)
{
CompUnit->TKS->Append();
CompUnit->TKSKS_DOKT1->AsString=CompUnit->TRJRJ_DOKT1->AsString;
CompUnit->TKSKS_DOKT2->AsString=CompUnit->TRJRJ_DOKT2->AsString;
CompUnit->TKSKS_DOKN1->AsString=CompUnit->TRJRJ_DOKN1->AsString;
CompUnit->TKSKS_DOKN2->AsString=CompUnit->TRJRJ_DOKN2->AsString;
CompUnit->TKSKS_DOKD->AsDateTime=CompUnit->TRJRJ_DOKD->AsDateTime;
CompUnit->TKSKS_NS->AsString=CompUnit->TRJRJ_NS->AsString;
CompUnit->TKSKS_S->AsString=CompUnit->TRJRJ_DBS->AsString;
CompUnit->TKSKS_SS->AsString=CompUnit->TRJRJ_DBSS->AsString;
CompUnit->TKSKS_KS->AsString=CompUnit->TRJRJ_KRS->AsString;
CompUnit->TKSKS_KSS->AsString=CompUnit->TRJRJ_KRSS->AsString;
CompUnit->TKSKS_DBRUB->AsString=CompUnit->TRJRJ_RUB->AsString;
CompUnit->TKSKS_KRRUB->AsString="0";
CompUnit->TKSKS_AV1->AsString=CompUnit->TRJRJ_DBAV1->AsString;
CompUnit->TKSKS_AK1->AsString=CompUnit->TRJRJ_DBAK1->AsString;
CompUnit->TKSKS_AV2->AsString=CompUnit->TRJRJ_DBAV2->AsString;
CompUnit->TKSKS_AK2->AsString=CompUnit->TRJRJ_DBAK2->AsString;
CompUnit->TKS->Post();
CompUnit->TKS->Append();
CompUnit->TKSKS_DOKT1->AsString=CompUnit->TRJRJ_DOKT1->AsString;
CompUnit->TKSKS_DOKT2->AsString=CompUnit->TRJRJ_DOKT2->AsString;
CompUnit->TKSKS_DOKN1->AsString=CompUnit->TRJRJ_DOKN1->AsString;
CompUnit->TKSKS_DOKN2->AsString=CompUnit->TRJRJ_DOKN2->AsString;
CompUnit->TKSKS_DOKD->AsDateTime=CompUnit->TRJRJ_DOKD->AsDateTime;
CompUnit->TKSKS_NS->AsString=CompUnit->TRJRJ_NS->AsString;
CompUnit->TKSKS_S->AsString=CompUnit->TRJRJ_KRS->AsString;
CompUnit->TKSKS_SS->AsString=CompUnit->TRJRJ_KRSS->AsString;
CompUnit->TKSKS_KS->AsString=CompUnit->TRJRJ_DBS->AsString;
CompUnit->TKSKS_KSS->AsString=CompUnit->TRJRJ_DBSS->AsString;
CompUnit->TKSKS_DBRUB->AsString="0";
CompUnit->TKSKS_KRRUB->AsString=CompUnit->TRJRJ_RUB->AsString;;
CompUnit->TKSKS_AV1->AsString=CompUnit->TRJRJ_KRAV1->AsString;
CompUnit->TKSKS_AK1->AsString=CompUnit->TRJRJ_KRAK1->AsString;
CompUnit->TKSKS_AV2->AsString=CompUnit->TRJRJ_KRAV2->AsString;
CompUnit->TKSKS_AK2->AsString=CompUnit->TRJRJ_KRAK2->AsString;
CompUnit->TKS->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N26Click(TObject *Sender)
{
cd_sint_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N27Click(TObject *Sender)
{
CompUnit->TKS->Append();
CompUnit->TKSKS_DOKT1->AsString=CompUnit->TRJRJ_DOKT1->AsString;
CompUnit->TKSKS_DOKT2->AsString=CompUnit->TRJRJ_DOKT2->AsString;
CompUnit->TKSKS_DOKN1->AsString=CompUnit->TRJRJ_DOKN1->AsString;
CompUnit->TKSKS_DOKN2->AsString=CompUnit->TRJRJ_DOKN2->AsString;
CompUnit->TKSKS_DOKD->AsDateTime=CompUnit->TRJRJ_DOKD->AsDateTime;
CompUnit->TKSKS_NS->AsString=CompUnit->TRJRJ_NS->AsString;
CompUnit->TKSKS_S->AsString=CompUnit->TRJRJ_DBS->AsString;
CompUnit->TKSKS_SS->AsString=CompUnit->TRJRJ_DBSS->AsString;
CompUnit->TKSKS_KS->AsString=CompUnit->TRJRJ_KRS->AsString;
CompUnit->TKSKS_KSS->AsString=CompUnit->TRJRJ_KRSS->AsString;
CompUnit->TKSKS_DBRUB->AsString=CompUnit->TRJRJ_RUB->AsString;
CompUnit->TKSKS_KRRUB->AsString="0";
CompUnit->TKSKS_AV1->AsString=CompUnit->TRJRJ_DBAV1->AsString;
CompUnit->TKSKS_AK1->AsString=CompUnit->TRJRJ_DBAK1->AsString;
CompUnit->TKSKS_AV2->AsString=CompUnit->TRJRJ_DBAV2->AsString;
CompUnit->TKSKS_AK2->AsString=CompUnit->TRJRJ_DBAK2->AsString;
CompUnit->TKS->Post();
CompUnit->TKS->Append();
CompUnit->TKSKS_DOKT1->AsString=CompUnit->TRJRJ_DOKT1->AsString;
CompUnit->TKSKS_DOKT2->AsString=CompUnit->TRJRJ_DOKT2->AsString;
CompUnit->TKSKS_DOKN1->AsString=CompUnit->TRJRJ_DOKN1->AsString;
CompUnit->TKSKS_DOKN2->AsString=CompUnit->TRJRJ_DOKN2->AsString;
CompUnit->TKSKS_DOKD->AsDateTime=CompUnit->TRJRJ_DOKD->AsDateTime;
CompUnit->TKSKS_NS->AsString=CompUnit->TRJRJ_NS->AsString;
CompUnit->TKSKS_S->AsString=CompUnit->TRJRJ_KRS->AsString;
CompUnit->TKSKS_SS->AsString=CompUnit->TRJRJ_KRSS->AsString;
CompUnit->TKSKS_KS->AsString=CompUnit->TRJRJ_DBS->AsString;
CompUnit->TKSKS_KSS->AsString=CompUnit->TRJRJ_DBSS->AsString;
CompUnit->TKSKS_DBRUB->AsString="0";
CompUnit->TKSKS_KRRUB->AsString=CompUnit->TRJRJ_RUB->AsString;;
CompUnit->TKSKS_AV1->AsString=CompUnit->TRJRJ_KRAV1->AsString;
CompUnit->TKSKS_AK1->AsString=CompUnit->TRJRJ_KRAK1->AsString;
CompUnit->TKSKS_AV2->AsString=CompUnit->TRJRJ_KRAV2->AsString;
CompUnit->TKSKS_AK2->AsString=CompUnit->TRJRJ_KRAK2->AsString;
CompUnit->TKS->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N28Click(TObject *Sender)
{
ks_SSN->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMenu_SSN::N11Click(TObject *Sender)
{
//frmSSN_Print->Show();
CompUnit->TRJ->Active=1;
frmSSN_Print->QuickRep1->Preview();
}
//---------------------------------------------------------------------------