diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 3ce87c0b8..5075a5c9c 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2800,7 +2800,7 @@ -<%--
+ <%--
@@ -2811,7 +2811,7 @@
--%>
-
+
@@ -2820,7 +2820,7 @@
-
+
<%----%> @@ -2830,7 +2830,7 @@
-
+
@@ -2839,7 +2839,7 @@
-
+
@@ -2851,7 +2851,7 @@

-
+
<%----%> @@ -2859,26 +2859,22 @@
-
-
-
Fecha:
-
-
- - - - - - - - -
-
+
+ +
+ + + + + + + +
-
+
@@ -2887,7 +2883,7 @@
-
+
@@ -2907,16 +2903,16 @@
-
+
- +
-
+
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