--No validar efectivo en sobrante faltante

Ventas/PVCobranza.aspx

@@ -1581,12 +1581,14 @@
                 HdnSobranteFaltante.value = "0";
                 //HdnCambioFaltante.value = "1";
                 let cambio = total - totalVenta;
-                if (cambio > 1) {
+                if (cambio > 1 || totalEfectivo > 0) {
                     $get("TxtFaltante").value = "";
                     $get("ChkSobFaltante").checked = false;
                     $get("TxtCambio").value = FormatoNumero(cambio);
 
                 } else {
+                    //SOLO ACTIVAR SI NO HAY EFECTIVO
+                    if (totalEfectivo == 0) {
                         if (cambio == 'NaN') {
                             $get("TxtFaltante").value = "0.00";
                         } else {
@@ -1597,6 +1599,8 @@
                         $get("TxtCambio").value = "";
                     }
 
+                }
+
             } else {
                 C_lblCambio.innerHTML = "Faltante:";
                 HdnSobranteFaltante.value = "1";
@@ -1628,6 +1632,13 @@
                 sobFaltantePermitido = 10;
             }
 
+            let totalEfectivo = $get("TxtImporteEfectivo") ? ToDouble($get("TxtImporteEfectivo").value) : 0;
+
+            if (totalEfectivo > 0) {
+                sobFaltantePermitido = 0;
+            }
+
+            if (sobFaltantePermitido > 0) {
                 if (ToDouble($get("TxtFaltante").value) > sobFaltantePermitido) {
                     alert("El sobrante/faltante no debe ser mayor a " + sobFaltantePermitido);
                     $get("TxtFaltante").value = "";
@@ -1635,6 +1646,13 @@
                 } else {
                     $get("ChkSobFaltante").checked = true;
                 }
+            } else {
+                alert("El sobrante/faltante no esta permitido");
+                $get("TxtFaltante").value = "";
+                $get("ChkSobFaltante").checked = false;
+            }
+
+
         }
 
         function CargaSobranteFaltante() {
@@ -1645,6 +1663,14 @@
                     if (<%= If(UsuarioActual.Empresa.CveEmpresa = 189, 1, 0)%> == 1) {
                         sobFaltantePermitido = 10;
                     }
+
+                    let totalEfectivo = $get("TxtImporteEfectivo") ? ToDouble($get("TxtImporteEfectivo").value) : 0;
+
+                    if (totalEfectivo > 0) {
+                        sobFaltantePermitido = 0;
+                    }
+
+                    if (sobFaltantePermitido > 0) {
                         if (ToDouble($get("TxtCambio").value) > sobFaltantePermitido) {
                             alert("El sobrante/faltante no debe ser mayor a " + sobFaltantePermitido)
                             $get("ChkSobFaltante").checked = false;
@@ -1655,6 +1681,13 @@
                                 $get("TxtFaltante").value = $get("TxtCambio").value;
                             }
                         }
+                    } else {
+                        alert("El sobrante/faltante no esta permitido");
+                        $get("TxtFaltante").value = "";
+                        $get("ChkSobFaltante").checked = false;
+                    }
+
+
 
                 }
                 else {

Ventas/PVCobranza.aspx.vb

@@ -1704,12 +1704,9 @@ Partial Class Ventas_PVCobranza
             If ChkSobFaltante.Checked AndAlso SobranteFaltante <> 0 Then
                 'SOBRANTE
                 If SobranteFaltante > 0 Then
-                    'SI ES EL SOBRANTE EN EFECTIVO SUMAR EL SOBRANTE/FALTANTE
+                    'EL SOBRANTE/FALTANTE NO PUEDE SER EN EFECTIVO
                     If Metodo = 13 Then
-                        ImporteIE += SobranteFaltante
+                        Retorno = "Error en aplicación de sobrante/faltante"
-                        Pago.OtroGastoIngreso = SobranteFaltante.ToString().ToDecimal()
-                        'LIMPIAR SOBRANTE/FALTANTE
-                        SobranteFaltante = 0
                     Else
                         'AJUSTAR DONDE EL IMPORTE A BANCOS SEA MAYOR EN EL DE LA VENTA
                         If ImporteBancos.RoundSQL(2) >= ImporteAbonoVenta.RoundSQL(2) Then
@@ -1722,7 +1719,10 @@ Partial Class Ventas_PVCobranza
 
                 'FALTANTE
                 If SobranteFaltante < 0 Then
-                    'METER LO QUE FALTA COMO GASTO
+                    'EL SOBRANTE/FALTANTE NO PUEDE SER EN EFECTIVO
+                    If Metodo = 13 Then
+                        Retorno = "Error en aplicación de sobrante/faltante"
+                    Else 'METER LO QUE FALTA COMO GASTO
                         If (ImporteBancos.RoundSQL(2) + Math.Abs(SobranteFaltante)) = ImporteAbonoVenta.RoundSQL(2) Then
                             Pago.OtroGastoIngreso = SobranteFaltante.ToString().ToDecimal()
 
@@ -1738,6 +1738,9 @@ Partial Class Ventas_PVCobranza
 
                 End If
 
+            End If
+
+            If String.IsNullOrEmpty(Retorno) Then
                 CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImporteIE, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
                 If CveIEPago > 0 Then
                     Dim tImportePago As Decimal = If(ImporteBancos > ImporteAbonoVenta, ImporteAbonoVenta, ImporteBancos) 'toma el importe menor para la factura
@@ -1768,6 +1771,8 @@ Partial Class Ventas_PVCobranza
                     Retorno = "Pago en Bancos no registrado"
                     ErrorConta = True
                 End If
+            End If
+
         Else
             Retorno = "No se ha especificado la cuenta"
         End If