This commit is contained in:
Oscar Irigoyen
2023-04-04 19:55:19 -07:00

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))
Select c.ClaveProdServ, c.Descripcion)
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
Str.AppendFormat(" - {0} <br/>", dr.Descripcion)
Next