+
@@ -716,7 +716,7 @@
-
+
@@ -738,6 +738,41 @@
+
+
+
+
+
+
+
+
+
+ Debe seleccionar un corte de caja
+
+
+
+
+
+
+
+
<%-- FIN MODAL SALDAR INCOBRABLE--%>
<%--
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 0a09cd780..a16479691 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -696,9 +696,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
@@ -1550,7 +1579,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