Update page 'Meta GridView'

Th3maz1ng 2019-03-19 11:00:17 +01:00
parent 6b9db4ee7a
commit c4edb90807

@ -10,24 +10,13 @@ Il est maintenant nécessaire d'initialiser le [Ctrl_XtraGrid](Dll-KmProd#Meta_D
Il est aussi important de d'initialiser le [Ctrl_GridBarreOutils](Dll-KmProd#Meta_DevExpress) afin de la lier au tableau. Il est aussi important de d'initialiser le [Ctrl_GridBarreOutils](Dll-KmProd#Meta_DevExpress) afin de la lier au tableau.
Voici comment faire : Voici comment faire :
``` vbnet ``` vbnet
'L'initialisation se fait dans la fonction **Public Overridable Function Initialiser** 'L'initialisation se fait dans la fonction : Public Overridable Function Initialiser
Public Overridable Function Initialiser(ByRef CnxBDD_P As Metaproductique.Kmprod.C_SGBD, ByVal Droits_P As Metaproductique.Kmprod.C_Droits, ByVal Parametre_P As String, ByVal Master_P As Object) As Boolean Public Overridable Function Initialiser(ByRef CnxBDD_P As Metaproductique.Kmprod.C_SGBD, ByVal Droits_P As Metaproductique.Kmprod.C_Droits, ByVal Parametre_P As String, ByVal Master_P As Object) As Boolean
Try Try
MesBdd_c = CnxBDD_P
Droits_c = Droits_P Ctrl_XtraGrid1.Initialiser(CnxBDD_P, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name, Ctrl_XtraGrid1.Name)
If DAL_V_KPI_c Is Nothing Then
DAL_V_KPI_c = New C_DAL_V_KPI(CnxBDD_P, 3)
End If
If PROCEDURES_c Is Nothing Then
PROCEDURES_c = New C_PROCEDURES(MesBdd_c, 3, Droits_c)
End If
Ctrl_XtraGrid1.Initialiser(MesBdd_c, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name, Ctrl_XtraGrid1.Name)
Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1) Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1)
GridDataTable_c = ConstructDatatable()
Return True Return True
Catch ex As Exception Catch ex As Exception
Return False Return False