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

}

//---------------------------------------------------------------------------