--Cambios visuales

Ventas/Ventas.aspx.vb

@@ -3184,9 +3184,7 @@ Partial Class Ventas
 
                 CargaEstatusFactura()
                 'DdlEstatus.SelectedValueExist("2")
-                If UsuarioActual.Empresa.CveEmpresa = 189 Then
-                    ImgAntiPend.Visible = False
-                End If
+
                 ConfiguraTipoDocto()
 
 
@@ -3619,6 +3617,10 @@ Partial Class Ventas
 
             End If
 
+            If UsuarioActual.Empresa.CveEmpresa = 189 Then
+                ImgAntiPend.Visible = False
+            End If
+
         End If
 
     End Sub
@@ -7732,8 +7734,8 @@ Partial Class Ventas
                 Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
                 If CreditoDispo > 0 Then
                     TrCreditoDisponible.Visible = True
-                    LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
-                    TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
+                    LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo)
+                    LblPorcentajeCredito.Text = $"({PorcentajeCredito.FormatoNumero}%)"
                 End If
 
             End If
@@ -7761,8 +7763,8 @@ Partial Class Ventas
 
                 If CreditoDispo > 0 Then
                     TrCreditoDisponible.Visible = True
-                    LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
-                    If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
+                    LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo)
+                    If PorcentajeCredito > 80 Then LblPorcentajeCredito.Text = $"({PorcentajeCredito.FormatoNumero}%)"
 
                     If Not UsuarioActual.TienePermisoProceso(268) AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("2")) Then
                         Dim Vta As New ClsVentas
@@ -8273,7 +8275,7 @@ Partial Class Ventas
                         Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero(), ObjVentas)
 
                         TrCreditoDisponible.Visible = True
-                        LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
+                        LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo)
                         UPPCreditoDisponible.Update()
                         UpParametros.Update()
                     End If
@@ -17070,9 +17072,12 @@ Partial Class Ventas
 
 #Region "  ANTICIPOS  "
     Private Sub CargaAnticipos(CveCliente As Integer)
-
+        Dim CargaAnticipos As Boolean = True
+        If UsuarioActual.CveEmpresa = 189 Then
+            CargaAnticipos = False
+        End If
         HdnTieneAnticipos.Value = "0"
-        If CveCliente > 0 Then
+        If CveCliente > 0 AndAlso CargaAnticipos Then
 
             'QUE NO SE PUEDA REALIZAR AMORTIZACIÓN DE ANTICIPO POR DESCUENTO
             If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then