OC Es Temporal, PS Actualziar Utimo Costo

Ventas/ProductosServicios.aspx.vb

@@ -364,6 +364,9 @@ Partial Class ProductosyServicios
             End If
 
 
+            If CvePS > 0 And UsuarioActual.TienePermisoProceso(402) Then
+                DVEditaUltimoCosto.Visible = True
+            End If
 
         End If
     End Sub
@@ -3843,4 +3846,31 @@ Partial Class ProductosyServicios
 
         Ps.Dispose()
     End Sub
+
+    Protected Sub LnkEditarUltimoCostoMostrarModal_Click(sender As Object, e As EventArgs)
+        TxtUltimoCostoModal.Text = LblUltimoCosto.Text
+        UpUltimoCostoModal.Update()
+        RegistraScript("$('#DVUltimoCostoModal').modal('show');")
+    End Sub
+
+    Protected Sub BtnGuardarUltimoCostoModal_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = False
+
+        Dim objPS As New ClsProductosServicios
+
+        If objPS.UpdateUltimoCosto(CvePS, TxtUltimoCostoModal.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = True
+        End If
+
+        objPS.Dispose()
+
+
+        If ProcesoOK Then
+            RegistraScript("$('#DVUltimoCostoModal').modal('hide');")
+            Alert("Ultimo Costo guardado correctamente", TipoMensaje.MsgInformacion, "window.location.reload();")
+        End If
+
+    End Sub
+
 End Class