Cambios de BDH

Ventas/PV.aspx.vb

@@ -2828,6 +2828,7 @@ Partial Class PV
                 End If
                 If PrecioSugerido > 0 Then
                     TxtPrecio.Text = PrecioSugerido.FormatoNumero()
+                    RegistraScript("$get('LblPrecio1').innerText = formato_numero(" + PrecioSugerido.ToString + ", 2, '.', ',');")
                 End If
 
 
@@ -4294,7 +4295,7 @@ Partial Class PV
 
     Private Sub CargaCuentas()
 
-        DdlCuentaEfectivo.Items.Clear()
+        'DdlCuentaEfectivo.Items.Clear()
         DdlCuentaTarjetaCredito.Items.Clear()
         DdlCuentaTarjetaDebito.Items.Clear()
         DdlCuentaCheque.Items.Clear()
@@ -4351,6 +4352,11 @@ Partial Class PV
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
 
+        If TxtCambio.Text.ToDecimal > 0 And TxtImporteEfectivo.Text.ToDecimal < TxtCambio.Text.ToDecimal Then
+            Alert("Debe haber un pago en efectivo y ser mayor que el cambio. Si no, ser pago exacto.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If (DtPagos.SUM("Importe").ToString.ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
             Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia)
             Exit Sub