Compras VSH IVA x Acreditar Caja Chica Reembolso

App_Code/ClsValidaCFDi.vb

@@ -41,9 +41,9 @@ Public Class ClsValidaCFDi
     End Sub
 
     Public Sub New(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0)
-        Me.LFolioFiscal = HttpUtility.UrlEncode(FolioFiscal)
-        Me.LRFCEmisor = HttpUtility.UrlEncode(RFCEmisor)
-        Me.LRFCReceptor = HttpUtility.UrlEncode(RFCReceptor)
+        Me.LFolioFiscal = FolioFiscal
+        Me.LRFCEmisor = RFCEmisor
+        Me.LRFCReceptor = RFCReceptor
         Me.LImporte = Importe
         VerificaCFDI()
     End Sub

Compras/Compras.aspx.vb

@@ -1779,10 +1779,10 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
 
-            If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then
+            'If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then
             LnkProrrateoGasolina.Visible = True
             InicializaDTProrrateoGasolina()
-            End If
+            'End If
 
             'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             '    If Request("SaldarRNC") IsNot Nothing AndAlso Request("SaldarRNC").ToString.ToEntero = 1 Then
@@ -8011,7 +8011,13 @@ Partial Class Compras_Compras
                                         AutoConta = False
                                     End If
 
-                                    If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
+                                    Dim OpValidacion As Integer = 4
+
+                                    If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero.Contiene(6, 2) Then
+                                        OpValidacion = 499
+                                    End If
+
+                                    If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=OpValidacion, AutoConta:=AutoConta) Then
                                             TieneError = True
                                             If ObjConta.ValorPolizaDescuadre > 0 Then
                                                 Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
@@ -23028,6 +23034,16 @@ Partial Class Compras_Compras
         End If
 
         If DTProrrateoGasolina.Rows.Count > 0 Then
+
+            If CveCompra > 0 Then
+                For Each dRow As DataRow In TmpDT.Rows
+                    Dim CveCompraDetalle As Integer = dRow("CveCompraDetalle").ToString.ToEntero
+                    If CveCompraDetalle > 0 Then
+                        ClavesBorradas.Add(CveCompraDetalle)
+                    End If
+                Next
+            End If
+
             TmpDT.Rows.Clear()
             For Each dRow As DataRow In DTProrrateoGasolina.Rows
                 AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "",