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 :