Skip to content

L
Leaf_processing
Commit a53e4ad9 authored by Dragan Kovacevic's avatar Dragan Kovacevic
Browse files
Options

razne izmene po zahtevima Nenada Blesic-a

parent e9396963
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1153 additions and 234 deletions
DataModul/OD_DM.dfm
View file @ a53e4ad9
...@@ -9,7 +9,7 @@ object DM_OD: TDM_OD ...@@ -9,7 +9,7 @@ object DM_OD: TDM_OD
LoadParamsOnConnect = True LoadParamsOnConnect = True
LoginPrompt = False LoginPrompt = False
Params.Strings = ( Params.Strings = (
'#Database=185.37.24.104:/home/test/SU_2015.FDB' '#Database=185.37.24.104:/m2hdd/nova.fdb'
'#Database=91.150.92.169:aktivna' '#Database=91.150.92.169:aktivna'
'#Database=localhost:C:\baza\HOSPIT2018.FDB' '#Database=localhost:C:\baza\HOSPIT2018.FDB'
'#Database=localhost:C:\baza\ZKOP_B2018.FDB' '#Database=localhost:C:\baza\ZKOP_B2018.FDB'
......
Izvestaji/OD_izv_MAG.cpp
View file @ a53e4ad9
...@@ -80,3 +80,4 @@ void __fastcall Tod_izv_blend_mg::FormClose(TObject* Sender, TCloseAction& Actio ...@@ -80,3 +80,4 @@ void __fastcall Tod_izv_blend_mg::FormClose(TObject* Sender, TCloseAction& Actio
Action = caFree; Action = caFree;
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
Izvestaji/OD_izv_obrada.cpp
View file @ a53e4ad9
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
#include <vcl.h> #include <vcl.h>
#pragma hdrstop #pragma hdrstop
#include "OD_DM.h"
#include "OD_izv_obrada.h" #include "OD_izv_obrada.h"
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
#pragma package(smart_init) #pragma package(smart_init)
...@@ -62,25 +62,30 @@ __fastcall Tod_izv_sa_obrd_duvana::Tod_izv_sa_obrd_duvana(TComponent* Owner) ...@@ -62,25 +62,30 @@ __fastcall Tod_izv_sa_obrd_duvana::Tod_izv_sa_obrd_duvana(TComponent* Owner)
{ {
cds->Active = false; cds->Active = false;
cds->Active = true; cds->Active = true;
DM_OD->cdsTipDuvana->Active=false;
DM_OD->cdsTipDuvana->Active=true;
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
void __fastcall Tod_izv_sa_obrd_duvana::cxButton4Click(TObject* Sender) void __fastcall Tod_izv_sa_obrd_duvana::cxButton4Click(TObject* Sender)
{ {
cdsPregled->Active = false; cdsPregled->Active = false;
cdsPregled->Params->ParamByName("SORTA")->AsInteger=cxSorta->EditValue;
cdsPregled->Params->ParamByName("OD_DATUMA")->AsDate = od_datuma->Date; cdsPregled->Params->ParamByName("OD_DATUMA")->AsDate = od_datuma->Date;
cdsPregled->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date; cdsPregled->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date;
cdsPregled->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText; cdsPregled->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText;
cdsPregled->Active = true; cdsPregled->Active = true;
cdsPrethodno->Active = false; cdsPrethodno->Active = false;
cdsPrethodno->Params->ParamByName("OD_DATUMA")->AsDate = StartOfTheYear(od_datuma->Date); cdsPrethodno->Params->ParamByName("SORTA")->AsInteger=cxSorta->EditValue;
cdsPrethodno->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date - 1; cdsPrethodno->Params->ParamByName("OD_DATUMA")->AsDate = StrToDate("01.01.2018");;
cdsPrethodno->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date -1;
cdsPrethodno->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText; cdsPrethodno->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText;
cdsPrethodno->Active = true; cdsPrethodno->Active = true;
cdsUkupno->Active = false; cdsUkupno->Active = false;
cdsUkupno->Params->ParamByName("OD_DATUMA")->AsDate = StartOfTheYear(od_datuma->Date); cdsUkupno->Params->ParamByName("SORTA")->AsInteger=cxSorta->EditValue;
cdsUkupno->Params->ParamByName("OD_DATUMA")->AsDate = StrToDate("01.01.2018");
cdsUkupno->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date; cdsUkupno->Params->ParamByName("DO_DATUMA")->AsDate = od_datuma->Date;
cdsUkupno->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText; cdsUkupno->Params->ParamByName("DEALER")->AsString = cxLookupComboBox1->EditText;
cdsUkupno->Active = true; cdsUkupno->Active = true;
...@@ -94,6 +99,11 @@ void __fastcall Tod_izv_sa_obrd_duvana::cxButton5Click(TObject* Sender) ...@@ -94,6 +99,11 @@ void __fastcall Tod_izv_sa_obrd_duvana::cxButton5Click(TObject* Sender)
if (fr1 != NULL) if (fr1 != NULL)
fr1->Text = DateToStr(od_datuma->Date); fr1->Text = DateToStr(od_datuma->Date);
TfrxMemoView* fr3;
fr3 = (TfrxMemoView*)frxReport1->FindObject("Memo60");
if (fr3 != NULL)
fr3->Text = cxSorta->EditText;
TfrxMemoView* fr2; TfrxMemoView* fr2;
fr2 = (TfrxMemoView*)frxReport1->FindObject("Memo61"); fr2 = (TfrxMemoView*)frxReport1->FindObject("Memo61");
if (fr2 != NULL) if (fr2 != NULL)
...@@ -109,3 +119,6 @@ void __fastcall Tod_izv_sa_obrd_duvana::FormClose(TObject* Sender, TCloseAction& ...@@ -109,3 +119,6 @@ void __fastcall Tod_izv_sa_obrd_duvana::FormClose(TObject* Sender, TCloseAction&
Action = caFree; Action = caFree;
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
Izvestaji/OD_izv_obrada.dfm
View file @ a53e4ad9
This diff is collapsed.
Izvestaji/OD_izv_obrada.h
View file @ a53e4ad9
...@@ -174,6 +174,8 @@ __published: // IDE-managed Components ...@@ -174,6 +174,8 @@ __published: // IDE-managed Components
TDataSource *ds; TDataSource *ds;
TcxLabel *cxLabel1; TcxLabel *cxLabel1;
TcxLookupComboBox *cxLookupComboBox1; TcxLookupComboBox *cxLookupComboBox1;
TcxLabel *cxLabel7;
TcxLookupComboBox *cxSorta;
void __fastcall cxButton4Click(TObject *Sender); void __fastcall cxButton4Click(TObject *Sender);
void __fastcall cxButton5Click(TObject *Sender); void __fastcall cxButton5Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
......
Izvestaji/OD_reklas_po_blendu.cpp 0 → 100644
View file @ a53e4ad9
// ---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OD_reklas_po_blendu.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxLookupEdit"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinVS2010"
#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 "dxSkinscxPCPainter"
#pragma link "frxClass"
#pragma link "frxDBSet"
#pragma resource "*.dfm"
TOD_rekl_po_blendu* OD_rekl_po_blendu;
// ---------------------------------------------------------------------------
__fastcall TOD_rekl_po_blendu::TOD_rekl_po_blendu(TComponent* Owner)
:TForm(Owner)
{
cdsBlend->Active = false;
cdsBlend->Active = true;
}
// ---------------------------------------------------------------------------
void __fastcall TOD_rekl_po_blendu::cxButton4Click(TObject* Sender)
{
cdsPregled->Active = false;
cdsPregled->Params->ParamByName("ID")->AsInteger = cxBlend->EditingValue;
cdsPregled->Active = true;
}
// ---------------------------------------------------------------------------
void __fastcall TOD_rekl_po_blendu::cxButton5Click(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------
Izvestaji/OD_reklas_po_blendu.dfm 0 → 100644
View file @ a53e4ad9
This diff is collapsed.
Izvestaji/OD_reklas_po_blendu.h 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#ifndef OD_reklas_po_blenduH
#define OD_reklas_po_blenduH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "cxButtons.hpp"
#include "cxContainer.hpp"
#include "cxControls.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxEdit.hpp"
#include "cxGraphics.hpp"
#include "cxLabel.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxLookupEdit.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinVS2010.hpp"
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Menus.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 "dxSkinscxPCPainter.hpp"
#include "frxClass.hpp"
#include "frxDBSet.hpp"
#include <Data.DB.hpp>
#include <Data.FMTBcd.hpp>
#include <Data.SqlExpr.hpp>
#include <Datasnap.DBClient.hpp>
#include <Datasnap.Provider.hpp>
//---------------------------------------------------------------------------
class TOD_rekl_po_blendu : public TForm
{
__published: // IDE-managed Components
TPanel *Panel1;
TcxLabel *cxLabel2;
TcxLookupComboBox *cxBlend;
TcxButton *cxButton4;
TcxButton *cxButton5;
TcxGrid *cxGrid1;
TcxGridDBTableView *cxGrid1DBTableView1;
TcxGridLevel *cxGrid1Level1;
TSQLDataSet *dsetBlend;
TDataSetProvider *dspBlend;
TClientDataSet *cdsBlend;
TIntegerField *cdsBlendID;
TStringField *cdsBlendOPIS;
TStringField *cdsBlendBATCH_NO;
TStringField *cdsBlendORDER_NO;
TIntegerField *cdsBlendBERBA;
TDateField *cdsBlendVAZI_OD;
TIntegerField *cdsBlendBROJ_BLENDA;
TDateField *cdsBlendDATUM;
TStringField *cdsBlendSMENA;
TSmallintField *cdsBlendAKTIVAN;
TStringField *cdsBlendNAPOMENA;
TIntegerField *cdsBlendSIFRA_RADNIKA;
TFloatField *cdsBlendUKUPNO_BALA;
TIntegerField *cdsBlendIDBLENDA;
TIntegerField *cdsBlendBROJ_BL_KOOPERANTA;
TFloatField *cdsBlendBROJ_BALA_GRUPE;
TIntegerField *cdsBlendIDGRUPE;
TFloatField *cdsBlendBROJ_KOOPER_GRUPE;
TSmallintField *cdsBlendPROV_POREKLA;
TDataSource *dsBlend;
TfrxReport *frxReport1;
TfrxDBDataset *frxDBPregled;
TSQLDataSet *sqlPregled;
TDataSetProvider *dspPregled;
TClientDataSet *cdsPregled;
TDataSource *dsPregled;
TStringField *cdsPregledBARKOD;
TStringField *cdsPregledKLASA_OLD;
TStringField *cdsPregledKLASA_NEW;
TStringField *cdsPregledKOMITENT;
TFMTBCDField *cdsPregledNETOMASA;
TcxGridDBColumn *cxGrid1DBTableView1BARKOD;
TcxGridDBColumn *cxGrid1DBTableView1KLASA_OLD;
TcxGridDBColumn *cxGrid1DBTableView1KLASA_NEW;
TcxGridDBColumn *cxGrid1DBTableView1KOMITENT;
TcxGridDBColumn *cxGrid1DBTableView1NETOMASA;
void __fastcall cxButton4Click(TObject *Sender);
void __fastcall cxButton5Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TOD_rekl_po_blendu(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TOD_rekl_po_blendu *OD_rekl_po_blendu;
//---------------------------------------------------------------------------
#endif
Izvestaji/OD_reklas_po_datumima.cpp 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OD_reklas_po_datumima.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxLookupEdit"
#pragma link "cxMaskEdit"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinVS2010"
#pragma link "frxClass"
#pragma link "frxDBSet"
#pragma link "cxCalendar"
#pragma link "cxDateUtils"
#pragma link "dxCore"
#pragma resource "*.dfm"
TOD_reklas_po_dat *OD_reklas_po_dat;
//---------------------------------------------------------------------------
__fastcall TOD_reklas_po_dat::TOD_reklas_po_dat(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TOD_reklas_po_dat::cxButton4Click(TObject *Sender)
{
cdsPregled->Active=false;
cdsPregled->Params->ParamByName("D1")->AsDateTime=cxDateOd->Date;
cdsPregled->Params->ParamByName("D2")->AsDateTime=cxDateDo->Date;
cdsPregled->Active=true;
}
//---------------------------------------------------------------------------
Izvestaji/OD_reklas_po_datumima.dfm 0 → 100644
View file @ a53e4ad9
This diff is collapsed.
Izvestaji/OD_reklas_po_datumima.h 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#ifndef OD_reklas_po_datumimaH
#define OD_reklas_po_datumimaH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "cxButtons.hpp"
#include "cxClasses.hpp"
#include "cxContainer.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLabel.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxLookupEdit.hpp"
#include "cxMaskEdit.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "cxTextEdit.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinVS2010.hpp"
#include "frxClass.hpp"
#include "frxDBSet.hpp"
#include <Data.DB.hpp>
#include <Data.FMTBcd.hpp>
#include <Data.SqlExpr.hpp>
#include <Datasnap.DBClient.hpp>
#include <Datasnap.Provider.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Menus.hpp>
#include "cxCalendar.hpp"
#include "cxDateUtils.hpp"
#include "dxCore.hpp"
#include <Vcl.ComCtrls.hpp>
//---------------------------------------------------------------------------
class TOD_reklas_po_dat : public TForm
{
__published: // IDE-managed Components
TPanel *Panel1;
TcxButton *cxButton4;
TcxButton *cxButton5;
TcxGrid *cxGrid1;
TcxGridDBTableView *cxGrid1DBTableView1;
TcxGridLevel *cxGrid1Level1;
TSQLDataSet *dsetBlend;
TDataSetProvider *dspBlend;
TClientDataSet *cdsBlend;
TIntegerField *cdsBlendID;
TStringField *cdsBlendOPIS;
TStringField *cdsBlendBATCH_NO;
TStringField *cdsBlendORDER_NO;
TIntegerField *cdsBlendBERBA;
TDateField *cdsBlendVAZI_OD;
TIntegerField *cdsBlendBROJ_BLENDA;
TDateField *cdsBlendDATUM;
TStringField *cdsBlendSMENA;
TSmallintField *cdsBlendAKTIVAN;
TStringField *cdsBlendNAPOMENA;
TIntegerField *cdsBlendSIFRA_RADNIKA;
TFloatField *cdsBlendUKUPNO_BALA;
TIntegerField *cdsBlendIDBLENDA;
TIntegerField *cdsBlendBROJ_BL_KOOPERANTA;
TFloatField *cdsBlendBROJ_BALA_GRUPE;
TIntegerField *cdsBlendIDGRUPE;
TFloatField *cdsBlendBROJ_KOOPER_GRUPE;
TSmallintField *cdsBlendPROV_POREKLA;
TDataSource *dsBlend;
TSQLDataSet *sqlPregled;
TDataSetProvider *dspPregled;
TClientDataSet *cdsPregled;
TDataSource *dsPregled;
TfrxDBDataset *frxDBPregled;
TfrxReport *frxReport1;
TcxLabel *cxLabel9;
TcxLabel *cxLabel8;
TcxDateEdit *cxDateOd;
TcxDateEdit *cxDateDo;
TDateField *cdsPregledDATUM;
TFMTBCDField *cdsPregledSUM;
TcxGridDBColumn *cxGrid1DBTableView1DATUM;
TcxGridDBColumn *cxGrid1DBTableView1SUM;
void __fastcall cxButton4Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TOD_reklas_po_dat(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TOD_reklas_po_dat *OD_reklas_po_dat;
//---------------------------------------------------------------------------
#endif
Izvestaji/OD_reklasirane_bale.cpp
View file @ a53e4ad9
...@@ -90,3 +90,4 @@ void __fastcall TfrmReklasiraneBale::FormCreate(TObject *Sender) ...@@ -90,3 +90,4 @@ void __fastcall TfrmReklasiraneBale::FormCreate(TObject *Sender)
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
Izvestaji/OD_reklasirane_bale.dfm
View file @ a53e4ad9
...@@ -3,7 +3,6 @@ inherited frmReklasiraneBale: TfrmReklasiraneBale ...@@ -3,7 +3,6 @@ inherited frmReklasiraneBale: TfrmReklasiraneBale
ClientHeight = 488 ClientHeight = 488
ClientWidth = 922 ClientWidth = 922
OnClose = FormClose OnClose = FormClose
ExplicitTop = -103
ExplicitWidth = 930 ExplicitWidth = 930
ExplicitHeight = 515 ExplicitHeight = 515
PixelsPerInch = 96 PixelsPerInch = 96
......
Izvestaji/od_statisika_potrosnje.dfm
View file @ a53e4ad9
...@@ -137,7 +137,6 @@ object od_potrosanja_kg: Tod_potrosanja_kg ...@@ -137,7 +137,6 @@ object od_potrosanja_kg: Tod_potrosanja_kg
Height = 300 Height = 300
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 42
object cxGrid1DBTableView1: TcxGridDBTableView object cxGrid1DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
DataController.DataSource = dsPregled DataController.DataSource = dsPregled
......
Laboratory/OD_RecepturaBlenda.cpp
View file @ a53e4ad9
...@@ -155,6 +155,7 @@ void __fastcall TOD_DefinisanjeReceptureBlenda::cdsBlendNewRecord(TDataSet* Data ...@@ -155,6 +155,7 @@ void __fastcall TOD_DefinisanjeReceptureBlenda::cdsBlendNewRecord(TDataSet* Data
cdsBlend->FieldByName("UKUPNO_BALA")->AsInteger = 0; cdsBlend->FieldByName("UKUPNO_BALA")->AsInteger = 0;
cdsBlend->FieldByName("BROJ_KOOPER_GRUPE")->AsInteger = 0; cdsBlend->FieldByName("BROJ_KOOPER_GRUPE")->AsInteger = 0;
cdsBlend->FieldByName("BROJ_BALA_GRUPE")->AsInteger = 0; cdsBlend->FieldByName("BROJ_BALA_GRUPE")->AsInteger = 0;
cdsBlend->FieldByName("AKTIVAN")->AsInteger=1;
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
...@@ -1078,3 +1079,4 @@ void __fastcall TOD_DefinisanjeReceptureBlenda::cxPreracunajKGClick(TObject* Sen ...@@ -1078,3 +1079,4 @@ void __fastcall TOD_DefinisanjeReceptureBlenda::cxPreracunajKGClick(TObject* Sen
int uspehBlendStavke = SnimiCDS(dspStavke, cdsStavke, dsStavke); int uspehBlendStavke = SnimiCDS(dspStavke, cdsStavke, dsStavke);
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
Laboratory/OD_RecepturaBlenda.dfm
View file @ a53e4ad9
...@@ -7,7 +7,6 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -7,7 +7,6 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
Position = poDesigned Position = poDesigned
WindowState = wsMaximized WindowState = wsMaximized
OnActivate = FormActivate OnActivate = FormActivate
ExplicitTop = -298
ExplicitWidth = 938 ExplicitWidth = 938
ExplicitHeight = 675 ExplicitHeight = 675
PixelsPerInch = 96 PixelsPerInch = 96
...@@ -1309,8 +1308,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1309,8 +1308,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
Top = 25 Top = 25
end end
inherited PM_izmena: TPopupMenu inherited PM_izmena: TPopupMenu
Left = 70 Left = 62
Top = 27 Top = 131
inherited Izmeni1: TMenuItem inherited Izmeni1: TMenuItem
OnClick = Izmeni2Click OnClick = Izmeni2Click
end end
...@@ -1319,8 +1318,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1319,8 +1318,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
end end
end end
inherited SaveDialog1: TSaveDialog inherited SaveDialog1: TSaveDialog
Left = 152 Left = 160
Top = 28 Top = 132
end end
inherited qDelete: TSQLQuery inherited qDelete: TSQLQuery
Params = < Params = <
...@@ -1772,7 +1771,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1772,7 +1771,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 40771.915561805600000000 ReportOptions.CreateDate = 40771.915561805600000000
ReportOptions.LastChange = 43382.457323078710000000 ReportOptions.LastChange = 43476.414887812500000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'begin' 'begin'
...@@ -1813,7 +1812,13 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1813,7 +1812,13 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
TopMargin = 5.000000000000000000 TopMargin = 5.000000000000000000
BottomMargin = 5.000000000000000000 BottomMargin = 5.000000000000000000
object ReportTitle1: TfrxReportTitle object ReportTitle1: TfrxReportTitle
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
Height = 117.165430000000000000 Height = 117.165430000000000000
ParentFont = False
Top = 18.897650000000000000 Top = 18.897650000000000000
Width = 1084.725110000000000000 Width = 1084.725110000000000000
object frxDBStampaBERBA: TfrxMemoView object frxDBStampaBERBA: TfrxMemoView
...@@ -1955,12 +1960,17 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1955,12 +1960,17 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
DataField = 'INT_KLASA' DataField = 'INT_KLASA'
DataSet = ftxStatistika DataSet = ftxStatistika
DataSetName = 'ftxStatistika' DataSetName = 'ftxStatistika'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
Memo.UTF8W = ( Memo.UTF8W = (
'[ftxStatistika."INT_KLASA"]') '[ftxStatistika."INT_KLASA"]')
ParentFont = False
end end
object ftxStatistikaPROC_MG_KG: TfrxMemoView object ftxStatistikaPROC_MG_KG: TfrxMemoView
Left = 143.622140000000000000 Left = 143.622140000000000000
Top = 3.779529999999994000
Width = 71.811070000000000000 Width = 71.811070000000000000
Height = 18.897650000000000000 Height = 18.897650000000000000
ShowHint = False ShowHint = False
...@@ -1969,24 +1979,52 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1969,24 +1979,52 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
DataSetName = 'ftxStatistika' DataSetName = 'ftxStatistika'
DisplayFormat.FormatStr = '%2.2f' DisplayFormat.FormatStr = '%2.2f'
DisplayFormat.Kind = fkNumeric DisplayFormat.Kind = fkNumeric
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
Memo.UTF8W = ( Memo.UTF8W = (
'[ftxStatistika."PROC_MG_KG"]') '[ftxStatistika."PROC_MG_KG"]')
ParentFont = False
end end
object ftxStatistikaPROC_UK: TfrxMemoView object ftxStatistikaPROC_UK: TfrxMemoView
Left = 219.212740000000000000 Left = 219.212740000000000000
Top = 3.779529999999994000
Width = 83.149660000000000000 Width = 83.149660000000000000
Height = 18.897650000000000000 Height = 18.897650000000000000
ShowHint = False ShowHint = False
DataField = 'PROC_UK' DataField = 'PROC_UK'
DataSet = ftxStatistika DataSet = ftxStatistika
DataSetName = 'ftxStatistika' DataSetName = 'ftxStatistika'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Memo.UTF8W = ( Memo.UTF8W = (
'[ftxStatistika."PROC_UK"]') '[ftxStatistika."PROC_UK"]')
ParentFont = False
end
object ftxStatistikaMAGACIN_KG: TfrxMemoView
Left = 336.378170000000000000
Width = 102.047310000000000000
Height = 18.897650000000000000
ShowHint = False
DataField = 'MAGACIN_KG'
DataSet = ftxStatistika
DataSetName = 'ftxStatistika'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
Memo.UTF8W = (
'[ftxStatistika."MAGACIN_KG"]')
ParentFont = False
end end
end end
object GroupFooter2: TfrxGroupFooter object GroupFooter2: TfrxGroupFooter
Height = 94.488250000000000000 Height = 26.456710000000000000
Top = 287.244280000000000000 Top = 287.244280000000000000
Width = 1084.725110000000000000 Width = 1084.725110000000000000
AllowSplit = True AllowSplit = True
...@@ -1998,7 +2036,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -1998,7 +2036,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
Frame.Typ = [ftTop] Frame.Typ = [ftTop]
end end
object SysMemo2: TfrxSysMemoView object SysMemo2: TfrxSysMemoView
Left = 120.944960000000000000 Left = 143.622140000000000000
Top = 3.779530000000022000 Top = 3.779530000000022000
Width = 94.488250000000000000 Width = 94.488250000000000000
Height = 18.897650000000000000 Height = 18.897650000000000000
...@@ -2009,16 +2047,15 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2009,16 +2047,15 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
DisplayFormat.Kind = fkNumeric DisplayFormat.Kind = fkNumeric
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -13 Font.Height = -15
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
HAlign = haRight
Memo.UTF8W = ( Memo.UTF8W = (
'[SUM(<frxDBStavke."TEZINA_KG">,MasterData3,2)]') '[SUM(<ftxStatistika."PROC_MG_KG">,MasterData3,2)]')
ParentFont = False ParentFont = False
end end
object Memo19: TfrxMemoView object Memo19: TfrxMemoView
Left = 7.559060000000000000 Left = 3.779530000000000000
Top = 3.779530000000022000 Top = 3.779530000000022000
Width = 109.606370000000000000 Width = 109.606370000000000000
Height = 18.897650000000000000 Height = 18.897650000000000000
...@@ -2028,18 +2065,25 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2028,18 +2065,25 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
Font.Height = -13 Font.Height = -13
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = ( Memo.UTF8W = (
'Ukupno KG:') 'Ukupno KG:')
ParentFont = False ParentFont = False
end end
end object SysMemo1: TfrxSysMemoView
object Line17: TfrxLineView Left = 336.378170000000000000
Align = baWidth Top = 3.779530000000022000
Top = 170.078850000000000000 Width = 94.488250000000000000
Width = 1084.725110000000000000 Height = 18.897650000000000000
ShowHint = False ShowHint = False
Frame.Typ = [ftTop] Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
Memo.UTF8W = (
'[SUM(<ftxStatistika."MAGACIN_KG">,MasterData3)]')
ParentFont = False
end
end end
object GroupHeader2: TfrxGroupHeader object GroupHeader2: TfrxGroupHeader
Font.Charset = EASTEUROPE_CHARSET Font.Charset = EASTEUROPE_CHARSET
...@@ -2109,6 +2153,20 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2109,6 +2153,20 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
'Procenat (%)') 'Procenat (%)')
ParentFont = False ParentFont = False
end end
object Memo1: TfrxMemoView
Left = 336.378170000000000000
Width = 102.047310000000000000
Height = 18.897650000000000000
ShowHint = False
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Memo.UTF8W = (
'UKUPNO U MG')
ParentFont = False
end
end end
end end
end end
...@@ -2303,8 +2361,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2303,8 +2361,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 27 Left = 211
Top = 26 Top = 130
end end
object dsetStolovi: TSQLDataSet object dsetStolovi: TSQLDataSet
SchemaName = 'sysdba' SchemaName = 'sysdba'
...@@ -2565,7 +2623,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2565,7 +2623,7 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
end end
object PMS: TPopupMenu object PMS: TPopupMenu
Left = 111 Left = 111
Top = 27 Top = 131
object Stamparecepture1: TMenuItem object Stamparecepture1: TMenuItem
Caption = 'Stampa recepture' Caption = 'Stampa recepture'
OnClick = cxButton2Click OnClick = cxButton2Click
...@@ -2576,7 +2634,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2576,7 +2634,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
end end
end end
object cxStyle: TcxStyleRepository object cxStyle: TcxStyleRepository
Top = 24 Left = 272
Top = 128
PixelsPerInch = 96 PixelsPerInch = 96
object cxStyleZuta: TcxStyle object cxStyleZuta: TcxStyle
AssignedValues = [svColor] AssignedValues = [svColor]
...@@ -2912,6 +2971,9 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2912,6 +2971,9 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
object cdsStatistikaPROC_UK: TFloatField object cdsStatistikaPROC_UK: TFloatField
FieldName = 'PROC_UK' FieldName = 'PROC_UK'
end end
object cdsStatistikaMAGACIN_KG: TFloatField
FieldName = 'MAGACIN_KG'
end
end end
object dsStatistika: TDataSource object dsStatistika: TDataSource
DataSet = cdsStatistika DataSet = cdsStatistika
...@@ -2930,7 +2992,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda ...@@ -2930,7 +2992,8 @@ inherited OD_DefinisanjeReceptureBlenda: TOD_DefinisanjeReceptureBlenda
'LIST=LIST' 'LIST=LIST'
'PROC_MG_KG=PROC_MG_KG' 'PROC_MG_KG=PROC_MG_KG'
'UKUPNO_BLEND=UKUPNO_BLEND' 'UKUPNO_BLEND=UKUPNO_BLEND'
'PROC_UK=PROC_UK') 'PROC_UK=PROC_UK'
'MAGACIN_KG=MAGACIN_KG')
DataSource = dsStatistika DataSource = dsStatistika
BCDToCurrency = False BCDToCurrency = False
Left = 704 Left = 704
......
Laboratory/OD_RecepturaBlenda.h
View file @ a53e4ad9
...@@ -400,6 +400,7 @@ __published: // IDE-managed Components ...@@ -400,6 +400,7 @@ __published: // IDE-managed Components
TfrxDBDataset *ftxStatistika; TfrxDBDataset *ftxStatistika;
TIntegerField *cdsStatistikaUKUPNO_BLEND; TIntegerField *cdsStatistikaUKUPNO_BLEND;
TFloatField *cdsStatistikaPROC_UK; TFloatField *cdsStatistikaPROC_UK;
TFloatField *cdsStatistikaMAGACIN_KG;
void __fastcall btSnimiClick(TObject *Sender); void __fastcall btSnimiClick(TObject *Sender);
void __fastcall btNoviDocClick(TObject *Sender); void __fastcall btNoviDocClick(TObject *Sender);
void __fastcall cdsBlendNewRecord(TDataSet *DataSet); void __fastcall cdsBlendNewRecord(TDataSet *DataSet);
......
Leaf.cbproj
View file @ a53e4ad9
...@@ -190,6 +190,12 @@ ...@@ -190,6 +190,12 @@
<DependentOn>Izvestaji\OD_izv_nikotin_secer.h</DependentOn> <DependentOn>Izvestaji\OD_izv_nikotin_secer.h</DependentOn>
<BuildOrder>15</BuildOrder> <BuildOrder>15</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Izvestaji\OD_izv_obrada.cpp">
<Form>od_izv_sa_obrd_duvana</Form>
<FormType>dfm</FormType>
<DependentOn>Izvestaji\OD_izv_obrada.h</DependentOn>
<BuildOrder>58</BuildOrder>
</CppCompile>
<CppCompile Include="Izvestaji\OD_izv_primese.cpp"> <CppCompile Include="Izvestaji\OD_izv_primese.cpp">
<Form>frmIzvPrimese</Form> <Form>frmIzvPrimese</Form>
<DependentOn>Izvestaji\OD_izv_primese.h</DependentOn> <DependentOn>Izvestaji\OD_izv_primese.h</DependentOn>
...@@ -470,6 +476,7 @@ ...@@ -470,6 +476,7 @@
<FormResources Include="Laboratory\OD_Primese.dfm"/> <FormResources Include="Laboratory\OD_Primese.dfm"/>
<FormResources Include="Laboratory\OD_Hearson.dfm"/> <FormResources Include="Laboratory\OD_Hearson.dfm"/>
<FormResources Include="Laboratory\OD_DnevnoPracenjeVlage.dfm"/> <FormResources Include="Laboratory\OD_DnevnoPracenjeVlage.dfm"/>
<FormResources Include="Izvestaji\OD_izv_obrada.dfm"/>
<BuildConfiguration Include="Release"> <BuildConfiguration Include="Release">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
......
Leaf.cbproj.local
View file @ a53e4ad9
This diff is collapsed.
Leaf.cpp
View file @ a53e4ad9
...@@ -58,6 +58,7 @@ USEFORM("Laboratory\OD_degradacija_lista.cpp", OD_Degradacija); ...@@ -58,6 +58,7 @@ USEFORM("Laboratory\OD_degradacija_lista.cpp", OD_Degradacija);
USEFORM("Laboratory\OD_Primese.cpp", OD_EvidencijaPrimesa); USEFORM("Laboratory\OD_Primese.cpp", OD_EvidencijaPrimesa);
USEFORM("Laboratory\OD_Hearson.cpp", frmHearson); USEFORM("Laboratory\OD_Hearson.cpp", frmHearson);
USEFORM("Laboratory\OD_DnevnoPracenjeVlage.cpp", OD_dnevno_pracenje_vlage); USEFORM("Laboratory\OD_DnevnoPracenjeVlage.cpp", OD_dnevno_pracenje_vlage);
USEFORM("Izvestaji\OD_izv_obrada.cpp", od_izv_sa_obrd_duvana);
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#include "BUS_password.h" #include "BUS_password.h"
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
...@@ -69,16 +70,13 @@ WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) ...@@ -69,16 +70,13 @@ WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
Application->MainFormOnTaskBar = true; Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TfmGlavna), &fmGlavna); Application->CreateForm(__classid(TfmGlavna), &fmGlavna);
Application->CreateForm(__classid(TDM_OD), &DM_OD); Application->CreateForm(__classid(TDM_OD), &DM_OD);
frmPassword = new TfrmPassword(Application);
if (frmPassword->ShowModal() == mrCancel) {
Application->Terminate();
}
Application->CreateForm(__classid(TfmOsnovnaPrazna), &fmOsnovnaPrazna); Application->CreateForm(__classid(TfmOsnovnaPrazna), &fmOsnovnaPrazna);
Application->CreateForm(__classid(TOD_DM_Pretraga), &OD_DM_Pretraga); Application->CreateForm(__classid(TOD_DM_Pretraga), &OD_DM_Pretraga);
Application->CreateForm(__classid(TOD_Osnovna_pretrage), &OD_Osnovna_pretrage); Application->CreateForm(__classid(TOD_Osnovna_pretrage), &OD_Osnovna_pretrage);
Application->CreateForm(__classid(TfmOsnovna_prazna), &fmOsnovna_prazna); Application->CreateForm(__classid(TfmOsnovna_prazna), &fmOsnovna_prazna);
Application->CreateForm(__classid(TShowMyMessageRed), &ShowMyMessageRed); Application->CreateForm(__classid(TShowMyMessageRed), &ShowMyMessageRed);
Application->CreateForm(__classid(TShowMyMessageYellow), &ShowMyMessageYellow); Application->CreateForm(__classid(TShowMyMessageYellow), &ShowMyMessageYellow);
Application->CreateForm(__classid(Tod_izv_sa_obrd_duvana), &od_izv_sa_obrd_duvana);
Application->Run(); Application->Run();
} }
catch (Exception &exception) catch (Exception &exception)
......
LeafNew.cbproj
View file @ a53e4ad9
...@@ -223,6 +223,18 @@ ...@@ -223,6 +223,18 @@
<DependentOn>Izvestaji\OD_reklasirane_bale.h</DependentOn> <DependentOn>Izvestaji\OD_reklasirane_bale.h</DependentOn>
<BuildOrder>25</BuildOrder> <BuildOrder>25</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Izvestaji\OD_reklas_po_blendu.cpp">
<Form>OD_rekl_po_blendu</Form>
<FormType>dfm</FormType>
<DependentOn>Izvestaji\OD_reklas_po_blendu.h</DependentOn>
<BuildOrder>64</BuildOrder>
</CppCompile>
<CppCompile Include="Izvestaji\OD_reklas_po_datumima.cpp">
<Form>OD_reklas_po_dat</Form>
<FormType>dfm</FormType>
<DependentOn>Izvestaji\OD_reklas_po_datumima.h</DependentOn>
<BuildOrder>65</BuildOrder>
</CppCompile>
<CppCompile Include="Izvestaji\od_statisika_potrosnje.cpp"> <CppCompile Include="Izvestaji\od_statisika_potrosnje.cpp">
<Form>od_potrosanja_kg</Form> <Form>od_potrosanja_kg</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
...@@ -391,6 +403,12 @@ ...@@ -391,6 +403,12 @@
<DependentOn>Proizvodnja\od_raspored_stolova.h</DependentOn> <DependentOn>Proizvodnja\od_raspored_stolova.h</DependentOn>
<BuildOrder>61</BuildOrder> <BuildOrder>61</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Proizvodnja\OD_unosAmbalaze.cpp">
<Form>Form1</Form>
<FormType>dfm</FormType>
<DependentOn>Proizvodnja\OD_unosAmbalaze.h</DependentOn>
<BuildOrder>62</BuildOrder>
</CppCompile>
<CppCompile Include="Proizvodnja\OD_vakumiranje.cpp"> <CppCompile Include="Proizvodnja\OD_vakumiranje.cpp">
<Form>fmVakumiranje</Form> <Form>fmVakumiranje</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
...@@ -407,6 +425,12 @@ ...@@ -407,6 +425,12 @@
<DependentOn>Proizvodnja\PR_TehnologijeNormativiNovo.h</DependentOn> <DependentOn>Proizvodnja\PR_TehnologijeNormativiNovo.h</DependentOn>
<BuildOrder>48</BuildOrder> <BuildOrder>48</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Setup\OD_setup_ambalaza.cpp">
<Form>fmOsnovna__Setup1</Form>
<FormType>dfm</FormType>
<DependentOn>Setup\OD_setup_ambalaza.h</DependentOn>
<BuildOrder>63</BuildOrder>
</CppCompile>
<CppCompile Include="Setup\OD_setup_blend.cpp"> <CppCompile Include="Setup\OD_setup_blend.cpp">
<Form>fmSetupBlend</Form> <Form>fmSetupBlend</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
...@@ -478,60 +502,64 @@ ...@@ -478,60 +502,64 @@
<BuildOrder>51</BuildOrder> <BuildOrder>51</BuildOrder>
</CppCompile> </CppCompile>
<FormResources Include="Proizvodnja\OD_Obrada_TP.dfm"/> <FormResources Include="Proizvodnja\OD_Obrada_TP.dfm"/>
<FormResources Include="Proizvodnja\OD_ObradaDuvanaVaga1.dfm"/>
<FormResources Include="Proizvodnja\OD_ObradaDuvanaPressa2.dfm"/>
<FormResources Include="Proizvodnja\OD_OtvaranjeBatcha.dfm"/> <FormResources Include="Proizvodnja\OD_OtvaranjeBatcha.dfm"/>
<FormResources Include="Proizvodnja\OD_ObradaDuvanaPressa2.dfm"/>
<FormResources Include="Proizvodnja\OD_ObradaDuvanaVaga1.dfm"/>
<FormResources Include="Proizvodnja\OD_PromenaStatusaBatcha.dfm"/> <FormResources Include="Proizvodnja\OD_PromenaStatusaBatcha.dfm"/>
<FormResources Include="Proizvodnja\OD_PregledBalaLaboratorija.dfm"/> <FormResources Include="Proizvodnja\od_raspored_stolova.dfm"/>
<FormResources Include="Proizvodnja\OD_PraznjenjeSilosa.dfm"/> <FormResources Include="Proizvodnja\OD_PraznjenjeSilosa.dfm"/>
<FormResources Include="Proizvodnja\OD_green_picking.dfm"/> <FormResources Include="Proizvodnja\OD_PregledBalaLaboratorija.dfm"/>
<FormResources Include="OsnovneForme\BUS_osnovna_setup.dfm"/> <FormResources Include="OsnovneForme\BUS_osnovna_setup.dfm"/>
<FormResources Include="OsnovneForme\BUS_osnovna_prazna.dfm"/>
<FormResources Include="OD_password.dfm"/>
<FormResources Include="OsnovneForme\OD_OsnovnaPrazna.dfm"/> <FormResources Include="OsnovneForme\OD_OsnovnaPrazna.dfm"/>
<FormResources Include="OD_password.dfm"/>
<FormResources Include="OsnovneForme\BUS_osnovna_prazna.dfm"/>
<FormResources Include="PretragaPodataka\OD_PretragaPodataka.dfm"/> <FormResources Include="PretragaPodataka\OD_PretragaPodataka.dfm"/>
<FormResources Include="Poruke\fmMessageYellow.dfm"/> <FormResources Include="Proizvodnja\OD_green_picking.dfm"/>
<FormResources Include="Poruke\fmMessageRed.dfm"/> <FormResources Include="Poruke\fmMessageRed.dfm"/>
<FormResources Include="Proizvodnja\od_raspored_stolova.dfm"/> <FormResources Include="Poruke\fmMessageYellow.dfm"/>
<FormResources Include="Setup\OD_setup_podsorte.dfm"/> <FormResources Include="Proizvodnja\OD_unosAmbalaze.dfm"/>
<FormResources Include="Setup\OD_setup_parametri.dfm"/> <FormResources Include="Setup\OD_setup_parametri.dfm"/>
<FormResources Include="Setup\OD_system.dfm"/> <FormResources Include="Setup\OD_setup_podsorte.dfm"/>
<FormResources Include="Setup\SetupPrava.dfm"/> <FormResources Include="Setup\OD_setup_mesta_uzorkovanja.dfm"/>
<FormResources Include="Setup\Osnovne forme\BUS_OsnovnaPretraga_N.dfm"/> <FormResources Include="Setup\Osnovne forme\BUS_OsnovnaPretraga_N.dfm"/>
<FormResources Include="Setup\SetupPrava.dfm"/>
<FormResources Include="Setup\OD_system.dfm"/>
<FormResources Include="Setup\Osnovne forme\BUS_OsnovnaFormaNova.dfm"/> <FormResources Include="Setup\Osnovne forme\BUS_OsnovnaFormaNova.dfm"/>
<FormResources Include="Setup\OD_setup_mesta_uzorkovanja.dfm"/> <FormResources Include="Setup\OD_setup_ambalaza.dfm"/>
<FormResources Include="Proizvodnja\PromenaPodatakaBale.dfm"/>
<FormResources Include="Proizvodnja\OD_vakumiranje.dfm"/> <FormResources Include="Proizvodnja\OD_vakumiranje.dfm"/>
<FormResources Include="Setup\OD_setup_blend.dfm"/> <FormResources Include="Proizvodnja\PromenaPodatakaBale.dfm"/>
<FormResources Include="Setup\OD_setup_int_klase.dfm"/>
<FormResources Include="Setup\OD_setup_grade.dfm"/> <FormResources Include="Setup\OD_setup_grade.dfm"/>
<FormResources Include="Setup\OD_setup_int_klase.dfm"/>
<FormResources Include="Setup\OD_setup_blend.dfm"/>
<FormResources Include="Setup\OD_setup_etiketa.dfm"/> <FormResources Include="Setup\OD_setup_etiketa.dfm"/>
<FormResources Include="Izvestaji\OD_izv_MAG.dfm"/> <FormResources Include="Izvestaji\OD_izv_MAG.dfm"/>
<FormResources Include="Izvestaji\OD_izv_izlaza_iz_obrade.dfm"/>
<FormResources Include="Izvestaji\OD_izv_degradacija_lista.dfm"/>
<FormResources Include="Izvestaji\OD_izv_nikotin_secer.dfm"/> <FormResources Include="Izvestaji\OD_izv_nikotin_secer.dfm"/>
<FormResources Include="Izvestaji\OD_izv_degradacija_lista.dfm"/>
<FormResources Include="Izvestaji\OD_izv_izlaza_iz_obrade.dfm"/>
<FormResources Include="Izvestaji\OD_izv_rebro_u_listu.dfm"/> <FormResources Include="Izvestaji\OD_izv_rebro_u_listu.dfm"/>
<FormResources Include="Izvestaji\OD_izv_primese.dfm"/> <FormResources Include="Izvestaji\OD_izv_ulaza_u_obradu.dfm"/>
<FormResources Include="Izvestaji\OD_izv_obrada.dfm"/> <FormResources Include="Izvestaji\OD_izv_obrada.dfm"/>
<FormResources Include="Izvestaji\OD_IzvHearson.dfm"/> <FormResources Include="Izvestaji\OD_izv_primese.dfm"/>
<FormResources Include="DataModul\OD_DmPretraga.dfm"/> <FormResources Include="DataModul\OD_DmPretraga.dfm"/>
<FormResources Include="DataModul\OD_DM.dfm"/>
<FormResources Include="BUS_password.dfm"/> <FormResources Include="BUS_password.dfm"/>
<FormResources Include="Dokumenti\MG_UnosBalaMg.dfm"/> <FormResources Include="DataModul\OD_DM.dfm"/>
<FormResources Include="Izvestaji\OD_IzvHearson.dfm"/>
<FormResources Include="Dokumenti\MG_Ulaz_Izlaz_Robe.dfm"/> <FormResources Include="Dokumenti\MG_Ulaz_Izlaz_Robe.dfm"/>
<FormResources Include="Izvestaji\OD_izv_ulaza_u_obradu.dfm"/> <FormResources Include="Dokumenti\MG_UnosBalaMg.dfm"/>
<FormResources Include="Laboratory\OD_SadrzajNikotinaSecera.dfm"/> <FormResources Include="Izvestaji\OD_promet_magacina.dfm"/>
<FormResources Include="Laboratory\OD_RecepturaBlenda.dfm"/> <FormResources Include="Laboratory\OD_RecepturaBlenda.dfm"/>
<FormResources Include="Laboratory\OD_SadrzajNikotinaSecera.dfm"/>
<FormResources Include="Laboratory\OD_Primese.dfm"/>
<FormResources Include="Laboratory\OD_RebroUStripsu.dfm"/> <FormResources Include="Laboratory\OD_RebroUStripsu.dfm"/>
<FormResources Include="Laboratory\OD_VlagaPrasina.dfm"/>
<FormResources Include="OD_glavna.dfm"/> <FormResources Include="OD_glavna.dfm"/>
<FormResources Include="Laboratory\OD_Primese.dfm"/> <FormResources Include="Laboratory\OD_VlagaPrasina.dfm"/>
<FormResources Include="Izvestaji\OD_reklas_po_datumima.dfm"/>
<FormResources Include="Izvestaji\od_statisika_potrosnje.dfm"/> <FormResources Include="Izvestaji\od_statisika_potrosnje.dfm"/>
<FormResources Include="Izvestaji\OD_reklasirane_bale.dfm"/> <FormResources Include="Izvestaji\OD_reklasirane_bale.dfm"/>
<FormResources Include="Izvestaji\OD_promet_magacina.dfm"/> <FormResources Include="Izvestaji\OD_reklas_po_blendu.dfm"/>
<FormResources Include="Izvestaji\OD_vakumirane_bale.dfm"/>
<FormResources Include="Laboratory\OD_Hearson.dfm"/>
<FormResources Include="Laboratory\OD_DnevnoPracenjeVlage.dfm"/> <FormResources Include="Laboratory\OD_DnevnoPracenjeVlage.dfm"/>
<FormResources Include="Laboratory\OD_Hearson.dfm"/>
<FormResources Include="Izvestaji\OD_vakumirane_bale.dfm"/>
<FormResources Include="Laboratory\OD_degradacija_lista.dfm"/> <FormResources Include="Laboratory\OD_degradacija_lista.dfm"/>
<BuildConfiguration Include="Release"> <BuildConfiguration Include="Release">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
......
LeafNew.cbproj.local
View file @ a53e4ad9
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject/> <BorlandProject>
<Transactions>
<Transaction>1899.12.30 00:00:00.000.374,=C:\LeafDuvanska\Unit1.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.463,=C:\LeafDuvanska\Unit1.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.212,=C:\LeafDuvanska\Unit2.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.248,C:\LeafDuvanska\Setup\OD_setup_ambalaza.h=C:\LeafDuvanska\Unit1.h</Transaction>
<Transaction>1899.12.30 00:00:00.000.202,C:\LeafDuvanska\Proizvodnja\OD_unosAmbalaze.h=C:\LeafDuvanska\Unit1.h</Transaction>
<Transaction>1899.12.30 00:00:00.000.202,C:\LeafDuvanska\Proizvodnja\OD_unosAmbalaze.cpp=C:\LeafDuvanska\Unit1.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.248,C:\LeafDuvanska\Setup\OD_setup_ambalaza.cpp=C:\LeafDuvanska\Unit1.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.248,C:\LeafDuvanska\Setup\OD_setup_ambalaza.dfm=C:\LeafDuvanska\Unit1.dfm</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,C:\LeafDuvanska\Unit2.dfm=C:\LeafDuvanska\Izvestaji\OD_reklas_po_blendu.dfm</Transaction>
<Transaction>1899.12.30 00:00:00.000.252,C:\LeafDuvanska\Unit2.dfm=C:\LeafDuvanska\Izvestaji\OD_reklas_po_datumima.dfm</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,C:\LeafDuvanska\Unit2.h=C:\LeafDuvanska\Izvestaji\OD_reklas_po_blendu.h</Transaction>
<Transaction>1899.12.30 00:00:00.000.252,C:\LeafDuvanska\Unit2.h=C:\LeafDuvanska\Izvestaji\OD_reklas_po_datumima.h</Transaction>
<Transaction>1899.12.30 00:00:00.000.226,=C:\LeafDuvanska\Unit2.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,C:\LeafDuvanska\Unit2.cpp=C:\LeafDuvanska\Izvestaji\OD_reklas_po_blendu.cpp</Transaction>
<Transaction>1899.12.30 00:00:00.000.202,C:\LeafDuvanska\Proizvodnja\OD_unosAmbalaze.dfm=C:\LeafDuvanska\Unit1.dfm</Transaction>
<Transaction>1899.12.30 00:00:00.000.252,C:\LeafDuvanska\Unit2.cpp=C:\LeafDuvanska\Izvestaji\OD_reklas_po_datumima.cpp</Transaction>
</Transactions>
</BorlandProject>
LeafNew.cpp
View file @ a53e4ad9
...@@ -2,62 +2,66 @@ ...@@ -2,62 +2,66 @@
#pragma hdrstop #pragma hdrstop
#include <tchar.h> #include <tchar.h>
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
USEFORM("Proizvodnja\OD_Obrada_TP.cpp", fmPrijemBalaUObradu_TP);
USEFORM("Proizvodnja\OD_ObradaDuvanaVaga1.cpp", ODObradaVagaI);
USEFORM("Proizvodnja\OD_ObradaDuvanaPressa2.cpp", ODObradaPressa2);
USEFORM("Proizvodnja\OD_OtvaranjeBatcha.cpp", fmOtvaranjeBatcha); USEFORM("Proizvodnja\OD_OtvaranjeBatcha.cpp", fmOtvaranjeBatcha);
USEFORM("Proizvodnja\OD_PromenaStatusaBatcha.cpp", fmPromenaStatusaBatcha);
USEFORM("Proizvodnja\OD_PregledBalaLaboratorija.cpp", frmPregledKutijaDuvana);
USEFORM("Proizvodnja\OD_PraznjenjeSilosa.cpp", fmPraznjenjeSilosa); USEFORM("Proizvodnja\OD_PraznjenjeSilosa.cpp", fmPraznjenjeSilosa);
USEFORM("Proizvodnja\OD_green_picking.cpp", frmGreenPicking); USEFORM("Proizvodnja\OD_ObradaDuvanaVaga1.cpp", ODObradaVagaI);
USEFORM("OsnovneForme\BUS_osnovna_setup.cpp", fmOsnovna__Setup); USEFORM("Proizvodnja\OD_Obrada_TP.cpp", fmPrijemBalaUObradu_TP);
USEFORM("OsnovneForme\BUS_osnovna_prazna.cpp", fmOsnovna_prazna); USEFORM("Proizvodnja\od_raspored_stolova.cpp", od_raspored_stol);
USEFORM("OD_password.cpp", OdPassword); USEFORM("Proizvodnja\OD_unosAmbalaze.cpp", Form1);
USEFORM("Proizvodnja\OD_PregledBalaLaboratorija.cpp", frmPregledKutijaDuvana);
USEFORM("Proizvodnja\OD_PromenaStatusaBatcha.cpp", fmPromenaStatusaBatcha);
USEFORM("OsnovneForme\OD_OsnovnaPrazna.cpp", fmOsnovnaPrazna); USEFORM("OsnovneForme\OD_OsnovnaPrazna.cpp", fmOsnovnaPrazna);
USEFORM("PretragaPodataka\OD_PretragaPodataka.cpp", OD_Osnovna_pretrage);
USEFORM("Poruke\fmMessageYellow.cpp", ShowMyMessageYellow);
USEFORM("Poruke\fmMessageRed.cpp", ShowMyMessageRed); USEFORM("Poruke\fmMessageRed.cpp", ShowMyMessageRed);
USEFORM("Proizvodnja\od_raspored_stolova.cpp", od_raspored_stol); USEFORM("OsnovneForme\BUS_osnovna_prazna.cpp", fmOsnovna_prazna);
USEFORM("Setup\OD_setup_podsorte.cpp", fmSetupPodsorte); USEFORM("OsnovneForme\BUS_osnovna_setup.cpp", fmOsnovna__Setup);
USEFORM("Proizvodnja\OD_green_picking.cpp", frmGreenPicking);
USEFORM("Proizvodnja\OD_ObradaDuvanaPressa2.cpp", ODObradaPressa2);
USEFORM("Poruke\fmMessageYellow.cpp", ShowMyMessageYellow);
USEFORM("PretragaPodataka\OD_PretragaPodataka.cpp", OD_Osnovna_pretrage);
USEFORM("Setup\OD_setup_parametri.cpp", fmSetupParametri); USEFORM("Setup\OD_setup_parametri.cpp", fmSetupParametri);
USEFORM("Setup\OD_system.cpp", fmSystem); USEFORM("Setup\OD_setup_podsorte.cpp", fmSetupPodsorte);
USEFORM("Setup\SetupPrava.cpp", frmSetupPrava); USEFORM("Setup\OD_setup_mesta_uzorkovanja.cpp", OD_SetupMestaUzorkovanja);
USEFORM("Setup\Osnovne forme\BUS_OsnovnaPretraga_N.cpp", fm_osnovna_pretraga); USEFORM("Setup\Osnovne forme\BUS_OsnovnaPretraga_N.cpp", fm_osnovna_pretraga);
USEFORM("Setup\SetupPrava.cpp", frmSetupPrava);
USEFORM("Setup\OD_system.cpp", fmSystem);
USEFORM("Setup\Osnovne forme\BUS_OsnovnaFormaNova.cpp", fmOsnovnaFormaNova); USEFORM("Setup\Osnovne forme\BUS_OsnovnaFormaNova.cpp", fmOsnovnaFormaNova);
USEFORM("Setup\OD_setup_mesta_uzorkovanja.cpp", OD_SetupMestaUzorkovanja); USEFORM("Setup\OD_setup_ambalaza.cpp", fmOsnovna__Setup1);
USEFORM("Proizvodnja\PromenaPodatakaBale.cpp", fmPromenaPodataka);
USEFORM("Proizvodnja\OD_vakumiranje.cpp", fmVakumiranje); USEFORM("Proizvodnja\OD_vakumiranje.cpp", fmVakumiranje);
USEFORM("Setup\OD_setup_blend.cpp", fmSetupBlend); USEFORM("Proizvodnja\PromenaPodatakaBale.cpp", fmPromenaPodataka);
USEFORM("Setup\OD_setup_int_klase.cpp", fmSetupInternihKlase);
USEFORM("Setup\OD_setup_grade.cpp", OD_SetupGrade); USEFORM("Setup\OD_setup_grade.cpp", OD_SetupGrade);
USEFORM("Setup\OD_setup_int_klase.cpp", fmSetupInternihKlase);
USEFORM("Setup\OD_setup_blend.cpp", fmSetupBlend);
USEFORM("Setup\OD_setup_etiketa.cpp", fmSetupEtikete); USEFORM("Setup\OD_setup_etiketa.cpp", fmSetupEtikete);
USEFORM("Izvestaji\OD_izv_MAG.cpp", od_izv_blend_mg); USEFORM("Izvestaji\OD_izv_MAG.cpp", od_izv_blend_mg);
USEFORM("Izvestaji\OD_izv_izlaza_iz_obrade.cpp", fmObradaPregledIzlaza);
USEFORM("Izvestaji\OD_izv_degradacija_lista.cpp", OD_IzvDegradacijaLista);
USEFORM("Izvestaji\OD_izv_nikotin_secer.cpp", Od_IzvNikotinSecer); USEFORM("Izvestaji\OD_izv_nikotin_secer.cpp", Od_IzvNikotinSecer);
USEFORM("Izvestaji\OD_izv_degradacija_lista.cpp", OD_IzvDegradacijaLista);
USEFORM("Izvestaji\OD_izv_izlaza_iz_obrade.cpp", fmObradaPregledIzlaza);
USEFORM("Izvestaji\OD_izv_rebro_u_listu.cpp", OD_IzvRebroUListu); USEFORM("Izvestaji\OD_izv_rebro_u_listu.cpp", OD_IzvRebroUListu);
USEFORM("Izvestaji\OD_izv_primese.cpp", frmIzvPrimese); USEFORM("Izvestaji\OD_izv_ulaza_u_obradu.cpp", fmObradaPregledUlaza);
USEFORM("Izvestaji\OD_izv_obrada.cpp", od_izv_sa_obrd_duvana); USEFORM("Izvestaji\OD_izv_obrada.cpp", od_izv_sa_obrd_duvana);
USEFORM("Izvestaji\OD_IzvHearson.cpp", frmIzvHerason); USEFORM("Izvestaji\OD_izv_primese.cpp", frmIzvPrimese);
USEFORM("DataModul\OD_DmPretraga.cpp", OD_DM_Pretraga); /* TDataModule: File Type */ USEFORM("DataModul\OD_DmPretraga.cpp", OD_DM_Pretraga); /* TDataModule: File Type */
USEFORM("DataModul\OD_DM.cpp", DM_OD); /* TDataModule: File Type */
USEFORM("BUS_password.cpp", frmPassword); USEFORM("BUS_password.cpp", frmPassword);
USEFORM("Dokumenti\MG_UnosBalaMg.cpp", fmUnosBalaMg); USEFORM("DataModul\OD_DM.cpp", DM_OD); /* TDataModule: File Type */
USEFORM("Izvestaji\OD_IzvHearson.cpp", frmIzvHerason);
USEFORM("Dokumenti\MG_Ulaz_Izlaz_Robe.cpp", fmUlazIzlazNTM); USEFORM("Dokumenti\MG_Ulaz_Izlaz_Robe.cpp", fmUlazIzlazNTM);
USEFORM("Izvestaji\OD_izv_ulaza_u_obradu.cpp", fmObradaPregledUlaza); USEFORM("Dokumenti\MG_UnosBalaMg.cpp", fmUnosBalaMg);
USEFORM("Laboratory\OD_SadrzajNikotinaSecera.cpp", OD_NikotinSecer); USEFORM("Laboratory\OD_SadrzajNikotinaSecera.cpp", OD_NikotinSecer);
USEFORM("Laboratory\OD_RecepturaBlenda.cpp", OD_DefinisanjeReceptureBlenda);
USEFORM("Laboratory\OD_RebroUStripsu.cpp", OD_Rebro_u_stripsu);
USEFORM("Laboratory\OD_VlagaPrasina.cpp", OD_EvidencijaVlagePrasine); USEFORM("Laboratory\OD_VlagaPrasina.cpp", OD_EvidencijaVlagePrasine);
USEFORM("Laboratory\OD_RebroUStripsu.cpp", OD_Rebro_u_stripsu);
USEFORM("Laboratory\OD_RecepturaBlenda.cpp", OD_DefinisanjeReceptureBlenda);
USEFORM("OD_glavna.cpp", fmGlavna); USEFORM("OD_glavna.cpp", fmGlavna);
USEFORM("Laboratory\OD_Primese.cpp", OD_EvidencijaPrimesa); USEFORM("OD_password.cpp", OdPassword);
USEFORM("Izvestaji\od_statisika_potrosnje.cpp", od_potrosanja_kg); USEFORM("Izvestaji\od_statisika_potrosnje.cpp", od_potrosanja_kg);
USEFORM("Izvestaji\OD_reklasirane_bale.cpp", frmReklasiraneBale);
USEFORM("Izvestaji\OD_promet_magacina.cpp", fmPrometMagacina);
USEFORM("Izvestaji\OD_vakumirane_bale.cpp", frmVakumiraneBale); USEFORM("Izvestaji\OD_vakumirane_bale.cpp", frmVakumiraneBale);
USEFORM("Izvestaji\OD_promet_magacina.cpp", fmPrometMagacina);
USEFORM("Izvestaji\OD_reklasirane_bale.cpp", frmReklasiraneBale);
USEFORM("Laboratory\OD_Hearson.cpp", frmHearson); USEFORM("Laboratory\OD_Hearson.cpp", frmHearson);
USEFORM("Laboratory\OD_DnevnoPracenjeVlage.cpp", OD_dnevno_pracenje_vlage); USEFORM("Laboratory\OD_Primese.cpp", OD_EvidencijaPrimesa);
USEFORM("Laboratory\OD_degradacija_lista.cpp", OD_Degradacija); USEFORM("Laboratory\OD_degradacija_lista.cpp", OD_Degradacija);
USEFORM("Laboratory\OD_DnevnoPracenjeVlage.cpp", OD_dnevno_pracenje_vlage);
USEFORM("Izvestaji\OD_reklas_po_blendu.cpp", OD_rekl_po_blendu);
USEFORM("Izvestaji\OD_reklas_po_datumima.cpp", OD_reklas_po_dat);
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
#include "BUS_password.h" #include "BUS_password.h"
...@@ -85,6 +89,9 @@ WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) ...@@ -85,6 +89,9 @@ WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
Application->CreateForm(__classid(Tod_izv_sa_obrd_duvana), & od_izv_sa_obrd_duvana); Application->CreateForm(__classid(Tod_izv_sa_obrd_duvana), & od_izv_sa_obrd_duvana);
Application->CreateForm(__classid(Tod_potrosanja_kg), & od_potrosanja_kg); Application->CreateForm(__classid(Tod_potrosanja_kg), & od_potrosanja_kg);
Application->CreateForm(__classid(Tod_raspored_stol), & od_raspored_stol); Application->CreateForm(__classid(Tod_raspored_stol), & od_raspored_stol);
Application->CreateForm(__classid(TForm1), & Form1);
Application->CreateForm(__classid(TOD_rekl_po_blendu), & OD_rekl_po_blendu);
Application->CreateForm(__classid(TOD_reklas_po_dat), & OD_reklas_po_dat);
Application->Run(); Application->Run();
} }
catch (Exception& exception) catch (Exception& exception)
......
OD_glavna.cpp
View file @ a53e4ad9
...@@ -6,6 +6,7 @@ ...@@ -6,6 +6,7 @@
#include "OD_glavna.h" #include "OD_glavna.h"
#include "OD_VlagaPrasina.h" #include "OD_VlagaPrasina.h"
#include "OD_izv_obrada.h" #include "OD_izv_obrada.h"
#include "OD_reklas_po_blendu.h"
#include "OD_izv_MAG.h" #include "OD_izv_MAG.h"
#include "od_statisika_potrosnje.h" #include "od_statisika_potrosnje.h"
#include "OD_Primese.h" #include "OD_Primese.h"
...@@ -13,6 +14,7 @@ ...@@ -13,6 +14,7 @@
#include "OD_RecepturaBlenda.h" #include "OD_RecepturaBlenda.h"
#include "OD_SadrzajNikotinaSecera.h" #include "OD_SadrzajNikotinaSecera.h"
#include "OD_DnevnoPracenjeVlage.h" #include "OD_DnevnoPracenjeVlage.h"
#include "OD_reklas_po_datumima.h"
#include "OD_degradacija_lista.h" #include "OD_degradacija_lista.h"
#include "OD_izv_nikotin_secer.h" #include "OD_izv_nikotin_secer.h"
#include "OD_izv_rebro_u_listu.h" #include "OD_izv_rebro_u_listu.h"
...@@ -535,8 +537,8 @@ void __fastcall TfmGlavna::bbIzmenaPravaClick(TObject *Sender) ...@@ -535,8 +537,8 @@ void __fastcall TfmGlavna::bbIzmenaPravaClick(TObject *Sender)
void __fastcall TfmGlavna::nadjiPravoZaFormu(String nazivForme) { void __fastcall TfmGlavna::nadjiPravoZaFormu(String nazivForme) {
DM_OD->cdsProveraSelect->Active = false; DM_OD->cdsProveraSelect->Active = false;
DM_OD->sqlProveraSelect->ParamByName("formName")->AsString = nazivForme; DM_OD->sqlProveraSelect->ParamByName("formName")->AsString = nazivForme;
DM_OD->sqlProveraSelect->ParamByName("rola")->AsInteger = DM_OD->cdsProveraRole->FieldByName("ID_ROLE")->AsInteger; DM_OD->sqlProveraSelect->ParamByName("rola")->AsInteger = DM_OD->cdsProveraRole->FieldByName("ID_ROLE")->AsInteger;
DM_OD->cdsProveraSelect->Active = true; DM_OD->cdsProveraSelect->Active = true;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
...@@ -544,9 +546,9 @@ void __fastcall TfmGlavna::nadjiPravoZaFormu(String nazivForme) { ...@@ -544,9 +546,9 @@ void __fastcall TfmGlavna::nadjiPravoZaFormu(String nazivForme) {
void __fastcall TfmGlavna::FormShow(TObject *Sender) void __fastcall TfmGlavna::FormShow(TObject *Sender)
{ {
DM_OD->cdsProveraRole->Active = false; DM_OD->cdsProveraRole->Active = false;
DM_OD->sqlProveraRole->ParamByName("username")->AsString = DM_OD->cdsRadnik->FieldByName("KORISNICKO_IME")->AsString; DM_OD->sqlProveraRole->ParamByName("username")->AsString = DM_OD->cdsRadnik->FieldByName("KORISNICKO_IME")->AsString;
DM_OD->sqlProveraRole->ParamByName("password")->AsString = DM_OD->cdsRadnik->FieldByName("LOZINKA")->AsString; DM_OD->sqlProveraRole->ParamByName("password")->AsString = DM_OD->cdsRadnik->FieldByName("LOZINKA")->AsString;
DM_OD->sqlProveraRole->ParamByName("softver")->AsString = this->SOFTVER; DM_OD->sqlProveraRole->ParamByName("softver")->AsString = this->SOFTVER;
DM_OD->cdsProveraRole->Active = true; DM_OD->cdsProveraRole->Active = true;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
...@@ -830,3 +832,17 @@ void __fastcall TfmGlavna::dxBarLargeButton14Click(TObject *Sender) ...@@ -830,3 +832,17 @@ void __fastcall TfmGlavna::dxBarLargeButton14Click(TObject *Sender)
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TfmGlavna::dxBarLargeButton15Click(TObject *Sender)
{
TOD_rekl_po_blendu * OD_rekl_po_blendu = new TOD_rekl_po_blendu(this);
OD_rekl_po_blendu->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TfmGlavna::dxBarLargeButton16Click(TObject *Sender)
{
TOD_reklas_po_dat * OD_reklas_po_dat = new TOD_reklas_po_dat(this);
OD_reklas_po_dat->ShowModal();
}
//---------------------------------------------------------------------------
......
OD_glavna.dfm
View file @ a53e4ad9
...@@ -576,6 +576,14 @@ object fmGlavna: TfmGlavna ...@@ -576,6 +576,14 @@ object fmGlavna: TfmGlavna
Visible = True Visible = True
ItemName = 'dxBarButton5' ItemName = 'dxBarButton5'
end end
item
Visible = True
ItemName = 'dxBarLargeButton15'
end
item
Visible = True
ItemName = 'dxBarLargeButton16'
end
item item
Visible = True Visible = True
ItemName = 'dxBarSeparator4' ItemName = 'dxBarSeparator4'
...@@ -796,6 +804,20 @@ object fmGlavna: TfmGlavna ...@@ -796,6 +804,20 @@ object fmGlavna: TfmGlavna
Visible = ivAlways Visible = ivAlways
OnClick = dxBarLargeButton14Click OnClick = dxBarLargeButton14Click
end end
object dxBarLargeButton15: TdxBarLargeButton
Caption = 'Reklasirane bale po blendu'
Category = 0
Hint = 'Reklasirane bale po blendu'
Visible = ivAlways
OnClick = dxBarLargeButton15Click
end
object dxBarLargeButton16: TdxBarLargeButton
Caption = 'Reklasirano po datumu'
Category = 0
Hint = 'Reklasirano po datumu'
Visible = ivAlways
OnClick = dxBarLargeButton16Click
end
end end
object cxSmallImageList: TcxImageList object cxSmallImageList: TcxImageList
FormatVersion = 1 FormatVersion = 1
......
OD_glavna.h
View file @ a53e4ad9
...@@ -91,6 +91,8 @@ __published: // IDE-managed Components ...@@ -91,6 +91,8 @@ __published: // IDE-managed Components
TdxBarLargeButton *dxBarLargeButton12; TdxBarLargeButton *dxBarLargeButton12;
TdxBarLargeButton *dxBarLargeButton13; TdxBarLargeButton *dxBarLargeButton13;
TdxBarLargeButton *dxBarLargeButton14; TdxBarLargeButton *dxBarLargeButton14;
TdxBarLargeButton *dxBarLargeButton15;
TdxBarLargeButton *dxBarLargeButton16;
void __fastcall VlagaPrasinaClick(TObject *Sender); void __fastcall VlagaPrasinaClick(TObject *Sender);
void __fastcall StranePrimeseClick(TObject *Sender); void __fastcall StranePrimeseClick(TObject *Sender);
void __fastcall RebroUStripsuClick(TObject *Sender); void __fastcall RebroUStripsuClick(TObject *Sender);
...@@ -132,6 +134,8 @@ __published: // IDE-managed Components ...@@ -132,6 +134,8 @@ __published: // IDE-managed Components
void __fastcall dxBarLargeButton12Click(TObject *Sender); void __fastcall dxBarLargeButton12Click(TObject *Sender);
void __fastcall dxBarLargeButton13Click(TObject *Sender); void __fastcall dxBarLargeButton13Click(TObject *Sender);
void __fastcall dxBarLargeButton14Click(TObject *Sender); void __fastcall dxBarLargeButton14Click(TObject *Sender);
void __fastcall dxBarLargeButton15Click(TObject *Sender);
void __fastcall dxBarLargeButton16Click(TObject *Sender);
private: // User declarations private: // User declarations
//void pokreniFormu(TForm* forma, String naziv); //void pokreniFormu(TForm* forma, String naziv);
public: // User declarations public: // User declarations
......
Proizvodnja/OD_ObradaDuvanaPressa2.cpp
View file @ a53e4ad9
...@@ -262,6 +262,7 @@ void __fastcall TODObradaPressa2::cdsObradaGPGRADEChange(TField* Sender) ...@@ -262,6 +262,7 @@ void __fastcall TODObradaPressa2::cdsObradaGPGRADEChange(TField* Sender)
sqlCaseUK->ParamByName("grade")->AsString = cdsObradaGP->FieldByName("grade")->AsString; sqlCaseUK->ParamByName("grade")->AsString = cdsObradaGP->FieldByName("grade")->AsString;
sqlCaseUK->ParamByName("crop")->AsInteger = cdsObradaGP->FieldByName("crop")->AsInteger; sqlCaseUK->ParamByName("crop")->AsInteger = cdsObradaGP->FieldByName("crop")->AsInteger;
sqlCaseUK->ParamByName("dealer")->AsString = cdsEtiketa->FieldByName("DEALER")->AsString; sqlCaseUK->ParamByName("dealer")->AsString = cdsEtiketa->FieldByName("DEALER")->AsString;
sqlCaseUK->ParamByName("status")->AsInteger=1;
sqlCaseUK->Active = true; sqlCaseUK->Active = true;
cdsObradaGP->FieldByName("case_no")->AsInteger = sqlCaseNo->FieldByName("BrojKutijeGrade")->AsInteger + 1; cdsObradaGP->FieldByName("case_no")->AsInteger = sqlCaseNo->FieldByName("BrojKutijeGrade")->AsInteger + 1;
...@@ -587,6 +588,7 @@ void __fastcall TODObradaPressa2::cxStampaGPClick(TObject* Sender) ...@@ -587,6 +588,7 @@ void __fastcall TODObradaPressa2::cxStampaGPClick(TObject* Sender)
sqlProvera->ParamByName("grade")->AsString = cdsObradaGP->FieldByName("grade")->AsString; sqlProvera->ParamByName("grade")->AsString = cdsObradaGP->FieldByName("grade")->AsString;
sqlProvera->ParamByName("crop")->AsInteger = cdsObradaGP->FieldByName("crop")->AsInteger; sqlProvera->ParamByName("crop")->AsInteger = cdsObradaGP->FieldByName("crop")->AsInteger;
sqlProvera->ParamByName("case")->AsInteger = cdsObradaGP->FieldByName("CASE_NO")->AsInteger; sqlProvera->ParamByName("case")->AsInteger = cdsObradaGP->FieldByName("CASE_NO")->AsInteger;
sqlProvera->ParamByName("dealer")->AsString = cdsObradaGP->FieldByName("dealer")->AsString;
sqlProvera->Active = true; sqlProvera->Active = true;
if (sqlProvera->FieldByName("CASE_NO")->AsInteger > 0) if (sqlProvera->FieldByName("CASE_NO")->AsInteger > 0)
......
Proizvodnja/OD_ObradaDuvanaPressa2.dfm
View file @ a53e4ad9
...@@ -2007,7 +2007,7 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2007,7 +2007,7 @@ inherited ODObradaPressa2: TODObradaPressa2
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 40775.438510729200000000 ReportOptions.CreateDate = 40775.438510729200000000
ReportOptions.LastChange = 43362.531993495370000000 ReportOptions.LastChange = 43507.352452361110000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'begin' 'begin'
...@@ -2095,7 +2095,7 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2095,7 +2095,7 @@ inherited ODObradaPressa2: TODObradaPressa2
ShowHint = False ShowHint = False
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
DisplayFormat.FormatStr = 'yyyy.mm.dd' DisplayFormat.FormatStr = 'dd.mm.yyyy'
DisplayFormat.Kind = fkDateTime DisplayFormat.Kind = fkDateTime
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
...@@ -2107,11 +2107,13 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2107,11 +2107,13 @@ inherited ODObradaPressa2: TODObradaPressa2
ParentFont = False ParentFont = False
end end
object Memo17: TfrxMemoView object Memo17: TfrxMemoView
ShiftMode = smWhenOverlapped
Left = 298.803340000000000000 Left = 298.803340000000000000
Top = 125.370130000000000000 Top = 125.370130000000000000
Width = 154.960730000000000000 Width = 154.960730000000000000
Height = 41.574830000000000000 Height = 41.574830000000000000
ShowHint = False ShowHint = False
StretchMode = smActualHeight
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
...@@ -2125,11 +2127,12 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2125,11 +2127,12 @@ inherited ODObradaPressa2: TODObradaPressa2
ParentFont = False ParentFont = False
end end
object Memo18: TfrxMemoView object Memo18: TfrxMemoView
Left = 115.129994000000000000 Left = 50.877984000000000000
Top = 1.661410000000000000 Top = 1.661410000000000000
Width = 526.086952000000000000 Width = 677.268152000000000000
Height = 79.370130000000000000 Height = 79.370130000000000000
ShowHint = False ShowHint = False
StretchMode = smActualHeight
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
...@@ -2137,17 +2140,19 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2137,17 +2140,19 @@ inherited ODObradaPressa2: TODObradaPressa2
Font.Height = -64 Font.Height = -64
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = ( Memo.UTF8W = (
'[frxDBObradaStampa."GRADE"]') 'Berlej [frxDBObradaStampa."GRADE"]')
ParentFont = False ParentFont = False
VAlign = vaCenter
end end
object frxDBObradaStampaDEALER: TfrxMemoView object frxDBObradaStampaDEALER: TfrxMemoView
ShiftMode = smWhenOverlapped
Left = 41.574830000000000000 Left = 41.574830000000000000
Top = 75.590600000000000000 Top = 75.590600000000000000
Width = 665.197280000000000000 Width = 665.197280000000000000
Height = 56.692950000000000000 Height = 56.692950000000010000
ShowHint = False ShowHint = False
StretchMode = smActualHeight
DataField = 'DEALER' DataField = 'DEALER'
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
...@@ -2315,7 +2320,7 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2315,7 +2320,7 @@ inherited ODObradaPressa2: TODObradaPressa2
ShowHint = False ShowHint = False
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
DisplayFormat.FormatStr = 'yyyy.mm.dd' DisplayFormat.FormatStr = 'dd.mm.yyyy'
DisplayFormat.Kind = fkDateTime DisplayFormat.Kind = fkDateTime
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
...@@ -2345,11 +2350,12 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2345,11 +2350,12 @@ inherited ODObradaPressa2: TODObradaPressa2
ParentFont = False ParentFont = False
end end
object Memo11: TfrxMemoView object Memo11: TfrxMemoView
Left = 111.350464000000000000 Left = 50.877984000000000000
Top = 559.370440000000000000 Top = 559.370440000000000000
Width = 526.086952000000000000 Width = 688.606742000000000000
Height = 79.370130000000000000 Height = 79.370130000000000000
ShowHint = False ShowHint = False
StretchMode = smActualHeight
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
DataSetName = 'frxDBObradaStampa' DataSetName = 'frxDBObradaStampa'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
...@@ -2357,9 +2363,8 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2357,9 +2363,8 @@ inherited ODObradaPressa2: TODObradaPressa2
Font.Height = -64 Font.Height = -64
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = ( Memo.UTF8W = (
'[frxDBObradaStampa."GRADE"]') 'Berlej [frxDBObradaStampa."GRADE"]')
ParentFont = False ParentFont = False
end end
object Memo12: TfrxMemoView object Memo12: TfrxMemoView
...@@ -2462,10 +2467,10 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -2462,10 +2467,10 @@ inherited ODObradaPressa2: TODObradaPressa2
ParentFont = False ParentFont = False
end end
object Memo21: TfrxMemoView object Memo21: TfrxMemoView
Left = 45.354360000000000000 Left = 49.133890000000000000
Top = 631.181510000000000000 Top = 631.181510000000000000
Width = 665.197280000000000000 Width = 661.417750000000000000
Height = 56.692950000000000000 Height = 56.692950000000010000
ShowHint = False ShowHint = False
DataField = 'DEALER' DataField = 'DEALER'
DataSet = frxDBObradaStampa DataSet = frxDBObradaStampa
...@@ -3943,6 +3948,11 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -3943,6 +3948,11 @@ inherited ODObradaPressa2: TODObradaPressa2
DataType = ftString DataType = ftString
Name = 'dealer' Name = 'dealer'
ParamType = ptInput ParamType = ptInput
end
item
DataType = ftInteger
Name = 'status'
ParamType = ptInput
end> end>
SQL.Strings = ( SQL.Strings = (
'select max(g.case_uk) as brojkutijauk' 'select max(g.case_uk) as brojkutijauk'
...@@ -3950,7 +3960,8 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -3950,7 +3960,8 @@ inherited ODObradaPressa2: TODObradaPressa2
'where g.grade = :grade' 'where g.grade = :grade'
'and g.deleted=0' 'and g.deleted=0'
'and g.crop=:crop' 'and g.crop=:crop'
'and g.dealer=:dealer') 'and g.dealer=:dealer'
'and g.status=:status')
SQLConnection = DM_OD.SC_OD SQLConnection = DM_OD.SC_OD
Left = 876 Left = 876
Top = 240 Top = 240
...@@ -4160,7 +4171,7 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -4160,7 +4171,7 @@ inherited ODObradaPressa2: TODObradaPressa2
end end
end end
object PageHeader1: TfrxPageHeader object PageHeader1: TfrxPageHeader
Height = 68.031540000000000000 Height = 68.031540000000010000
Top = 18.897650000000000000 Top = 18.897650000000000000
Width = 718.110700000000000000 Width = 718.110700000000000000
object Memo3: TfrxMemoView object Memo3: TfrxMemoView
...@@ -4313,6 +4324,11 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -4313,6 +4324,11 @@ inherited ODObradaPressa2: TODObradaPressa2
DataType = ftInteger DataType = ftInteger
Name = 'case' Name = 'case'
ParamType = ptInput ParamType = ptInput
end
item
DataType = ftString
Name = 'dealer'
ParamType = ptInput
end> end>
SQL.Strings = ( SQL.Strings = (
'select case_no' 'select case_no'
...@@ -4321,6 +4337,8 @@ inherited ODObradaPressa2: TODObradaPressa2 ...@@ -4321,6 +4337,8 @@ inherited ODObradaPressa2: TODObradaPressa2
'and g.deleted=0' 'and g.deleted=0'
'and g.crop=:crop' 'and g.crop=:crop'
'and g.case_no=:case' 'and g.case_no=:case'
'and g.status=1'
'and g.dealer=:dealer'
'and cast(g.datum as date) = current_date') 'and cast(g.datum as date) = current_date')
SQLConnection = DM_OD.SC_OD SQLConnection = DM_OD.SC_OD
Left = 796 Left = 796
......
Proizvodnja/OD_ObradaDuvanaVaga1.cpp
View file @ a53e4ad9
...@@ -258,14 +258,14 @@ void __fastcall TODObradaVagaI::cxBarkodKeyPress(TObject* Sender, wchar_t& Key) ...@@ -258,14 +258,14 @@ void __fastcall TODObradaVagaI::cxBarkodKeyPress(TObject* Sender, wchar_t& Key)
TLocateOptions opts; TLocateOptions opts;
opts.Clear(); opts.Clear();
cdsStatistikaMG->Locate("INT_KLASA", cdsBala->FieldByName("int_klasa")->AsString + "/" + cdsBala->FieldByName("GRUPA_fqi")->AsString, opts); // cdsStatistikaMG->Locate("INT_KLASA", cdsBala->FieldByName("int_klasa")->AsString, opts);
if (cdsStatistikaMG->FieldByName("TEZINA")->AsCurrency >= cdsStatistikaMG->FieldByName("PROC_MG_KG")->AsCurrency) // if (cdsStatistikaMG->FieldByName("TEZINA")->AsCurrency >= cdsStatistikaMG->FieldByName("PROC_MG_KG")->AsCurrency)
{ // {
ShowMyMessageRed->Show("Dostignut je limit za klasu " + cdsBala->FieldByName("int_klasa")->AsString + "/" + cdsBala->FieldByName("GRUPA_fqi")->AsString + "!!", 0x00CCF8F9); // ShowMyMessageRed->Show("Dostignut je limit za klasu " + cdsBala->FieldByName("int_klasa")->AsString + " !!", 0x00CCF8F9);
cxBarkod->Text = ""; // cxBarkod->Text = "";
cxBarkod->SetFocus(); // cxBarkod->SetFocus();
return; // return;
} // }
// cdsStatistikaMG->Locate("INT_KLASA", cdsBala->FieldByName("int_klasa")->AsString + "/" + cdsBala->FieldByName("GRUPA_fqi")->AsString, opts); // cdsStatistikaMG->Locate("INT_KLASA", cdsBala->FieldByName("int_klasa")->AsString + "/" + cdsBala->FieldByName("GRUPA_fqi")->AsString, opts);
// if (cdsStatistikaMG->FieldByName("TEZINA")->AsCurrency + cdsBala->FieldByName("netomasa")->AsFloat >= cdsStatistikaMG->FieldByName("PROC_MG_KG")->AsCurrency * DM_OD->cdsSystemOD->FieldByName("MAX_PROC")->AsInteger/100) // if (cdsStatistikaMG->FieldByName("TEZINA")->AsCurrency + cdsBala->FieldByName("netomasa")->AsFloat >= cdsStatistikaMG->FieldByName("PROC_MG_KG")->AsCurrency * DM_OD->cdsSystemOD->FieldByName("MAX_PROC")->AsInteger/100)
...@@ -1190,3 +1190,4 @@ void __fastcall TODObradaVagaI::cxGrid8DBTableView1CustomDrawCell(TcxCustomGridT ...@@ -1190,3 +1190,4 @@ void __fastcall TODObradaVagaI::cxGrid8DBTableView1CustomDrawCell(TcxCustomGridT
} }
} }
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
Proizvodnja/OD_ObradaDuvanaVaga1.dfm
View file @ a53e4ad9
...@@ -3850,7 +3850,7 @@ inherited ODObradaVagaI: TODObradaVagaI ...@@ -3850,7 +3850,7 @@ inherited ODObradaVagaI: TODObradaVagaI
end end
object sqlStatistikaMG: TSQLDataSet object sqlStatistikaMG: TSQLDataSet
SchemaName = 'sysdba' SchemaName = 'sysdba'
CommandText = 'select * '#13#10'from OD_STAT_OBRADE_MAG(:idzg, :BLEND)' CommandText = 'select * '#13#10'from OD_STAT_OBRADE_MAG_BER(:idzg, :BLEND)'
MaxBlobSize = -1 MaxBlobSize = -1
Params = < Params = <
item item
......
Proizvodnja/OD_unosAmbalaze.cpp 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OD_unosAmbalaze.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
Proizvodnja/OD_unosAmbalaze.dfm 0 → 100644
View file @ a53e4ad9
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Unos ambalaze'
ClientHeight = 443
ClientWidth = 759
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
Proizvodnja/OD_unosAmbalaze.h 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#ifndef OD_unosAmbalazeH
#define OD_unosAmbalazeH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Setup/OD_setup_ambalaza.cpp 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OD_setup_ambalaza.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BUS_osnovna_setup"
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxDBEdit"
#pragma link "cxDBNavigator"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxNavigator"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinVS2010"
#pragma resource "*.dfm"
TfmOsnovna__Setup1 *fmOsnovna__Setup1;
//---------------------------------------------------------------------------
__fastcall TfmOsnovna__Setup1::TfmOsnovna__Setup1(TComponent* Owner)
: TfmOsnovna__Setup(Owner)
{
}
//---------------------------------------------------------------------------
Setup/OD_setup_ambalaza.dfm 0 → 100644
View file @ a53e4ad9
inherited fmOsnovna__Setup1: TfmOsnovna__Setup1
Caption = 'Unos Ambalaze'
PixelsPerInch = 96
TextHeight = 13
inherited cxPC: TcxPageControl
inherited cxT1: TcxTabSheet
inherited cxLabel300: TcxLabel
Caption = 'Proizvodjac'
Style.IsFontAssigned = True
ExplicitWidth = 70
end
inherited cxDBTextEdit300: TcxDBTextEdit
Style.IsFontAssigned = True
end
end
end
inherited cxImageList1: TcxImageList
FormatVersion = 1
end
inherited dset: TSQLDataSet
CommandText = 'select * from od_ambalaza_gp g'
end
inherited cds: TClientDataSet
object cdsID: TIntegerField
FieldName = 'ID'
Required = True
end
object cdsID_ETIKETE: TIntegerField
FieldName = 'ID_ETIKETE'
end
object cdsDATUM: TDateField
FieldName = 'DATUM'
end
object cdsID_VRSTA_GP: TIntegerField
FieldName = 'ID_VRSTA_GP'
end
object cdsKOLICINA: TIntegerField
FieldName = 'KOLICINA'
end
object cdsKOL_PREOSTALO: TIntegerField
FieldName = 'KOL_PREOSTALO'
end
end
end
Setup/OD_setup_ambalaza.h 0 → 100644
View file @ a53e4ad9
//---------------------------------------------------------------------------
#ifndef OD_setup_ambalazaH
#define OD_setup_ambalazaH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "BUS_osnovna_setup.h"
#include "cxButtons.hpp"
#include "cxCheckBox.hpp"
#include "cxClasses.hpp"
#include "cxContainer.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxDBEdit.hpp"
#include "cxDBNavigator.hpp"
#include "cxDropDownEdit.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxGroupBox.hpp"
#include "cxLabel.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxMaskEdit.hpp"
#include "cxNavigator.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "cxStyles.hpp"
#include "cxTextEdit.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinVS2010.hpp"
#include <Data.DB.hpp>
#include <Data.FMTBcd.hpp>
#include <Data.SqlExpr.hpp>
#include <Datasnap.DBClient.hpp>
#include <Datasnap.Provider.hpp>
#include <System.Actions.hpp>
#include <Vcl.ActnList.hpp>
#include <Vcl.DBActns.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.ImgList.hpp>
#include <Vcl.Menus.hpp>
//---------------------------------------------------------------------------
class TfmOsnovna__Setup1 : public TfmOsnovna__Setup
{
__published: // IDE-managed Components
TIntegerField *cdsID;
TIntegerField *cdsID_ETIKETE;
TDateField *cdsDATUM;
TIntegerField *cdsID_VRSTA_GP;
TIntegerField *cdsKOLICINA;
TIntegerField *cdsKOL_PREOSTALO;
private: // User declarations
public: // User declarations
__fastcall TfmOsnovna__Setup1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TfmOsnovna__Setup1 *fmOsnovna__Setup1;
//---------------------------------------------------------------------------
#endif
Setup/OD_setup_grade.cpp
View file @ a53e4ad9
...@@ -122,3 +122,6 @@ void __fastcall TOD_SetupGrade::Azurirajpodatkeuobradi1Click(TObject *Sender) ...@@ -122,3 +122,6 @@ void __fastcall TOD_SetupGrade::Azurirajpodatkeuobradi1Click(TObject *Sender)
Setup/OD_setup_grade.dfm
View file @ a53e4ad9
inherited OD_SetupGrade: TOD_SetupGrade inherited OD_SetupGrade: TOD_SetupGrade
Caption = 'Definisanje klasa duvana - grade' Caption = 'Definisanje klasa duvana - grade'
ClientWidth = 982 ClientWidth = 982
ExplicitTop = -12 ExplicitTop = -14
ExplicitWidth = 988 ExplicitWidth = 988
ExplicitHeight = 509 ExplicitHeight = 509
PixelsPerInch = 96 PixelsPerInch = 96
...@@ -183,7 +183,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -183,7 +183,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel7: TcxLabel object cxLabel7: TcxLabel
Left = 185 Left = 185
Top = 9 Top = 10
Caption = 'Stampa nalepnice pri statusu' Caption = 'Stampa nalepnice pri statusu'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -235,7 +235,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -235,7 +235,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel9: TcxLabel object cxLabel9: TcxLabel
Left = 529 Left = 529
Top = 9 Top = 10
Caption = 'Grade u barkodu 1' Caption = 'Grade u barkodu 1'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -271,7 +271,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -271,7 +271,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel10: TcxLabel object cxLabel10: TcxLabel
Left = 529 Left = 529
Top = 34 Top = 36
Caption = 'Packing type u barkodu 1' Caption = 'Packing type u barkodu 1'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -331,7 +331,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -331,7 +331,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel11: TcxLabel object cxLabel11: TcxLabel
Left = 529 Left = 529
Top = 60 Top = 62
Caption = 'Type u barkodu 1' Caption = 'Type u barkodu 1'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -356,7 +356,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -356,7 +356,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel1: TcxLabel object cxLabel1: TcxLabel
Left = 529 Left = 529
Top = 113 Top = 114
Caption = 'Minimalna tezina kutije' Caption = 'Minimalna tezina kutije'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -416,7 +416,7 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -416,7 +416,7 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
object cxLabel3: TcxLabel object cxLabel3: TcxLabel
Left = 529 Left = 529
Top = 138 Top = 139
Caption = 'Maksimalna tezina kutije' Caption = 'Maksimalna tezina kutije'
ParentFont = False ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET Style.Font.Charset = EASTEUROPE_CHARSET
...@@ -440,6 +440,90 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -440,6 +440,90 @@ inherited OD_SetupGrade: TOD_SetupGrade
TabOrder = 27 TabOrder = 27
Width = 145 Width = 145
end end
object cxLabel12: TcxLabel
Left = 762
Top = 5
Caption = 'Neto tezina'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
object cxLabel13: TcxLabel
Left = 762
Top = 32
Caption = 'Tara'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
object cxLabel14: TcxLabel
Left = 754
Top = 62
Caption = 'Vrsta proizvoda'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
object cxDBTextEdit11: TcxDBTextEdit
Left = 842
Top = 4
DataBinding.DataField = 'NETO_AMB'
DataBinding.DataSource = ds
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clBlack
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.LookAndFeel.Kind = lfOffice11
Style.LookAndFeel.NativeStyle = True
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfOffice11
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.Color = 9360891
StyleFocused.LookAndFeel.Kind = lfOffice11
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfOffice11
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 31
Width = 91
end
object cxDBTextEdit12: TcxDBTextEdit
Left = 842
Top = 31
DataBinding.DataField = 'TARA_AMB'
DataBinding.DataSource = ds
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clBlack
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.LookAndFeel.Kind = lfOffice11
Style.LookAndFeel.NativeStyle = True
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfOffice11
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.Color = 9360891
StyleFocused.LookAndFeel.Kind = lfOffice11
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfOffice11
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 32
Width = 91
end
end end
end end
inherited cxGroupBox1: TcxGroupBox inherited cxGroupBox1: TcxGroupBox
...@@ -621,90 +705,6 @@ inherited OD_SetupGrade: TOD_SetupGrade ...@@ -621,90 +705,6 @@ inherited OD_SetupGrade: TOD_SetupGrade
end end
end end
end end
object cxLabel12: TcxLabel [4]
Left = 754
Top = 289
Caption = 'Neto tezina'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
object cxDBTextEdit11: TcxDBTextEdit [5]
Left = 834
Top = 289
DataBinding.DataField = 'NETO_AMB'
DataBinding.DataSource = ds
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clBlack
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.LookAndFeel.Kind = lfOffice11
Style.LookAndFeel.NativeStyle = True
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfOffice11
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.Color = 9360891
StyleFocused.LookAndFeel.Kind = lfOffice11
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfOffice11
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 91
end
object cxLabel13: TcxLabel [6]
Left = 754
Top = 312
Caption = 'Tara'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
object cxDBTextEdit12: TcxDBTextEdit [7]
Left = 834
Top = 311
DataBinding.DataField = 'TARA_AMB'
DataBinding.DataSource = ds
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clBlack
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.LookAndFeel.Kind = lfOffice11
Style.LookAndFeel.NativeStyle = True
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfOffice11
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.Color = 9360891
StyleFocused.LookAndFeel.Kind = lfOffice11
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfOffice11
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 91
end
object cxLabel14: TcxLabel [8]
Left = 754
Top = 339
Caption = 'Vrsta proizvoda'
ParentFont = False
Style.Font.Charset = EASTEUROPE_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
end
inherited PopupMenu1: TPopupMenu inherited PopupMenu1: TPopupMenu
object N1: TMenuItem object N1: TMenuItem
Caption = '-' Caption = '-'
......
Setup/OD_setup_grade.h
View file @ a53e4ad9
...@@ -142,18 +142,18 @@ __published: // IDE-managed Components ...@@ -142,18 +142,18 @@ __published: // IDE-managed Components
TcxGridDBColumn *dbgMAX_TEZINA; TcxGridDBColumn *dbgMAX_TEZINA;
TcxGridDBColumn *dbgMIN_TEZINA; TcxGridDBColumn *dbgMIN_TEZINA;
TStringField *cdsBC_TYPE; TStringField *cdsBC_TYPE;
TcxLabel *cxLabel12;
TcxDBTextEdit *cxDBTextEdit11;
TcxLabel *cxLabel13;
TcxDBTextEdit *cxDBTextEdit12;
TcxDBLookupComboBox *cxDBLookupComboBox2; TcxDBLookupComboBox *cxDBLookupComboBox2;
TcxLabel *cxLabel14;
TSQLDataSet *sqlVrstaProiz; TSQLDataSet *sqlVrstaProiz;
TDataSetProvider *dspVrstaProiz; TDataSetProvider *dspVrstaProiz;
TClientDataSet *cdsVrstaProiz; TClientDataSet *cdsVrstaProiz;
TDataSource *dsVrstaProiz; TDataSource *dsVrstaProiz;
TIntegerField *cdsVrstaProizID; TIntegerField *cdsVrstaProizID;
TStringField *cdsVrstaProizNAZIV; TStringField *cdsVrstaProizNAZIV;
TcxLabel *cxLabel12;
TcxLabel *cxLabel13;
TcxLabel *cxLabel14;
TcxDBTextEdit *cxDBTextEdit11;
TcxDBTextEdit *cxDBTextEdit12;
void __fastcall cdsNewRecord(TDataSet *DataSet); void __fastcall cdsNewRecord(TDataSet *DataSet);
void __fastcall FormCreate(TObject *Sender); void __fastcall FormCreate(TObject *Sender);
void __fastcall Azurirajpodatkeuobradi1Click(TObject *Sender); void __fastcall Azurirajpodatkeuobradi1Click(TObject *Sender);
......
Win32/Debug/StampaLeaf/Blend.fr3
View file @ a53e4ad9
<?xml version="1.0" encoding="utf-8" standalone="no"?> <?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40771,9155618056" ReportOptions.Description.Text="" ReportOptions.LastChange="43382,4618783449" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403380103546F700390010844617461736574730101062E20446174615365743D226672784442426C656E642220446174615365744E616D653D226672784442426C656E64220001063020446174615365743D226672784442537461766B652220446174615365744E616D653D226672784442537461766B65220001063220446174615365743D22667278444253746F6C6F76692220446174615365744E616D653D22667278444253746F6C6F7669220001063420446174615365743D2266747853746174697374696B612220446174615365744E616D653D2266747853746174697374696B61220000095661726961626C65730100055374796C650100"> <TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40771,9155618056" ReportOptions.Description.Text="" ReportOptions.LastChange="43476,4148878125" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403380103546F700390010844617461736574730101062E20446174615365743D226672784442426C656E642220446174615365744E616D653D226672784442426C656E64220001063020446174615365743D226672784442537461766B652220446174615365744E616D653D226672784442537461766B65220001063220446174615365743D22667278444253746F6C6F76692220446174615365744E616D653D22667278444253746F6C6F7669220001063420446174615365743D2266747853746174697374696B612220446174615365744E616D653D2266747853746174697374696B61220000095661726961626C65730100055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxReportTitle Name="ReportTitle1" Height="117,16543" Left="0" Top="18,89765" Width="1084,72511"> <TfrxReportTitle Name="ReportTitle1" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Arial" Font.Style="0" Height="117,16543" Left="0" ParentFont="False" Top="18,89765" Width="1084,72511">
<TfrxMemoView Name="frxDBStampaBERBA" Left="393,07112" Top="94,48825" Width="79,37013" Height="18,89765" ShowHint="False" DataField="BERBA" DataSet="frxDBBlend" DataSetName="frxDBBlend" Text="[frxDBBlend.&#34;BERBA&#34;]"/> <TfrxMemoView Name="frxDBStampaBERBA" Left="393,07112" Top="94,48825" Width="79,37013" Height="18,89765" ShowHint="False" DataField="BERBA" DataSet="frxDBBlend" DataSetName="frxDBBlend" Text="[frxDBBlend.&#34;BERBA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="287,24428" Top="94,48825" Width="90,70872" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Berba:"/> <TfrxMemoView Name="Memo6" Left="287,24428" Top="94,48825" Width="90,70872" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Berba:"/>
<TfrxMemoView Name="frxDBStampaOPIS" Left="128,50402" Top="94,48825" Width="147,40167" Height="18,89765" ShowHint="False" DataField="OPIS" DataSet="frxDBBlend" DataSetName="frxDBBlend" Text="[frxDBBlend.&#34;OPIS&#34;]"/> <TfrxMemoView Name="frxDBStampaOPIS" Left="128,50402" Top="94,48825" Width="147,40167" Height="18,89765" ShowHint="False" DataField="OPIS" DataSet="frxDBBlend" DataSetName="frxDBBlend" Text="[frxDBBlend.&#34;OPIS&#34;]"/>
...@@ -13,18 +13,23 @@ ...@@ -13,18 +13,23 @@
<TfrxMemoView Name="Memo21" Left="3,77953" Top="18,89765" Width="139,84251969" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="15" ParentFont="False" Text=""/> <TfrxMemoView Name="Memo21" Left="3,77953" Top="18,89765" Width="139,84251969" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="15" ParentFont="False" Text=""/>
</TfrxReportTitle> </TfrxReportTitle>
<TfrxMasterData Name="MasterData3" Font.Charset="238" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="22,67718" Left="0" ParentFont="False" Top="241,88992" Width="1084,72511" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="ftxStatistika" DataSetName="ftxStatistika" RowCount="0" Stretched="True"> <TfrxMasterData Name="MasterData3" Font.Charset="238" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="22,67718" Left="0" ParentFont="False" Top="241,88992" Width="1084,72511" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="ftxStatistika" DataSetName="ftxStatistika" RowCount="0" Stretched="True">
<TfrxMemoView Name="ftxStatistikaINT_KLASA" Left="3,77953" Top="0" Width="86,92919" Height="18,89765" ShowHint="False" DataField="INT_KLASA" DataSet="ftxStatistika" DataSetName="ftxStatistika" Text="[ftxStatistika.&#34;INT_KLASA&#34;]"/> <TfrxMemoView Name="ftxStatistikaINT_KLASA" Left="3,77953" Top="0" Width="86,92919" Height="18,89765" ShowHint="False" DataField="INT_KLASA" DataSet="ftxStatistika" DataSetName="ftxStatistika" Font.Charset="238" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[ftxStatistika.&#34;INT_KLASA&#34;]"/>
<TfrxMemoView Name="ftxStatistikaPROC_MG_KG" Left="143,62214" Top="0" Width="71,81107" Height="18,89765" ShowHint="False" DataField="PROC_MG_KG" DataSet="ftxStatistika" DataSetName="ftxStatistika" DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Text="[ftxStatistika.&#34;PROC_MG_KG&#34;]"/> <TfrxMemoView Name="ftxStatistikaPROC_MG_KG" Left="143,62214" Top="0" Width="71,81107" Height="18,89765" ShowHint="False" DataField="PROC_MG_KG" DataSet="ftxStatistika" DataSetName="ftxStatistika" DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="238" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[ftxStatistika.&#34;PROC_MG_KG&#34;]"/>
<TfrxMemoView Name="ftxStatistikaPROC_UK" Left="215,43321" Top="0" Width="83,14966" Height="18,89765" ShowHint="False" DataField="PROC_UK" DataSet="ftxStatistika" DataSetName="ftxStatistika" Text="[ftxStatistika.&#34;PROC_UK&#34;]"/> <TfrxMemoView Name="ftxStatistikaPROC_UK" Left="219,21274" Top="0" Width="83,14966" Height="18,89765" ShowHint="False" DataField="PROC_UK" DataSet="ftxStatistika" DataSetName="ftxStatistika" Font.Charset="238" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[ftxStatistika.&#34;PROC_UK&#34;]"/>
<TfrxMemoView Name="ftxStatistikaMAGACIN_KG" Left="336,37817" Top="0" Width="102,04731" Height="18,89765" ShowHint="False" DataField="MAGACIN_KG" DataSet="ftxStatistika" DataSetName="ftxStatistika" Font.Charset="238" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[ftxStatistika.&#34;MAGACIN_KG&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter2" Height="94,48825" Left="0" Top="287,24428" Width="1084,72511" AllowSplit="True" Stretched="True"> <TfrxGroupFooter Name="GroupFooter2" Height="26,45671" Left="0" Top="287,24428" Width="1084,72511" AllowSplit="True" Stretched="True">
<TfrxLineView Name="Line16" Align="baWidth" Left="0" Top="0" Width="1084,72511" Height="0" ShowHint="False" Frame.Typ="4"/> <TfrxLineView Name="Line16" Align="baWidth" Left="0" Top="0" Width="1084,72511" Height="0" ShowHint="False" Frame.Typ="4"/>
<TfrxSysMemoView Name="SysMemo2" Left="143,62214" Top="3,77953000000002" Width="94,48825" Height="18,89765" ShowHint="False" DisplayFormat.DecimalSeparator="." DisplayFormat.ThousandSeparator="," DisplayFormat.FormatStr="###,###,##0" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[SUM(&#60;ftxStatistika.&#34;PROC_MG_KG&#34;&#62;,MasterData3,2)]"/>
<TfrxMemoView Name="Memo19" Left="3,77953" Top="3,77953000000002" Width="109,60637" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Ukupno KG:"/>
<TfrxSysMemoView Name="SysMemo1" Left="336,37817" Top="3,77953000000002" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[SUM(&#60;ftxStatistika.&#34;MAGACIN_KG&#34;&#62;,MasterData3)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Font.Charset="238" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="22,67718" Left="0" ParentFont="False" Top="196,53556" Width="1084,72511" AllowSplit="True" Condition="1" Stretched="True"> <TfrxGroupHeader Name="GroupHeader2" Font.Charset="238" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="22,67718" Left="0" ParentFont="False" Top="196,53556" Width="1084,72511" AllowSplit="True" Condition="1" Stretched="True">
<TfrxShapeView Name="Shape1" Align="baClient" Left="0" Top="0" Width="1084,72511" Height="22,67718" ShowHint="False" Color="-16777216"/> <TfrxShapeView Name="Shape1" Align="baClient" Left="0" Top="0" Width="1084,72511" Height="22,67718" ShowHint="False" Color="-16777216"/>
<TfrxMemoView Name="Memo24" Left="3,77953" Top="3,77952999999999" Width="49,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Klasa"/> <TfrxMemoView Name="Memo24" Left="3,77953" Top="3,77952999999999" Width="49,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Klasa"/>
<TfrxMemoView Name="Memo25" Left="143,62214" Top="3,77952999999999" Width="71,81107" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" Text="KG:"/> <TfrxMemoView Name="Memo25" Left="143,62214" Top="3,77952999999999" Width="71,81107" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" Text="KG:"/>
<TfrxMemoView Name="Memo26" Left="215,43321" Top="3,77952999999999" Width="86,92919" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Procenat (%)"/> <TfrxMemoView Name="Memo26" Left="215,43321" Top="3,77952999999999" Width="86,92919" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Procenat (%)"/>
<TfrxMemoView Name="Memo1" Left="336,37817" Top="0" Width="102,04731" Height="18,89765" ShowHint="False" Font.Charset="238" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="UKUPNO U MG"/>
</TfrxGroupHeader> </TfrxGroupHeader>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>
Win32/Debug/StampaLeaf/EtiketaGP.fr3
View file @ a53e4ad9
This diff is collapsed.
Win32/Debug/StampaLeaf/izv_obrada.fr3 0 → 100644
View file @ a53e4ad9
This diff is collapsed.
Win32/Debug/StampaLeaf/reklaspoblendu.fr3 0 → 100644
View file @ a53e4ad9
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="43358,4684351736" ReportOptions.Description.Text="" ReportOptions.LastChange="43484,4516574537" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403800103546F7002680844617461736574730101063220446174615365743D226672784442507265676C65642220446174615365744E616D653D226672784442507265676C6564220000095661726961626C65730100055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="249,44898" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBPregled" DataSetName="frxDBPregled" RowCount="0">
<TfrxMemoView Name="frxDBPregledGRADE" Left="11,33859" Top="0" Width="71,81107" Height="18,89765" ShowHint="False" DataField="BARKOD" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;BARKOD&#34;]"/>
<TfrxMemoView Name="frxDBPregledMAGACIN_UKUPNO" Left="196,53556" Top="0" Width="94,48825" Height="18,89765" ShowHint="False" DataField="KLASA_NEW" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;KLASA_NEW&#34;]"/>
<TfrxMemoView Name="frxDBPregledINT_KLASA" Left="298,58287" Top="0" Width="268,34663" Height="18,89765" ShowHint="False" DataField="KOMITENT" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;KOMITENT&#34;]"/>
<TfrxMemoView Name="frxDBPregledMAGACIN_KG" Left="578,26809" Top="3,77953" Width="102,04731" Height="18,89765" ShowHint="False" DataField="NETOMASA" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;NETOMASA&#34;]"/>
<TfrxLineView Name="Line2" Left="11,33859" Top="22,67718" Width="695,43352" Height="0" ShowHint="False" Diagonal="True"/>
<TfrxMemoView Name="frxDBPregledKLASA_OLD" Left="90,70872" Top="0" Width="94,48825" Height="18,89765" ShowHint="False" DataField="KLASA_OLD" DataSet="frxDBPregled" DataSetName="frxDBPregled" Text="[frxDBPregled.&#34;KLASA_OLD&#34;]"/>
</TfrxMasterData>
<TfrxPageHeader Name="PageHeader1" Height="113,3859" Left="0" Top="18,89765" Width="718,1107">
<TfrxMemoView Name="Memo1" Left="132,28355" Top="71,81107" Width="105,82684" Height="34,01577" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="BLEND"/>
<TfrxMemoView Name="frxDBPregledOPIS" Left="257,00804" Top="71,81107" Width="158,74026" Height="30,23624" ShowHint="False" DataField="OPIS" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;OPIS&#34;]"/>
<TfrxMemoView Name="Memo4" Left="445,98454" Top="71,81107" Width="94,48825" Height="34,01577" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datum"/>
<TfrxMemoView Name="Memo5" Left="555,59091" Top="71,81107" Width="136,06308" Height="34,01577" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Date]"/>
<TfrxMemoView Name="Memo3" Left="128,50402" Top="41,57483" Width="491,3389" Height="26,45671" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Reklasirane bale za blend"/>
</TfrxPageHeader>
<TfrxHeader Name="Header1" Height="34,01577" Left="0" Top="192,75603" Width="718,1107">
<TfrxLineView Name="Line1" Left="11,33859" Top="26,45671" Width="695,43352" Height="0" ShowHint="False" Diagonal="True"/>
<TfrxMemoView Name="Memo2" Left="11,33859" Top="3,77953" Width="71,81107" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Barkod"/>
<TfrxMemoView Name="Memo6" Left="90,70872" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Stara klasa"/>
<TfrxMemoView Name="Memo7" Left="196,53556" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nova klasa"/>
<TfrxMemoView Name="Memo8" Left="298,58287" Top="3,77953" Width="268,34663" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Komitent"/>
</TfrxHeader>
<TfrxFooter Name="Footer1" Height="22,67718" Left="0" Top="294,80334" Width="718,1107">
<TfrxMemoView Name="Memo9" Left="578,26809" Top="1,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[SUM(&#60;frxDBPregled.&#34;NETOMASA&#34;&#62;,MasterData1)]"/>
<TfrxMemoView Name="Memo10" Left="453,5436" Top="0" Width="113,3859" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Ukupno u MG:"/>
</TfrxFooter>
</TfrxReportPage>
</TfrxReport>
Win32/Debug/StampaLeaf/ukupo_reklasirano.fr3 0 → 100644
View file @ a53e4ad9
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="43358,4684351736" ReportOptions.Description.Text="" ReportOptions.LastChange="43484,5421790741" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403D00103546F7002600844617461736574730101063220446174615365743D226672784442507265676C65642220446174615365744E616D653D226672784442507265676C6564220000095661726961626C65730100055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="30,23624" Left="0" Top="249,44898" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBPregled" DataSetName="frxDBPregled" RowCount="0">
<TfrxMemoView Name="frxDBPregledGRADE" Left="75,5906" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" DataField="DATUM" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;DATUM&#34;]"/>
<TfrxMemoView Name="frxDBPregledMAGACIN_UKUPNO" Left="234,33086" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" DataField="SUM" DataSet="frxDBPregled" DataSetName="frxDBPregled" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBPregled.&#34;SUM&#34;]"/>
<TfrxLineView Name="Line2" Left="11,33859" Top="30,23624" Width="695,43352" Height="0" ShowHint="False" Diagonal="True"/>
</TfrxMasterData>
<TfrxPageHeader Name="PageHeader1" Height="113,3859" Left="0" Top="18,89765" Width="718,1107">
<TfrxMemoView Name="Memo3" Left="128,50402" Top="41,57483" Width="491,3389" Height="26,45671" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Reklasirano KG po datumima"/>
</TfrxPageHeader>
<TfrxHeader Name="Header1" Height="34,01577" Left="0" Top="192,75603" Width="718,1107">
<TfrxLineView Name="Line1" Left="11,33859" Top="26,45671" Width="695,43352" Height="0" ShowHint="False" Diagonal="True"/>
<TfrxMemoView Name="Memo2" Left="75,5906" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datum"/>
<TfrxMemoView Name="Memo6" Left="234,33086" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Kolicina u KG"/>
</TfrxHeader>
<TfrxFooter Name="Footer1" Height="22,67718" Left="0" Top="302,3624" Width="718,1107">
<TfrxMemoView Name="Memo9" Left="234,33086" Top="3,77953" Width="94,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[SUM(&#60;frxDBPregled.&#34;MAGACIN_KG&#34;&#62;,MasterData1)]"/>
<TfrxMemoView Name="Memo10" Left="71,81107" Top="0" Width="132,28355" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Ukupno reklasirano:"/>
</TfrxFooter>
</TfrxReportPage>
</TfrxReport>
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