-- edición de SMS - ed médica

Ventas/Ventas.aspx.vb

@@ -6043,7 +6043,11 @@ Partial Class Ventas
 
                         'ACTIVA EDITAR
                         'SOLO LA PUEDE EDITAR CON PROCESO | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        If (UsuarioActual.TienePermisoProceso(202) OrElse UsuarioActual.TienePermisoProceso(302)) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                        If DbRowVenta("TipoDocto").ToString = "Rem" AndAlso (UsuarioActual.TienePermisoProceso(202) OrElse UsuarioActual.TienePermisoProceso(302)) AndAlso TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                            BtnPermisoEditarRemision.Visible = True
+                        End If
+
+                        If DbRowVenta("TipoDocto").ToString = "Rem" AndAlso (UsuarioActual.TienePermisoProceso(302)) Then
                             BtnPermisoEditarRemision.Visible = True
                         End If
 
@@ -8857,7 +8861,7 @@ Partial Class Ventas
 
                 If Not EsCreaApartirDe Then
                     'Si es una devolucion
-                    If NuevaFactura = 0 Then
+                    If NuevaFactura <= 0 Then
                         e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
                         e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                         e.Row.FCDropDownLost("DdlPS").Enabled = False
@@ -8969,10 +8973,14 @@ Partial Class Ventas
                     End If
 
                     'cuando ya tiene una salida, no se puede cambiar el producto
-                    If e.Row.DBCampo("CantidadInventario").ToDouble > 0 Then
+                    If e.Row.DBCampo("CantidadInventario").ToDouble > 0 OrElse e.Row.DBCampo("CantidadFacturadaRem").ToDecimal > 0 Then
                         e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                         e.Row.FCDropDownLost("DdlPS").Enabled = False
                         e.Row.FCDropDownLost("DdlPS").ddlWS.Attributes.Add("disabled", "disabled")
+                        If e.Row.DBCampo("CantidadFacturadaRem").ToDecimal > 0 AndAlso SaldoVenta = 0 Then
+                            e.Row.FCTextBox("TxtPrecio").Enabled = False
+                            e.Row.FCTextBox("TxtDescuento").Enabled = False
+                        End If
                     End If
 
                     e.Row.FCTextBox("TxtTiempoEntrega").Enabled = False
@@ -9075,6 +9083,16 @@ Partial Class Ventas
                             e.Row.FCLinkButton("imgD").Visible = False
                         End If
                     End If
+                    'EN SMS NO DEBE PODER EDITAR LOS PS
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                        If ModalidadEdicion Then
+                            e.Row.FCLinkButton("imgE").Visible = True
+                            e.Row.FCLinkButton("imgD").Visible = False
+                        Else
+                            e.Row.FCLinkButton("imgE").Visible = False
+                            e.Row.FCLinkButton("imgD").Visible = False
+                        End If
+                    End If
                 End If
 
                 If (UsuarioActual.Empresa.Funcionalidad(360) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then