-- no deducible

Bancos/ProveedoresAbonar.aspx

@@ -369,7 +369,7 @@
     <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" 
-                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Total,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio,TipoCambioOriginal, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal,EsImportacion" 
+                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Total,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio,TipoCambioOriginal, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal,EsImportacion,NoDeducible" 
                 Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>

Bancos/ProveedoresAbonar.aspx.vb

@@ -687,18 +687,15 @@ Partial Class Bancos_ProveedoresAbonar
 
                             Validada = False
                             If Valida.EsValida = 2 Then 'Cancelada
-
                                 'estatus inventario, no surtida
                                 If gvr.DataKey("EstatusInventario") = "1" Then
                                     MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} , relacione su factura nueva para descontar saldo<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
                                 Else
                                     MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} con movimientos de almacen, relacione su factura nueva para descontar saldo<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
                                 End If
-
                             Else
                                 MsgValidadas.AppendFormat("Factura No se pudo Validar: {0} - {1}<br>", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion"))
                             End If
-
                         End If
                     End If
                 End If
@@ -767,7 +764,6 @@ Partial Class Bancos_ProveedoresAbonar
                 Dim FolioFijo As Integer = 0
                 Dim TipoCambio As Decimal = 0
 
-
                 'cheque
                 If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
 
@@ -799,7 +795,6 @@ Partial Class Bancos_ProveedoresAbonar
                             If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
                                 MsgError = "Error al actualziar Cuanta  Referencia y Concepto Deposito."
                             End If
-
                         End If
 
                     End If
@@ -834,6 +829,8 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.Total = gvr.DataKey("Total").ToDecimal
                                 CompraActual.IVA = gvr.DataKey("IVA").ToDecimal
                                 CompraActual.IVADeducible = gvr.DataKey("IVADeducible").ToDecimal
+                                CompraActual.IVANoDeducible = gvr.DataKey("IVANoDeducible").ToDecimal
+                                CompraActual.CompraNoDeducible = gvr.DataKey("NoDeducible").ToEntero
                                 CompraActual.IEPS = gvr.DataKey("IEPS").ToDecimal
                                 CompraActual.RetIVA = gvr.DataKey("RetIVA").ToDecimal
                                 CompraActual.RetISR = gvr.DataKey("RetISR").ToDecimal
@@ -843,15 +840,15 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1"
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
+
                                 CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaProveedorExtranjera, CtaProveedor)
                                 CompraActual.IdCtaContableProvComplementaria = IdCtaContComplementaria
-
                                 'Importe de pago
                                 Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-
                                 'Tipos de cambio
                                 If Pago.CveMonedaPago = 1 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
-                                    Pago.TCPago = TxtTC.Text.ToDecimal
+                                    Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
+                                    Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
                                     Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
@@ -1107,7 +1104,7 @@ Partial Class Bancos_ProveedoresAbonar
                         If IDPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then Msg.AppendFormat(" <a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a><br/> ", IDPoliza)
 
                         If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
-                            Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
+                            Msg.AppendFormat("<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
                         End If
 
                         Dim Mensaje As String = String.Format("El Documento se generó correctamente.<br /><br />  {0} ", Msg.ToString)
@@ -1516,7 +1513,6 @@ Partial Class Bancos_ProveedoresAbonar
 #Region "  NOTIFICACION PAGO  "
 
 
-
     Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
 
         Try
@@ -1555,263 +1551,8 @@ Partial Class Bancos_ProveedoresAbonar
             GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString)
         End Try
 
-
-
     End Sub
 
