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

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