AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora en texto

Browse Source
This commit is contained in:
rrene
2023-10-11 09:52:55 -07:00
parent 03e62c1e88
commit 87c1ec0502
2 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Promociones.aspx
View File

@@ -9,7 +9,7 @@
<asp:LinkButton ID="ImgAddFolio" runat="server" Visible="True" OnClick="BtnGenerarAPartir_Click"> Generar a partir de</asp:LinkButton> <asp:LinkButton ID="ImgAddFolio" runat="server" Visible="True" OnClick="BtnGenerarAPartir_Click"> Generar a partir de</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkAgrgarPlantillaPS" runat="server" Visible="True" OnClick="LnkAgrgarPlantillaPS_Click"> Agregar Productos desde plantilla</asp:LinkButton> <asp:LinkButton ID="LnkAgrgarPlantillaPS" runat="server" Visible="True" OnClick="LnkAgrgarPlantillaPS_Click"> Cargar Productos</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

11
Ventas/Promociones.aspx.vb
View File

@@ -1117,8 +1117,8 @@ Partial Class Ventas_Promociones
Dim CveTipoPromocion As Integer = -1 Dim CveTipoPromocion As Integer = -1
Dim Promocion As Decimal = PromocionStr.ToDecimal Dim Promocion As Decimal = PromocionStr.ToDecimal
Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal
Dim CveRin As Integer = DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString().ToEntero() Dim CveRin As Integer = If(RinStr <> "", DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString.ToEntero(), -1)
Dim RinTamaño As String = DTRines.FiltroPrimeroValor("RinTamaño", $"Codigo = '{RinStr}'").ToString() Dim RinTamaño As String = If(RinStr <> "", DTRines.FiltroPrimeroValor("RinTamaño", $"Codigo = '{RinStr}'").ToString(), "")
Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1"), True, False) Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1"), True, False)
' SBErrorRegistro.Append($"") ' SBErrorRegistro.Append($"")
@@ -1131,12 +1131,11 @@ Partial Class Ventas_Promociones
Else Else
SBErrorRegistro.Append(If(CvePS > 0, "", $"No se encontro código de Producto/Servicio '{CodigoStr }'. ")) SBErrorRegistro.Append(If(CvePS > 0, "", $"No se encontro código de Producto/Servicio '{CodigoStr }'. "))
End If End If
End If End If
If TipoPromocionStr.ToUpper = "IMPORTE $" Then If TipoPromocionStr.ToUpper.Contiene("IMPORTE $", "IMPORTE") Then
CveTipoPromocion = 1 CveTipoPromocion = 1
ElseIf TipoPromocionStr.ToUpper = "DESCUENTO %" Then ElseIf TipoPromocionStr.ToUpper.Contiene("DESCUENTO %", "DESCUENTO") Then
CveTipoPromocion = 2 CveTipoPromocion = 2
ElseIf TipoPromocionStr.ToUpper = "CANTIDAD" Then ElseIf TipoPromocionStr.ToUpper = "CANTIDAD" Then
CveTipoPromocion = 3 CveTipoPromocion = 3
@@ -1149,7 +1148,7 @@ Partial Class Ventas_Promociones
End If End If
If CantidadMinimaStr.Length > 0 And Not CantidadMinima > 0 Then If CantidadMinimaStr.Length > 0 And Not CantidadMinima > 0 Then
SBErrorRegistro.Append($"La Cantidad Minima debe de ser mayor a 0. ") SBErrorRegistro.Append($"La Cantidad MÍnima debe de ser mayor a 0. ")
End If End If
If RinStr.Length > 0 And Not CveRin > 0 Then If RinStr.Length > 0 And Not CveRin > 0 Then