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

validacion de facturación. de productos con código SAT "84111506" ,"01010101"

Browse Source
This commit is contained in:
rrene
2021-06-23 10:12:27 -07:00
parent c980a04979
commit baad9fd863
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/Timbrado.vb
View File

@@ -810,6 +810,18 @@ Public Class Timbrado
Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
'validación especial.
If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
Dim CodigoIncorrecto As Integer = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
Select c.ClaveProdServ).Count()
If CodigoIncorrecto > 0 Then
MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido."
Return False
End If
End If
Select Case tCvePAC Select Case tCvePAC
Case 1 Case 1
' Retorno = TimbrarFacturaBIInform33(UsuarioActual, Ventas, FM, TmpDTConceptos, TmpDTImpuestos, TmpDT7Eleven, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) ' Retorno = TimbrarFacturaBIInform33(UsuarioActual, Ventas, FM, TmpDTConceptos, TmpDTImpuestos, TmpDT7Eleven, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)