--Pasar a PV, PVCobranza.aspx lo que esta en ventas

Ventas/PV.aspx

@@ -2002,6 +2002,14 @@
                 <td colspan="1">&nbsp;</td>
                 <td colspan="1">&nbsp;</td>
             </tr>
+            <tr align="left" >
+                <td>
+                    <asp:Label runat="server" Font-Bold="true" ID="Label3">Sucursal:</asp:Label>
+                </td>
+                <td>
+                    <asp:DropDownList ID="DdlSucursalCorte" runat="server" CssClass="form-control input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="170px"></asp:DropDownList>
+                </td>
+            </tr>
             <tr>
                 <td colspan="1">
                     <asp:Label runat="server" Text="Dinero En Caja:" Font-Bold="true" Width="120px" />
@@ -2012,7 +2020,7 @@
                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="REVCaja" Width="300px"></ajax:ValidatorCalloutExtender>
                 </td>
             </tr>
-            <tr>
+            <tr runat="server" visible="false">
                 <td colspan="1">
                     <asp:Label runat="server" Text="Descripción:" Font-Bold="true" Width="120px" />
                 </td>

Ventas/PV.aspx.vb

@@ -2197,9 +2197,16 @@ Partial Class PV
         End If
     End Sub
     Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click
+
+        If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia)
+            RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
+            Exit Sub
+        End If
+
         Dim ObjPVenta As New ClsPuntoVenta
 
-        ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, UsuarioActual.CveEmpresa)
+        ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, DdlSucursalCorte.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)
         CveCorte = ObjPVenta.CveCorte
         LblEstatusCaja.Text = NowADS().ToShortDateString
         TrEstatusCaja.Visible = True
@@ -2998,8 +3005,14 @@ Partial Class PV
     End Sub
 
     Private Sub CargaDdlSubProyectos()
-        DdlSubProyectoDatos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ")
+        Dim dtt = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ")
+        DdlSubProyectoDatos.DataSource = dtt
         DdlSubProyectoDatos.DataBind()
+
+        DdlSucursalCorte.DataSource = dtt
+        DdlSucursalCorte.DataBind()
+        DdlSucursalCorte.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSucursalCorte.SelectedValueExist(UsuarioActual.CveSubProyecto)
     End Sub
     Private Sub CargaVendedores()
 

Ventas/PVCobranza.aspx

@@ -574,6 +574,14 @@
                 <td colspan="1">&nbsp;</td>
                 <td colspan="1">&nbsp;</td>
             </tr>
+            <tr align="left" >
+                <td>
+                    <asp:Label runat="server" Font-Bold="true" ID="Label3">Sucursal:</asp:Label>
+                </td>
+                <td>
+                    <asp:DropDownList ID="DdlSucursalCorte" runat="server" CssClass="form-control input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="170px"></asp:DropDownList>
+                </td>
+            </tr>
             <tr>
                 <td colspan="1">
                     <asp:Label runat="server" Text="Dinero En Caja:" Font-Bold="true" Width="120px" />

Ventas/PVCobranza.aspx.vb

@@ -79,8 +79,15 @@ Partial Class Ventas_PVCobranza
 
     Private Sub CargaFiltros()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
+        Dim dtt = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+
+        DdlSubProyecto.DataSource = dtt
+        DdlSubProyecto.DataBind()
+
+        DdlSucursalCorte.DataSource = dtt.FiltraParametros("EsSucursal = True ")
+        DdlSucursalCorte.DataBind()
+        DdlSucursalCorte.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSucursalCorte.SelectedValueExist(UsuarioActual.CveSubProyecto)
 
         txtFechaI.Text = Now.AddDays(-1).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
@@ -794,9 +801,16 @@ Partial Class Ventas_PVCobranza
         ObjPVenta.Dispose()
     End Sub
     Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click
+
+        If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia)
+            RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
+            Exit Sub
+        End If
+
         Dim ObjPVenta As New ClsPuntoVenta
 
-        ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, "", UsuarioActual.CveEmpresa)
+        ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, "", DdlSucursalCorte.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)
         CveCorte = ObjPVenta.CveCorte
         LblTurno.Text = NowADS().ToShortDateString
         UpTurno.Visible = True

Ventas/Ventas.aspx

@@ -4937,7 +4937,7 @@
                     <asp:Label runat="server" Font-Bold="true" ID="Label3">Sucursal:</asp:Label>
                 </td>
                 <td>
-                    <asp:DropDownList ID="DdlSucursalCorte" AutoPostBack="True" runat="server" CssClass="form-control input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="170px"></asp:DropDownList>
+                    <asp:DropDownList ID="DdlSucursalCorte" runat="server" CssClass="form-control input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="170px"></asp:DropDownList>
                 </td>
             </tr>
 
@@ -4951,7 +4951,7 @@
                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="REVCaja" Width="300px"></ajax:ValidatorCalloutExtender>
                 </td>
             </tr>
-            <tr visible="false">
+            <tr runat="server" visible="false">
                 <td colspan="1">
                     <asp:Label runat="server" Text="Descripción:" Font-Bold="true" Width="120px" />
                 </td>

Ventas/Ventas.aspx.vb

@@ -3810,7 +3810,8 @@ Partial Class Ventas
     Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click
 
         If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then
-            Alert("Debe seleccionar una sucursal.", TipoMensaje.MsgAdvertencia)
+            Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia)
+            RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
             Exit Sub
         End If