diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 829a5b2f1..913c6ddf7 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1580,7 +1580,7 @@ Public Class ClsOC Return Retorno End Function - Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean + Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_EstatusUsuariosRemove") @@ -1596,7 +1596,8 @@ Public Class ClsOC Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 547;") Then - Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + 'Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Else Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index fe7fee68d..457ba77d3 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -888,7 +888,30 @@ Public Class ClsOIEventos OnError("Ocurrió un error al obtener el Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno + End Function + + + + Public Function RemoveEventosProyectos(CveEvento As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_EventosProyectosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = CveEvento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el proyecto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno End Function + + + Public Function GetEventos2(cveEvento As Int32, CveEmpresa As Integer, Optional CveEventoPadre As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_OI_Eventos2Get", CommandType.StoredProcedure) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 89b63605c..cde36d83a 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -509,13 +509,16 @@

Vincular Complemento de Pago

-
+ + +
@@ -555,10 +558,11 @@
+ @@ -567,7 +571,7 @@ <%-- --%> - + @@ -765,9 +769,15 @@ diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 0f8199f3a..50c3b7f3f 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -604,6 +604,70 @@ Partial Class Compras_eFacturas End Set End Property + + + Property DTGVPagosVinculacion As DataTable + + Get + If ViewState("DTGVPagosVinculacion") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTGVPagosVinculacion"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DTGVPagosVinculacion") = value + End Set + End Property + + + + Private Property CurretUUIDPagoVincular As String + + Get + If ViewState("CurretUUIDPagoVincular") Is Nothing Then + Return "-1" + Else + Return ViewState("CurretUUIDPagoVincular").ToString + End If + + End Get + Set(value As String) + ViewState("CurretUUIDPagoVincular") = value + End Set + + End Property + + + Private Property XMLNodosPagosModalCount As Integer + Get + If ViewState("XMLNodosPagosModalCount") Is Nothing Then + Return -1 + Else + Return ViewState("XMLNodosPagosModalCount").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("XMLNodosPagosModalCount") = value + End Set + End Property + + + Private Property MontoPago As Decimal + Get + If ViewState("MontoPago") Is Nothing Then + Return 0 + Else + Return (ViewState("MontoPago")).ToString.ToDecimal + End If + End Get + + Set(value As Decimal) + ViewState("MontoPago") = value + End Set + + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -2682,7 +2746,10 @@ Partial Class Compras_eFacturas Dim FechaPago As Date Dim PagosCantidad As Integer = 0 + DTGVPagosVinculacion = New DataTable + MontoPago = 0D + XMLNodosPagosModalCount = 0 Dim XMLDoc As New XmlDocument Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) @@ -2759,13 +2826,14 @@ Partial Class Compras_eFacturas DTDocumentosRelacionados.Columns.Add("SerieFolioCompra") DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer)) + DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String)) + DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean)) Dim nodePagosN As XmlNodeList nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", PrefijoPagos), namespaces) - For Each NodosPagos As XmlNode In nodePagosN For Each innernode As XmlNode In NodosPagos @@ -2788,14 +2856,20 @@ Partial Class Compras_eFacturas Nrow("ImpPagado") = ValorXML(node, "ImpPagado").ToDecimal Nrow("Fecha") = FechaPago + Nrow("Tipo") = "17" + Nrow("Manual") = False + DTDocumentosRelacionados.Rows.Add(Nrow) StrUUID.AppendFormat("'{0}',", ValorXML(node, "IdDocumento").Replace("'", "")) + + XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1 + Next Next Next - + MontoPago = Monto Dim ObjCompraFolios As New ClsCompras If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{PrefijoPagos}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then @@ -2820,19 +2894,13 @@ Partial Class Compras_eFacturas If drow("CveIE").ToString.ToEntero > 0 Then - dRow2("CveIE") = drow("CveIE").ToString.ToEntero dRow2("ImportePago") = drow("Importe").ToString.ToDecimal - - End If dRow2("FolioPago") = drow("FolioIE") dRow2("FechaPago") = drow("FechaDocumento") - - - End If Next Next @@ -2843,6 +2911,7 @@ Partial Class Compras_eFacturas GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados GVPDocumentosRelacionadosPagos.DataBind() + DTGVPagosVinculacion = DTDocumentosRelacionados If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then @@ -2873,6 +2942,7 @@ Partial Class Compras_eFacturas DT_ComprasSinIE.Columns.Add("SerieFolioCompra") For Each dRow As DataRow In DTDocumentosRelacionados.Rows + Dim nRow As DataRow = DT_ComprasSinIE.NewRow nRow("CveCompra") = dRow("CveCompra").ToString.ToEntero ' nRow("CveFactura") = dRow("CveFactura").ToString.ToEntero @@ -2881,7 +2951,6 @@ Partial Class Compras_eFacturas DT_ComprasSinIE.Rows.Add(nRow) - Next @@ -3057,27 +3126,40 @@ Partial Class Compras_eFacturas For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - If HdnCveIE.Value.ToEntero > 0 Then - If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then - If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then - TieneError = True - Exit For - End If + If Gv.DataKey("CveCompra").ToEntero > 0 Then + + If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then + TieneError = True + Exit For End If - Else - If Gv.DataKey("CveCompra").ToEntero > 0 Then - If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then - TieneError = True - Exit For - End If - - End If End If + + ' If HdnCveIE.Value.ToEntero > 0 Then + ' If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then + + ' If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then + ' TieneError = True + ' Exit For + ' End If + + ' End If + 'Else + ' If Gv.DataKey("CveCompra").ToEntero > 0 Then + + ' If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then + ' TieneError = True + ' Exit For + ' End If + + ' End If + 'End If Next + + If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then TieneError = True End If @@ -3096,13 +3178,21 @@ Partial Class Compras_eFacturas End If - If HdnCveIE.Value.ToEntero > 0 Then + For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - For Each dRow As DataRow In DT_ComprasSinIE.Rows - objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString } vinculado manualmente a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero) - Next + If Boolean.Parse(Gv.DataKey("Manual").ToString) Then + objEventos.AddEventoBitacora($"Complemento { LblSerieFolioPago.Text} vinculado manualmente a compra {Gv.DataKey("SerieFolio").ToString} y Pago { Gv.DataKey("FolioPago").ToString }", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=Gv.DataKey("CveCompra").ToString.ToEntero) + End If + Next - End If + + 'If HdnCveIE.Value.ToEntero > 0 Then + + ' For Each dRow As DataRow In DT_ComprasSinIE.Rows + ' objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString } vinculado manualmente a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero) + ' Next + + 'End If @@ -3135,82 +3225,244 @@ Partial Class Compras_eFacturas If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then + 'VincularComplementoManualGV(HdnCveIE.Value.ToEntero) - Dim ImportePago As Double = 0 - Dim ImporteIES As Double = 0 - Dim SerieFolioIE As String = "" - Dim ObjCompras As New ClsCompras - Dim ErrorVinculacion = True - - If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then - - For Each Drow As DataRow In ObjCompras.DtResultados.Rows - For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - - If GvRow.RowType = DataControlRowType.DataRow Then - - If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then - - GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString - GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString - - End If - - End If - - Next - Next + For Each dRow As DataRow In DTGVPagosVinculacion.Rows - For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - If GvRow.RowType = DataControlRowType.DataRow Then + If HdnIdDocumento.Value = dRow("IdDocumento").ToString Then 'And dRow("CveIE").ToString.ToEntero <= 0 - If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then - ErrorVinculacion = False + dRow("CveIE") = HdnCveIE.Value.ToEntero - Else + Dim ObjIE As New ClsBancos() - If ObjCompras.DtResultados.Rows.Count > 0 Then - GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString - GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString - Else - ErrorVinculacion = True - Exit For - End If + 'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ' Try + ' dRow("FolioPago") = ObjIE.Folio + ' dRow("ImportePago") = dRow("ImpPagado") + ' dRow("FechaPago") = ObjIE.FechaDocumento + ' dRow("Tipo") = "E" + ' ' dRow("Diferencia") = 0D + ' dRow("Manual") = True + + ' Catch ex As Exception + + ' End Try + + 'End If + + Dim ObjCompras As New ClsCompras + + If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then + + Try + dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE") + dRow("ImportePago") = dRow("ImpPagado") + dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate + dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero + dRow("Tipo") = "E" + ' dRow("Diferencia") = 0D + dRow("Manual") = True + Catch ex As Exception + + End Try - End If End If + ObjCompras.Dispose() - Next + ObjIE.Dispose() + + End If + Next + End If + + DTGVPagosVinculacion.AcceptChanges() + + HdnIdDocumento.Value = "-1" + + GVPDocumentosRelacionadosPagos.DataSource = DTGVPagosVinculacion + GVPDocumentosRelacionadosPagos.DataBind() + + UpVincularPago.Update() + CurretUUIDPagoVincular = "" + + ValidaTablaDeVinculacion() + + Exit Sub + + '********************************************************************************************************************** + + + + 'If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then + + ' Dim ImportePago As Double = 0 + ' Dim ImporteIES As Double = 0 + ' Dim SerieFolioIE As String = "" + ' Dim ObjCompras As New ClsCompras + ' Dim ErrorVinculacion = True + + ' If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then + + ' For Each Drow As DataRow In ObjCompras.DtResultados.Rows + ' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows + + ' If GvRow.RowType = DataControlRowType.DataRow Then + + ' If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then + + ' GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString + ' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString + + ' End If + + ' End If + + ' Next + ' Next + + + ' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + + ' If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then + ' ErrorVinculacion = False + + ' Else + + ' If ObjCompras.DtResultados.Rows.Count > 0 Then + ' GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString + ' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString + ' Else + ' ErrorVinculacion = True + ' Exit For + ' End If + + ' End If + ' End If + + ' Next + + + ' Else + ' ErrorVinculacion = True + ' End If + + ' If Not ErrorVinculacion Then + ' ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe") + ' ObjCompras.Dispose() + + ' BtnVincularPago.Visible = True + + ' LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" + ' LblImportePago.Text = ImportePago.FormatoNumero + ' 'LblSerieFolioIE.Text = SerieFolioIE + ' LblImporteIE.Text = ImporteIES.FormatoNumero + + ' GvVincularPago.DataBind() + ' UpVincularPago.Update() + ' ObjCompras.Dispose() + + ' Else + ' Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia) + ' End If + + + 'End If + + End Sub + + + + + + + Private Function ValidaTablaDeVinculacion() As Boolean + + Dim ResPuesta As Boolean = False + Dim Vinculados As Integer = 0 + Dim TodoVinculado As Boolean = False + + Dim Diferencia As Boolean = If(Math.Abs(DTGVPagosVinculacion.SUM("ImpPagado") - DTGVPagosVinculacion.SUM("ImportePago")).ToDecimal > 0.1D, True, False) + Dim VinculacionManual As Boolean = If(DTGVPagosVinculacion.FiltraParametros("Manual = 1").Rows.Count > 0, True, False) + + + + + Dim PermisoVinculacionDiferencia As Boolean = UsuarioActual.TienePermisoProceso(286) + Dim PermisoVinculacionManual As Boolean = UsuarioActual.TienePermisoProceso(286) + + Dim MontoSuma As Decimal = DTGVPagosVinculacion.SUM("ImportePago").ToString.ToDecimal + + For Each dRow As DataRow In DTGVPagosVinculacion.Rows + If dRow("CveIE").ToString.ToEntero > 0 Then + Vinculados = Vinculados + 1 + End If + Next + + If XMLNodosPagosModalCount = Vinculados Then + TodoVinculado = True + End If + + + If TodoVinculado Then + + If Diferencia Then + If PermisoVinculacionDiferencia Then + If VinculacionManual Then + If PermisoVinculacionManual Then + ResPuesta = True + Else + ResPuesta = False + End If + Else + ResPuesta = True + End If + Else + ResPuesta = False + End If Else - ErrorVinculacion = True + + If VinculacionManual Then + If PermisoVinculacionManual Then + ResPuesta = True + Else + ResPuesta = False + End If + Else + ResPuesta = True + End If + End If - If Not ErrorVinculacion Then - ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe") - ObjCompras.Dispose() + Else + ResPuesta = False + End If - BtnVincularPago.Visible = True - LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" - LblImportePago.Text = ImportePago.FormatoNumero - 'LblSerieFolioIE.Text = SerieFolioIE - LblImporteIE.Text = ImporteIES.FormatoNumero + If Not MontoSuma = MontoPago And ResPuesta Then - GvVincularPago.DataBind() - UpVincularPago.Update() - ObjCompras.Dispose() - - Else - Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia) + If Not PermisoVinculacionDiferencia Then + ResPuesta = False End If - End If - End Sub + + If ResPuesta Then + BtnVincularPago.Visible = True + Else + BtnVincularPago.Visible = False + End If + + UpVincularPago.Update() + + Return ResPuesta + + End Function + Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated @@ -3220,7 +3472,7 @@ Partial Class Compras_eFacturas Dim HeaderCell = New TableCell HeaderCell.Text = "Documentos Relacionados" - HeaderCell.ColumnSpan = 8 + HeaderCell.ColumnSpan = 9 HeaderCell.Attributes.Add("style", "border-top: 1px solid #ddd; vertical-align: top; background-color: #DDD; color: #333333;font-family: 'Open Sans', sans-serif;font-size: 12px; text-align:center!important; font-weight: bold;") HeaderGridRow.Cells.Add(HeaderCell) GVPDocumentosRelacionadosPagos.Controls(0).Controls.AddAt(0, HeaderGridRow) @@ -3240,12 +3492,24 @@ Partial Class Compras_eFacturas e.Row.ToolTip = "Compra registrada" e.Row.Cells(4).ForeColor = Drawing.Color.Green + + e.Row.Cells(6).Controls.Clear() + Dim LiteralVincular As New Literal + + If UsuarioActual.TienePermisoProceso(286) Then ' permiso vinculación manual + LiteralVincular.Text = $"" + Else + LiteralVincular.Text = "-" + End If + + + e.Row.Cells(6).Controls.Add(LiteralVincular) + Else e.Row.Cells(4).Text = "" e.Row.ToolTip = "Factura recibida sin registrar" End If - Else e.Row.Cells(4).Text = "" e.Row.ToolTip = "No se encontro el Folio Fiscal en el sistema" diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 93b79843a..aeb668b7d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -543,8 +543,14 @@ Partial Class Inventarios_EntradasSalidas 'Llenar el dropdownlist de almacén If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + 'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then + ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + End If + + + DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") @@ -2060,7 +2066,11 @@ Partial Class Inventarios_EntradasSalidas If DdlAlmacen.SelectedValue = "-1" Then filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString Else + + + filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen) + End If DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(filtro) @@ -2139,6 +2149,7 @@ Partial Class Inventarios_EntradasSalidas ''condicion de limpieza si es el usuario 1490, se dejan sino If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then If Not UsuarioActual.CveUsuario.Contiene(1490, 2185) Then 'luz del mar(1490), y celia(2185) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1")) DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2")) DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3")) @@ -2153,12 +2164,21 @@ Partial Class Inventarios_EntradasSalidas End If + + End If + + If UsuarioActual.CveUsuario.Contiene(2185, 100) And DdlAlmacen.SelectedValue.ToEntero.Contiene(651, 658) Then + DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) + End If + + + DdlConcepto.SelectedValue = "-1" ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty) - + UpGenerales.Update() End Sub diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb index 7a9255c82..0cd097280 100644 --- a/OC/CatEstatus.aspx.vb +++ b/OC/CatEstatus.aspx.vb @@ -594,7 +594,7 @@ Partial Class OC_CatEstatus If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then 'Eliminar el registro existente - If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then + If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, UsuarioActual.CveUsuario) Then HuboErrores = True Exit For End If @@ -660,7 +660,7 @@ Partial Class OC_CatEstatus If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then 'Eliminar el registro existente - If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then + If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, UsuarioActual.CveUsuario) Then HuboErrores = True Exit For End If diff --git a/OI/Proyecto.aspx b/OI/Proyecto.aspx index 4e70406d0..19fdbee92 100644 --- a/OI/Proyecto.aspx +++ b/OI/Proyecto.aspx @@ -146,6 +146,8 @@ Para: + +
@@ -187,6 +189,8 @@ Tema: + +
diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs index efa67fa8f..2e6630d24 100644 --- a/OI/Proyecto.aspx.cs +++ b/OI/Proyecto.aspx.cs @@ -36,6 +36,7 @@ public partial class OI_Proyecto : ClsPaginas DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); ; DdlPara.DataBind(); + DdlPara.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); DdlTema.DataBind(); diff --git a/OI/RepProyectos.aspx b/OI/RepProyectos.aspx index 05fe28076..90f168475 100644 --- a/OI/RepProyectos.aspx +++ b/OI/RepProyectos.aspx @@ -89,6 +89,15 @@ <%-- --%> + + + + + + + + +
@@ -166,10 +180,17 @@
+ Tema: + + + + + +
@@ -177,7 +198,7 @@
- Guardar + Guardar
diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs index a4680cdd7..640866951 100644 --- a/OI/RepProyectos.aspx.cs +++ b/OI/RepProyectos.aspx.cs @@ -19,6 +19,8 @@ public partial class OI_RepProyectos : ClsPaginas DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); ; DdlPara.DataBind(); + DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1")); + DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); DdlTema.DataBind(); DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); @@ -177,4 +179,21 @@ public partial class OI_RepProyectos : ClsPaginas } } + + + protected void LnkEliminar_Click(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + + int CveEventoProyectoEliminar = GvRow.DataKey("CveEvento").ToEntero(); + + ClsOIEventos ObjEventos = new ClsOIEventos(); + + if (ObjEventos.RemoveEventosProyectos(CveEventoProyectoEliminar, UsuarioActual.CveEmpresa)) + { + cargar(); + Alert("Proyecto eliminado correctamente."); + } + } + } \ No newline at end of file