Cambios de cancelacion en el PAC 3

App_Code/Timbrado.vb

@@ -434,7 +434,7 @@ Public Class Timbrado
                 End If
 #End Region
 
-                Dim conector As New Profact.TimbraCFDI33.Conector(AmbienteProductivo)
+                Dim conector As New Profact.TimbraCFDI40.Conector(AmbienteProductivo)
 
                 If Not AmbienteProductivo Then
                     conector.EstableceCredenciales("mvpNUXmQfK8=")
@@ -442,8 +442,8 @@ Public Class Timbrado
                     conector.EstableceCredenciales("vSGxMFWnNRy/nDoowxqrqw==|Sia123654")
                 End If
                 MsgCancelacion.AppendFormat("-3.2")
-                Dim resultadoCancelacion As Profact.TimbraCFDI.ResultadoCancelacionAck
+                Dim resultadoCancelacion As Profact.TimbraCFDI.ResultadoCancelacion
-                resultadoCancelacion = conector.CancelaCFDIAck(RFCEmisor, FolioFiscal)
+                resultadoCancelacion = conector.CancelaCFDI40(RFCEmisor, FolioFiscal, CodigoSATMotivoCancelacion, FolioSustitucion)
                 CancelacionFecha = Now
                 Dim resp As Profact.TimbraCFDI.ResultadoConsulta
                 resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal)
@@ -474,7 +474,7 @@ Public Class Timbrado
                 Else
                     MsgCancelacion.AppendFormat("-3.5")
                     CancelacionAcuse = resp.NumeroError
-                    CancelacionMensaje = resultadoCancelacion.Xml
+                    CancelacionMensaje = resultadoCancelacion.Descripcion
                     Retorno = False
                 End If
 
@@ -704,14 +704,14 @@ Public Class Timbrado
             Dim XMLString As String = $"<Envelope xmlns=""http://schemas.xmlsoap.org/soap/envelope/"">
                                             <Body>
                                                 <cancelarConOpciones xmlns=""timbrado.ws.pade.mx"">
-                                                    <contrato xmlns="""">{contrato}</contrato>
+                                                    <contrato xmlns="""">{contrato}</contrato>
-                                                    <usuario xmlns="""">{UsuarioServicio}</usuario>
+                                                    <usuario xmlns="""">{UsuarioServicio}</usuario>
-                                                    <passwd xmlns="""">{PassServicio}</passwd>
+                                                    <passwd xmlns="""">{PassServicio}</passwd>
-                                                    <rfcEmisor xmlns="""">{rfcEmisor}</rfcEmisor>
+                                                    <rfcEmisor xmlns="""">{rfcEmisor}</rfcEmisor>
-                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor}|{rfcEmisor}|{Total}</arregloUUID>
+                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor}|{rfcEmisor}|{Total}</arregloUUID>
-                                                    <cert xmlns="""">{certBase64}</cert>
+                                                    <cert xmlns="""">{certBase64}</cert>
-                                                    <key xmlns="""">{keyBase64}</key>
+                                                    <key xmlns="""">{keyBase64}</key>
-                                                    <keyPass xmlns="""">{keyPass}</keyPass>
+                                                    <keyPass xmlns="""">{keyPass}</keyPass>
                                                     <opciones xmlns="""">{If(TimbraProduccion, "", "MODO_PRUEBA:3")}</opciones>
                                                 </cancelarConOpciones>
                                             </Body>