diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index b174a39cc..4c37e7adf 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -305,7 +305,7 @@ Public Class CFDINominaReceptor Public Property Departamento As String = "" Public Property Puesto As String = "" Public Property CodigoRiesgoPuesto As String = "" - Public Property TipoPeriodo As String = "" + Public Property PeriodicidadPago As String = "" Public Property CodigoBanco As String = "" Public Property NumeroCuenta As String = "" Public Property SDI As Decimal = 0 diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index e05779805..57ddbf5e6 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -137,7 +137,7 @@ Public Class LogicNominas Dim Departamento As String = "" Dim Puesto As String = "" Dim CveSATRiesgoPuesto As String = "" - Dim TipoPeriodoPago As String = "" + Dim PeriodicidadPago As String = "" Dim ClaveBanco As String = "" Dim BancoNumCuenta As String = "" Dim SDI As Decimal = 0 @@ -203,7 +203,7 @@ Public Class LogicNominas Departamento = objPersonal.Departamento Puesto = objPersonal.Puesto CveSATRiesgoPuesto = objPersonal.CveSATRiesgoPuesto.ToString() - TipoPeriodoPago = objPersonal.TipoPeriodoPago + 'If Not MetodoPagoFijo Then ' ClaveBanco = objPersonal.ClaveBanco ' BancoNumCuenta = objPersonal.BancoNumCuenta @@ -213,7 +213,6 @@ Public Class LogicNominas SalarioDiarioSS = objPersonal.SalarioDiarioSS ClaveEstado = objPersonal.ClaveEstado - AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero() FormatoReciboCFDi = objPersonal.FormatoReciboCFDi Else If continuar Then GetError = "No se pudo obtener la información del empleado" 'si continuar= true el error se origino en este nodo y le asigno el error @@ -266,6 +265,8 @@ Public Class LogicNominas FechaFin = DrPeriodo("FechaFin").ToString().ToDate() FechaPago = DrPeriodo("FechaPago").ToString().ToDate() + PeriodicidadPago = DrPeriodo("ClavePerioricidadPago").ToString() + AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero() If Not TimbreIndemnizacion Then FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate() @@ -491,7 +492,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.Departamento = Departamento cfdi.Nomina.Receptor.Puesto = Puesto cfdi.Nomina.Receptor.CodigoRiesgoPuesto = CveSATRiesgoPuesto.ToString() - cfdi.Nomina.Receptor.TipoPeriodo = TipoPeriodoPago + cfdi.Nomina.Receptor.PeriodicidadPago = PeriodicidadPago cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta cfdi.Nomina.Receptor.SDI = SDI diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 0f240b5af..2b83f2fa6 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -516,7 +516,7 @@ Public Class Timbrado Dim UrlServicio As String = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" Dim AmbienteProductivo As Boolean = True - If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then + If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then UsuarioServicio = "fgomez" ClaveServicio = "12121212" Clave = "12345678a" @@ -713,12 +713,15 @@ Public Class Timbrado Dim UsuarioServicio As String = "rene.molina@adssistemas.mx" Dim ClaveServicio As String = "Facturacion2021#" - If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then - EmisorRFC = "ZUÑ920208KL4" - ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" - ArchivoCertificado = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer" + If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then + EmisorRFC = "EKU9003173C9" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" + Clave = "12345678a" TimbraProduccion = False + UsuarioServicio = "UserTest" + ClaveServicio = "1234567890" End If Dim llaveByte As Byte(), certByte As Byte() @@ -1325,7 +1328,7 @@ Public Class Timbrado If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then AmbienteProductivo = False Clave = "12345678a" EmisorRFC = "EKU9003173C9" @@ -1362,7 +1365,7 @@ Public Class Timbrado Dim cfdi As New Profact.TimbraCFDI40.Conector(AmbienteProductivo) Dim comprobante As New Profact.TimbraCFDI40.Comprobante() - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then cfdi.EstableceCredenciales("mvpNUXmQfK8=") Else cfdi.EstableceCredenciales($"vSGxMFWnNRy/nDoowxqrqw==|Sia123654") @@ -2326,7 +2329,7 @@ Public Class Timbrado Nom.Receptor.Puesto = ObjCFDITimbre.Nomina.Receptor.Puesto Nom.Receptor.RiesgoPuestoSpecified = True Nom.Receptor.RiesgoPuesto = ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto - Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.TipoPeriodo + Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" AndAlso ObjCFDITimbre.Nomina.Receptor.NumeroCuenta <> "" Then Nom.Receptor.BancoSpecified = True Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco @@ -2403,30 +2406,62 @@ Public Class Timbrado FolioFiscal = resultadoTimbre.FolioUUID If FolioFiscal <> "" Then resultadoTimbre.GuardaXml(RutaArchivo, NombreArchivoXML) + '---------------------- - If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then + Select Case ObjCFDITimbre.Comprobante.TipoComprobante + Case "N" + Using ObjNomina2 As New ClsNominas() - 'Actualiza Estatus Factura - If Ventas.CveVenta > 0 Then + If ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using - - Dim ObjVentas As New ClsVentas() - If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", Now, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then + Case "T" + Dim objGrales As New ClsGenerales + If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then Retorno = "" Else Retorno = "Error" End If - ObjVentas.Dispose() + objGrales.Dispose() + Using ObjInv As New ClsInventarios() + If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using + Case Else - ''Actualiza Cliente (NumeroCuenta) - 'If Not UsuarioActual.CveEmpresa.Contiene(72, 80) Then - ' Dim Hilo2 As New System.Threading.Thread(Sub() ActualizaCliente(UsuarioActual.CveUsuario, Ventas.Cliente.NumCtaPago, Ventas.CveMetodoPago, Ventas.CveCliente)) - ' Hilo2.Start() - 'End If + 'Actualiza Estatus Factura + If Ventas.CveVenta > 0 Then - End If - End If + Using ObjVentas As New ClsVentas() + + If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then + Retorno = "" + Else + Retorno = "Error" + End If + End Using + + 'Genero la addenda Ford + If Ventas.Cliente.Ford_GSDB <> "" Then + + Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML) 'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio)) + + Dim FolioFactura As String = "" + If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura + GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB) + + End If + End If + End Select + '---------------------- If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\") @@ -2445,25 +2480,6 @@ Public Class Timbrado End If - If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then - Dim objGrales As New ClsGenerales - If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then - Retorno = "" - Else - Retorno = "Error" - End If - objGrales.Dispose() - - Using ObjInv As New ClsInventarios() - If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then - Retorno = "" - Else - Retorno = "Error" - End If - End Using - - End If - 'Pendiente. Ruta guardar archivos sw.Stop() swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) @@ -2950,7 +2966,7 @@ Public Class Timbrado ObjCFDITimbre.Nomina.Receptor.Departamento, ObjCFDITimbre.Nomina.Receptor.Puesto, ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto, - If(ObjCFDITimbre.Nomina.TipoNomina = "E", "99", ObjCFDITimbre.Nomina.Receptor.TipoPeriodo), + ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago, ObjCFDITimbre.Nomina.Receptor.CodigoBanco, ObjCFDITimbre.Nomina.Receptor.NumeroCuenta, ObjCFDITimbre.Nomina.Receptor.SBC, @@ -3075,18 +3091,18 @@ Public Class Timbrado UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False UsuarioServicio = "UserTest" ClaveServicio = "1234567890" - + UsuarioActual.Empresa.CodigoRegimenFiscal = "601" End If #Region "Valida" @@ -3298,15 +3314,18 @@ Public Class Timbrado If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False + UsuarioServicio = "UserTest" + ClaveServicio = "1234567890" + End If #Region "Valida" diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 33c257306..a5794bbb0 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -821,7 +821,7 @@ Trabajador : - +
@@ -3348,7 +3348,7 @@