1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Public Class ImportBC
Public Structure EnteteDocument
'Obligatoire
Dim DO_Domaine As Integer
.....
End Structure
Public Structure LigneDocument
'Obligatoire
Dim DL_No As Integer
Dim DO_Domaine As Integer
....
End Structure
Private _Entete As EnteteDocument
Private _Ligne As LigneDocument
Public Property Entete() As EnteteDocument
Get
Return _Entete
End Get
Set(ByVal value As EnteteDocument)
_Entete = value
End Set
End Property
Public Property Ligne() As LigneDocument
Get
Return _Ligne
End Get
Set(ByVal value As LigneDocument)
_Ligne = value
End Set
End Property
Public Function InsertionEntete() As Integer
.....
Public Function InsertionLigne() As Integer
.....
End Class |