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 pause
Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb
+37 -35
View File
@@ -1,23 +1,13 @@
Imports System Imports System.ComponentModel
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.Editors Imports DevExpress.ExpressApp.Editors
Imports exontrol.EXG2ANTTLib Imports exontrol.EXG2ANTTLib
Imports DevExpress.Xpo Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp.SystemModule Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Persistent.BaseImpl
Imports System.Net.Mail
Imports System.Reflection
Imports DevExpress.ExpressApp.Utils
Imports DevExpress.ExpressApp.Model Imports DevExpress.ExpressApp.Model
Imports System.Linq
Public Class ProductsGant_VC Public Class ProductsGant_VC
Inherits Nuvolar.Module.ProductsGant_VC Inherits Nuvolar.Module.ProductsGant_VC
@@ -48,8 +38,8 @@ Public Class ProductsGant_VC
MyBase.OnActivated() MyBase.OnActivated()
AddHandler DoWork, AddressOf _WaitFormClass.DoWork AddHandler DoWork, AddressOf _WaitFormClass.DoWork
AddHandler InitWork, AddressOf _WaitFormClass.InitWork AddHandler InitWork, AddressOf _WaitFormClass.Initwork
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork
If View.Id = "ProductsGant_DetailView" Then If View.Id = "ProductsGant_DetailView" Then
@@ -73,8 +63,8 @@ Public Class ProductsGant_VC
MyBase.OnDeactivated() MyBase.OnDeactivated()
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork
If View.Id = "ProductsGant_DetailView" Then If View.Id = "ProductsGant_DetailView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
@@ -127,9 +117,9 @@ Public Class ProductsGant_VC
For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRowsBar_Collection For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRowsBar_Collection
With _ProductsGantRowsBar With _ProductsGantRowsBar
If _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then 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 ElseIf _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation) .ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
Else Else
.ToDate = .FromDate.AddDays(1) .ToDate = .FromDate.AddDays(1)
@@ -316,7 +306,10 @@ Public Class ProductsGant_VC
If Not String.IsNullOrEmpty(_GroupColumn.ColumnID) Then If Not String.IsNullOrEmpty(_GroupColumn.ColumnID) Then
Select Case _GroupColumn.ColumnID Select Case _GroupColumn.ColumnID
Case "Customers" Case "Customers"
_WaitFormClass.Initwork(1, 1, _ProductsGant.ProductsGantRows.Count)
For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows
_WaitFormClass.DoWork()
If _GroupObjects_Collection.Count = 0 Then If _GroupObjects_Collection.Count = 0 Then
_GroupObjects_Collection.Add(_ProductsGantRows.Customers) _GroupObjects_Collection.Add(_ProductsGantRows.Customers)
Else Else
@@ -331,6 +324,7 @@ Public Class ProductsGant_VC
If _Need Then _GroupObjects_Collection.Add(_ProductsGantRows.Customers) If _Need Then _GroupObjects_Collection.Add(_ProductsGantRows.Customers)
End If End If
Next Next
_WaitFormClass.FinalWork()
Dim _CustomerColumn As exontrol.EXG2ANTTLib.Column = Nothing Dim _CustomerColumn As exontrol.EXG2ANTTLib.Column = Nothing
For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns
@@ -346,15 +340,17 @@ Public Class ProductsGant_VC
_GanttControl.Items.set_CellValue(_GroupItem, _CustomerColumn.Index, "<b><fgcolor=0000FF>" + _Customers.FullName + "</fgcolor></b>") _GanttControl.Items.set_CellValue(_GroupItem, _CustomerColumn.Index, "<b><fgcolor=0000FF>" + _Customers.FullName + "</fgcolor></b>")
_GanttControl.Items.set_CellValueFormat(_GroupItem, _CustomerColumn.Index, ValueFormatEnum.exHTML) _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
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) Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then If _Item = 0 Then
_Item = .Items.InsertItem(_GroupItem, "") _Item = .Items.InsertItem(_GroupItem, "")
.Items.set_ExpandItem(_Item, True) .Items.set_ExpandItem(_Item, True)
SetItemsAndItemData(_Item, _ProductsGantRows) SetItemsAndItemData(_Item, _ProductsGantRows)
End If End If
End If
Next Next
_GanttControl.Items.set_ExpandItem(_GroupItem, True) _GanttControl.Items.set_ExpandItem(_GroupItem, True)
Next Next
@@ -389,15 +385,16 @@ Public Class ProductsGant_VC
Dim _GroupItem As Long = _GanttControl.Items.AddItem() Dim _GroupItem As Long = _GanttControl.Items.AddItem()
_GanttControl.Items.set_CellValue(_GroupItem, _ProductsColumn.Index, _Products.ShortName) _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 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) Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0)
If _Item = 0 Then If _Item = 0 Then
_Item = _GanttControl.Items.InsertItem(_GroupItem, "") _Item = _GanttControl.Items.InsertItem(_GroupItem, "")
SetItemsAndItemData(_Item, _ProductsGantRows) SetItemsAndItemData(_Item, _ProductsGantRows)
End If End If
End If
Next Next
Next Next
End If End If
@@ -500,8 +497,8 @@ Public Class ProductsGant_VC
Select Case _G2Column.Key Select Case _G2Column.Key
Case "ManualRotation" Case "ManualRotation"
_ProductsGantRows.ManualRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index) _ProductsGantRows.ManualRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index)
Case "CalculatedRotation" 'Case "CalculatedRotation"
_ProductsGantRows.CalculatedRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index) ' _ProductsGantRows.CalculatedRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index)
End Select End Select
Next Next
@@ -558,24 +555,24 @@ Public Class ProductsGant_VC
If _ProductsGantCustomersReport.QTT > 0 Then If _ProductsGantCustomersReport.QTT > 0 Then
Dim _ProductsGantCustomersReport_New As ProductsGantCustomersReport = _ocur.FindObject(Of ProductsGantCustomersReport)(CriteriaOperator.Parse("Customers=? AND Products=? AND DateExecution=?", _ Dim _ProductsGantCustomersReport_New As ProductsGantCustomersReport = _ocur.FindObject(Of ProductsGantCustomersReport)(CriteriaOperator.Parse("Customers=? AND Products=? AND DateExecution=?",
_ocur.GetObject(_ProductsGantCustomersReport.Customers), _ _ocur.GetObject(_ProductsGantCustomersReport.Customers),
_ocur.GetObject(_ProductsGantCustomersReport.Products), _ _ocur.GetObject(_ProductsGantCustomersReport.Products),
_ProductsGantCustomersReport.DateExecution)) _ProductsGantCustomersReport.DateExecution))
If _ProductsGantCustomersReport_New Is Nothing Then If _ProductsGantCustomersReport_New Is Nothing Then
_ProductsGantCustomersReport_New = New ProductsGantCustomersReport(_ocur.Session) _ProductsGantCustomersReport_New = New ProductsGantCustomersReport(_ocur.Session)
_ProductsGantCustomersReport_New.Customers = _ocur.GetObject(_ProductsGantCustomersReport.Customers) _ProductsGantCustomersReport_New.Customers = _ocur.GetObject(_ProductsGantCustomersReport.Customers)
_ProductsGantCustomersReport_New.Products = _ocur.GetObject(_ProductsGantCustomersReport.Products) _ProductsGantCustomersReport_New.Products = _ocur.GetObject(_ProductsGantCustomersReport.Products)
_ProductsGantCustomersReport_New.QTT = _ocur.GetObject(_ProductsGantCustomersReport.QTT) _ProductsGantCustomersReport_New.QTT = _ocur.GetObject(_ProductsGantCustomersReport.QTT)
_ProductsGantCustomersReport_New.DateExecution = _ocur.GetObject(_ProductsGantCustomersReport.DateExecution) _ProductsGantCustomersReport_New.DateExecution = _ProductsGant.DateExecution
End If 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)) _ProductsGant, _ProductsGantCustomersReport_New.Customers.Oid, _ProductsGantCustomersReport_New.Products.Oid))
If _ProductsGantRows IsNot Nothing Then If _ProductsGantRows IsNot Nothing Then
Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar) _ 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)) _ProductsGantRows.Oid, _ProductsGantCustomersReport.DateExecution.Date))
If _ProductsGantRowsBar Is Nothing Then If _ProductsGantRowsBar Is Nothing Then
_ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session) _ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session)
@@ -587,9 +584,9 @@ Public Class ProductsGant_VC
.ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
Else Else
If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation) .ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation) .ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation * 7)
Else Else
.ToDate = .FromDate.AddDays(1) 'temp .ToDate = .FromDate.AddDays(1) 'temp
End If End If
@@ -605,9 +602,9 @@ Public Class ProductsGant_VC
.ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
Else Else
If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation) .ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation * 7)
ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then
.ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation) .ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation * 7)
Else Else
.ToDate = .FromDate.AddDays(1) 'temp .ToDate = .FromDate.AddDays(1) 'temp
End If End If
@@ -664,8 +661,8 @@ Public Class ProductsGant_VC
If Not String.IsNullOrEmpty(_ColumnID) Then If Not String.IsNullOrEmpty(_ColumnID) Then
Select Case _ColumnID Select Case _ColumnID
Case "CalculatedRotation" 'Case "CalculatedRotation"
_ProductsGantRows.CalculatedRotation = CType(NewValue, Double) ' _ProductsGantRows.CalculatedRotation = CType(NewValue, Double)
Case "ManualRotation" Case "ManualRotation"
_ProductsGantRows.ManualRotation = CType(NewValue, Double) _ProductsGantRows.ManualRotation = CType(NewValue, Double)
End Select End Select
@@ -711,9 +708,14 @@ Public Class ProductsGant_VC
Case "Products" Case "Products"
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Products.ShortName) _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Products.ShortName)
Case "CalculatedRotation" Case "CalculatedRotation"
If _ProductsGantRows.CalculatedRotation > 0 Then
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.CalculatedRotation) _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.CalculatedRotation)
End If
Case "ManualRotation" Case "ManualRotation"
If _ProductsGantRows.ManualRotation > 0 Then
_GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.ManualRotation) _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.ManualRotation)
End If
End Select End Select
Next Next
Nuvolar.Module.Win/Model.DesignedDiffs.Localization.hu.xafml
-67
View File
@@ -13,7 +13,6 @@
<Action Id="aBankNoTransfer" Caption="Nem utalandó" /> <Action Id="aBankNoTransfer" Caption="Nem utalandó" />
<Action Id="aBusinessDirectory_OpenRTFDocument" Caption="Dokumentum megnyitása RTF szerkesztővel" /> <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="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_Corner" Caption="Ellenőrzés ..." />
<Action Id="aCheckName_Vivaldi" Caption="Ellenőrzés ..." /> <Action Id="aCheckName_Vivaldi" Caption="Ellenőrzés ..." />
<Action Id="aContacts_ChangeGroup" Caption="Csoportos módosítás" /> <Action Id="aContacts_ChangeGroup" Caption="Csoportos módosítás" />
@@ -40,9 +39,7 @@
<Action Id="aDivide_GLReportRowsCostHolder" Caption="Megosztás ..." /> <Action Id="aDivide_GLReportRowsCostHolder" Caption="Megosztás ..." />
<Action Id="aDown_OfferIn" Caption="Le" /> <Action Id="aDown_OfferIn" Caption="Le" />
<Action Id="aEmailIn_To_CRMLeads" Caption="Email osztályozása" /> <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="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="aGetGridToRTFText" Caption="Táblázat mentése RTF beszúráshoz" />
<Action Id="aGLReportRows_ChangeParam" Caption="Paraméterek megváltoztatása" /> <Action Id="aGLReportRows_ChangeParam" Caption="Paraméterek megváltoztatása" />
<Action Id="aGLReportRows_DivideRows" Caption="Sor bontá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_InsertTable" Caption="Táblázat beszúrása" />
<Action Id="aOpenRTFDocument_SaveBusinessDiretory" Caption="Mentés dokumentum tárhelybe" /> <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="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_CreateCustomersReport" Caption="Ügyfél jelentés" />
<Action Id="aProductsGant_GerenrateProductsGantRows" Caption="Gant adatok léterhozása" /> <Action Id="aProductsGant_GerenrateProductsGantRows" Caption="Gant adatok léterhozása" />
<Action Id="aProductsGant_OpenProducts" Caption="Termék megnyitása" /> <Action Id="aProductsGant_OpenProducts" Caption="Termék megnyitása" />
@@ -125,7 +120,6 @@
<Action Id="aViewAttacments_GLReportRows" Caption="Csatolt dokumentum" /> <Action Id="aViewAttacments_GLReportRows" Caption="Csatolt dokumentum" />
<Action Id="aViewAttacments_GLReportRowsCostHolder" Caption="Csatolt dokumentum" /> <Action Id="aViewAttacments_GLReportRowsCostHolder" Caption="Csatolt dokumentum" />
<Action Id="aViewEMail_CRMEstate" Caption="E-mail megtekintése" /> <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_GLReportRows" Caption="Részletes pontozás " />
<Action Id="aViewPCID_GLReportRowsCostHolder" Caption="Részletes pontozás " /> <Action Id="aViewPCID_GLReportRowsCostHolder" Caption="Részletes pontozás " />
<Action Id="aViewPDCI_Bank" Caption="Részletek ..." /> <Action Id="aViewPDCI_Bank" Caption="Részletek ..." />
@@ -217,56 +211,6 @@
<Member Name="DateExecution" Caption="Záró dátum" /> <Member Name="DateExecution" Caption="Záró dátum" />
</OwnMembers> </OwnMembers>
</Class> </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"> <Class Name="Nuvolar.Module.Win.Corner" Caption="Corner import">
<OwnMembers> <OwnMembers>
<Member Name="CostHolder" Caption="Tevékenység" /> <Member Name="CostHolder" Caption="Tevékenység" />
@@ -466,8 +410,6 @@
<Items> <Items>
<Item Id="SQL Imports"> <Item Id="SQL Imports">
<Items> <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="@DBCÉogin_ListView" Caption="Database Convert" />
<Item Id="XLSImports_ListView" Caption="Importálás Excelből" /> <Item Id="XLSImports_ListView" Caption="Importálás Excelből" />
<Item Id="SQLImports_ListView" Caption="Importálás Nuvolar 1. rendszerből" /> <Item Id="SQLImports_ListView" Caption="Importálás Nuvolar 1. rendszerből" />
@@ -590,15 +532,6 @@
</LayoutGroup> </LayoutGroup>
</Layout> </Layout>
</DetailView> </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"> <DetailView Id="ChangeLogon_DetailView" Caption="Bejelentkezés">
<Items> <Items>
<PropertyEditor Id="Password" Caption="Jelszó" /> <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="aCRM_LeadsDocumentation_OpenBusinessDirectory" ImageName="Action_New" />
<Action Id="aDashboard_SaveDashDesForBusinessDirectory" ImageName="Action_Save" Caption="Műszerfal mentése dokumentum tárhelybe" /> <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="aDivide_GLReportRowsCostHolder" ImageName="BO_Product_Group" PaintStyle="CaptionAndImage" />
<Action Id="aExportPDFtoOutputDirectory" ImageName="folder_into" />
<Action Id="aFinalizeCostRecords" ImageName="disk_red" /> <Action Id="aFinalizeCostRecords" ImageName="disk_red" />
<Action Id="aFinalizeInvoices" ImageName="disk_red" />
<Action Id="aGeneratePDFandSendDefaultMailClient" ImageName="Outlook2010" Caption="Küldés Outlook" /> <Action Id="aGeneratePDFandSendDefaultMailClient" ImageName="Outlook2010" Caption="Küldés Outlook" />
<Action Id="aGetGridToRTFText" ImageName="Action_Copy_CellValue" /> <Action Id="aGetGridToRTFText" ImageName="Action_Copy_CellValue" />
<Action Id="aGLReportRows_DivideRows" TargetObjectsCriteria="[GLRows] Is Not Null" /> <Action Id="aGLReportRows_DivideRows" TargetObjectsCriteria="[GLRows] Is Not Null" />
@@ -47,8 +45,6 @@
<Action Id="aOpenRTFDocument_InsertTable" ImageName="table_new" /> <Action Id="aOpenRTFDocument_InsertTable" ImageName="table_new" />
<Action Id="aOpenRTFDocument_SaveBusinessDiretory" ImageName="Action_Save" /> <Action Id="aOpenRTFDocument_SaveBusinessDiretory" ImageName="Action_Save" />
<Action Id="aOpenRTFDocument_SaveToCRM_Lead" 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_CreateCustomersReport" ImageName="Action_Report_Object_Inplace_Preview" />
<Action Id="aProductsGant_GerenrateProductsGantRows" ImageName="row_add_before" /> <Action Id="aProductsGant_GerenrateProductsGantRows" ImageName="row_add_before" />
<Action Id="aProductsGant_OpenProducts" ImageName="ProductFinder" /> <Action Id="aProductsGant_OpenProducts" ImageName="ProductFinder" />
@@ -87,7 +83,6 @@
<Action Id="aVATReport_Create65XML" ImageName="document_chart" /> <Action Id="aVATReport_Create65XML" ImageName="document_chart" />
<Action Id="aViewAttacments_GLReportRows" ImageName="printer_view" /> <Action Id="aViewAttacments_GLReportRows" ImageName="printer_view" />
<Action Id="aViewAttacments_GLReportRowsCostHolder" 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_GLReportRows" ImageName="branch" />
<Action Id="aViewPCID_GLReportRowsCostHolder" ImageName="branch" /> <Action Id="aViewPCID_GLReportRowsCostHolder" ImageName="branch" />
<Action Id="aViewPDCI_Bank" ImageName="Action_Open" /> <Action Id="aViewPDCI_Bank" ImageName="Action_Open" />
@@ -373,6 +368,8 @@
</Class> </Class>
<Class Name="Nuvolar.Module.ProductsGant"> <Class Name="Nuvolar.Module.ProductsGant">
<OwnMembers> <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" /> <Member Name="G2antt" PropertyEditorType="Nuvolar.Module.Win.G2anttPropertyEditor" />
</OwnMembers> </OwnMembers>
</Class> </Class>
@@ -416,29 +413,6 @@
<Member Name="Description" Caption="Miért nem kell elutalni ?" /> <Member Name="Description" Caption="Miért nem kell elutalni ?" />
</OwnMembers> </OwnMembers>
</Class> </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.Corner" ImageName="BO_Contract" />
<Class Name="Nuvolar.Module.Win.GLResetAll" ImageName="forbidden" /> <Class Name="Nuvolar.Module.Win.GLResetAll" ImageName="forbidden" />
<Class Name="Nuvolar.Module.Win.ListViewCustomization" ImageName="BO_StateMachine" /> <Class Name="Nuvolar.Module.Win.ListViewCustomization" ImageName="BO_StateMachine" />
@@ -555,8 +529,6 @@
</Item> </Item>
<Item Id="SQL Imports"> <Item Id="SQL Imports">
<Items> <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="@DBCÉogin_ListView" ViewId="DBCLogin_ListView" Index="2" IsNewNode="True" />
<Item Id="Hints_ListView" Index="3" /> <Item Id="Hints_ListView" Index="3" />
<Item Id="XLSImports_ListView" ObjectKey="" Index="4" ViewId="XLSImports_DetailView" /> <Item Id="XLSImports_ListView" ObjectKey="" Index="4" ViewId="XLSImports_DetailView" />
@@ -587,11 +559,11 @@
<PrintingSettings PaperKind="A4" /> <PrintingSettings PaperKind="A4" />
</Options> </Options>
<SchemaModules> <SchemaModules>
<SchemaModule Name="CloneObjectModule" Version="15.2.5.0" IsNewNode="True" /> <SchemaModule Name="CloneObjectModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SchedulerModuleBase" Version="15.2.5.0" IsNewNode="True" /> <SchemaModule Name="SchedulerModuleBase" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SchedulerWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" /> <SchemaModule Name="SchedulerWindowsFormsModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemModule" Version="15.2.5.0" IsNewNode="True" /> <SchemaModule Name="SystemModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemWindowsFormsModule" Version="15.2.5.0" IsNewNode="True" /> <SchemaModule Name="SystemWindowsFormsModule" Version="17.2.3.0" IsNewNode="True" />
</SchemaModules> </SchemaModules>
<ViewItems> <ViewItems>
<PropertyEditor Name="PropertyEditors"> <PropertyEditor Name="PropertyEditors">
@@ -855,98 +827,6 @@
</LayoutGroup> </LayoutGroup>
</Layout> </Layout>
</DetailView> </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"> <DetailView Id="CertificateofContractHeader_DetailView">
<Items> <Items>
<PropertyEditor Id="ReportFooter" PropertyEditorType="Nuvolar.Module.Win.RichEditPropertyEditor" /> <PropertyEditor Id="ReportFooter" PropertyEditorType="Nuvolar.Module.Win.RichEditPropertyEditor" />
@@ -2995,17 +2875,28 @@
</ListView> </ListView>
<DetailView Id="ProductsGant_DetailView"> <DetailView Id="ProductsGant_DetailView">
<Items> <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> </Items>
<Layout> <Layout>
<LayoutGroup Id="Autob44fec1f-8bad-4b11-be50-064444261366" ShowCaption="False" Direction="Horizontal" Index="1" RelativeSize="3" IsNewNode="True"> <LayoutItem Id="CustomersFrom" RelativeSize="6.3241106719367588" />
<LayoutItem Id="Item1" ShowCaption="False" ViewItem="" SizeConstraintsType="Default" Index="0" RelativeSize="79" IsNewNode="True" /> <LayoutGroup Id="Autob44fec1f-8bad-4b11-be50-064444261366" ShowCaption="False" Direction="Horizontal" Index="1" RelativeSize="7.9051383399209483" TextAlignMode="UseParentOptions" IsNewNode="True">
<LayoutItem Id="@ProductsGant" ViewItem="@ProductsGant" SizeConstraintsType="Default" Index="1" RelativeSize="20" 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> </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> </Layout>
</DetailView> </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"> <ListView Id="ProductsGantCustomersReport_ListView_PopUp">
<Columns> <Columns>
<ColumnInfo Id="DateExecution" InLineEdit="True" /> <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> <ItemGroup>
<Content Include="Images\Images.forbidden.png" /> <Content Include="Images\Images.forbidden.png" />
<Content Include="Images\Images.forbidden_32x32.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="packages.config" />
<None Include="UnusableNodes1.xml"> <None Include="UnusableNodes1.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon> <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.BaseImpl
Imports DevExpress.Persistent.Validation Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance Imports DevExpress.ExpressApp.ConditionalAppearance
Imports DevExpress.ExpressApp.Editors
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _ ''' <summary>
<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="1=1", Enabled:=False, Context:="Any")> _ ''' 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 Public Class ProductsGant
Inherits BaseObject Inherits BaseObject
Private _CustomersFrom As CustomersFrom Private _CustomersFrom As CustomersFrom
Private _G2antt As String Private _G2antt As String
Private _Criteria As String
Private _PGR As ProductsGantRows
Private _DateExecution As DateTime
Public Sub New(ByVal session As Session) Public Sub New(ByVal session As Session)
MyBase.New(session) MyBase.New(session)
End Sub End Sub
Public Overrides Sub AfterConstruction() Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction() MyBase.AfterConstruction()
DateExecution = GetSQLTime(Session)
End Sub End Sub
Property CustomersFrom As CustomersFrom Property CustomersFrom As CustomersFrom
@@ -33,7 +40,34 @@ Public Class ProductsGant
SetPropertyValue("CustomersFrom", _CustomersFrom, value) SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set End Set
End Property 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 Property G2antt As String
Get Get
Return _G2antt Return _G2antt
@@ -44,12 +78,17 @@ Public Class ProductsGant
End Property End Property
'ReadOnly 'ReadOnly
<VisibleInListView(False)> _ <VisibleInListView(False)>
<VisibleInLookupListView(False)> _ <VisibleInLookupListView(False)>
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGantRows))> _
ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows) ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows)
Get 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 Get
End Property End Property
End Class 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.BaseImpl
Imports DevExpress.Persistent.Validation Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _ <DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
Public Class ProductsGantRows Public Class ProductsGantRows
Inherits BaseObject Inherits BaseObject
@@ -25,8 +25,6 @@ Public Class ProductsGantRows
Public Overrides Sub AfterConstruction() Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction() MyBase.AfterConstruction()
End Sub End Sub
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGant))> _
Property ProductsGant As ProductsGant Property ProductsGant As ProductsGant
Get Get
Return _ProductsGant Return _ProductsGant
@@ -69,9 +67,9 @@ Public Class ProductsGantRows
End Property End Property
'ReadOnly 'ReadOnly
<VisibleInListView(False)> _ <VisibleInListView(False)>
<VisibleInLookupListView(False)> _ <VisibleInLookupListView(False)>
<Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))> _ <Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))>
ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar) ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar)
Get Get
Return GetCollection(Of ProductsGantRowsBar)("ProductsGantRowsBar") 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.ExpressApp.Editors
Imports DevExpress.Persistent.BaseImpl Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.Utils Imports DevExpress.ExpressApp.Utils
Imports DevExpress.ExpressApp.Xpo
Imports DevExpress.Xpo.DB
Public Class ProductsGant_VC Public Class ProductsGant_VC
Inherits DevExpress.ExpressApp.ViewController 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 InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
Public Event DoWork() Public Event DoWork()
Public Event FinalWork Public Event FinalWork()
#Region "Overrides" #Region "Overrides"
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.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 End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 Sub
#End Region #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 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
@@ -75,14 +93,13 @@ Public Class ProductsGant_VC
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _ Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers,
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _ _InvoiceRowsXPQ.OrderInRows.Products Into g = Group
Select New With {Key .Customers = Customers, _ Select New With {Key .Customers = Customers,
Key .Products = Products} Key .Products = Products}
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
Try Try
GeneralFunction.GLOBAL_HAS_Audit = False
RaiseEvent InitWork(1, 1, IRXPQ.Count) RaiseEvent InitWork(1, 1, IRXPQ.Count)
For Each item In IRXPQ For Each item In IRXPQ
RaiseEvent DoWork() RaiseEvent DoWork()
@@ -91,12 +108,12 @@ Public Class ProductsGant_VC
.ProductsGant = _ProductsGant .ProductsGant = _ProductsGant
.Customers = item.Customers .Customers = item.Customers
.Products = item.Products .Products = item.Products
.CalculatedRotation = 0 .CalculatedRotation = CountLast16Week(item.Products.Oid.ToString, item.Customers.Oid.ToString)
.ManualRotation = 0 .ManualRotation = 0
End With End With
'Számlázott mennyiségekhez ProductsGantRowsBar '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)) "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
If _InvoiceRows_Collection.Count > 0 Then If _InvoiceRows_Collection.Count > 0 Then
@@ -176,7 +193,8 @@ Public Class ProductsGant_VC
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain"))) MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally Finally
RaiseEvent FinalWork RaiseEvent FinalWork()
GLOBAL_HAS_Audit = True
End Try End Try
End Sub End Sub
@@ -194,13 +212,14 @@ Public Class ProductsGant_VC
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _ Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers,
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _ _InvoiceRowsXPQ.OrderInRows.Products Into g = Group
Select New With {Key .Customers = Customers, _ Select New With {Key .Customers = Customers,
Key .Products = Products} Key .Products = Products}
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013# ' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
Try Try
GLOBAL_HAS_Audit = False
RaiseEvent InitWork(1, 1, IRXPQ.Count) RaiseEvent InitWork(1, 1, IRXPQ.Count)
For Each item In IRXPQ For Each item In IRXPQ
RaiseEvent DoWork() RaiseEvent DoWork()
@@ -212,13 +231,13 @@ Public Class ProductsGant_VC
.ProductsGant = _ProductsGant .ProductsGant = _ProductsGant
.Customers = item.Customers .Customers = item.Customers
.Products = item.Products .Products = item.Products
.CalculatedRotation = 0 .CalculatedRotation = CountLast16Week(item.Products.Oid.ToString, item.Customers.Oid.ToString)
.ManualRotation = 0 .ManualRotation = 0
End With End With
End If End If
'Számlázott mennyiségekhez ProductsGantRowsBar '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)) "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
If _InvoiceRows_Collection.Count > 0 Then If _InvoiceRows_Collection.Count > 0 Then
_InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) _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 _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 _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)) _ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar_InvoiceRows Is Nothing Then If _ProductsGantRowsBar_InvoiceRows Is Nothing Then
_ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session) _ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session)
@@ -283,7 +302,7 @@ Public Class ProductsGant_VC
End If 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)) _ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar_Reported Is Nothing Then If _ProductsGantRowsBar_Reported Is Nothing Then
_ProductsGantRowsBar_Reported = New ProductsGantRowsBar(_ocur.Session) _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 _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 _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)) _ProductsGantRows, _FromDate, _ToDate))
If _ProductsGantRowsBar Is Nothing Then If _ProductsGantRowsBar Is Nothing Then
@@ -329,7 +348,8 @@ Public Class ProductsGant_VC
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain"))) MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally Finally
RaiseEvent FinalWork RaiseEvent FinalWork()
GLOBAL_HAS_Audit = True
End Try End Try
End Sub End Sub
End Class End Class
Nuvolar.Module/Model.DesignedDiffs.xafml
+1 -1
View File
@@ -24201,7 +24201,7 @@
<ColumnInfo Id="DateExecution" InLineEdit="True" InLineEditAutoCommit="True" /> <ColumnInfo Id="DateExecution" InLineEdit="True" InLineEditAutoCommit="True" />
</Columns> </Columns>
</ListView> </ListView>
<DetailView Id="ProductsGant_DetailView" AllowDelete="False" AllowNew="False"> <DetailView Id="ProductsGant_DetailView">
<Layout> <Layout>
<LayoutItem Id="CustomersFrom" ViewItem="CustomersFrom" SizeConstraintsType="Default" Index="0" RelativeSize="3" IsNewNode="True" /> <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" /> <LayoutItem Id="G2antt" ShowCaption="False" ViewItem="G2antt" SizeConstraintsType="Default" Index="1" RelativeSize="96" IsNewNode="True" />
Nuvolar.WIN.Company/app.config
+1 -1
View File
@@ -4,7 +4,7 @@
<add key="Modules" value="" /> <add key="Modules" value="" />
<add key="NewVersionServer" value="" /> <add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" /> <add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" /> <add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" /> <add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://emango.com:88/api/" /> <add key="Uri" value="http://emango.com:88/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" /> <add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
Nuvolar.Win.Lite/app.config
+3 -3
View File
@@ -7,7 +7,7 @@
<add key="Modules" value="" /> <add key="Modules" value="" />
<add key="NewVersionServer" value="" /> <add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" /> <add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" /> <add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" /> <add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://nuvolar.com:86/api/" /> <add key="Uri" value="http://nuvolar.com:86/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" /> <add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
@@ -25,8 +25,8 @@
<system.diagnostics> <system.diagnostics>
<switches> <switches>
<!-- Use the one of predefined values: 0-Off, 1-Errors, 2-Warnings, 3-Info, 4-Verbose. The default value is 3. --> <!-- 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="eXpressAppFramework" value="0" />
<add name="XPO" value="4" /> <!--<add name="XPO" value="4" />-->
<add name="AllowDebugXtraReportScripts" value="False" /> <add name="AllowDebugXtraReportScripts" value="False" />
</switches> </switches>
</system.diagnostics> </system.diagnostics>
momoERP.Win.HA/app.config
+1 -1
View File
@@ -4,7 +4,7 @@
<add key="Modules" value="" /> <add key="Modules" value="" />
<add key="NewVersionServer" value="" /> <add key="NewVersionServer" value="" />
<add key="EnableDiagnosticActions" value="False" /> <add key="EnableDiagnosticActions" value="False" />
<add key="Languages" value="hu;en" /> <add key="Languages" value="en;hu" />
<add key="ClientSettingsProvider.ServiceUri" value="" /> <add key="ClientSettingsProvider.ServiceUri" value="" />
<add key="Uri" value="http://emango.com:88/api/" /> <add key="Uri" value="http://emango.com:88/api/" />
<add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" /> <add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />