Reportes Cambiar Cliente y proveedor a dropdown lost, Compras Editar Fecha de compra, reg prepolizas s agregar IE cuando ya esta creada la poliza

Compras/Compras.aspx.vb

@@ -1899,6 +1899,8 @@ Partial Class Compras_Compras
                     ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
                     CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
 
+
+
                     TxtSubTotal.Enabled = False
                     TxtDescuento.Enabled = False
                     TxtSubTotal2.Enabled = False
@@ -2901,6 +2903,16 @@ Partial Class Compras_Compras
                 ImgFecha.Enabled = False
                 CEFecha.Enabled = False
 
+
+                If UsuarioActual.TienePermisoProceso(342) Then
+                    TxtFecha.Enabled = True
+                    ImgFecha.Enabled = True
+                    CEFecha.Enabled = True
+                    LnkActualziarFechadecompra.Visible = True
+                End If
+
+
+
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False
                 DdlEstatus.Enabled = False
@@ -21142,6 +21154,21 @@ Partial Class Compras_Compras
     Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged
         TxtPSAlias.Enabled = ChkAliasFlexible.Checked
     End Sub
+
+    Protected Sub LnkActualziarFechadecompra_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjCompra As New ClsCompras
+
+
+        If ObjCompra.UpdateFechaCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
+            Alert("Fecha Actualizada Correctamente")
+        End If
+
+
+        ObjCompra.Dispose()
+
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion