diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 9ccd14525..bb4ef868d 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -29,7 +29,7 @@ Public Class LogicNominas
ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
ObjFactura.Serie = cfdi.Comprobante.Serie
ObjFactura.Timbre = cfdi
- If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
+ If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, False) Then
Retorno = ObjTimbrado.MensajeErrorCFDI
End If
End If
@@ -139,6 +139,8 @@ Public Class LogicNominas
Dim ClaveEstado As String = ""
Dim MetodoPagoFijo As Boolean
+ Dim CodigoPostal As String = ""
+
Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
'Conexiones a la Base de Datos
Dim cfdi As New CFDITimbre
@@ -175,7 +177,7 @@ Public Class LogicNominas
RFC = objPersonal.RFC
cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString()
NombreCompleto = objPersonal.NombreCompleto
-
+ CodigoPostal = objPersonal.CP
Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1")
CURP = objPersonal.CURP
NumeroSS = objPersonal.NumeroSS
@@ -441,6 +443,10 @@ Public Class LogicNominas
cfdi.Comprobante.FormadePago = "99"
cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
+ '4.0
+ cfdi.Receptor.DomicilioFiscalReceptor = CodigoPostal
+ cfdi.Receptor.RegimenFiscalReceptor = "605"
+
cfdi.Nomina.Receptor.CURP = CURP
cfdi.Nomina.Receptor.NSS = NumeroSS
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 7d498dd07..3cc4a22a8 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1183,7 +1183,7 @@ Public Class Timbrado
Return Timbre
End Function
- Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean
+ Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional NomUsaPac4 As Boolean = True) As Boolean
Dim Retorno As Boolean = False
Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
@@ -1219,7 +1219,7 @@ Public Class Timbrado
Retorno = If(Ret = "", True, False)
Case 3
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
Else
Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
@@ -1227,7 +1227,7 @@ Public Class Timbrado
'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
Case 4
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False)
@@ -1239,7 +1239,7 @@ Public Class Timbrado
Case 5
- If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False)
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 1a81be565..d0a48c42f 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -63,6 +63,9 @@
--%>
Descarga Facturas SAT