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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135
|
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Dim idregie As String = "00000000-0000-0000-0000-000000000000"
Dim idannonceur As String = "00000000-0000-0000-0000-000000000000"
Dim type As String = ""
If lstRegie.SelectedValue <> "" Then
idregie = lstRegie.SelectedValue
type = "regie"
End If
If lstAnnonceur.SelectedValue <> "" Then
idannonceur = lstAnnonceur.SelectedValue
type = "annon"
End If
If lstRegie.SelectedValue <> "" And lstAnnonceur.SelectedValue <> "" Then
type = "deux"
End If
sdsGvCampagne.SelectCommand = "EXEC dbo.SPEC_ListeCampagne '" & GetApplicationGUID().ToString & "', '" & idregie & "', '" & idannonceur & "', '" & type & "'"
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ConstruireGV()
RemplirListeDeroulante(lstRegie, "Regie", enTypeContenuListe.UniqueIdentifier)
RemplirListeDeroulante(lstAnnonceur, "Annonceur", enTypeContenuListe.UniqueIdentifier)
FabriquerFormuModif()
FabriquerFormuTest()
FabriquerFormuApercu()
FabriquerFormuEnvoi()
AfficheTable("rien")
End Sub
Sub ConstruireGV()
gvCampagne.Columns.Clear()
gvCampagne.DataSourceID = "sdsGvCampagne"
Dim idcampagne, libelle, regie, boolactif As New BoundField
With idcampagne
.HeaderText = "ID"
.DataField = "Id_Campagne"
End With
With libelle
.HeaderText = "Libellé"
.DataField = "Libelle"
.SortExpression = "Libelle"
End With
With regie
.HeaderText = "Régie"
.DataField = "Regie"
.SortExpression = "Regie"
End With
Dim apercu, test, envoi, segment, modif, actif As New ButtonField
With apercu
.HeaderText = "Apercu"
.ButtonType = ButtonType.Image
.ImageUrl = "~/App_Themes/" & GetNomsite() & "/loupe.png"
.CommandName = "Apercu"
End With
With test
.HeaderText = "Test"
.ButtonType = ButtonType.Image
.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
.CommandName = "Test"
End With
With envoi
.HeaderText = "Envoi"
.ButtonType = ButtonType.Image
.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
.CommandName = "Envoi"
End With
With segment
.HeaderText = "@"
.ButtonType = ButtonType.Image
.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
.CommandName = "Segment"
End With
With modif
.HeaderText = "Modif"
.ButtonType = ButtonType.Image
.ImageUrl = "~/App_Themes/" & GetNomsite() & "/modifier_16.png"
.CommandName = "Modif"
End With
With actif
.HeaderText = "Actif"
.ButtonType = ButtonType.Image
.CommandName = "Actif"
End With
Dim tacif As New TemplateField
With tacif
.HeaderText = "tacif"
End With
gvCampagne.Columns.Add(idcampagne)
gvCampagne.Columns.Add(libelle)
gvCampagne.Columns.Add(regie)
gvCampagne.Columns.Add(apercu)
gvCampagne.Columns.Add(test)
gvCampagne.Columns.Add(envoi)
gvCampagne.Columns.Add(actif)
gvCampagne.Columns.Add(tacif)
gvCampagne.Columns.Add(modif)
End Sub
Protected Sub gvCampagne_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvCampagne.RowCommand
Dim IdCell As TableCell
If IsNumeric(e.CommandArgument) Then
IdCell = CType(gvCampagne.Rows(Convert.ToInt32(e.CommandArgument)), GridViewRow).Cells(0)
Else
IdCell = gvCampagne.Rows(0).Cells(0)
AfficheTable("rien")
End If
Select Case e.CommandName
Case "first", "next", "last", "prev"
AfficheTable("rien")
Case "Apercu"
RemplirFormuApercu(IdCell.Text)
AfficheTable("tblFormuApercu")
Case "Modif"
RemplirFormuModif(IdCell.Text)
AfficheTable("tblFormuModif")
Case "Test"
AfficheTable("rien")
EnvoiMailCampagne(IdCell.Text, GetMailUser(GetUserGUID()), GetUserGUID(), 0)
AfficheTable("tblFormuTest")
Case "Envoi"
AfficheTable("tblFormuEnvoi")
RemplirFormuEnvoi(IdCell.Text)
Case "Actif"
dmGlobCS.ExecuterRequeteSimple("EXEC SPEC_Campagne_Actif " & IdCell.Text)
End Select
End Sub |