From 9dd76794d61ab647200ef484b8001f0dcb878f69 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Jan 2025 20:18:56 -0700
Subject: [PATCH] cambio ruta de PAC 4

---
 App_Code/Timbrado.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 224d790b2..09794b026 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -221,7 +221,7 @@ Public Class Timbrado
         If CvePACCancelacion = 3 Then ValidaFactura = False
 
         'TEMPORAL. PARCHE PARA CANCELAR DOCUMENTOS EMITIDOS CON EL PAC 5
-        If CvePACCancelacion = 5 Then CvePACCancelacion = 4
+        'If CvePACCancelacion = 5 Then CvePACCancelacion = 4
 
         If Not (Empresa.Funcionalidad(529) = "1") Then
             If ValidaFactura Then
@@ -355,7 +355,7 @@ Public Class Timbrado
                 Dim UsuarioServicio As String = If(CvePACCancelacion = 2, Empresa.RFC, "rene.molina@adsistemas.mx")
                 Dim ClaveServicio As String = If(CvePACCancelacion = 2, Empresa.RFC.ToLower, "rene2018")
                 Dim Clave As String = Empresa.ContraseñaKey
-                Dim UrlServicio As String = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" ' Produccion
+                Dim UrlServicio As String = "https://servicios.gofac.com.mx/cancelacion.asmx" ' Produccion
 
                 If Not Empresa.FacturaProduccion Then
                     ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
@@ -2878,7 +2878,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
         Dim TimbraProduccion As Boolean = True
         If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
 
-        UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
+        UrlServicio = "https://pruebas.gofac.com.mx/timbrado.asmx?WSDL"
 
         If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
             EmisorRFC = "EKU9003173C9"
@@ -2957,7 +2957,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
 #Region "Timbra"
         If RespGeneracionXML = "" Then
 
-            cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, TimbraProduccion)
+            cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, TimbraProduccion, UrlServicio)
 
             sw.Stop()
             swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)