1 2 3 4 5 6 7 8
|
Sub actualise(Optional ByVal NumDem As String = "", Optional ByVal Etat As String = "", Optional ByVal Sec As String = "", Optional ByVal Out As String = "", Optional ByVal Clas() As String = Nothing, Optional ByVal Section As String = "", Optional ByVal Poste As String = "", Optional ByVal Demandeur As String = "", Optional ByVal Technicien As String = "", Optional ByVal Operateur As String = "", Optional ByVal SouTraEtd As String = "", Optional ByVal SouTraRea As String = "", Optional ByVal CodPro As String = "", Optional ByVal Piece As String = "", Optional ByVal DateAppDu As String = "", Optional ByVal DateAppAu As String = "", Optional ByVal DateCreDu As String = "", Optional ByVal DateCreAu As String = "", Optional ByVal vtri As String = "", Optional ByVal otri As String = "")
If Session("UtiRol") = "" Then Demandeur = Session("uticode")
Dim myds As DataSet
myds = csdo.clstdo.PstSelect(NumDem, Etat, Sec, Out, Clas, Section, Poste, Demandeur, Technicien, Operateur, SouTraEtd, SouTraRea, CodPro, Piece, DateAppDu, DateAppAu, DateCreDu, DateCreAu, "33", vtri, otri)
GdvDem.DataSource = myds
GdvDem.DataBind()
End Sub |