-Correccion de mensaje al validar productos SAT

This commit is contained in:
2023-04-04 19:53:32 -07:00
parent 73855c6c51
commit 7de256f02e

View File

@@ -1228,7 +1228,7 @@ Public Class Timbrado
Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144)) Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144))
Select c.ClaveProdServ, c.Descripcion) Select c.ClaveProdServ, c.Descripcion)
Dim Str As New StringBuilder Dim Str As New StringBuilder
Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: <br/>") Str.Append("Los siguientes productos tienen especificado un código no permitido por el SAT: <br/>")
For Each dr In CodigoIncorrecto For Each dr In CodigoIncorrecto
Str.AppendFormat(" - {0} <br/>", dr.Descripcion) Str.AppendFormat(" - {0} <br/>", dr.Descripcion)
Next Next