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 +
  • + Solicitudes SAT +
  • Bitácora Facturas
  • @@ -946,7 +949,199 @@ + +