--2 Ver existencias en cotizacion, actual o existente

Ventas/Ventas.aspx.vb

@@ -9006,13 +9006,16 @@ Partial Class Ventas
 
                 If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso Not UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                     e.Row.FCLinkButton("LnkDescuentos").Visible = True
-                    If e.Row.DBCampo("TipoDocto") = "Cot" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe Then
+                    If e.Row.DBCampo("TipoDocto").Contiene("Cot") AndAlso (CveVenta > 0 AndAlso Not EsCreaApartirDe) Then
                         e.Row.FCLinkButton("imgClone").Visible = False
                     End If
                 End If
 
                 If UsuarioActual.CveEmpresa = 189 Then
                     e.Row.FCLinkButton("LnkExistencias").Visible = True
+                    If e.Row.DBCampo("TipoDocto").Contiene("Cot", "Rem") AndAlso (CveVenta > 0 AndAlso Not EsCreaApartirDe) Then
+                        e.Row.FCLinkButton("imgClone").Visible = False
+                    End If
                 End If
 
                 If CveVenta <= 0 Then
@@ -24007,22 +24010,33 @@ Partial Class Ventas
         GvPS.Columns(21).Visible = True
         thOrden.Visible = True
 
-        If GvPS.Columns(21).Visible Then
+        Dim HabilitarExistencias As Boolean = False
-            For Each GvRow As GridViewRow In GvPS.Rows
-                If GvRow.RowType = DataControlRowType.Header Then
-                    GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
-                End If
 
-                If GvRow.RowType = DataControlRowType.DataRow Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                    GvRow.FCTextBox("TxtOrden").Visible = True
+            HabilitarExistencias = True
-
+            GvPS.Columns(20).Visible = True
-                    If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
-                        GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
-                    End If
-                End If
-            Next
         End If
 
+        For Each GvRow As GridViewRow In GvPS.Rows
+            If GvRow.RowType = DataControlRowType.Header Then
+                GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
+            End If
+
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                GvRow.FCTextBox("TxtOrden").Visible = True
+
+                If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
+                    GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
+                End If
+            End If
+
+            If HabilitarExistencias Then
+                GvRow.FCLinkButton("LnkExistencias").Visible = True
+                GvRow.FCLinkButton("imgClone").Visible = False
+                GvRow.FCLinkButton("LnkDescuentos").Visible = False
+            End If
+        Next
+
         OrdenarPS(True)
 
         UpCliente.Update()
@@ -33202,22 +33216,33 @@ Partial Class Ventas
         GvPS.Columns(21).Visible = True
         thOrden.Visible = True
 
-        If GvPS.Columns(21).Visible Then
+        Dim HabilitarExistencias As Boolean = False
-            For Each GvRow As GridViewRow In GvPS.Rows
-                If GvRow.RowType = DataControlRowType.Header Then
-                    GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
-                End If
 
-                If GvRow.RowType = DataControlRowType.DataRow Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                    GvRow.FCTextBox("TxtOrden").Visible = True
+            HabilitarExistencias = True
-
+            GvPS.Columns(20).Visible = True
-                    If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
-                        GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
-                    End If
-                End If
-            Next
         End If
 
+        For Each GvRow As GridViewRow In GvPS.Rows
+            If GvRow.RowType = DataControlRowType.Header Then
+                GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
+            End If
+
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                GvRow.FCTextBox("TxtOrden").Visible = True
+
+                If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
+                    GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
+                End If
+            End If
+
+            If HabilitarExistencias Then
+                GvRow.FCLinkButton("LnkExistencias").Visible = True
+                GvRow.FCLinkButton("imgClone").Visible = False
+                GvRow.FCLinkButton("LnkDescuentos").Visible = False
+            End If
+        Next
+
         OrdenarPS(True)
 
         UpPS.Update()