Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/ClientesAbonar.aspx.vb

@@ -695,9 +695,38 @@ Partial Class Ventas_ClientesAbonar
         End If
     End Sub
 
+
+
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+        'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
+            Dim ObjPVenta As New ClsPuntoVenta
+            If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
+                DdlCorteCaja.DataBind()
+            End If
+            ObjPVenta.Dispose()
+            DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            UpModalCorte.Update()
+            RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
+        Else
+            GenerarPago()
+        End If
+    End Sub
 
+    Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click
+        CveCorte = DdlCorteCaja.SelectedValue.ToEntero()
 
+        If CveCorte <= 0 Then
+            Alert("Debe seleccionar un corte", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        GenerarPago()
+
+    End Sub
+
+    Private Sub GenerarPago()
         Dim FechaEmision As Date = MinFecha
 
         If ChkComplementoPago.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
@@ -1549,7 +1578,6 @@ Partial Class Ventas_ClientesAbonar
         If MsgError = "" Then
             LimpiaCampos()
         End If
-
     End Sub
 
     Private Function TimbrarFactura(ByRef ObjFactura As Modelos.Factura, ByRef SeTimbro As Boolean) As String