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

Correciones Promociones, Compras IEPS en producto

Browse Source
This commit is contained in:
rakcsle
2023-10-10 10:43:02 -07:00
parent 8cf0ce7cd7
commit 0b18ec7ba1
3 changed files with 53 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Ventas/Promociones.aspx.vb
View File

@@ -1114,7 +1114,7 @@ Partial Class Ventas_Promociones
Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ClasificacionStr}'").ToString().ToEntero()
Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{CodigoStr}'").ToString().ToEntero()
Dim CodigoPS As String = DTPS.FiltroPrimeroValor("PSCodigo", $"Codigo = '{CodigoStr}'").ToString()
Dim CveTipoPromosicion As Integer = -1
Dim CveTipoPromocion As Integer = -1
Dim Promocion As Decimal = PromocionStr.ToDecimal
Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal
Dim CveRin As Integer = DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString().ToEntero()
@@ -1127,37 +1127,37 @@ Partial Class Ventas_Promociones
Else
If ClasificacionStr.Length > 0 Then
SBErrorRegistro.Append(If(CveClasificacion > 0, "", $"No se encontro Clasificación {ClasificacionStr}. "))
SBErrorRegistro.Append(If(CveClasificacion > 0, "", $"No se encontro Clasificación '{ClasificacionStr}'. "))
Else
SBErrorRegistro.Append(If(CvePS > 0, "", $"No se encontro codigo de Producto/Servicio {CodigoStr }. "))
SBErrorRegistro.Append(If(CvePS > 0, "", $"No se encontro código de Producto/Servicio '{CodigoStr }'. "))
End If
End If
If TipoPromocionStr.ToUpper = "IMPORTE $" Then
CveTipoPromosicion = 1
CveTipoPromocion = 1
ElseIf TipoPromocionStr.ToUpper = "DESCUENTO %" Then
CveTipoPromosicion = 2
CveTipoPromocion = 2
ElseIf TipoPromocionStr.ToUpper = "CANTIDAD" Then
CveTipoPromosicion = 3
CveTipoPromocion = 3
Else
SBErrorRegistro.Append($"Tipo Promosion no encontrada {TipoPromocionStr}. ")
SBErrorRegistro.Append($"Tipo Promoción no encontrada '{TipoPromocionStr}'. ")
End If
If Not Promocion > 0 Then
SBErrorRegistro.Append($"La Promoción debe de ser mayor a 0. ")
End If
If Not CantidadMinima > 0 Then
If CantidadMinimaStr.Length > 0 And Not CantidadMinima > 0 Then
SBErrorRegistro.Append($"La Cantidad Minima debe de ser mayor a 0. ")
End If
If RinStr.Length > 0 And Not CveRin > 0 Then
SBErrorRegistro.Append($"Tamaño de Rin no encontrado {RinStr}. ")
SBErrorRegistro.Append($"Tamaño de Rin no encontrado '{RinStr}'. ")
End If
If Not IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1", "NO", "0") Then
SBErrorRegistro.Append($"Campo IncluyeImpuestos no valido {IncluyeImpuestos}.<br/> ")
SBErrorRegistro.Append($"Campo IncluyeImpuestos no válido '{IncluyeImpuestosStr}'.<br/> ")
End If
If SBErrorRegistro.ToString.Length > 0 Then
@@ -1165,7 +1165,7 @@ Partial Class Ventas_Promociones
Else
dRow("CveClasificacion") = CveClasificacion
dRow("CvePS") = CvePS
dRow("CveTipoPromosicion") = CveTipoPromosicion
dRow("CveTipoPromosicion") = CveTipoPromocion
dRow("Promocion") = Promocion
dRow("CantidadMinima") = CantidadMinima
dRow("RinTamaño") = RinTamaño
@@ -1174,9 +1174,8 @@ Partial Class Ventas_Promociones
dRow("CodigoPS") = If(CveClasificacion > 0, "Todos", CodigoPS)
End If
RegistroActual = RegistroActual + 1
End If
RegistroActual = RegistroActual + 1
Next