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

--No timbrar en subproyectos de USA

Browse Source
This commit is contained in:
JPerez
2025-06-20 17:43:06 -07:00
parent 8f75a14427
commit eb14bac7a4
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -11503,6 +11503,10 @@ Partial Class Ventas
DebeTimbrar = False DebeTimbrar = False
End If End If
If UsuarioActual.CveEmpresa = 188 AndAlso ObjFactura.CveSubProyecto.Contiene(12696, 12698) Then
DebeTimbrar = False
End If
If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
@@ -18475,6 +18479,11 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If UsuarioActual.CveEmpresa = 188 AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero().Contiene(12696, 12698) Then
Alert("Esta factura no puede ser timbrada", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then
If UsuarioActual.Empresa.FacturaProduccion Then If UsuarioActual.Empresa.FacturaProduccion Then