private Sub Page_Load(Sender As Object, E As EventArgs)

   dim myProject as new projectpal.bo.boProject
   dim projectData as new projectpal.bo.structProject

   projectData = myProject.Detail(session("projectID"))
      
   'ustawienia ekranu dla trybu edycji PM
   if session("ISPM") = 1 then
      'rozwijana lista stanu (jeli PM - dostpna do edycji)
      ddlStatus.visible = true
      txtStatus.visible = false

      ddlStatus.datasource = myProject.GetStatusCodes(0)
      ddlStatus.DataTextField="name"
      ddlStatus.DataValueField="statuscodeid"
      ddlStatus.SelectedIndex = projectData.status
      ddlStatus.DataBind()      

      ddlStatus.backcolor = color.Linen
      ddlStatus.font.bold=true

      'ustawienie pola daty zakoczenia projektu
      txtEndDate.backcolor = color.Linen
      txtEndDate.font.bold=true
      txtEndDate.readonly=true
      btnEndDate.visible=true

      'ustawienie pola Description
      txtDescription.readonly=false
      txtDescription.backcolor = color.linen
      txtDescription.font.bold = true

      'ustawienie przycisku Save Changes
      btnSaveData.visible="true"

      'ustawienia tabeli Stage
      dgStage.Columns(6).visible="true"

   else
      ddlStatus.visible = false
      txtStatus.visible = true
   end if

   
   txtProjectName.text = projectData.name
   txtStartDate.text = ctype(projectData.startdate, string)
   txtEndDate.text = ctype(projectData.enddate, string)
   txtDescription.text = projectData.description

   BindGrid()


end Sub
