Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb =================================================================== diff -u -r1744 -r1754 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1744) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1754) @@ -51,7 +51,7 @@ 'Refreshes all data. If fails, updates label with last timestamp of refresh. Private Sub RefreshAllData() - dim allSuccessfulRefresh = RefreshUserGridsData() + Dim allSuccessfulRefresh = RefreshUserGridsData() allSuccessfulRefresh = allSuccessfulRefresh And RefreshEmployeesData() 'Check if refresh was successful. If allSuccessfulRefresh Then Index: ActiviteitenOpvolging/ActiviteitenOpvolging/MBL-W7_DynamicConfigs.txt =================================================================== diff -u -r1750 -r1754 --- ActiviteitenOpvolging/ActiviteitenOpvolging/MBL-W7_DynamicConfigs.txt (.../MBL-W7_DynamicConfigs.txt) (revision 1750) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/MBL-W7_DynamicConfigs.txt (.../MBL-W7_DynamicConfigs.txt) (revision 1754) @@ -28,169 +28,8 @@ NumberOfActivitiesGrid2=2 % Definitie van de SQL query voor grid 1 tot AantalGrid -SQL1=__select BatchVisual,EindTijdstip,ProductGroep,Naar, +SQL1=SQL1 +SQL2=SQL2 - Status_1,Status_2,Status_3,Status_4,Status_5, - - Aantal_1,Aantal_2,Aantal_3,Aantal_4,Aantal_5, - - StartTijdstip_1,StartTijdstip_2,StartTijdstip_3,StartTijdstip_4,StartTijdstip_5, - - ActiviteitID_1 , ActiviteitID_2,ActiviteitID_3,ActiviteitID_4,ActiviteitID_5, - - 'Front' Label_1,'Syncro' Label_2,'Zijstab' Label_3,'DwarsVerd' Label_4,'Glas' Label_5, - - Gebruiker_1,Gebruiker_2,Gebruiker_3,Gebruiker_4,Gebruiker_5, - - 0 ReadOnly_1,1 ReadOnly_2,0 ReadOnly_3,0 ReadOnly_4,0 ReadOnly_5 - -From ( - -Select - -right(AB.Batch,4) as BatchVisual, - -AB.Resource as Naar, - -isnull(AB1.EindTijdstip,isnull(AB2.EindTijdstip,isnull(AB3.EindTijdstip,isnull(AB4.EindTijdstip,AB5.EindTijdstip)))) EindTijdstip, - -AB.Productgroep, - -AB1.Batch || ';' || AB1.Resource || ';' || AB1.Activiteit as ActiviteitID_1, - -AB2.Batch || ';' || AB2.Resource || ';' || AB2.Activiteit as ActiviteitID_2, - -AB3.Batch || ';' || AB3.Resource || ';' || AB3.Activiteit as ActiviteitID_3, - -AB4.Batch || ';' || AB4.Resource || ';' || AB4.Activiteit as ActiviteitID_4, - -AB5.Batch || ';' || AB5.Resource || ';' || AB5.Activiteit as ActiviteitID_5, - -AB1.StartTijdstip as StartTijdstip_1, - -AB2.StartTijdstip as StartTijdstip_2, - -AB3.StartTijdstip as StartTijdstip_3, - -AB4.StartTijdstip as StartTijdstip_4, - -AB5.StartTijdstip as StartTijdstip_5, - -AB1.Status Status_1, - -AB2.Status Status_2, - -AB3.Status Status_3, - -AB4.Status Status_4, - -AB5.Status Status_5, - -AB1.Aantal Aantal_1, - -AB2.Aantal Aantal_2, - -AB3.Aantal Aantal_3, - -AB4.Aantal Aantal_4, - -AB5.Aantal Aantal_5, - -AB1.Gebruiker Gebruiker_1, - -AB2.Gebruiker Gebruiker_2, - -AB3.Gebruiker Gebruiker_3, - -AB4.Gebruiker Gebruiker_4, - -AB5.Gebruiker Gebruiker_5 - -from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB - -join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='Voormontage' and AB1.Activiteit='Front' - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip = AB2.RecalcTijdstip and AB2.Resource='Voormontage' and AB2.Activiteit='Syncro' - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB3 on AB.Batch=AB3.Batch and RCM.ActiviteitPerBatchTijdstip = AB3.RecalcTijdstip and AB3.Resource='Voormontage' and AB3.Activiteit='ZijStab' - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB4 on AB.Batch=AB4.Batch and RCM.ActiviteitPerBatchTijdstip = AB4.RecalcTijdstip and AB4.Resource='Voormontage' and AB4.Activiteit='DwarsVerd' - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB5 on AB.Batch=AB5.Batch and RCM.ActiviteitPerBatchTijdstip = AB5.RecalcTijdstip and AB5.Resource='Voormontage' and AB5.Activiteit='Glas' - -where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 - -) - -where ActiviteitID_1 is not null or ActiviteitID_2 is not null or ActiviteitID_3 is not null or ActiviteitID_4 is not null or ActiviteitID_5 is not null - -order by Eindtijdstip__ - -SQL2=__select BatchVisual,EindTijdstip,ProductGroep,Naar, - - Status_1,Status_2, - - Aantal_1,Aantal_2, - - StartTijdstip_1,StartTijdstip_2, - - ActiviteitID_1 , ActiviteitID_2, - - 'ASM' Label_1,'VILT' Label_2, - - Gebruiker_1,Gebruiker_2, - - 0 ReadOnly_1,0 ReadOnly_2 - -From ( - -Select - -right(AB.Batch,4) as BatchVisual, - -AB.Resource as Naar, - -isnull(AB1.EindTijdstip,AB2.EindTijdstip) EindTijdstip, - -AB.Productgroep, - -AB1.Batch || ';' || AB1.Resource || ';' || AB1.Activiteit as ActiviteitID_1, - -AB2.Batch || ';' || AB2.Resource || ';' || AB2.Activiteit as ActiviteitID_2, - -AB1.StartTijdstip as StartTijdstip_1, - -AB2.StartTijdstip as StartTijdstip_2, - -AB1.Status Status_1, - -AB2.Status Status_2, - -AB1.Aantal Aantal_1, - -AB2.Aantal Aantal_2, - -AB1.Gebruiker Gebruiker_1, - -AB2.Gebruiker Gebruiker_2 - -from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB - -join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' - -left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip = AB2.RecalcTijdstip and AB2.Resource='MAT' and AB2.Productgroep='VILT' - -where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 - -) - -where ActiviteitID_1 is not null or ActiviteitID_2 is not null - -order by Eindtijdstip__ - % Aantal gebruikers die acties kunnen uitvoeren NumberOfEmployees=2 \ No newline at end of file Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb =================================================================== diff -u -r1743 -r1754 --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1743) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1754) @@ -39,11 +39,11 @@ Public Function RefreshData() As Boolean Implements IDataGridUserControl.RefreshData Try 'Ignore selection changed event. - _skipSelectionChanged = true + _skipSelectionChanged = True 'Call helper method. + LoadGrid() - 'Remove selection. - RemoveSelection() + 'Refresh succesfull. Return True Catch ex As Exception @@ -108,6 +108,7 @@ ''' Private Sub LoadGrid() 'Load all work items. + LoadWorkItems() If _isInitialLoad Then @@ -140,7 +141,7 @@ 'Make every cell not editable. column.ReadOnly = True Next - + WorkItemsDataGridView.ClearSelection() WorkItemsDataGridView.Refresh() End Sub