diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index ec66bebd6..e9d5dff51 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1175,7 +1175,7 @@ Partial Class PV
DdlTipoComprobante.Items.Add(New ListItem("Remisión", "Rem"))
DdlTipoComprobante.SelectedValueExist("Rem")
End If
- DdlTipoDefecto.Width = New Unit(200%)
+ DdlTipoDefecto.Width = New Unit(260%)
'Le quitamos el tamaño extra
'RegistraScript("window.onload = function AjustarVentana() { $('.page-content').css('min-height','100%'); }")
@@ -3485,10 +3485,10 @@ Partial Class PV
End If
Next
- If CantidadUsados > TxtCantidad.Text.ToEntero() Then
- Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
- Return False
- End If
+ 'If CantidadUsados > TxtCantidad.Text.ToEntero() Then
+ ' Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
+ ' Return False
+ 'End If
'VALIDA PROMOCIONES
Dim ObjVentas As New ClsVentas
@@ -5043,7 +5043,7 @@ Partial Class PV
TxtPorcentajeAjuste.Text = ""
TxtPoliza.Text = ""
TxtImporteAjuste.Text = ""
- DdlPSAjuste.SelectedIndex = 0
+ DdlPSAjuste.SelectedIndex = -1
ChkAjuste.Checked = False
DivAjuste.Visible = False
End Sub
@@ -5415,13 +5415,13 @@ Partial Class PV
Next
StrCargos.Remove(StrCargos.Length - 1, 1)
- If TotalCantidad > TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").SUMD("Cantidad") Then
- Dim drt As DataRow() = TmpDT.Select("CvePS = " & CvePS)
- TmpDT.Rows.Remove(drt(0))
+ 'If TotalCantidad > TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").SUMD("Cantidad") Then
+ ' Dim drt As DataRow() = TmpDT.Select("CvePS = " & CvePS)
+ ' TmpDT.Rows.Remove(drt(0))
- Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
+ ' Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
+ ' Exit Sub
+ 'End If
For Each Dr As DataRow In TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").Rows