IE cancelacion, RegPrePolizasS contabilizar descontabilizar Folio opcional

Compras/Compras.aspx.vb

@@ -4054,9 +4054,7 @@ Partial Class Compras_Compras
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
 
-        'If Not AjustaCombustibles() Then
-        '    Exit Sub
-        'End If
+
 
         '------------------ INICIA VALIDACIONES ------------------
 
@@ -4478,6 +4476,10 @@ Partial Class Compras_Compras
 
         '------------------TERMINA VALIDACIONES------------------
 
+
+
+
+
         'si hay necesidad de actualizar el globaldtps
         If RegeneraPS Then
             'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -5935,7 +5937,10 @@ Partial Class Compras_Compras
                                                     Dim IdCtaContable As Integer = 0
                                                     Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
                                                     Dim importeMN As Decimal = 0
-                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
+
+                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+
+
                                                     Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
                                                     Dim PorcentajeImpuesto As Decimal = 0
                                                     CveConceptoOriginal = ConceptoContable
@@ -8980,7 +8985,7 @@ Partial Class Compras_Compras
                                             IdCtaContable = 0
                                             Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
                                             Dim importeMN As Decimal = 0
-                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
+                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
                                             Dim PorcentajeImpuesto As Decimal = 0
                                             Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
 
@@ -10599,7 +10604,7 @@ Partial Class Compras_Compras
                 Dim importeMovimiento As Decimal = 0
                 Dim IdCtaContable As Integer = 0
                 Dim importeMN As Decimal = 0
-                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
+                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable

Compras/Proveedores.aspx.vb

@@ -713,18 +713,36 @@ Partial Class Compras_Proveedores
                 Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
                 Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
                 Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
-                Dim nodo As XmlNode = XMLDoc.DocumentElement
 
-                If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
-                namespaces.AddNamespace(Prefijo, cfdVer)
+                Dim nodo As XmlNode = XMLDoc.DocumentElement
                 Dim Version As String = ValorXml(nodo, "Version")
 
+
+                If Version = "3.2" Then
+                    Prefijo = "cfd"
+                    cfdVer = "http://www.sat.gob.mx/cfd/2"
+                ElseIf Version = "3.3" Then
+                    cfdVer = "http://www.sat.gob.mx/cfd/3"
+
+                Else ' se considera que es la version 4.0
+                    cfdVer = "http://www.sat.gob.mx/cfd/4"
+                End If
+
+
+
+                'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+                namespaces.AddNamespace(Prefijo, cfdVer)
+
+
+
+
+
                 Dim node As XmlNode
                 node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
                 If node IsNot Nothing Then
                     TxtRFC.Text = ValorXml(node, "rfc")
 
-                    If Version = "3.3" Then
+                    If Version = "3.3" Or Version = "4.0" Then
                         TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         ChkEstado.Checked = True

Compras/eFacturas.aspx.vb

@@ -1700,7 +1700,7 @@ Partial Class Compras_eFacturas
         RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas"))
 
 
-        asdasd
+
         'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion)
     End Sub