Puntos GDiaz:

--5ta y 6ta revision

Ventas/Clientes.aspx.vb

@@ -935,6 +935,39 @@ Partial Class Clientes
 
             If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                 DivAseguradora.Visible = True
+            End If
+
+            'PROCESOS PARA OCULTAR OPCIONES
+            If TabAnticipos.Visible Then
+                TabAnticipos.Visible = Not UsuarioActual.TienePermisoProceso(391)
+            End If
+
+            If TabComplementos.Visible Then
+                TabComplementos.Visible = Not UsuarioActual.TienePermisoProceso(392)
+            End If
+
+            If TabOtros.Visible Then
+                TabOtros.Visible = Not UsuarioActual.TienePermisoProceso(393)
+            End If
+
+            If TabUsuarios.Visible Then
+                TabUsuarios.Visible = Not UsuarioActual.TienePermisoProceso(394)
+            End If
+
+            If TabContratos.Visible Then
+                TabContratos.Visible = Not UsuarioActual.TienePermisoProceso(395)
+            End If
+
+            If TabSistema.Visible Then
+                TabSistema.Visible = Not UsuarioActual.TienePermisoProceso(396)
+            End If
+
+            If TabDocumentacion.Visible Then
+                TabDocumentacion.Visible = Not UsuarioActual.TienePermisoProceso(397)
+            End If
+
+            If TabRH.Visible Then
+                TabRH.Visible = Not UsuarioActual.TienePermisoProceso(398)
             End If
 
         End If
@@ -1746,10 +1779,11 @@ Partial Class Clientes
                 ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
                     divCuentas.Visible = False
                     divCuentasContp.Visible = True
-                End If
-
-
-                'Ocultamos la mayoria de informacion si es no-frecuente
+                End If
+
+
+
+                'Ocultamos la mayoria de informacion si es no-frecuente
                 If ObjClientes.TipoCliente = 2 Then
                     If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
 
@@ -1769,7 +1803,8 @@ Partial Class Clientes
                     'DivPortletBitacora.Visible = False
                     BtnEliminar.Visible = False
 
-                End If
+                End If
+
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
                 TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString()
@@ -1803,11 +1838,11 @@ Partial Class Clientes
             TxtRepresentanteLegal.Text = ObjClientes.RepresentanteLegal
 
         End If
+
         UpActivacionPortal.Update()
         UpModalPersonaFisica.Update()
         ObjClientes.Dispose()
 
-
         watch.Stop()
         ' Alert(watch.ElapsedMilliseconds.ToString())
 
@@ -2992,7 +3027,17 @@ Partial Class Clientes
 
 
             If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) AndAlso CType(sender, GridView).ID = "GVAnticipos" Then
-                If e.Row.DBCampo("CveVenta").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString() = "Ant" Then
+                If e.Row.DBCampo("CveVenta").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString().Contiene("NC", "Ant") Then
+                    If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
+                        e.Row.FCLinkButton("LnkAutorizar").Visible = True
+                        e.Row.FCLinkButton("LnkCancelar").Visible = False
+                    Else
+                        e.Row.FCLinkButton("LnkAutorizar").Visible = False
+                        e.Row.FCLinkButton("LnkCancelar").Visible = True
+                    End If
+                End If
+
+                If e.Row.DBCampo("CveIE").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString().Contiene("IxC") Then
                     If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
                         e.Row.FCLinkButton("LnkAutorizar").Visible = True
                         e.Row.FCLinkButton("LnkCancelar").Visible = False
@@ -10744,14 +10789,23 @@ Partial Class Clientes
     Protected Sub LnkAutorizarAnticipo_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
-        If CveVenta > 0 Then
+        Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero()
+
+        If CveVenta > 0 OrElse CveIE > 0 Then
             Using ObjVentas As New ClsVentas
-                If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, True) Then
-                    Alert("El anticipo se autorizó correctamente")
+                If GvRow.DataKey("Tipo").Contiene("NC", "Ant") Then
+                    If ObjVentas.UpdateVentaAnticipoAutorizado(CveVenta, True) Then
+                        Alert("El anticipo se autorizó correctamente")
+                    End If
+                ElseIf GvRow.DataKey("Tipo").Contiene("IxC") Then
+                    If ObjVentas.UpdateIxCAnticipoAutorizado(CveIE, True) Then
+                        Alert("El anticipo se autorizó correctamente")
+                    End If
                 End If
             End Using
-            CargaAnticipos()
         End If
+
+        CargaAnticipos()
     End Sub
 
     Protected Sub LnkCancelarAnticipo_Click(sender As Object, e As EventArgs)