NTP/ExpensesInputInfoForm.cpp at main · mdabcevic/NTP · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ExpensesInputInfoForm.h"
#include "Data\AllData.h"
#include <jpeg.hpp>
#include <pngimage.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
	: TForm(Owner)
{
	translation["Upload"] = {
		{
			{"EN", "Upload merged recepits"},
			{"HR", "Spremite spojene račune"}
		}
	};

	translation["isAccomodation"] = {
		{
			{"EN", "Accomodation"},
			{"HR", "Smještaj"}

		}
	};

	translation["isHospitality"] = {
		{
			{"EN", "Hospitality (Entertainment)"},
			{"HR", "Ugošćavanje (Reprezentacija)"}

		}
	};

	translation["isOther"] = {
		{
			{"EN", "Other expenses"},
			{"HR", "Ostali troškovi"}

		}
	};

	translation["isToll"] = {
		{
			{"EN", "Toll (Road, Tunnel, Ferry, Vignette)"},
			{"HR", "Cestarina (Tunelarina, Vinjeta, Trajekt)"}

		}
	};

	translation["Title"] = {
		{
			{"EN", "Travel expenses information"},
			{"HR", "Podaci o putnim troškovima"}

		}
	};

}
//---------------------------------------------------------------------------
void __fastcall TForm8::UploadClick(TObject *Sender)
{
	if(DataModule1->OpenDialog1->Execute()){
		DataModule1->ExpensesQuery->Insert();
		static_cast<TBlobField*>(DataModule1->ExpensesQuery->FieldByName("Attachments"))->LoadFromFile(DataModule1->OpenDialog1->FileName);
		DataModule1->ExpensesQuery->FieldByName("TransportationToll")->AsBoolean = isToll->Checked;
		DataModule1->ExpensesQuery->FieldByName("Hospitality")->AsBoolean = isHospitality->Checked;
		DataModule1->ExpensesQuery->FieldByName("Parking")->AsBoolean = isParking->Checked;
		DataModule1->ExpensesQuery->FieldByName("Accomodation")->AsBoolean = isAccomodation->Checked;
        DataModule1->ExpensesQuery->FieldByName("Other")->AsBoolean = isOther->Checked;
		DataModule1->ExpensesQuery->Post();
		AttachmentPreview->Visible = true;
		ExpenseIDVal->Visible = true;
		ExpenseID->Visible = true;
		Form7->ExpensesID = DataModule1->ExpensesQuery->FieldByName("ExpensesID")->AsInteger;

	}
}

//---------------------------------------------------------------------------
void __fastcall TForm8::EditExpenses(TObject *Sender)
{
	if(DataModule1->OpenDialog1->Execute()){
		DataModule1->ExpensesQuery->SQL->Text = "SELECT * FROM TravelExpenses WHERE ExpensesID = :ExpenseID";
		DataModule1->ExpensesQuery->Parameters->ParamByName("ExpenseID")->Value = DataModule1->WarrantsQuery->FieldByName("AttachmentID")->AsInteger;
        DataModule1->ExpensesQuery->Open();
		DataModule1->ExpensesQuery->Edit();

		static_cast<TBlobField*>(DataModule1->ExpensesQuery->FieldByName("Attachments"))->LoadFromFile(DataModule1->OpenDialog1->FileName);
		DataModule1->ExpensesQuery->FieldByName("TransportationToll")->AsBoolean = isToll->Checked;
		DataModule1->ExpensesQuery->FieldByName("Hospitality")->AsBoolean = isHospitality->Checked;
		DataModule1->ExpensesQuery->FieldByName("Parking")->AsBoolean = isParking->Checked;
		DataModule1->ExpensesQuery->FieldByName("Accomodation")->AsBoolean = isAccomodation->Checked;
		DataModule1->ExpensesQuery->FieldByName("Other")->AsBoolean = isOther->Checked;
		DataModule1->ExpensesQuery->Post();
		DataModule1->ExpensesQuery->Close();
		DataModule1->ExpensesQuery->Open();
		//Form7->ExpensesID = DataModule1->ExpensesQuery->FieldByName("ExpensesID")->AsInteger;
		DataModule1->ExpensesQuery->SQL->Text = "SELECT * FROM TravelExpenses";
        Close();
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm8::FormShow(TObject *Sender)
{
		AttachmentPreview->Visible = false;
		ExpenseIDVal->Visible = false;
		ExpenseID->Visible = false;
}
//---------------------------------------------------------------------------