Unificacion en el reporte de reembolsos comprobaciones

Compras/RepRembolsoComprobaciones.aspx

@@ -187,7 +187,7 @@
                         <HeaderTemplate>Excedente</HeaderTemplate>
                         <ItemTemplate>
                             <asp:TextBox ID="TxtSaldoExcedente" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>&nbsp;
-                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%#If(Eval("Saldo").ToString().Contains("-"), "0", Eval("Saldo")) %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
+                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%#If(Eval("Saldo").ToString().Contains("-"), "0", Eval("Saldo", "{0:N2}")) %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
 

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -161,15 +161,13 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim ObjComp As New ClsCompras()
         Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
         Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaContabilidad Then
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjAC.IniciaTransacSQL()
-        End If
+
         Dim TieneError = False
         Dim CvePrePoliza As Integer = 0
         Dim IdPoliza As Integer = 0
         Dim Msg As New StringBuilder
 
+        Try
             CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
             If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
@@ -200,9 +198,8 @@ Partial Class Compras_RepRembolsoComprobaciones
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
-            If ObjAC Is Nothing Then
-                TieneError = True
-            End If
+                ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+                ObjAC.IniciaTransacSQL()
 
                 If Not TieneError Then
                     If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
@@ -218,7 +215,10 @@ Partial Class Compras_RepRembolsoComprobaciones
                 End If
 
             End If
-
+        Catch ex As Exception
+            TieneError = True
+            OnError("Ocurrió un error al unificar las compras", ex)
+        End Try
 
         If Not TieneError Then
             ObjComp.Commit()