เพิ่มการแสดง booking ที่มี สถานะ deposit

App_Code/CC/MainBooking.vb

@@ -104,6 +104,11 @@ Public Class MainBooking
         Return MyBase.LoadFromSql("[_HistoryLog_BookingDetail_Cancel_InPeriod]", par)
     End Function
 
+    Public Function _HistoryLog_BookingDetail_BookingStatusDeposit(ByVal strPNRCode As String) As Boolean
+        par.Clear()
+        par.Add("@PNRCode", strPNRCode)
+        Return MyBase.LoadFromSql("[_HistoryLog_BookingDetail_BookingStatusDeposit]", par)
+    End Function
 
 
 End Class

SystemAdmin/BookingDetail.aspx

@@ -344,7 +344,78 @@
                     <AlternatingRowStyle CssClass="AltRowStyle" />
                 </asp:GridView>
 
-<br />
+    <br />
+                <b><asp:Label ID="Label6" runat="server" Text="Booking ที่มีสถานะ Deposit ใน period นี้ "></asp:Label></b> : 
+                <asp:Label ID="lblResult_BookingStatusDeposit" runat="server" Text=" 0 items."></asp:Label>
+    <br />
+
+<asp:GridView ID="GDBookingStatusDeposit" runat="server"  AllowSorting="False"
+                    AutoGenerateColumns="False" CssClass="GridViewStyle" GridLines="None" Width="100%"
+                    >
+                    <AlternatingRowStyle BackColor="White" />
+                    <Columns>
+                        <asp:TemplateField HeaderText="No." HeaderStyle-Width="20px">
+                            <ItemTemplate>
+                                <asp:Label ID="lblNo" runat="server"></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Center" />
+                            <ItemStyle HorizontalAlign="Center" />
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="PNRCode" SortExpression="PNRCode">
+                            <ItemTemplate>
+                                <asp:Label ID="PNRCode" runat="server" Text='<%#Eval("PNRCode")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="StatusCode" SortExpression="StatusCode">
+                            <ItemTemplate>
+                                <asp:Label ID="StatusCode" runat="server" Text='<%#Eval("StatusCode")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+
+                        <asp:TemplateField HeaderText="Reservation" SortExpression="Reservation">
+                            <ItemTemplate>
+                                <asp:Label ID="Reservation" runat="server" Text='<%#Eval("Reservation")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Pax" SortExpression="Pax">
+                            <ItemTemplate>
+                                <asp:Label ID="Pax" runat="server" Text='<%#Eval("Pax")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="UpdateBy" SortExpression="UpdateBy">
+                            <ItemTemplate>
+                                <asp:Label ID="UpdateBy" runat="server" Text='<%#Eval("UpdateBy")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="UpdateDate" SortExpression="UpdateDate">
+                            <ItemTemplate>
+                                <asp:Label ID="UpdateDate" runat="server" Text='<%#Eval("UpdateDate")%>'></asp:Label>
+                            </ItemTemplate>
+                            <HeaderStyle HorizontalAlign="Left" />
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+
+                    </Columns>
+                    <RowStyle CssClass="RowStyle" />
+                    <EmptyDataRowStyle CssClass="EmptyRowStyle" />
+                    <PagerStyle CssClass="PagerStyle" />
+                    <SelectedRowStyle CssClass="SelectedRowStyle" />
+                    <HeaderStyle CssClass="HeaderStyle" />
+                    <EditRowStyle CssClass="EditRowStyle" />
+                    <AlternatingRowStyle CssClass="AltRowStyle" />
+                </asp:GridView>
+
+    <br />
                 <b><asp:Label ID="Label5" runat="server" Text="Booking ที่ถูกยกเลิกใน Period นี้"></asp:Label></b> : 
                 <asp:Label ID="lblResult_BookingInPeriod" runat="server" Text=" 0 items."></asp:Label>
     <br />

SystemAdmin/BookingDetail.aspx.vb

@@ -27,14 +27,10 @@ Partial Class SystemAdmin_Booking
             If strPNRCode <> "" Then LoadHistoryLog_ActivityLog(strPNRCode) 'GDActivityLog
             If strPNRCode <> "" Then LoadHistoryLog_StatusLog(strPNRCode) 'GDBookingStatusLog
             If strPNRCode <> "" Then LoadHistoryLog_BookingInPeriod(strPNRCode) 'GDBookingStatusLog
+            If strPNRCode <> "" Then LoadHistoryLog_BookingStatusDeposit(strPNRCode)
         End If
-
-
-
     End Sub
 
-
-
     Sub LoadHistoryLog_BookingInPeriod(ByVal strPNRCode As String) 'GDBookingStatusLog
         Try
             Dim DtBookingDetail As New DataTable
@@ -111,6 +107,26 @@ Partial Class SystemAdmin_Booking
             writeErrorLog("LoadHistoryLog", ex.Message.ToString())
         End Try
     End Sub
+
+    Sub LoadHistoryLog_BookingStatusDeposit(ByVal strPNRCode As String) 'GDBookingStatusLog
+        Try
+            Dim DtBookingDetail As New DataTable
+            DtBookingDetail = getBookingDetail_BookingStatusDeposit(strPNRCode)
+
+            If DtBookingDetail.DefaultView.Count > 0 Then
+                GDBookingStatusDeposit.DataSource = DtBookingDetail
+                GDBookingStatusDeposit.DataBind()
+                lblResult_BookingStatusDeposit.Text = " " & DtBookingDetail.DefaultView.Count & " items."
+            Else
+                GDBookingStatusDeposit.DataSource = Nothing
+                GDBookingStatusDeposit.DataBind()
+                lblResult_BookingInPeriod.Text = " 0 items."
+            End If
+        Catch ex As Exception
+            writeErrorLog("LoadHistoryLog_BookingStatusDeposit", ex.Message.ToString())
+        End Try
+    End Sub
+
     Sub writeErrorLog(ByVal strFunctionName As String, ByVal strError As String)
         lblError.Visible = True
         lblError.Text = "[" & strFunctionName & "] Err=" & strError
@@ -174,6 +190,7 @@ Partial Class SystemAdmin_Booking
     End Function
 
 #End Region
+
 #Region "get Booking Detail"
     Function getProductDetail(ByVal strPNRCode As String) As DataTable
         Dim Dt As New DataTable
@@ -251,6 +268,24 @@ Partial Class SystemAdmin_Booking
         Return Dt
     End Function
 
+    Function getBookingDetail_BookingStatusDeposit(ByVal strPNRCode As String) As DataTable
+        Dim Dt As New DataTable
+        Dim ClsMainBooking As New MainBooking
+        Try
+            With ClsMainBooking
+                .Where.WhereClauseReset()
+                ._HistoryLog_BookingDetail_BookingStatusDeposit(strPNRCode)
+                If .DefaultView.Count > 0 Then
+                    Dt = .DefaultView.ToTable
+                End If
+            End With
+        Catch ex As Exception
+            Dt = Nothing
+        Finally
+            ClsMainBooking = Nothing
+        End Try
+        Return Dt
+    End Function
 
 #End Region
 
@@ -269,10 +304,14 @@ Partial Class SystemAdmin_Booking
             e.Row.Cells(0).Text = e.Row.DataItemIndex + 1
         End If
     End Sub
-
     Protected Sub GDBookingInPeriod_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GDBookingInPeriod.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.Cells(0).Text = e.Row.DataItemIndex + 1
         End If
     End Sub
+    Protected Sub GDBookingStatusDeposit_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GDBookingStatusDeposit.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.Cells(0).Text = e.Row.DataItemIndex + 1
+        End If
+    End Sub
 End Class