ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ProductsGant vol2

Browse Source
This commit is contained in:
ivanszabo
2018-05-11 16:02:29 +02:00
parent 6cd9efe671
commit 9f329664f5
13 changed files with 198 additions and 306 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BuildR64.cmd
+1 -1
View File
@@ -1,2 +1,2 @@
msbuild JUSTWIN.sln /t:Build /p:Configuration=R64 /p:WarningLevel=0 /fl /flp:logfile=Nuvolar.log;append=true;verbosity=diagnostic;encoding=utf-8
msbuild JUSTWIN.sln /t:Build /p:Configuration=Release /p:WarningLevel=0 /fl /flp:logfile=Nuvolar.log;append=true;verbosity=diagnostic;encoding=utf-8
pause
Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb
+48 -46
View File
@@ -1,23 +1,13 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports System.ComponentModel
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.Editors
Imports exontrol.EXG2ANTTLib
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Persistent.BaseImpl
Imports System.Net.Mail
Imports System.Reflection
Imports DevExpress.ExpressApp.Utils
Imports DevExpress.ExpressApp.Model
Imports System.Linq
Public Class ProductsGant_VC
Inherits Nuvolar.Module.ProductsGant_VC
@@ -48,8 +38,8 @@ Public Class ProductsGant_VC
MyBase.OnActivated()
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
AddHandler InitWork, AddressOf _WaitFormClass.InitWork
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork
If View.Id = "ProductsGant_DetailView" Then
@@ -73,8 +63,8 @@ Public Class ProductsGant_VC
MyBase.OnDeactivated()
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork
If View.Id = "ProductsGant_DetailView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
@@ -127,9 +117,9 @@ Public Class ProductsGant_VC
For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRowsBar_Collection
With _ProductsGantRowsBar
If _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.ManualRotation)
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.ManualRotation * 7)
ElseIf _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation)
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
Else
.ToDate = .FromDate.AddDays(1)
@@ -316,7 +306,10 @@ Public Class ProductsGant_VC
If Not String.IsNullOrEmpty(_GroupColumn.ColumnID) Then
Select Case _GroupColumn.ColumnID
Case "Customers"
_WaitFormClass.Initwork(1, 1, _ProductsGant.ProductsGantRows.Count)
For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows
_WaitFormClass.DoWork()
If _GroupObjects_Collection.Count = 0 Then
_GroupObjects_Collection.Add(_ProductsGantRows.Customers)
Else
@@ -331,6 +324,7 @@ Public Class ProductsGant_VC
If _Need Then _GroupObjects_Collection.Add(_ProductsGantRows.Customers)
End If
Next
_WaitFormClass.FinalWork()
Dim _CustomerColumn As exontrol.EXG2ANTTLib.Column = Nothing
For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns
@@ -346,14 +340,16 @@ Public Class ProductsGant_VC
_GanttControl.Items.set_CellValue(_GroupItem, _CustomerColumn.Index, "<b><fgcolor=0000FF>" + _Customers.FullName + "</fgcolor></b>")
_GanttControl.Items.set_CellValueFormat(_GroupItem, _CustomerColumn.Index, ValueFormatEnum.exHTML)
Dim _GroupCollectionElement_Collection As New XPCollection(Of ProductsGantRows)(_onew.Session, CriteriaOperator.Parse("Customers=? AND ProductsGant=?", _onew.GetObject(_Customers), _onew.GetObject(_ProductsGant)))
For Each _ProductsGantRows As ProductsGantRows In _GroupCollectionElement_Collection
Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then
_Item = .Items.InsertItem(_GroupItem, "")
.Items.set_ExpandItem(_Item, True)
SetItemsAndItemData(_Item, _ProductsGantRows)
For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows
If _Customers.Oid = _ProductsGantRows.Customers.Oid Then
Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then
_Item = .Items.InsertItem(_GroupItem, "")
.Items.set_ExpandItem(_Item, True)
SetItemsAndItemData(_Item, _ProductsGantRows)
End If
End If
Next
_GanttControl.Items.set_ExpandItem(_GroupItem, True)
@@ -389,14 +385,15 @@ Public Class ProductsGant_VC
Dim _GroupItem As Long = _GanttControl.Items.AddItem()
_GanttControl.Items.set_CellValue(_GroupItem, _ProductsColumn.Index, _Products.ShortName)
Dim _GroupCollectionElement_Collection As New XPCollection(Of ProductsGantRows)(_onew.Session, CriteriaOperator.Parse("Products=? AND ProductsGant=?", _onew.GetObject(_Products), _onew.GetObject(_ProductsGant)))
For Each _ProductsGantRows As ProductsGantRows In _GroupCollectionElement_Collection
Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then
_Item = _GanttControl.Items.InsertItem(_GroupItem, "")
For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows
If _Products.Oid = _ProductsGantRows.Products.Oid Then
Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then
_Item = _GanttControl.Items.InsertItem(_GroupItem, "")
SetItemsAndItemData(_Item, _ProductsGantRows)
SetItemsAndItemData(_Item, _ProductsGantRows)
End If
End If
Next
Next
@@ -500,8 +497,8 @@ Public Class ProductsGant_VC
Select Case _G2Column.Key
Case "ManualRotation"
_ProductsGantRows.ManualRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index)
Case "CalculatedRotation"
_ProductsGantRows.CalculatedRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index)
'Case "CalculatedRotation"
' _ProductsGantRows.CalculatedRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index)
End Select
Next
@@ -558,24 +555,24 @@ Public Class ProductsGant_VC
If _ProductsGantCustomersReport.QTT > 0 Then
Dim _ProductsGantCustomersReport_New As ProductsGantCustomersReport = _ocur.FindObject(Of ProductsGantCustomersReport)(CriteriaOperator.Parse("Customers=? AND Products=? AND DateExecution=?", _
_ocur.GetObject(_ProductsGantCustomersReport.Customers), _
_ocur.GetObject(_ProductsGantCustomersReport.Products), _
Dim _ProductsGantCustomersReport_New As ProductsGantCustomersReport = _ocur.FindObject(Of ProductsGantCustomersReport)(CriteriaOperator.Parse("Customers=? AND Products=? AND DateExecution=?",
_ocur.GetObject(_ProductsGantCustomersReport.Customers),
_ocur.GetObject(_ProductsGantCustomersReport.Products),
_ProductsGantCustomersReport.DateExecution))
If _ProductsGantCustomersReport_New Is Nothing Then
_ProductsGantCustomersReport_New = New ProductsGantCustomersReport(_ocur.Session)
_ProductsGantCustomersReport_New.Customers = _ocur.GetObject(_ProductsGantCustomersReport.Customers)
_ProductsGantCustomersReport_New.Products = _ocur.GetObject(_ProductsGantCustomersReport.Products)
_ProductsGantCustomersReport_New.QTT = _ocur.GetObject(_ProductsGantCustomersReport.QTT)
_ProductsGantCustomersReport_New.DateExecution = _ocur.GetObject(_ProductsGantCustomersReport.DateExecution)
_ProductsGantCustomersReport_New.DateExecution = _ProductsGant.DateExecution
End If
Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers.Oid=? AND Products.Oid=?", _
Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers.Oid=? AND Products.Oid=?",
_ProductsGant, _ProductsGantCustomersReport_New.Customers.Oid, _ProductsGantCustomersReport_New.Products.Oid))
If _ProductsGantRows IsNot Nothing Then
Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar) _
(CriteriaOperator.Parse("ProductsGantRows.Oid=? AND GetDate(FromDate)=? AND BarType=2", _
(CriteriaOperator.Parse("ProductsGantRows.Oid=? AND GetDate(FromDate)=? AND BarType=2",
_ProductsGantRows.Oid, _ProductsGantCustomersReport.DateExecution.Date))
If _ProductsGantRowsBar Is Nothing Then
_ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session)
@@ -587,9 +584,9 @@ Public Class ProductsGant_VC
.ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
Else
If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation)
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation)
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation * 7)
Else
.ToDate = .FromDate.AddDays(1) 'temp
End If
@@ -605,9 +602,9 @@ Public Class ProductsGant_VC
.ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
Else
If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation)
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation)
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation * 7)
Else
.ToDate = .FromDate.AddDays(1) 'temp
End If
@@ -664,8 +661,8 @@ Public Class ProductsGant_VC
If Not String.IsNullOrEmpty(_ColumnID) Then
Select Case _ColumnID
Case "CalculatedRotation"
_ProductsGantRows.CalculatedRotation = CType(NewValue, Double)
'Case "CalculatedRotation"
' _ProductsGantRows.CalculatedRotation = CType(NewValue, Double)
Case "ManualRotation"
_ProductsGantRows.ManualRotation = CType(NewValue, Double)
End Select
@@ -711,9 +708,14 @@ Public Class ProductsGant_VC
Case "Products"
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Products.ShortName)
Case "CalculatedRotation"
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.CalculatedRotation)
If _ProductsGantRows.CalculatedRotation > 0 Then
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.CalculatedRotation)
End If
Case "ManualRotation"
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.ManualRotation)
If _ProductsGantRows.ManualRotation > 0 Then
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.ManualRotation)
End If
End Select
Next
Nuvolar.Module.Win/Model.DesignedDiffs.Localization.hu.xafml
-67
View File
@@ -13,7 +13,6 @@
<Action Id="aBankNoTransfer" Caption="Nem utalandó" />
<Action Id="aBusinessDirectory_OpenRTFDocument" Caption="Dokumentum megnyitása RTF szerkesztővel" />
<Action Id="aBusinessDirectory_OpenSpreadDocument" Caption="Dokumentum megnyitása táblázat kezelővel" />
<Action Id="aC3CCreateInvoice" Caption="Számla létrehozása" />
<Action Id="aCheckName_Corner" Caption="Ellenőrzés ..." />
<Action Id="aCheckName_Vivaldi" Caption="Ellenőrzés ..." />
<Action Id="aContacts_ChangeGroup" Caption="Csoportos módosítás" />
@@ -40,9 +39,7 @@
<Action Id="aDivide_GLReportRowsCostHolder" Caption="Megosztás ..." />
<Action Id="aDown_OfferIn" Caption="Le" />
<Action Id="aEmailIn_To_CRMLeads" Caption="Email osztályozása" />
<Action Id="aExportPDFtoOutputDirectory" Caption="PDF Exportálása" />
<Action Id="aFinalizeCostRecords" Caption="Adatok véglegesítése" />
<Action Id="aFinalizeInvoices" Caption="Számlák véglegesítése" />
<Action Id="aGetGridToRTFText" Caption="Táblázat mentése RTF beszúráshoz" />
<Action Id="aGLReportRows_ChangeParam" Caption="Paraméterek megváltoztatása" />
<Action Id="aGLReportRows_DivideRows" Caption="Sor bontása" />
@@ -69,8 +66,6 @@
<Action Id="aOpenRTFDocument_InsertTable" Caption="Táblázat beszúrása" />
<Action Id="aOpenRTFDocument_SaveBusinessDiretory" Caption="Mentés dokumentum tárhelybe" />
<Action Id="aOpenRTFDocument_SaveToCRM_Lead" ShortCaption="Mentés CRM ügyhöz" Caption="Mentés CRM ügyhöz" />
<Action Id="aPrintInvoices" Caption="Számlák nyomtatása" />
<Action Id="aPrinttoPdfInvoices" Caption="Számlák PDF exportálása" />
<Action Id="aProductsGant_CreateCustomersReport" Caption="Ügyfél jelentés" />
<Action Id="aProductsGant_GerenrateProductsGantRows" Caption="Gant adatok léterhozása" />
<Action Id="aProductsGant_OpenProducts" Caption="Termék megnyitása" />
@@ -125,7 +120,6 @@
<Action Id="aViewAttacments_GLReportRows" Caption="Csatolt dokumentum" />
<Action Id="aViewAttacments_GLReportRowsCostHolder" Caption="Csatolt dokumentum" />
<Action Id="aViewEMail_CRMEstate" Caption="E-mail megtekintése" />
<Action Id="aViewOriginalWithAttachment" Caption="PDF megtekintése" />
<Action Id="aViewPCID_GLReportRows" Caption="Részletes pontozás " />
<Action Id="aViewPCID_GLReportRowsCostHolder" Caption="Részletes pontozás " />
<Action Id="aViewPDCI_Bank" Caption="Részletek ..." />
@@ -217,56 +211,6 @@
<Member Name="DateExecution" Caption="Záró dátum" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CExportPathPopup" Caption="Exportálási útvonal megadása" />
<Class Name="Nuvolar.Module.Win.C3CGeneratedInvoice" Caption="Domain számlák">
<OwnMembers>
<Member Name="C3CImportHeader" Caption="Fejléc" />
<Member Name="InvoiceHeader" Caption="Számlák" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CImportHeader" Caption="3C Telekom import">
<OwnMembers>
<Member Name="C3CGeneratedInvoice" Caption="Generált számlák" />
<Member Name="C3CImportRows" Caption="Sorok" />
<Member Name="FileInvoices" Caption="Számla file" />
<Member Name="FileItems" Caption="Tétel file" />
<Member Name="ObjectCreated" Caption="Létrehozva" />
<Member Name="OutputDirectory" Caption="Export útvonal" />
<Member Name="ShortName" Caption="Megnevezés" />
<Member Name="UserCreated" Caption="Létrehozta" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CImportRows">
<OwnMembers>
<Member Name="C3CImportHeader" Caption="Fejléc adatok" />
<Member Name="Col01" Caption="1. oszlop" />
<Member Name="Col02" Caption="2. oszlop" />
<Member Name="Col03" Caption="3. oszlop" />
<Member Name="Col04" Caption="4. oszlop" />
<Member Name="Col05" Caption="5. oszlop" />
<Member Name="Col06" Caption="6. oszlop" />
<Member Name="Col07" Caption="7. oszlop" />
<Member Name="Col08" Caption="8. oszlop" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CInvoicePopup" Caption="Számla készítése">
<OwnMembers>
<Member Name="BankInformation" Caption="Bankszámlaszám" />
<Member Name="CustomersFrom" Caption="Saját cég" />
<Member Name="Description" Caption="Megjegyzés" />
<Member Name="IsRequiredBankInformation" Caption="Ban info" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CTelecomInvoiceType">
<OwnMembers>
<Member Name="BankInformation" Caption="Bank info" />
<Member Name="Controlling" Caption="Kontrollszám" />
<Member Name="CurrencyName" Caption="Deviza" />
<Member Name="InvoiceType" Caption="Számla tipus" />
<Member Name="PaymentOption" Caption="Fizetési opció" />
<Member Name="ReportData" Caption="Nyomtatvány" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.Corner" Caption="Corner import">
<OwnMembers>
<Member Name="CostHolder" Caption="Tevékenység" />
@@ -466,8 +410,6 @@
<Items>
<Item Id="SQL Imports">
<Items>
<Item Id="C3CImportHeader_ListView" Caption="3C Telecom számla import" />
<Item Id="C3CTelecomInvoiceType_ListView" Caption="3C Telecom számla paraméterek" />
<Item Id="@DBCÉogin_ListView" Caption="Database Convert" />
<Item Id="XLSImports_ListView" Caption="Importálás Excelből" />
<Item Id="SQLImports_ListView" Caption="Importálás Nuvolar 1. rendszerből" />
@@ -590,15 +532,6 @@
</LayoutGroup>
</Layout>
</DetailView>
<DetailView Id="C3CImportHeader_DetailView">
<Layout>
<LayoutGroup Id="Main">
<TabbedGroup Id="Tabs">
<LayoutGroup Id="C3CGeneratedInvoice" Caption="Számlák" />
</TabbedGroup>
</LayoutGroup>
</Layout>
</DetailView>
<DetailView Id="ChangeLogon_DetailView" Caption="Bejelentkezés">
<Items>
<PropertyEditor Id="Password" Caption="Jelszó" />
Nuvolar.Module.Win/Model.DesignedDiffs.xafml
+24 -133
View File
@@ -27,9 +27,7 @@
<Action Id="aCRM_LeadsDocumentation_OpenBusinessDirectory" ImageName="Action_New" />
<Action Id="aDashboard_SaveDashDesForBusinessDirectory" ImageName="Action_Save" Caption="Műszerfal mentése dokumentum tárhelybe" />
<Action Id="aDivide_GLReportRowsCostHolder" ImageName="BO_Product_Group" PaintStyle="CaptionAndImage" />
<Action Id="aExportPDFtoOutputDirectory" ImageName="folder_into" />
<Action Id="aFinalizeCostRecords" ImageName="disk_red" />
<Action Id="aFinalizeInvoices" ImageName="disk_red" />
<Action Id="aGeneratePDFandSendDefaultMailClient" ImageName="Outlook2010" Caption="Küldés Outlook" />
<Action Id="aGetGridToRTFText" ImageName="Action_Copy_CellValue" />
<Action Id="aGLReportRows_DivideRows" TargetObjectsCriteria="[GLRows] Is Not Null" />
@@ -47,8 +45,6 @@
<Action Id="aOpenRTFDocument_InsertTable" ImageName="table_new" />
<Action Id="aOpenRTFDocument_SaveBusinessDiretory" ImageName="Action_Save" />
<Action Id="aOpenRTFDocument_SaveToCRM_Lead" ImageName="Action_Save" />
<Action Id="aPrintInvoices" ImageName="Action_Printing_Print" />
<Action Id="aPrinttoPdfInvoices" ImageName="Action_Export_ToPDF" />
<Action Id="aProductsGant_CreateCustomersReport" ImageName="Action_Report_Object_Inplace_Preview" />
<Action Id="aProductsGant_GerenrateProductsGantRows" ImageName="row_add_before" />
<Action Id="aProductsGant_OpenProducts" ImageName="ProductFinder" />
@@ -87,7 +83,6 @@
<Action Id="aVATReport_Create65XML" ImageName="document_chart" />
<Action Id="aViewAttacments_GLReportRows" ImageName="printer_view" />
<Action Id="aViewAttacments_GLReportRowsCostHolder" ImageName="printer_view" />
<Action Id="aViewOriginalWithAttachment" ImageName="Action_Printing_Preview" />
<Action Id="aViewPCID_GLReportRows" ImageName="branch" />
<Action Id="aViewPCID_GLReportRowsCostHolder" ImageName="branch" />
<Action Id="aViewPDCI_Bank" ImageName="Action_Open" />
@@ -373,6 +368,8 @@
</Class>
<Class Name="Nuvolar.Module.ProductsGant">
<OwnMembers>
<Member Name="Criteria" PropertyEditorType="DevExpress.ExpressApp.Win.Editors.PopupCriteriaPropertyEditor" Caption="Szűrőfeltétel" />
<Member Name="DateExecution" Caption="Lejelentési dátum" />
<Member Name="G2antt" PropertyEditorType="Nuvolar.Module.Win.G2anttPropertyEditor" />
</OwnMembers>
</Class>
@@ -416,29 +413,6 @@
<Member Name="Description" Caption="Miért nem kell elutalni ?" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CExportPathPopup" ImageName="folder_into">
<OwnMembers>
<Member Name="OutputDirectory" PropertyEditorType="Nuvolar.Module.Win.FolderPropertyEditor" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CGeneratedInvoice" ImageName="document_lock" />
<Class Name="Nuvolar.Module.Win.C3CImportHeader" ImageName="document_lock">
<OwnMembers>
<Member Name="CustomersFrom" Caption="Saját cég" />
<Member Name="OutputDirectory" PropertyEditorType="Nuvolar.Module.Win.FolderPropertyEditor" />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CImportRows" ImageName="document_lock">
<AppearanceRules>
<AppearanceRule Id="Set line to red if Col08=H" BackColor="240, 240, 240" FontColor="Black" FontStyle="Bold" />
</AppearanceRules>
<OwnMembers>
<Member Name="Col01" AllowEdit="False" />
<Member Name="RowIndex" Caption="S.sz." />
</OwnMembers>
</Class>
<Class Name="Nuvolar.Module.Win.C3CInvoicePopup" ImageName="document_lock" />
<Class Name="Nuvolar.Module.Win.C3CTelecomInvoiceType" ImageName="document_lock" />
<Class Name="Nuvolar.Module.Win.Corner" ImageName="BO_Contract" />
<Class Name="Nuvolar.Module.Win.GLResetAll" ImageName="forbidden" />
<Class Name="Nuvolar.Module.Win.ListViewCustomization" ImageName="BO_StateMachine" />
@@ -555,8 +529,6 @@
</Item>
<Item Id="SQL Imports">
<Items>
<Item Id="C3CImportHeader_ListView" Index="0" />
<Item Id="C3CTelecomInvoiceType_ListView" Index="1" />
<Item Id="@DBCÉogin_ListView" ViewId="DBCLogin_ListView" Index="2" IsNewNode="True" />
<Item Id="Hints_ListView" Index="3" />
<Item Id="XLSImports_ListView" ObjectKey="" Index="4" ViewId="XLSImports_DetailView" />
@@ -587,11 +559,11 @@
<PrintingSettings PaperKind="A4" />
</Options>
<SchemaModules>
<SchemaModule Name="CloneObjectModule" Version="15.2.5.0" IsNewNode="True" />
<SchemaModule Name="SchedulerModuleBase" Version="15.2.5.0" IsNewNode="True" />
<SchemaModule Name="SchedulerWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" />
<SchemaModule Name="SystemModule" Version="15.2.5.0" IsNewNode="True" />
<SchemaModule Name="SystemWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" />
<SchemaModule Name="CloneObjectModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SchedulerModuleBase" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SchedulerWindowsFormsModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemWindowsFormsModule" Version="17.2.3.0" IsNewNode="True" />
</SchemaModules>
<ViewItems>
<PropertyEditor Name="PropertyEditors">
@@ -855,98 +827,6 @@
</LayoutGroup>
</Layout>
</DetailView>
<DetailView Id="C3CExportPathPopup_DetailView">
<Items>
<PropertyEditor Id="OutputDirectory" PropertyEditorType="Nuvolar.Module.Win.FolderPropertyEditor" />
</Items>
<Layout>
<LayoutGroup Id="Main" RelativeSize="100" ImageName="">
<LayoutGroup Id="SizeableEditors" TextAlignMode="AlignLocal" Index="0" RelativeSize="100" ImageName="">
<LayoutItem Id="OutputDirectory" ShowCaption="False" RelativeSize="100" ViewItem="OutputDirectory" />
</LayoutGroup>
</LayoutGroup>
</Layout>
</DetailView>
<DetailView Id="C3CGeneratedInvoice_DetailView">
<Layout>
<LayoutGroup Id="Main" RelativeSize="100" ImageName="" TextAlignMode="AlignLocal" Caption="Main">
<LayoutItem Id="DocumentFile" ShowCaption="False" ViewItem="DocumentFile" Index="0" RelativeSize="100" IsNewNode="True" />
<LayoutGroup Id="DocumentFile_Group" Direction="Vertical" Index="0" RelativeSize="100" ImageName="" TextAlignMode="AlignLocal" Removed="True">
<LayoutItem Id="DocumentFile" RelativeSize="94" ShowCaption="False" ViewItem="DocumentFile" />
</LayoutGroup>
<LayoutGroup Id="SimpleEditors" RelativeSize="50" ImageName="" Direction="Horizontal" Removed="True">
<LayoutGroup Id="C3CGeneratedInvoice" Removed="True" />
</LayoutGroup>
</LayoutGroup>
</Layout>
</DetailView>
<ListView Id="C3CImportHeader_C3CGeneratedInvoice_ListView" IsGroupFooterVisible="True" MasterDetailMode="ListViewAndDetailView">
<Columns>
<ColumnInfo Id="InvoiceHeader.DocumentNumber" PropertyName="InvoiceHeader.DocumentNumber" Index="0" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.DocumentNumberProforma" PropertyName="InvoiceHeader.DocumentNumberProforma" Index="1" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.Customers" PropertyName="InvoiceHeader.Customers" Index="2" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.DateExecution" PropertyName="InvoiceHeader.DateExecution" Index="3" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.DatePayment" PropertyName="InvoiceHeader.DatePayment" Index="4" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.CurrencyName" PropertyName="InvoiceHeader.CurrencyName" Index="5" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.CurrencyRate" PropertyName="InvoiceHeader.CurrencyRate" Index="6" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.TotalBruttoHUF" PropertyName="InvoiceHeader.TotalBruttoHUF" Index="7" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.TotalBruttoDEV" PropertyName="InvoiceHeader.TotalBruttoDEV" Index="8" IsNewNode="True" />
<ColumnInfo Id="InvoiceHeader.IsProforma" PropertyName="InvoiceHeader.IsProforma" Index="9" IsNewNode="True" />
<ColumnInfo Id="C3CImportHeader" Removed="True" />
<ColumnInfo Id="InvoiceHeader" Removed="True" />
</Columns>
</ListView>
<ListView Id="C3CImportHeader_C3CImportRows_ListView" AllowDelete="False" AllowNew="False">
<Columns>
<ColumnInfo Id="RowIndex" SortOrder="Ascending" SortIndex="1" />
<ColumnInfo Id="Col01" AllowSort="False" />
<ColumnInfo Id="Col02" AllowSort="False" />
<ColumnInfo Id="Col03" AllowSort="False" />
<ColumnInfo Id="Col04" AllowSort="False" />
<ColumnInfo Id="Col05" AllowSort="False" />
<ColumnInfo Id="Col06" AllowSort="False" />
<ColumnInfo Id="Col07" AllowSort="False" />
<ColumnInfo Id="Col08" AllowSort="False" />
<ColumnInfo Id="C3CImportHeader" Removed="True" />
</Columns>
</ListView>
<DetailView Id="C3CImportHeader_DetailView">
<Layout>
<LayoutGroup Id="Main" RelativeSize="100" ImageName="" TextAlignMode="AlignLocal" Caption="Main" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default">
<TabbedGroup Id="Tabs" Index="0" RelativeSize="100" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default">
<LayoutGroup Id="Item1" ShowCaption="True" Caption="Betöltési adatok" CaptionLocation="Top" Direction="Vertical" Index="0" RelativeSize="100" IsNewNode="True">
<LayoutGroup Id="96c162e1-a90d-4931-a1d9-0acfd1d7610f" ShowCaption="False" Caption="96c162e1-a90d-4931-a1d9-0acfd1d7610f(4)" Index="0" RelativeSize="100" IsNewNode="True">
<LayoutGroup Id="98c586d7-006d-4fee-9635-775f351e8891" ShowCaption="False" Caption="98c586d7-006d-4fee-9635-775f351e8891(5)" Direction="Horizontal" Index="0" RelativeSize="15" IsNewNode="True">
<LayoutGroup Id="736cb8ec-fd96-45a5-9224-6705af54fdde" ShowCaption="False" Caption="736cb8ec-fd96-45a5-9224-6705af54fdde(6)" Index="0" RelativeSize="48" IsNewNode="True">
<LayoutItem Id="CustomersFrom" ViewItem="CustomersFrom" Index="0" RelativeSize="29" IsNewNode="True" />
<LayoutItem Id="ShortName" ViewItem="ShortName" Index="3" RelativeSize="27" IsNewNode="True" />
</LayoutGroup>
<LayoutGroup Id="c08396e7-6940-4a2d-9f5c-48858c6f627b" ShowCaption="False" Caption="c08396e7-6940-4a2d-9f5c-48858c6f627b(11)" Index="1" RelativeSize="51" IsNewNode="True">
<LayoutItem Id="FileItems" ViewItem="FileItems" Index="0" RelativeSize="29" IsNewNode="True" />
<LayoutItem Id="FileInvoices" ViewItem="FileInvoices" Index="1" RelativeSize="21" IsNewNode="True" />
<LayoutItem Id="UserCreated" ViewItem="UserCreated" Index="2" RelativeSize="21" IsNewNode="True" />
<LayoutItem Id="ObjectCreated" ViewItem="ObjectCreated" Index="3" RelativeSize="27" IsNewNode="True" />
</LayoutGroup>
</LayoutGroup>
<LayoutItem Id="OutputDirectory" ViewItem="OutputDirectory" Index="1" RelativeSize="84" CaptionLocation="Top" IsNewNode="True" />
</LayoutGroup>
</LayoutGroup>
<LayoutGroup Id="C3CImportRows" TextAlignMode="AlignLocal" RelativeSize="100" ImageName="document_lock" Direction="Vertical" Caption="Sorok" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default" Index="1">
<LayoutItem Id="C3CImportRows" ViewItem="C3CImportRows" Index="0" RelativeSize="100" ShowCaption="False" TextAlignMode="AutoSize" IsNewNode="True" Removed="True" />
</LayoutGroup>
<LayoutGroup Id="C3CGeneratedInvoice" TextAlignMode="AlignLocal" RelativeSize="100" ImageName="document_lock" Caption="Számlák" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default" Index="2">
<LayoutItem Id="C3CGeneratedInvoice" TextAlignMode="AutoSize" RelativeSize="100" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default" SizeConstraintsType="Default" ViewItem="C3CGeneratedInvoice" />
</LayoutGroup>
</TabbedGroup>
<LayoutGroup Id="SimpleEditors" Direction="Horizontal" RelativeSize="70" ImageName="" Caption="SimpleEditors" CaptionLocation="Default" CaptionWordWrap="Default" CaptionHorizontalAlignment="Default" CaptionVerticalAlignment="Default" TextAlignMode="UseParentOptions" Removed="True">
<LayoutGroup Id="C3CImportHeader" Removed="True" />
</LayoutGroup>
<LayoutGroup Id="SizeableEditors" Direction="Horizontal" RelativeSize="77" Removed="True">
<LayoutItem Id="OutputDirectory" ViewItem="OutputDirectory" Removed="True" />
</LayoutGroup>
</LayoutGroup>
</Layout>
</DetailView>
<DetailView Id="CertificateofContractHeader_DetailView">
<Items>
<PropertyEditor Id="ReportFooter" PropertyEditorType="Nuvolar.Module.Win.RichEditPropertyEditor" />
@@ -2995,17 +2875,28 @@
</ListView>
<DetailView Id="ProductsGant_DetailView">
<Items>
<ActionContainerViewItem Id="@ProductsGant" ActionContainer="@ProductsGant" Orientation="Horizontal" IsNewNode="True" />
<ActionContainerViewItem Id="@ProductsGant" ActionContainer="@ProductsGant" Orientation="Horizontal" Caption="@ProductsGant(4)" IsNewNode="True" />
<PropertyEditor Id="Criteria" RowCount="1" />
</Items>
<Layout>
<LayoutGroup Id="Autob44fec1f-8bad-4b11-be50-064444261366" ShowCaption="False" Direction="Horizontal" Index="1" RelativeSize="3" IsNewNode="True">
<LayoutItem Id="Item1" ShowCaption="False" ViewItem="" SizeConstraintsType="Default" Index="0" RelativeSize="79" IsNewNode="True" />
<LayoutItem Id="@ProductsGant" ViewItem="@ProductsGant" SizeConstraintsType="Default" Index="1" RelativeSize="20" IsNewNode="True" />
<LayoutItem Id="CustomersFrom" RelativeSize="6.3241106719367588" />
<LayoutGroup Id="Autob44fec1f-8bad-4b11-be50-064444261366" ShowCaption="False" Direction="Horizontal" Index="1" RelativeSize="7.9051383399209483" TextAlignMode="UseParentOptions" IsNewNode="True">
<LayoutItem Id="Criteria" ViewItem="Criteria" Index="0" RelativeSize="47.4034620505992" IsNewNode="True" />
<LayoutItem Id="DateExecution" ViewItem="DateExecution" Index="1" RelativeSize="25.965379494007991" IsNewNode="True" />
<LayoutItem Id="@ProductsGant" ViewItem="@ProductsGant" SizeConstraintsType="Default" Index="2" RelativeSize="26.631158455392811" IsNewNode="True" />
</LayoutGroup>
<LayoutItem Id="G2antt" Index="2" RelativeSize="93" ViewItem="G2antt" />
<LayoutItem Id="G2antt" Index="2" RelativeSize="85.7707509881423" ShowCaption="False" CaptionLocation="Top" ViewItem="G2antt" />
</Layout>
</DetailView>
<ListView Id="ProductsGant_ProductsGantRows_ListView" EditorTypeName="DevExpress.ExpressApp.Win.Editors.GridListEditor" />
<ListView Id="ProductsGant_ProductsGantRows_ListView" EditorTypeName="DevExpress.ExpressApp.Win.Editors.GridListEditor" IsGroupPanelVisible="True" AllowDelete="False" AllowLink="False" AllowNew="False" AllowSort="True" AutoExpandAllGroups="True" IsListViewProcess="False">
<Columns>
<ColumnInfo Id="ProductsGant" Width="98" Index="-1" />
<ColumnInfo Id="Products" Width="83" Index="0" />
<ColumnInfo Id="CalculatedRotation" Width="114" Index="1" />
<ColumnInfo Id="Customers" SortOrder="Ascending" GroupIndex="0" Width="82" Index="2" />
<ColumnInfo Id="ManualRotation" Width="98" Index="3" />
</Columns>
</ListView>
<ListView Id="ProductsGantCustomersReport_ListView_PopUp">
<Columns>
<ColumnInfo Id="DateExecution" InLineEdit="True" />
Nuvolar.Module.Win/My Project/licenses.licx
+1
View File
@@ -0,0 +1 @@
DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj
+8
View File
@@ -1790,6 +1790,14 @@
<ItemGroup>
<Content Include="Images\Images.forbidden.png" />
<Content Include="Images\Images.forbidden_32x32.png" />
<None Include="UnusableNodes1_hu.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
<None Include="UnusableNodes2.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
<None Include="packages.config" />
<None Include="UnusableNodes1.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant.vb
+47 -8
View File
@@ -9,20 +9,27 @@ Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
Imports DevExpress.ExpressApp.Editors
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="1=1", Enabled:=False, Context:="Any")> _
''' <summary>
''' Termék GANTT !!!
''' </summary>
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="IsNull(CustomersFrom)=False", Enabled:=False, Context:="Any")>
Public Class ProductsGant
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _G2antt As String
Private _Criteria As String
Private _PGR As ProductsGantRows
Private _DateExecution As DateTime
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
DateExecution = GetSQLTime(Session)
End Sub
Property CustomersFrom As CustomersFrom
@@ -33,7 +40,34 @@ Public Class ProductsGant
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<Size(-1)> _
<CriteriaOptionsAttribute("ObjectType"), Size(-1), ImmediatePostData(True)>
Property Criteria As String
Get
Return _Criteria
End Get
Set(value As String)
SetPropertyValue("Criteria", _Criteria, value)
End Set
End Property
<NonPersistent(), MemberDesignTimeVisibility(False)>
Public Property ObjectType() As Type
Get
Return GetType(ProductsGantRows)
End Get
Set(ByVal value As Type)
End Set
End Property
<NonPersistent>
Public Property DateExecution As DateTime
Get
Return _DateExecution
End Get
Set(value As DateTime)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
<Size(-1)>
Property G2antt As String
Get
Return _G2antt
@@ -44,12 +78,17 @@ Public Class ProductsGant
End Property
'ReadOnly
<VisibleInListView(False)> _
<VisibleInLookupListView(False)> _
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGantRows))> _
<VisibleInListView(False)>
<VisibleInLookupListView(False)>
ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows)
Get
Return GetCollection(Of ProductsGantRows)("ProductsGantRows")
Dim _CC As String = " ProductsGant.Oid = '" & Me.Oid.ToString() & "'"
If String.IsNullOrEmpty(Criteria) = False Then
_CC += " AND " & CriteriaOperator.Parse(Criteria).ToString()
End If
Return New XPCollection(Of ProductsGantRows)(Session, CriteriaOperator.Parse(_CC))
End Get
End Property
End Class
Nuvolar.Module/BusinessObjects/Business/Products/ProductsGantRows.vb
+4 -6
View File
@@ -9,7 +9,7 @@ Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
Public Class ProductsGantRows
Inherits BaseObject
@@ -25,8 +25,6 @@ Public Class ProductsGantRows
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGant))> _
Property ProductsGant As ProductsGant
Get
Return _ProductsGant
@@ -69,9 +67,9 @@ Public Class ProductsGantRows
End Property
'ReadOnly
<VisibleInListView(False)> _
<VisibleInLookupListView(False)> _
<Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))> _
<VisibleInListView(False)>
<VisibleInLookupListView(False)>
<Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))>
ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar)
Get
Return GetCollection(Of ProductsGantRowsBar)("ProductsGantRowsBar")
Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb
+50 -30
View File
@@ -14,6 +14,8 @@ Imports System.Linq
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.Utils
Imports DevExpress.ExpressApp.Xpo
Imports DevExpress.Xpo.DB
Public Class ProductsGant_VC
Inherits DevExpress.ExpressApp.ViewController
@@ -26,29 +28,45 @@ Public Class ProductsGant_VC
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
Public Event DoWork()
Public Event FinalWork
Public Event FinalWork()
#Region "Overrides"
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "ProductsGant_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ProductsGant_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
#End Region
Public Function CountLast16Week(ByVal _Products_Oid As String, ByVal _Customers_Oid As String) As Double
Dim _onew As XPObjectSpace = TryCast(Application.CreateObjectSpace(), XPObjectSpace)
Dim _CalculatedRotation As Double = 0
Dim _SQL As String
_SQL = " SELECT ROUND(SUM(t1.QTT)/16,2) As CalculatedRotation"
_SQL = _SQL + " FROM InvoiceRows t1 JOIN OrderInRows t2 On"
_SQL = _SQL + " t1.OrderInRows=t2.Oid JOIN Products t3 On"
_SQL = _SQL + " t2.Products=t3.Oid JOIN InvoiceHeader t4 On"
_SQL = _SQL + " t1.InvoiceHeader=t4.Oid JOIN Organization t5 On"
_SQL = _SQL + " t4.Customers=t5.Oid"
_SQL = _SQL + " WHERE t4.IsEditable=0 And t4.DocumentNumber!='' AND "
_SQL = _SQL + " t3.Oid='" & _Products_Oid & "' AND t5.Oid = '" & _Customers_Oid & "' AND "
_SQL = _SQL + " DATE_ADD(NOW(),INTERVAL -16 WEEK)<t4.DateExecution"
Dim _SelectedData As SelectedData = _onew.Session.ExecuteQuery(_SQL)
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
If row.Values(0) IsNot Nothing Then
_CalculatedRotation = Double.Parse(row.Values(0))
End If
Next row
Return _CalculatedRotation
End Function
Private Sub aProductsGant_GerenrateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_GerenrateProductsGantRows.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
@@ -75,14 +93,13 @@ Public Class ProductsGant_VC
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
Select New With {Key .Customers = Customers, _
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers,
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group
Select New With {Key .Customers = Customers,
Key .Products = Products}
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
Try
GeneralFunction.GLOBAL_HAS_Audit = False
RaiseEvent InitWork(1, 1, IRXPQ.Count)
For Each item In IRXPQ
RaiseEvent DoWork()
@@ -91,12 +108,12 @@ Public Class ProductsGant_VC
.ProductsGant = _ProductsGant
.Customers = item.Customers
.Products = item.Products
.CalculatedRotation = 0
.CalculatedRotation = CountLast16Week(item.Products.Oid.ToString, item.Customers.Oid.ToString)
.ManualRotation = 0
End With
'Számlázott mennyiségekhez ProductsGantRowsBar
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " +
"InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
If _InvoiceRows_Collection.Count > 0 Then
@@ -176,7 +193,8 @@ Public Class ProductsGant_VC
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally
RaiseEvent FinalWork
RaiseEvent FinalWork()
GLOBAL_HAS_Audit = True
End Try
End Sub
@@ -194,13 +212,14 @@ Public Class ProductsGant_VC
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
Select New With {Key .Customers = Customers, _
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers,
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group
Select New With {Key .Customers = Customers,
Key .Products = Products}
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
Try
GLOBAL_HAS_Audit = False
RaiseEvent InitWork(1, 1, IRXPQ.Count)
For Each item In IRXPQ
RaiseEvent DoWork()
@@ -212,13 +231,13 @@ Public Class ProductsGant_VC
.ProductsGant = _ProductsGant
.Customers = item.Customers
.Products = item.Products
.CalculatedRotation = 0
.CalculatedRotation = CountLast16Week(item.Products.Oid.ToString, item.Customers.Oid.ToString)
.ManualRotation = 0
End With
End If
'Számlázott mennyiségekhez ProductsGantRowsBar
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " +
"InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
If _InvoiceRows_Collection.Count > 0 Then
_InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
@@ -226,7 +245,7 @@ Public Class ProductsGant_VC
Dim _FromDate As New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0)
Dim _ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59)
Dim _ProductsGantRowsBar_InvoiceRows As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=0", _
Dim _ProductsGantRowsBar_InvoiceRows As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=0",
_ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar_InvoiceRows Is Nothing Then
_ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session)
@@ -283,7 +302,7 @@ Public Class ProductsGant_VC
End If
Dim _ProductsGantRowsBar_Reported As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=2", _
Dim _ProductsGantRowsBar_Reported As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=2",
_ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar_Reported Is Nothing Then
_ProductsGantRowsBar_Reported = New ProductsGantRowsBar(_ocur.Session)
@@ -308,7 +327,7 @@ Public Class ProductsGant_VC
Dim _FromDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
Dim _ToDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=1", _
Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=1",
_ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar Is Nothing Then
@@ -329,7 +348,8 @@ Public Class ProductsGant_VC
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally
RaiseEvent FinalWork
RaiseEvent FinalWork()
GLOBAL_HAS_Audit = True
End Try
End Sub
End Class
Nuvolar.Module/Model.DesignedDiffs.xafml
+1 -1
View File
@@ -24201,7 +24201,7 @@
<ColumnInfo Id="DateExecution" InLineEdit="True" InLineEditAutoCommit="True" />
</Columns>
</ListView>
<DetailView Id="ProductsGant_DetailView" AllowDelete="False" AllowNew="False">
<DetailView Id="ProductsGant_DetailView">
<Layout>
<LayoutItem Id="CustomersFrom" ViewItem="CustomersFrom" SizeConstraintsType="Default" Index="0" RelativeSize="3" IsNewNode="True" />
<LayoutItem Id="G2antt" ShowCaption="False" ViewItem="G2antt" SizeConstraintsType="Default" Index="1" RelativeSize="96" IsNewNode="True" />
Nuvolar.WIN.Company/app.config
+3 -3
View File
@@ -4,11 +4,11 @@
<add key="Modules" value="" />
<add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" />
<add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://emango.com:88/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4"/>
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI"/>
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI" />
</appSettings>
<connectionStrings>
<add name="ConnectionString" connectionString="Integrated Security=SSPI;Pooling=false;Data Source=SISNBOOK7\SIS;Initial Catalog=FETOOLS" />
Nuvolar.Win.Lite/app.config
+5 -5
View File
@@ -7,11 +7,11 @@
<add key="Modules" value="" />
<add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" />
<add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://nuvolar.com:86/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4"/>
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI"/>
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI" />
</appSettings>
<connectionStrings>
<!--XPO Profiler MySQL-->
@@ -25,8 +25,8 @@
<system.diagnostics>
<switches>
<!-- Use the one of predefined values: 0-Off, 1-Errors, 2-Warnings, 3-Info, 4-Verbose. The default value is 3. -->
<add name="eXpressAppFramework" value="1" />
<add name="XPO" value="4" />
<add name="eXpressAppFramework" value="0" />
<!--<add name="XPO" value="4" />-->
<add name="AllowDebugXtraReportScripts" value="False" />
</switches>
</system.diagnostics>
momoERP.Win.HA/app.config
+3 -3
View File
@@ -4,11 +4,11 @@
<add key="Modules" value="" />
<add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" />
<add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://emango.com:88/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4"/>
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI"/>
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
<add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI" />
</appSettings>
<connectionStrings>
<add name="ConnectionString" connectionString="Integrated Security=SSPI;Pooling=false;Data Source=SISNBOOK7\SIS;Initial Catalog=FETOOLS" />