API tools faq
paste
Guest User

Untitled

a guest
Jun 22nd, 2018
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.13 KB | None | 0 0
raw download clone embed print report
  1. - ColumnAID
  2. - ColumnADescription
  3. - ColumnBID
  4. - ColumnBDescription
  5.  
  6. (asp:TemplateField HeaderText="(*) Holiday Group")
  7. (ItemStyle CssClass="TEXTBOX_MEDIUM" /)
  8. (EditItemTemplate)
  9. (asp:DropDownList ID="CboHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server"
  10. DataTextField="holidaygroup" DataValueField="holiday_group_code_id" AutoPostBack="true"
  11. OnSelectedIndexChanged="CboHolidayGroup_SelectedIndexChanged")
  12. (/asp:DropDownList)
  13. (asp:RangeValidator ID="RvHolidayGroup" runat="server" ControlToValidate="CboHolidayGroup"
  14. Display="None" ErrorMessage="Please Select Holiday Group" MaximumValue="1000"
  15. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpUpdate")
  16. (/asp:RangeValidator)
  17. (/EditItemTemplate)
  18. (ItemTemplate)
  19. (asp:Label ID="LblHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server" Text='<%# Eval("holidaygroup") %>')(/asp:Label)
  20. (/ItemTemplate)
  21. (FooterTemplate)
  22. (asp:DropDownList ID="CboNewHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server"
  23. DataTextField="holidaygroup" DataValueField="holiday_group_code_id" Enabled="false"
  24. AutoPostBack="true" OnSelectedIndexChanged="CboHolidayGroup_SelectedIndexChanged")
  25. (/asp:DropDownList)
  26. (asp:RangeValidator ID="RvNewHolidayGroup" runat="server" ControlToValidate="CboNewHolidayGroup"
  27. Display="None" ErrorMessage="Please Select Holiday Group" MaximumValue="1000"
  28. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpInsert")
  29. (/asp:RangeValidator)
  30. (/FooterTemplate)
  31. (/asp:TemplateField)
  32. (asp:TemplateField HeaderText="(*) Holiday Type")
  33. (ItemStyle CssClass="DROPDOWN_XLARGE" /)
  34. (EditItemTemplate)
  35. (asp:DropDownList ID="CboHolidayType" CssClass="DROPDOWN_XLARGE" runat="server"
  36. DataTextField="holidaytype" DataValueField="holiday_type_code_id")
  37. (/asp:DropDownList)
  38. (asp:RangeValidator ID="RvHolidayType" runat="server" ControlToValidate="CboHolidayType"
  39. Display="None" ErrorMessage="Please Select Holiday Type" MaximumValue="1000"
  40. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpUpdate")
  41. (/asp:RangeValidator)
  42. (/EditItemTemplate)
  43. (ItemTemplate)
  44. (asp:Label ID="LblHolidayType" CssClass="DROPDOWN_XLARGE" runat="server" Text='<%# Eval("holidaytype") %>')(/asp:Label)
  45. (/ItemTemplate)
  46. (FooterTemplate)
  47. (asp:DropDownList ID="CboNewHolidayType" CssClass="DROPDOWN_XLARGE" runat="server"
  48. DataTextField="holidaytype" DataValueField="holiday_type_code_id" Enabled="false")
  49. (/asp:DropDownList)
  50. (asp:RangeValidator ID="RvNewHolidayType" runat="server" ControlToValidate="CboNewHolidayType"
  51. Display="None" ErrorMessage="Please Select Holiday Type" MaximumValue="1000"
  52. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpInsert")
  53. (/asp:RangeValidator)
  54. (/FooterTemplate)
  55. (/asp:TemplateField)
  56.  
  57. <asp:TemplateField HeaderText="(*) Holiday Group">
  58. <ItemStyle CssClass="TEXTBOX_MEDIUM" />
  59. <EditItemTemplate>
  60. <asp:DropDownList ID="CboHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server"
  61. DataTextField="holidaygroup" DataValueField="holiday_group_code_id" AutoPostBack="true"
  62. OnSelectedIndexChanged="CboHolidayGroup_SelectedIndexChanged">
  63. </asp:DropDownList>
  64. <asp:RangeValidator ID="RvHolidayGroup" runat="server" ControlToValidate="CboHolidayGroup"
  65. Display="None" ErrorMessage="Please Select Holiday Group" MaximumValue="1000"
  66. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpUpdate">
  67. </asp:RangeValidator>
  68. </EditItemTemplate>
  69. <ItemTemplate>
  70. <asp:Label ID="LblHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server" Text='<%# Eval("holidaygroup") %>'></asp:Label>
  71. </ItemTemplate>
  72. <FooterTemplate>
  73. <asp:DropDownList ID="CboNewHolidayGroup" CssClass="DROPDOWN_SMALL" runat="server"
  74. DataTextField="holidaygroup" DataValueField="holiday_group_code_id" Enabled="false"
  75. AutoPostBack="true" OnSelectedIndexChanged="CboHolidayGroup_SelectedIndexChanged">
  76. </asp:DropDownList>
  77. <asp:RangeValidator ID="RvNewHolidayGroup" runat="server" ControlToValidate="CboNewHolidayGroup"
  78. Display="None" ErrorMessage="Please Select Holiday Group" MaximumValue="1000"
  79. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpInsert">
  80. </asp:RangeValidator>
  81. </FooterTemplate>
  82. </asp:TemplateField>
  83. <asp:TemplateField HeaderText="(*) Holiday Type">
  84. <ItemStyle CssClass="DROPDOWN_XLARGE" />
  85. <EditItemTemplate>
  86. <asp:DropDownList ID="CboHolidayType" CssClass="DROPDOWN_XLARGE" runat="server" DataTextField="holidaytype"
  87. DataValueField="holiday_type_code_id">
  88. </asp:DropDownList>
  89. <asp:RangeValidator ID="RvHolidayType" runat="server" ControlToValidate="CboHolidayType"
  90. Display="None" ErrorMessage="Please Select Holiday Type" MaximumValue="1000"
  91. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpUpdate">
  92. </asp:RangeValidator>
  93. </EditItemTemplate>
  94. <ItemTemplate>
  95. <asp:Label ID="LblHolidayType" CssClass="DROPDOWN_XLARGE" runat="server" Text='<%# Eval("holidaytype") %>'></asp:Label>
  96. </ItemTemplate>
  97. <FooterTemplate>
  98. <asp:DropDownList ID="CboNewHolidayType" CssClass="DROPDOWN_XLARGE" runat="server"
  99. DataTextField="holidaytype" DataValueField="holiday_type_code_id" Enabled="false">
  100. </asp:DropDownList>
  101. <asp:RangeValidator ID="RvNewHolidayType" runat="server" ControlToValidate="CboNewHolidayType"
  102. Display="None" ErrorMessage="Please Select Holiday Type" MaximumValue="1000"
  103. MinimumValue="1" SetFocusOnError="true" Type="Integer" ValidationGroup="VgrpInsert">
  104. </asp:RangeValidator>
  105. </FooterTemplate>
  106. </asp:TemplateField>
  107.  
  108. #Region "CboHolidayGroup_SelectedIndexChanged"
  109. Protected Sub CboHolidayGroup_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
  110. Dim sGroup As String = String.Empty
  111. Dim intGroup As Integer = 0
  112. Dim dtNewHolidayType As DataTable
  113. Dim dtHolidayType As DataTable
  114. Dim objAims As iSymbol = Factory.Factory.CreateSymbolObject()
  115.  
  116. If DirectCast(sender, DropDownList).SelectedIndex > 0 Then
  117. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("CboHolidayGroup")) Then
  118. sGroup = DirectCast(sender, DropDownList).SelectedItem.Text
  119. intGroup = DirectCast(sender, DropDownList).SelectedValue
  120. If sGroup = "Bank" Then
  121. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkBankHoliday")) Then
  122. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkBankHoliday"), CheckBox).Checked = True
  123. End If
  124.  
  125. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday")) Then
  126. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday"), CheckBox).Checked = True
  127. End If
  128. Else
  129. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkBankHoliday")) Then
  130. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkBankHoliday"), CheckBox).Checked = False
  131. End If
  132.  
  133. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday")) Then
  134. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday"), CheckBox).Checked = False
  135. End If
  136. End If
  137.  
  138. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("CboHolidayType")) Then
  139. Dim CboHolidayType As DropDownList = DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("CboHolidayType"), DropDownList)
  140. dtHolidayType = objSymbol.GetSelectedHolTypes(intGroup)
  141. If (dtHolidayType.Rows.Count > 0) Then
  142. CboHolidayType.DataSource = dtHolidayType
  143. CboHolidayType.DataTextField = "holidaytype"
  144. CboHolidayType.DataValueField = "holiday_type_code_id"
  145. CboHolidayType.DataBind()
  146. AddFirstItem(CboHolidayType, _CON_COMBO_FIRST_SELECT)
  147. End If
  148. End If
  149. End If
  150.  
  151. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("CboNewHolidayGroup")) Then
  152. sGroup = DirectCast(sender, DropDownList).SelectedItem.Text
  153. intGroup = DirectCast(sender, DropDownList).SelectedValue
  154. If sGroup = "Bank" Then
  155. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday")) Then
  156. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday"), CheckBox).Checked = True
  157. End If
  158. Else
  159. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday")) Then
  160. DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("ChkNewBankHoliday"), CheckBox).Checked = False
  161. End If
  162. End If
  163.  
  164. If Not IsNothing(DirectCast(sender, DropDownList).Parent.FindControl("CboNewHolidayType")) Then
  165. Dim CboNewHolidayType As DropDownList = DirectCast(DirectCast(sender, DropDownList).Parent.FindControl("CboNewHolidayType"), DropDownList)
  166. dtHolidayType = objSymbol.GetSelectedHolTypes(intGroup)
  167. If (dtHolidayType.Rows.Count > 0) Then
  168. CboNewHolidayType.DataSource = dtHolidayType
  169. CboNewHolidayType.DataTextField = "holidaytype"
  170. CboNewHolidayType.DataValueField = "holiday_type_code_id"
  171. CboNewHolidayType.DataBind()
  172. AddFirstItem(CboNewHolidayType, _CON_COMBO_FIRST_SELECT)
  173. End If
  174. End If
  175. End If
  176. End If
  177. End Sub
  178. #End Region
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!