-
-
-    'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
-
-    '    If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
-
-    '        Dim Body As String = GeneraCorreo(CveIE)
-    '        Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
-
-    '        Dim File As Byte() = Nothing
-    '        If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
-    '            File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
-    '        End If
-
-    '        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
-    '        Hilo.Start()
-    '    End If
-
-    'End Sub
-
-    'Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
-    '    'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String))
-
-    '    Dim Mail As New ClsSisMail()
-    '    Para = If(Para IsNot Nothing, Para, "")
-    '    Asunto = If(Asunto IsNot Nothing, Asunto, "")
-    '    Body = If(Body IsNot Nothing, Body, "")
-
-    '    Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-    '    If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
-    '        ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
-    '    End If
-
-    '    If File IsNot Nothing Then
-    '        ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
-    '    End If
-
-    '    If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
-    '        Dim objIE As New ClsBancos
-    '        objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
-    '        objIE.Dispose()
-    '    End If
-    'End Sub
-
-    'Private Function GeneraCorreo(CveIE As Integer) As String
-    '    Dim strBody As New StringBuilder
-    '    Dim objIE As New ClsBancos
-
-    '    If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-    '        strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
-    '        strBody.Append("<head> ")
-    '        strBody.Append("    <style type=""text/css""> ")
-    '        strBody.Append("        body ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            margin:0px; ")
-    '        strBody.Append("            padding:0px 0px 0px 0px; ")
-    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-    '        strBody.Append("            font-size: 10px; ")
-    '        strBody.Append("            background-color:#F0F0F0; ")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        a.Texto ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            font-size:11px; ")
-    '        strBody.Append("            background-color:#F7F6F3; ")
-    '        strBody.Append("            text-decoration:none; ")
-    '        strBody.Append("            font-weight:bold; ")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        .Texto ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        .TextoAlterno ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-    '        strBody.Append("            vertical-align:middle; height:20px;")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        .BarraIdentidad ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            color:#FFFFFF; ")
-    '        strBody.Append("            background:#F0F0F0; ")
-    '        strBody.Append("            font-weight:bold; ")
-    '        strBody.Append("            font-size:19px; ")
-    '        strBody.Append("            font-style:oblique; ")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        .Titulos ")
-    '        strBody.Append("        { ")
-    '        strBody.Append("            background-color: Gray;")
-    '        strBody.Append("            color:White;  ")
-    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-    '        strBody.Append("            text-decoration:none; ")
-    '        strBody.Append("        } ")
-    '        strBody.Append("        .Verde {color: #00CC00;} ")
-    '        strBody.Append("        .Negro {color: #000000;} ")
-    '        strBody.Append("        .Rojo {color: #FF0000;} ")
-    '        strBody.Append("    </style> ")
-    '        strBody.Append("</head> ")
-    '        strBody.Append("<body> ")
-    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-    '        strBody.AppendFormat("    <fieldset>")
-    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-    '        strBody.AppendFormat("            <tr>")
-    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-    '        strBody.AppendFormat("            </tr>")
-    '        strBody.AppendFormat("            <tr>")
-    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-    '        strBody.AppendFormat("            </tr>")
-    '        strBody.AppendFormat("            <tr>")
-    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-    '        strBody.AppendFormat("            </tr>")
-    '        strBody.AppendFormat("            <tr>")
-    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-    '        strBody.AppendFormat("            </tr>")
-    '        strBody.AppendFormat("        </table>")
-    '        strBody.AppendFormat("    </fieldset>")
-    '        strBody.AppendFormat("</div><br/><br/>")
-
-    '        strBody.AppendFormat("<div style='width: 600px'>")
-    '        strBody.AppendFormat("    <fieldset>")
-    '        strBody.AppendFormat("        <legend><b> </b></legend>")
-    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
-
-    '        If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-    '            strBody.Append("                <tr style=""height: 22px""> ")
-    '            strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
-    '            strBody.Append("                </tr> ")
-    '        End If
-
-    '        If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-    '            strBody.Append("                <tr style=""height: 22px""> ")
-    '            strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
-    '            strBody.Append("                </tr> ")
-    '        End If
-
-    '        strBody.Append("                    <tr style=""height: 22px""> ")
-    '        strBody.AppendFormat("                  <td>&nbsp;</td> ")
-    '        strBody.Append("                    </tr> ")
-    '        strBody.Append("                </table> ")
-    '        strBody.AppendFormat("      </fieldset>")
-    '        strBody.Append("    </div> ")
-
-
-    '        strBody.AppendFormat("<div style='width: 600px'>")
-    '        strBody.AppendFormat("    <table style='width:100%'>")
-    '        strBody.AppendFormat("        <tr>")
-    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
-    '        strBody.AppendFormat("                <fieldset>")
-    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-    '        strBody.AppendFormat("                    <table width='100%'>")
-    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-    '        strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
-    '        strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Banco:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Cuenta:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
-    '        strBody.AppendFormat("                        </tr>")
-    '        If objIE.CuentaDepositado.ToString <> "" Then
-    '            strBody.AppendFormat("                        <tr class='Texto'>")
-    '            strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
-    '            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
-    '            strBody.AppendFormat("                        </tr>")
-    '        End If
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Fecha:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Importe:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
-    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                        <tr class='Texto'>")
-    '        strBody.AppendFormat("                            <td colspan='2'>")
-    '        strBody.AppendFormat("                                <hr />")
-    '        strBody.AppendFormat("                            </td>")
-    '        strBody.AppendFormat("                        </tr>")
-    '        strBody.AppendFormat("                    </table>")
-    '        strBody.AppendFormat("                </fieldset>")
-    '        strBody.AppendFormat("            </td>")
-    '        strBody.AppendFormat("      </tr>")
-    '        strBody.AppendFormat("  </table>")
-    '        strBody.AppendFormat("</div>")
-
-
-    '        'MOVIMIENTOS CHEQUE
-    '        If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-    '            Dim Textov33 As String = ""
-    '            If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-    '                Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-    '            End If
-
-    '            strBody.AppendFormat("<div style='width: 1000px'>")
-    '            strBody.AppendFormat("    <table style='width:1000px'>")
-    '            strBody.AppendFormat("        <tr>")
-    '            strBody.AppendFormat("            <td style='vertical-align: top'>")
-    '            strBody.AppendFormat("                <fieldset>")
-    '            strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
-    '            strBody.AppendFormat("                    <table width='1000px'>")
-    '            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-    '            strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
-    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
-    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
-    '            strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-    '            strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
-    '            strBody.AppendFormat("                        </tr>")
-
-
-    '            For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
-    '                strBody.AppendFormat("                        <tr class='Texto'>")
-    '                strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
-    '                strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
-    '                strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
-    '                strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-    '                strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
-    '                strBody.AppendFormat("                        </tr>")
-    '            Next
-
-
-    '            strBody.AppendFormat("                        <tr class='Texto'>")
-    '            strBody.AppendFormat("                            <td colspan='5'>")
-    '            strBody.AppendFormat("                                <hr />")
-    '            strBody.AppendFormat("                            </td>")
-    '            strBody.AppendFormat("                        </tr>")
-    '            strBody.AppendFormat("                    </table>")
-    '            strBody.AppendFormat("                </fieldset>")
-    '            strBody.AppendFormat("            </td>")
-    '            strBody.AppendFormat("      </tr>")
-    '            strBody.AppendFormat("  </table>")
-    '            strBody.AppendFormat("</div>")
-    '        End If
-
-    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
-
-    '        strBody.Append("</body></html>")
-    '    End If
-
-    '    objIE.Dispose()
-    '    Return strBody.ToString
-    'End Function
-
 #End Region
 
 #Region "SALDAR CUENTAS"
@@ -1950,31 +1691,17 @@ Partial Class Bancos_ProveedoresAbonar
             End If
         Next
 
-
-
         If MsgError.Trim.Length = 0 AndAlso CvePrePoliza > 0 Then
-            If MsgError = "" AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+            If MsgError = "" AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, 5, UsuarioActual) Then
                 If ObjConta.ValorPolizaDescuadre > 0 Then
                     MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
                     GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                Else
-                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-
-                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                            ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                        Else
-                            'Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                            MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
-                        End If
-
-                    End If
 
                 End If
             End If
         End If
 
 
-
         If MsgError = "" Then
             ObjConta.Commit()
             CargaDatos(CveMoneda)