cambios en método de pago

General/SaldosIniciales.aspx.vb

@@ -4865,9 +4865,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = MetodoPago.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveMetodoPago = myarraystr(0).ToEntero()
-                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
+                    CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
                 Else
-                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString().ToEntero()
+                    CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveMetodoPagoSAT = '{MetodoPago}'").ToString().ToEntero()
                 End If
                 If CveMetodoPago = 0 Then
                     CveMetodoPago = -1
@@ -5282,7 +5282,7 @@ Partial Class General_SaldosIniciales
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Metodo pago"
-        For Each row As DataRow In GlobalDTMetodosPago.Rows
+        For Each row As DataRow In GlobalDTVtaMetodoPago.Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago"))
         Next

General/TimbraRetencion.aspx.vb

@@ -4,7 +4,6 @@ Imports System.IO
 Imports System.Data
 Imports System.Xml
 Imports System.Xml.Serialization
-Imports ADSNetLibrary.PacsTimbrado.SAT
 Imports Extensiones
 Imports Profact.TimbraCFDI40
 
@@ -42,7 +41,7 @@ Partial Class General_TimbraRetencion
 
     Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            EnviarNotificacionWhatsApp("6621430964", "Hola")
+            'EnviarNotificacionWhatsApp("6621430964", "Hola")
             DdlClientes.setEsWebService(True)
             CargaDatos()
         End If
@@ -61,6 +60,7 @@ Partial Class General_TimbraRetencion
 
 #Region "Timbra"
     Private Function TimbraRetencion(cfditimbre As CFDITimbreRetenciones, UsuarioActual As Usuario) As String
+        Dim Retorno As String = ""
         Dim sw As New Diagnostics.Stopwatch
         Dim swTiempo As New StringBuilder
         Dim swmili As Long = 0
@@ -242,7 +242,7 @@ Partial Class General_TimbraRetencion
         resultadoTimbre = cfdi.TimbraRetencion(retenciones)
 
         If resultadoTimbre.Exitoso Then
-            Dim Retorno As String = ""
+
             Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}XML\Ret\"
             Dim NombreArchivoXML As String = ""
             Dim objGrales As New ClsGenerales
@@ -292,6 +292,7 @@ Partial Class General_TimbraRetencion
             Alert(resultadoTimbre.Descripcion)
             Dim detalle As String = resultadoTimbre.Detalle
         End If
+        Return Retorno
     End Function
 #End Region