Pantalla de bloqueo en ventas.aspx y pv.aspx, asignar forma de pago en base al pago mas alto

Ventas/PV.aspx.vb

@@ -1149,6 +1149,7 @@ Partial Class PV
             TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
             TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
             TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();")
+            TxtEfectivoCajaBloqueo.Attributes.Add("onKeyUp", "CalculaDiferenciaBloqueo();")
             'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();")
             'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")
             'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();")
@@ -2129,6 +2130,7 @@ Partial Class PV
 
 #Region "PUNTO DE VENTA"
     Private Sub CargaCorteCaja()
+        Dim DebeCerrarCorte As Boolean = False
         'Checar si hay un Turno Abierto
         Dim ObjPVenta As New ClsPuntoVenta
 
@@ -2136,18 +2138,33 @@ Partial Class PV
 
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
-                LblEstatusCaja.Text = ObjPVenta.FechaInicial.ToShortDateString
-                TrEstatusCaja.Visible = True
-                BtnIniciarTurno.Visible = False
-                LkbEstadodeCaja.Visible = True
-                LkbIngreso.Visible = True
-                LkbRetiro.Visible = True
+                Dim FechaICorte = ObjPVenta.FechaInicial.Date '.AddDays(-1)
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < Now.Date Then
+                    DebeCerrarCorte = True
+                    LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
+                Else
+                    LblEstatusCaja.Text = ObjPVenta.FechaInicial.ToShortDateString
+                    TrEstatusCaja.Visible = True
+                    BtnIniciarTurno.Visible = False
+                    LkbEstadodeCaja.Visible = True
+                    LkbIngreso.Visible = True
+                    LkbRetiro.Visible = True
+                End If
+
             Else
                 'Ingresar un nuevo Turno
                 RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
             End If
         End If
         ObjPVenta.Dispose()
+
+        If DebeCerrarCorte Then
+            CargaDatosCorte()
+            BtnEmitirImprimir.Visible = False
+            HlCliente.Visible = False
+            DdlPS.Visible = False
+            RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueoCorte"").click(); }")
+        End If
     End Sub
     Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click
         Dim ObjPVenta As New ClsPuntoVenta
@@ -2181,6 +2198,7 @@ Partial Class PV
                 Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString.ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString.ToDouble + ObjPVenta.DtResultados(0)("Propina").ToString.ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString.ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString.ToDouble
                 DineroCaja = Total
                 LblEfectivoEsperado.Text = Total.FormatoNumero(2)
+                LblEfectivoBloqueo.Text = Total.FormatoNumero(2)
 
                 Dim Dt As New DataTable
 
@@ -2288,6 +2306,20 @@ Partial Class PV
         End If
         ObjPVenta.Dispose()
     End Sub
+    Private Sub BtnCerrarBloqueo_Click(sender As Object, e As EventArgs) Handles BtnCerrarBloqueo.Click
+        Dim ObjPVenta As New ClsPuntoVenta
+        If TxtEfectivoCajaBloqueo.Text.Trim <> "" Then
+            If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoCajaBloqueo.Text.ToDouble, LblDiferenciaCajaBloqueo.Text.ToDouble, Now, UsuarioActual.CveEmpresa) Then
+                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir")
+                Dim Liga = "document.location.href=""/Ventas/PV.aspx"";"
+                Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga)
+            End If
+        Else
+            Alert("Debe especificar el efectivo en caja", TipoMensaje.MsgAdvertencia)
+            RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueoCorte"").click(); }")
+        End If
+        ObjPVenta.Dispose()
+    End Sub
     Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click
         Response.Redirect("~/Inicio.aspx")
     End Sub