Skip to content

P
Pricer
Commit 5401b926 authored by Milan Pumpalovic's avatar Milan Pumpalovic
Browse files
Options

Dodato u pricer da kroz tabelu mogu da se menjaju/uklone pozicije kolona.…

Dodato u pricer da kroz tabelu mogu da se menjaju/uklone pozicije kolona. Takodje je dodato da moze da se menja delimiter '|' default
parent 1444bccb
Hide whitespace changes
Inline Side-by-side
Showing with 402 additions and 152 deletions
Unit4.cpp
View file @ 5401b926
......@@ -21,6 +21,22 @@
#pragma link "cxLookupEdit"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxDateRanges"
#pragma link "dxScrollbarAnnotations"
#pragma resource "*.dfm"
TForm4 *Form4;
int magacin;
......@@ -34,7 +50,9 @@ __fastcall TForm4::TForm4(TComponent* Owner)
void __fastcall TForm4::FormCreate(TObject *Sender)
{
// create
Position = poScreenCenter;
this->WindowState = wsMaximized;
// Position = poScreenCenter;
cdsPricer2->Close();
cdsPricer2->Open();
......@@ -61,20 +79,7 @@ void __fastcall TForm4::sveClick(TObject *Sender)
void __fastcall TForm4::Export(int mg, int sve){
TStringList* fajl = new TStringList();
WideString naredba = "001|Barcode | Code | Name | Local name | Sales price | List price | Unit Unit | Cenovnik | Weight | Weight unit | Price unit | Vazi_od | Vazi_do";
fajl->Append( naredba );
SaveDialog1->Title = "Izvoz podataka za Pricer";
SaveDialog1->DefaultExt = "csv";
SaveDialog1->Filter = "Text|*.csv|All files|*.*";
SaveDialog1->InitialDir = "C:\\Price\\upload" ;
SaveDialog1->FileName = "item_";
AnsiString cena, unit_price;
Currency cena_zs_stampu;
int mnozi_cenu = mnozi_odnos_pjm;
char lOldDecimalSeparator = FormatSettings.DecimalSeparator;
FormatSettings.DecimalSeparator = '.';
SIFRA_MAGACINA = mg;
cdsPricer2->Active = false;
sdsPricer2->ParamByName("MAG")->AsInteger = mg;
sdsPricer2->ParamByName("datum")->AsDate = Date();
......@@ -84,97 +89,109 @@ void __fastcall TForm4::Export(int mg, int sve){
sdsPricer2->ParamByName("datum_promene")->Clear();
}
cdsPricer2->Active = true;
if ( SaveDialog1->Execute( ) )
{
while (!cdsPricer2->Eof) {
try {
if (cdsPricer2->RecordCount > 0) {
naredba = "001|";
naredba = naredba + cdsPricer2->FieldByName("BARKOD")->AsString + "|";
naredba = naredba + cdsPricer2->FieldByName("KOD")->AsString + "|";
naredba = naredba + cdsPricer2->FieldByName("artikal")->AsString+ "|";
naredba = naredba + cdsPricer2->FieldByName("lokalni_naziv")->AsString+ "|";
// naredba = naredba + cdsPricer2->FieldByName("AKCIJA_OZNAKA")->AsString+ "|";
if (mnozi_cenu == 0 && cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency > 0) {
cena_zs_stampu = cdsPricer2->FieldByName("cena")->AsCurrency / cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency;
// cena = Strutils::AnsiReplaceStr(FormatCurr("0.00",cdsPricer2->FieldByName("cena")->AsCurrency), ".", "") + "|";
// cena = Strutils::AnsiReplaceStr(cena, ",", "") ;
cena = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency) + "|";
// unit_price = Strutils::AnsiReplaceStr(FormatCurr("0.00",cena_zs_stampu), ".", "");
// unit_price = Strutils::AnsiReplaceStr(unit_price, ",", "")+ "|";
unit_price = FormatCurr("0.00", cena_zs_stampu);
unit_price = unit_price + "|";
}
else if (mnozi_cenu == 1 && cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency > 0) {
cena_zs_stampu = cdsPricer2->FieldByName("cena")->AsCurrency * cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency;
// cena = Strutils::AnsiReplaceStr(FormatCurr("0.00",cena_zs_stampu), ".", "") + "|";
// cena = Strutils::AnsiReplaceStr(cena, ",", "") ;
cena = FormatCurr("0.00", cena_zs_stampu) + "|";
// unit_price = Strutils::AnsiReplaceStr(FormatCurr("0.00",cdsPricer2->FieldByName("cena")->AsCurrency), ".", "");
// unit_price = Strutils::AnsiReplaceStr(unit_price, ",", "")+ "|";
unit_price = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency);
unit_price = unit_price + "|";
}
else {
// cena = Strutils::AnsiReplaceStr(FormatCurr("0.00",cdsPricer2->FieldByName("cena")->AsCurrency), ".", "") + "|";
// cena = Strutils::AnsiReplaceStr(cena, ",", "") ;
cena = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency) + "|"; // Formatira cenu na dve decimale i dodaje separator
unit_price = cena;
}
naredba = naredba + cena;
naredba = naredba + unit_price;
naredba = naredba + " |";
naredba = naredba + " |";
naredba = naredba + cdsPricer2->FieldByName("tip_cenovnika")->AsString+ "|";
naredba = naredba + cdsPricer2->FieldByName("IDPJM")->AsString+ "|";
naredba = naredba + cdsPricer2->FieldByName("IDJMNALEPNICE")->AsString+ "|";
naredba = naredba + cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsString+ "|";
// naredba = naredba + cdsPricer2->FieldByName("JED_MERE")->AsString+ "|";
// naredba = naredba + cdsPricer2->FieldByName("kolicina")->AsString+ "|";
// naredba = naredba + cdsPricer2->FieldByName("kategorija")->AsString+ "|";
naredba = naredba + " |";
naredba = naredba + FormatDateTime("DD.MM.YYYY",cdsPricer2->FieldByName("vazi_od")->AsDateTime)+ "|";
if (!cdsPricer2->FieldByName("vazi_do")->IsNull) {
naredba = naredba + FormatDateTime("DD.MM.YYYY",cdsPricer2->FieldByName("vazi_do")->AsDateTime)+ "||";
}
else {
naredba = naredba + "||";
}
// naredba = naredba + FormatCurr("0.00", cdsPricer2->FieldByName("stara_cena")->AsCurrency) + "|||";
// UpisiUFile(SaveDialog1->FileName, naredba,2) ;
naredba = IzbaciNavodnika(naredba);
fajl->Append( naredba );
}
else {
// UpisiULogFile(LOG_FAJL, "TdmPricer::ExportPricer nama podataka:" + cdsStavke->FieldByName("artikal")->AsString , 2);
}
} catch (Exception &e) {
ShowMessage(e.Message);
}
cdsPricer2->Next();
naredba = "";
}
}
void __fastcall TForm4::IzveziClick(TObject *Sender)
{
//
delimiter = EditDelimiter2->Text.Trim();
TStringList* fajl = new TStringList();
WideString naredba;
// WideString naredba = "001|Barcode | Code | Name | Local name | Sales price | List price | Unit | Cenovnik | Weight | Weight unit | Price unit | Vazi_od | Vazi_do";
// fajl->Append(naredba);
SaveDialog1->Title = "Izvoz podataka za Pricer";
SaveDialog1->DefaultExt = "csv";
SaveDialog1->Filter = "Text|*.csv|All files|*.*";
SaveDialog1->InitialDir = "C:\\Price\\upload";
SaveDialog1->FileName = "item_";
AnsiString cena, unit_price;
Currency cena_zs_stampu;
int mnozi_cenu = mnozi_odnos_pjm;
char lOldDecimalSeparator = FormatSettings.DecimalSeparator;
FormatSettings.DecimalSeparator = '.';
if (SaveDialog1->Execute()) {
if (!gridView) {
ShowMessage("Greka: TcxGridDBTableView nije pronaen!");
delete fajl;
return;
}
cdsPricer2->First();
while (!cdsPricer2->Eof) {
try {
if (cdsPricer2->RecordCount > 0) {
naredba = "001" + delimiter;
for (int i = 0; i < gridView->ColumnCount; i++) {
TcxGridDBColumn* column = gridView->Columns[i];
if (!column->Visible) {
continue;
}
String columnName = column->DataBinding->FieldName;
if (columnName == "cena" || columnName == "unit_price") {
if (mnozi_cenu == 0 && cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency > 0) {
cena_zs_stampu = cdsPricer2->FieldByName("cena")->AsCurrency / cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency;
cena = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency) + delimiter;
unit_price = FormatCurr("0.00", cena_zs_stampu) + delimiter;
}
else if (mnozi_cenu == 1 && cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency > 0) {
cena_zs_stampu = cdsPricer2->FieldByName("cena")->AsCurrency * cdsPricer2->FieldByName("ODNOSJMNALEPNICE")->AsCurrency;
cena = FormatCurr("0.00", cena_zs_stampu) + delimiter;
unit_price = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency) + delimiter;
}
else {
cena = FormatCurr("0.00", cdsPricer2->FieldByName("cena")->AsCurrency) + delimiter;
unit_price = cena;
}
if (columnName == "cena") {
naredba += cena;
} else if (columnName == "unit_price") {
naredba += unit_price;
}
}
else if (cdsPricer2->FindField(columnName) != NULL) {
naredba += cdsPricer2->FieldByName(columnName)->AsString + delimiter;
} else {
naredba += delimiter;
}
}
// ShowMessage(naredba[naredba.Length()]);
// ShowMessage(delimiter);
// if (!naredba.IsEmpty() && naredba[naredba.Length()] == delimiter) {
// naredba = naredba.SubString(1, naredba.Length() - 1);
// }
fajl->Append(naredba);
}
}
catch (Exception &e) {
ShowMessage(e.Message);
}
cdsPricer2->Next();
}
}
}
FormatSettings.DecimalSeparator = lOldDecimalSeparator;
fajl->SaveToFile(SaveDialog1->FileName, TEncoding::UTF8);
delete fajl;
if(sve == 0){
UpisiUPricerLog(mg);
}
fajl->SaveToFile(SaveDialog1->FileName, TEncoding::UTF8);
delete fajl;
if (sve == 0) {
UpisiUPricerLog(SIFRA_MAGACINA);
}
ShowMessage("Izvoz zavrsen!!!");
}
String __fastcall TForm4::IzbaciNavodnika(String tekst){
String __fastcall TForm4::IzbaciNavodnike(String tekst){
for (int i = 1; i <= tekst.Length(); i++) {
if (tekst[i] == '"') {
if (tekst[i] == '"') {
tekst[i] = ' ';
}
}
}
return tekst;
}
......@@ -283,3 +300,14 @@ int __fastcall TForm4::PodrazumevaniMagacin(){
//---------------------------------------------------------------------------
void __fastcall TForm4::FormResize(TObject *Sender)
{
double sirina_dugmeta = Panel2->Width / 3;
sve->Width = sirina_dugmeta;
promene->Width = sirina_dugmeta;
Izvezi->Width = sirina_dugmeta;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
Unit4.dfm
View file @ 5401b926
......@@ -2,8 +2,8 @@ object Form4: TForm4
Left = 0
Top = 0
Caption = 'Izvoz u Excel'
ClientHeight = 175
ClientWidth = 561
ClientHeight = 358
ClientWidth = 700
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -11,20 +11,20 @@ object Form4: TForm4
Font.Name = 'Segoe UI'
Font.Style = []
OnCreate = FormCreate
OnResize = FormResize
TextHeight = 15
object Panel1: TPanel
Left = 0
Top = 0
Width = 561
Height = 41
Width = 700
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 557
object cxLabel1: TcxLabel
Left = 0
Top = 0
Align = alClient
Align = alLeft
Caption = 'Magacini:'
ParentFont = False
Style.Font.Charset = DEFAULT_CHARSET
......@@ -33,30 +33,61 @@ object Form4: TForm4
Style.Font.Name = 'Segoe UI'
Style.Font.Style = []
Style.IsFontAssigned = True
ExplicitWidth = 557
ExplicitHeight = 41
end
object Panel4: TPanel
Left = 110
Top = 0
Width = 267
Height = 49
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel4'
ShowCaption = False
TabOrder = 1
ExplicitHeight = 41
object cxLabel2: TcxLabel
Left = 0
Top = 0
Align = alTop
Caption = 'DELIMITER:'
ExplicitLeft = 80
ExplicitTop = 8
ExplicitWidth = 49
end
object EditDelimiter2: TcxTextEdit
Left = 0
Top = 26
Align = alBottom
TabOrder = 1
Text = '|'
ExplicitLeft = 144
ExplicitTop = 40
ExplicitWidth = 121
Width = 267
end
end
object Panel5: TPanel
Left = 377
Top = 0
Width = 323
Height = 49
Align = alClient
BevelOuter = bvNone
Caption = 'Panel5'
ShowCaption = False
TabOrder = 2
ExplicitLeft = 488
ExplicitTop = 16
ExplicitWidth = 185
ExplicitHeight = 41
end
end
object cxLookupComboBox1: TcxLookupComboBox
Left = 0
Top = 41
Align = alClient
Properties.KeyFieldNames = 'SIFRA_MAGACINA'
Properties.ListColumns = <
item
FieldName = 'MAGACIN'
end>
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsMagacin
TabOrder = 1
ExplicitWidth = 557
ExplicitHeight = 52
Width = 561
end
object Panel2: TPanel
AlignWithMargins = True
Left = 0
Top = 104
Width = 561
Top = 287
Width = 700
Height = 68
Margins.Left = 0
Margins.Top = 10
......@@ -65,20 +96,20 @@ object Form4: TForm4
BevelOuter = bvNone
Caption = 'Panel2'
ShowCaption = False
TabOrder = 2
TabOrder = 1
ExplicitTop = 103
ExplicitWidth = 557
object sve: TcxButton
Left = 0
Top = 0
Width = 272
Width = 216
Height = 68
Margins.Left = 0
Margins.Top = 10
Margins.Right = 0
Margins.Bottom = 0
Align = alLeft
Caption = 'Izvezi u Excel'
Caption = 'U'#269'itaj sve'
LookAndFeel.Kind = lfFlat
LookAndFeel.NativeStyle = True
OptionsImage.Glyph.SourceDPI = 96
......@@ -86,20 +117,18 @@ object Form4: TForm4
OptionsImage.Glyph.SourceWidth = 32
OptionsImage.Glyph.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
6100000006624B474400FF00FF00FFA0BDA79300000183494441543811636018
68C088EC80D0D050E69BEAF755FE33FDD76364F8AFCFF09F411728AF77A9F99C
2290C68A1861A2BAB546A7801C6D209F0B8851909C91DC1E6401A0BA4F9B0337
0483C45840040803054D41340EEC822CFE1F89C384C46650125562305534010B
E9C9EA32288B2983D99B03D633D8485B31806810060B42091403BEFDFACA3031
AA8FC144C198A13FB297E1EBCF2F60659DA7BB196EBCBBC900A241182C082550
0C78F1F125C38A93AB18FA227B18961E5FC600E283D4D9485B3308730A035D61
0DC620311846310024F81F18F47FFEFE61E064E50471096214030CE4F419020C
FD18E2662730849B8731A889AB820D38F2F428C3DBEF6F194034088305A1048A
019FBE7F62485F98C5F0E4FD5386B405190CDF7F7F072B2B372D65D010526700
D1200C168412C0D883B0F46A8D90630722082581E900CA42505B023780F5B2C0
851819CE00BDAF03E47300310A626464588D2CF0FF3FC30F181F6C0A8C03A20D
1B0CA5FEFE633406B28D81061A039D657CB9F99C14903F481100B8526B445898
CF5F0000000049454E44AE426082}
6100000006624B474400FF00FF00FFA0BDA79300000150494441543811636018
68C08CCB01DE769D9ACA72EE1755E4DCFEDC79B4FBA4974DAF9A82828BD0BD87
BBDF21EB6141E678DAF684FC63F8F77FE7E1B2B55071F6FF4C8C8C20F63FC67F
C798FF33FE03B2C580188E500CF8C70854FE8FE13F4876EBA1F2EB405A0488C1
08684ACB3F4646B01C5880EA849B4D8FB18343030721833D6CBBF703F15E983A
26188399F1FF728EFF3CBA303E1E9A05E80F14AFE3514B580A18368415815400
BDC7C2F187A79981F1FF7F5E09F9DAD5ABC3FE82C4519CE26ED7DDC2F8EFFFFF
1D47CA6A811A38D8FF70DBFC65F87B6BCF918A476CFF791C819A2B409A3E3D7F
B80F48EF0162061403FEFEFB3B8B898915E8450606F67FDCEB8029C0939981F9
83BB6DBFD6FFDF7F2E323033DC056A02C6F5EF8B401A8C707A0118D21F812AF8
8098E11F13A3DBAE8325BB416C740C8F0574090606C6060606865F40BC93FFCD
9783407A902200256D65ED92DBF3C70000000049454E44AE426082}
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -108,14 +137,51 @@ object Form4: TForm4
Font.Style = []
ParentFont = False
OnClick = sveClick
ExplicitLeft = -3
ExplicitTop = 2
end
object promene: TcxButton
Left = 272
Left = 216
Top = 0
Width = 289
Width = 260
Height = 68
Align = alClient
Caption = 'Izvezi zadnje promene'
Align = alLeft
Caption = 'U'#269'itaj zadnje promene'
OptionsImage.Glyph.SourceDPI = 96
OptionsImage.Glyph.SourceHeight = 32
OptionsImage.Glyph.SourceWidth = 32
OptionsImage.Glyph.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
6100000006624B474400FF00FF00FFA0BDA79300000150494441543811636018
68C08CCB01DE769D9ACA72EE1755E4DCFEDC79B4FBA4974DAF9A82828BD0BD87
BBDF21EB6141E678DAF684FC63F8F77FE7E1B2B55071F6FF4C8C8C20F63FC67F
C798FF33FE03B2C580188E500CF8C70854FE8FE13F4876EBA1F2EB405A0488C1
08684ACB3F4646B01C5880EA849B4D8FB18343030721833D6CBBF703F15E983A
26188399F1FF728EFF3CBA303E1E9A05E80F14AFE3514B580A18368415815400
BDC7C2F187A79981F1FF7F5E09F9DAD5ABC3FE82C4519CE26ED7DDC2F8EFFFFF
1D47CA6A811A38D8FF70DBFC65F87B6BCF918A476CFF791C819A2B409A3E3D7F
B80F48EF0162061403FEFEFB3B8B898915E8450606F67FDCEB8029C0939981F9
83BB6DBFD6FFDF7F2E323033DC056A02C6F5EF8B401A8C707A0118D21F812AF8
8098E11F13A3DBAE8325BB416C740C8F0574090606C6060606865F40BC93FFCD
9783407A902200256D65ED92DBF3C70000000049454E44AE426082}
TabOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 30
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
OnClick = sveClick
ExplicitLeft = 152
ExplicitTop = 8
end
object Izvezi: TcxButton
Left = 476
Top = 0
Width = 224
Height = 68
Align = alRight
Caption = 'Izvezi'
OptionsImage.Glyph.SourceDPI = 96
OptionsImage.Glyph.SourceHeight = 32
OptionsImage.Glyph.SourceWidth = 32
......@@ -135,15 +201,125 @@ object Form4: TForm4
851819CE00BDAF03E47300310A626464588D2CF0FF3FC30F181F6C0A8C03A20D
1B0CA5FEFE633406B28D81061A039D657CB9F99C14903F481100B8526B445898
CF5F0000000049454E44AE426082}
TabOrder = 1
TabOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 30
Font.Height = -30
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
OnClick = sveClick
ExplicitWidth = 285
OnClick = IzveziClick
ExplicitLeft = 216
ExplicitWidth = 134
end
end
object Panel3: TPanel
Left = 0
Top = 49
Width = 700
Height = 228
Align = alClient
Caption = 'Panel3'
TabOrder = 2
ExplicitLeft = 296
ExplicitTop = 168
ExplicitWidth = 185
ExplicitHeight = 41
object cxLookupComboBox1: TcxLookupComboBox
Left = 1
Top = 1
Align = alTop
Properties.KeyFieldNames = 'SIFRA_MAGACINA'
Properties.ListColumns = <
item
FieldName = 'MAGACIN'
end>
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsMagacin
TabOrder = 0
ExplicitWidth = 708
Width = 698
end
object gridView2: TcxGrid
Left = 1
Top = 24
Width = 698
Height = 203
Align = alClient
TabOrder = 1
ExplicitLeft = 0
ExplicitTop = 40
ExplicitWidth = 710
ExplicitHeight = 178
object gridView: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = dsPricer2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnHiding = True
OptionsCustomize.ColumnsQuickCustomization = True
object gridViewBARKOD: TcxGridDBColumn
DataBinding.FieldName = 'BARKOD'
Width = 67
end
object gridViewKOD: TcxGridDBColumn
DataBinding.FieldName = 'KOD'
Width = 67
end
object gridViewARTIKAL: TcxGridDBColumn
DataBinding.FieldName = 'ARTIKAL'
Width = 225
end
object gridViewIDJMNALEPNICE: TcxGridDBColumn
DataBinding.FieldName = 'IDJMNALEPNICE'
end
object gridViewIDPJM: TcxGridDBColumn
DataBinding.FieldName = 'IDPJM'
end
object gridViewLOKALNI_NAZIV: TcxGridDBColumn
DataBinding.FieldName = 'LOKALNI_NAZIV'
Width = 110
end
object gridViewCENA: TcxGridDBColumn
DataBinding.FieldName = 'CENA'
end
object gridViewODNOSJMNALEPNICE: TcxGridDBColumn
DataBinding.FieldName = 'ODNOSJMNALEPNICE'
end
object gridViewAKCIJA_OZNAKA: TcxGridDBColumn
DataBinding.FieldName = 'AKCIJA_OZNAKA'
Width = 112
end
object gridViewJED_MERE: TcxGridDBColumn
DataBinding.FieldName = 'JED_MERE'
Width = 81
end
object gridViewKOLICINA: TcxGridDBColumn
DataBinding.FieldName = 'KOLICINA'
end
object gridViewKATEGORIJA: TcxGridDBColumn
DataBinding.FieldName = 'KATEGORIJA'
Width = 126
end
object gridViewTIP_CENOVNIKA: TcxGridDBColumn
DataBinding.FieldName = 'TIP_CENOVNIKA'
Width = 105
end
object gridViewVAZI_OD: TcxGridDBColumn
DataBinding.FieldName = 'VAZI_OD'
end
object gridViewVAZI_DO: TcxGridDBColumn
DataBinding.FieldName = 'VAZI_DO'
end
object gridViewSTARA_CENA: TcxGridDBColumn
DataBinding.FieldName = 'STARA_CENA'
end
end
object gridView2Level1: TcxGridLevel
GridView = gridView
end
end
end
object dsPricer2: TDataSource
......@@ -330,7 +506,6 @@ object Form4: TForm4
'drivername=FIREBIRD'
'blobsize=-1'
'commitretain=False'
'#Database=127.0.0.1/3050:D:\C11\baza\SYSTEMLINE.FDB'
'Database=127.0.0.1/3051:D:\C11\baza\LUKI_KLIJENT.FDB'
'localecode=0000'
'Password=masterkey'
......
Unit4.h
View file @ 5401b926
......@@ -52,6 +52,22 @@
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <Vcl.Dialogs.hpp>
#include "cxClasses.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxFilter.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxDateRanges.hpp"
#include "dxScrollbarAnnotations.hpp"
//---------------------------------------------------------------------------
class TForm4 : public TForm
{
......@@ -138,16 +154,45 @@ __published: // IDE-managed Components
TDateField *cdsPricer2VAZI_OD;
TDateField *cdsPricer2VAZI_DO;
TFMTBCDField *cdsPricer2STARA_CENA;
TcxGridDBTableView *gridView;
TcxGridLevel *gridView2Level1;
TcxGrid *gridView2;
TPanel *Panel3;
TcxGridDBColumn *gridViewKOD;
TcxGridDBColumn *gridViewBARKOD;
TcxGridDBColumn *gridViewARTIKAL;
TcxGridDBColumn *gridViewIDJMNALEPNICE;
TcxGridDBColumn *gridViewIDPJM;
TcxGridDBColumn *gridViewLOKALNI_NAZIV;
TcxGridDBColumn *gridViewCENA;
TcxGridDBColumn *gridViewODNOSJMNALEPNICE;
TcxGridDBColumn *gridViewAKCIJA_OZNAKA;
TcxGridDBColumn *gridViewJED_MERE;
TcxGridDBColumn *gridViewKOLICINA;
TcxGridDBColumn *gridViewKATEGORIJA;
TcxGridDBColumn *gridViewTIP_CENOVNIKA;
TcxGridDBColumn *gridViewVAZI_OD;
TcxGridDBColumn *gridViewVAZI_DO;
TcxGridDBColumn *gridViewSTARA_CENA;
TcxButton *Izvezi;
TPanel *Panel4;
TcxLabel *cxLabel2;
TcxTextEdit *EditDelimiter2;
TPanel *Panel5;
void __fastcall sveClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall IzveziClick(TObject *Sender);
private: // User declarations
public: // User declarations
int SIFRA_MAGACINA;
String delimiter;
__fastcall TForm4(TComponent* Owner);
int __fastcall PodrazumevaniMagacin();
void __fastcall Export(int mg, int sve);
void __fastcall UpisiUPricerLog(int mg);
TDateTime __fastcall VratiVremeZadnjegUpisa(int magacin);
String __fastcall IzbaciNavodnika(String tekst);
String __fastcall IzbaciNavodnike(String tekst);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm4 *Form4;
......
Win32/Debug/item_ 0 → 100644
View file @ 5401b926

\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment