--Autorizacion de anticipos

Ventas/Ventas.aspx.vb

@@ -7194,7 +7194,13 @@ Partial Class Ventas
         End If
         ObjCliente.Dispose()
 
-        If CveCliente > 0 Then CargaAnticipos(CveCliente) : UpAnticipos.Update()
+        If CveCliente > 0 Then
+            CargaAnticipos(CveCliente)
+            If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
+                LnkRecargaAnticipos.Visible = True
+            End If
+            UpAnticipos.Update()
+        End If
 
         If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta <= 0 Then
             DivVentasUsados.Visible = True
@@ -16823,6 +16829,12 @@ Partial Class Ventas
                 GVAnticipos.Columns(8).Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
+                If e.Row.DBCampo("Tipo").ToString() = "Ant" AndAlso e.Row.DBCampo("AnticipoAutorizado").ToString() = "False" Then
+                    e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False
+                End If
+            End If
+
 
             If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = DdlMoneda.SelectedValue.ToEntero() Then
                 e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Visible = False
@@ -38401,5 +38413,10 @@ Partial Class Ventas
 
 
 
+    Protected Sub LnkRecargaAnticipos_Click(sender As Object, e As EventArgs)
+        If CveCliente > 0 Then
+            CargaAnticipos(CveCliente)
+        End If
+    End Sub
 End Class