diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 1ddd0ed3a..ad8c046c4 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -530,7 +530,7 @@ Public Class ClsAF Return Retorno End Function - Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean + Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AF_ActivosFijosCompraUpdate") @@ -541,6 +541,7 @@ Public Class ClsAF .Add("@TipoAF", SqlDbType.Int).Value = TipoAF .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra + .Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle ) End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 80f566d0c..2fcd6752f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1702,7 +1702,7 @@ Public Class ClsInventarios #Region " INVENTARIOS - REPORTES " - Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepExistenciasCostosGet") With SqlAdapter.SelectCommand.Parameters @@ -1710,7 +1710,7 @@ Public Class ClsInventarios .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 4db633f95..6f7005b92 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -653,7 +653,7 @@ public partial class CRM_Acercamiento : ClsPaginas Double Comision = TxtComision.Text.ToDouble(); int Prioridad = DdlPrioridad.SelectedValue.ToEntero(); - + int CveRechazoMotivo = DdlRechazoMotivo.SelectedValue.ToEntero(); int CveUsuarioIng = UsuarioActual.CveUsuario; if (CveEncuestaProcesoCRM > 0) @@ -675,9 +675,11 @@ public partial class CRM_Acercamiento : ClsPaginas AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = (DateTime)FechaCierre; + AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); - + AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; + + if (cRMService.AcercamientoUpdate(AcercaminetoModel)) { //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text); diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 209f43a40..413febe66 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -734,7 +734,7 @@ - + <%-- 0 --%> @@ -4476,6 +4476,13 @@ +
+
+ + +
+
+ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a0881a490..55031430c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1778,6 +1778,7 @@ Partial Class Compras_Compras If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then TmpDT = ObjeFacturas.DtResultados TmpDT.Columns.Add("CveSATPSActualizado") + 'TmpDT.Columns.Add("RetIVAPorcentaje") 'TmpDT.Columns.Add("RetISRPorcentaje") 'TmpDT.Columns.Add("IEPSPSPorcentaje") @@ -9929,6 +9930,22 @@ Partial Class Compras_Compras + + If Not TmpDT.Columns.Contains("DesvicularAF") Then + TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) + End If + + For Each drowAF As DataRow In TmpDT.Rows + If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then + If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then + Retorno = False + End If + End If + Next + + + + 'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then Retorno = False @@ -10513,6 +10530,9 @@ Partial Class Compras_Compras tipoCambioPago = 1 End If + + + If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then For Each Row As DataRow In ObjConta.DtResultados.Rows @@ -17900,6 +17920,17 @@ Partial Class Compras_Compras ChkAgregar.Checked = False divagregrarotrops.Visible = False + DVModalAddPSChkDesvincularAF.Visible = False + + + Dim TipoAF As Integer = GvRow.DataKey("TipoAF").ToEntero + ChkModalDesvincularAF.Checked = False + + If CveCompra > 0 AndAlso TipoAF = 2 Then + DVModalAddPSChkDesvincularAF.Visible = True + End If + + UpPSS.Update() RegistraScript("$('#divAddProducto').modal('show');") End Sub @@ -18297,6 +18328,38 @@ Partial Class Compras_Compras GuardaAC() End If + + + + + If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then + + + If Not TmpDT.Columns.Contains("DesvicularAF") Then + TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) + End If + + Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero + 'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then + + For Each dRow As DataRow In TmpDT.Rows + + If dRow("CveCompraDetalle").ToString.ToEntero = CveCompraDetalleDesvicnualarAF Then + dRow("TipoAF") = 0 + dRow("CveActivoFijo") = 0 + dRow("DesvicularAF") = True + + End If + + Next + TmpDT.AcceptChanges() + 'Else + ' Retorno = False + 'End If + + + End If + UpPS.Update() CargaGvPersonal() diff --git a/Empresas/152/Formatos/Factura.rdlc b/Empresas/152/Formatos/Factura.rdlc index 89c1786d6..7716e04b4 100644 --- a/Empresas/152/Formatos/Factura.rdlc +++ b/Empresas/152/Formatos/Factura.rdlc @@ -2620,7 +2620,7 @@ Textbox42 - 5.91303in + 5.61303in 7.16224in 0.17708in 0.98426in @@ -2655,7 +2655,7 @@ Textbox42 - 6.1055in + 5.8055in 7.16224in 0.17966in 0.98425in @@ -2690,7 +2690,7 @@ Textbox42 - 6.30449in + 6.00449in 7.17266in 0.18819in 0.98425in @@ -2726,7 +2726,7 @@ Textbox42 - 6.51074in + 6.21074in 7.17266in 0.17119in 0.98425in @@ -2762,7 +2762,7 @@ Textbox42 - 6.70137in + 6.40137in 7.18308in 0.19596in 0.98425in diff --git a/GPS/PalletEtiquetaCaja.rdlc b/GPS/PalletEtiquetaCaja.rdlc index 539ad27fc..113da5366 100644 --- a/GPS/PalletEtiquetaCaja.rdlc +++ b/GPS/PalletEtiquetaCaja.rdlc @@ -898,7 +898,6 @@ KM12 HERMOSILLO, SONORA 5 - true @@ -2457,41 +2456,20 @@ KM12 HERMOSILLO, SONORA - 1.44667cm + 1.18209cm - - true - true - - - - - =Parameters!noPallet.Value - - - - - - - Textbox821 + + Embedded + CodBarr + FitProportional - Bottom - 2pt - 2pt - 2pt - 2pt - + 5 @@ -2501,37 +2479,16 @@ KM12 HERMOSILLO, SONORA - - true - true - - - - - =Parameters!noPallet.Value - - - - - - - Textbox821 + + Embedded + CodBarr + FitProportional - Bottom - 2pt - 2pt - 2pt - 2pt - + 5 @@ -2542,7 +2499,7 @@ KM12 HERMOSILLO, SONORA - 0.62646cm + 0.49417cm @@ -3026,8 +2983,8 @@ Produce of MX. 0.07228cm 0.05625cm - 10.59604cm - 10.52137cm + 10.19917cm + 10.52136cm @@ -3229,6 +3186,13 @@ tz/88IQXNLT1jvK6x5rYowb8xgXvcqDTfe8tfhiRVs/61rv+9bCPvexnT/va2/72uM+97nfP+977/vfA +qAIhvmYQymZeniYlTmZkGmZjrmZmpmZl0mZkfmZoxmanmmaoNmZqemNosmZrHmaqlkQibmWNtiYr/mWwTiMaqEPiwAAd0gk9NiHEMCbJGiCrDeQyqCYPamXg7l7EZiT3hiYRCGZ4ficlxmY1kmI2EkF0PmTZZid0fmd3Hmd4tmdtHkK4Omd6Dme2lme5Lme5lmY8Pme6Xme9Smf9ymdNUGdrBmf+okQxWieSYmEzEmKFFiMReCGcsicfTiTBcGfzVmTVPAA5Imby8maFNqe0SCG/jl+HFqhH6qhIRqeG8qeJDqi3v9Zoh2qoiBqoimKorTJoiLqojEKo7ZJohhaoXJ5kjUxDzFwAwKRA3qpiMNYjJKIfsNwgUU4oLqpoREKfDDakWqpnggRpdRZn1I6n/vpnluqpQxxpTSapVgKpgJKpm9ppl06plz6pWuKEGjKpoIpn1UaphAKl62nD8vYlwhhgatIjLFYEHYpoHz6h8D4n0/aexc6pzN5o/uQqIAqmo66D2IImZE6qUv5hZbKqJlaqZCKqZ2qh5vqqZQqqpcKqp/KEKFqqqOqqhb6hZz6hQPJepjpjb0ZAE0aqDqKgpLYpBsYqYeqe5FplQKapd44l2AZrGJZmcKqrMmKrMdqrGTprNHMCq1wKa3VSq1Caa3Ziq1Uqa3dyq1KOZ1q6a3h+pNBuXpyupbr95ZU2Z68GIxu2Xp1+qu7F6uxmqIMEasWqa/6yK8+6K8ICYb/6pD7SrD9arADy4QJ64QL+4MNK7AB+5APK7GFCqsI65gCOqtJmaHBCARxGYx3EJU/CZEFiq/0ynu+WLEcmbKyKIqtuIqvWIu0CLO2KLMvO4s367KgiLM7q7Mty4o9C7Q/G7M0e67nWZRFe5MpqRbLiACOmKQQCYYRqRbFSI39F41S+3rpwXqyu6eES2qyWIiEcWiwUwiGZfuQZ+u1Y8uEafuEZnuFb5uFYUu2cIu2CjG1Trq2NWGRG6gIdgiBCqoQ 0FkLf3uGgTsQGeurXIt7CqgW89p/BuiAAii5BAi5D3h/l1uAmWu5k4u5nau5n8u5lZuAkeu5o9u4oOsACOimUyq6CDiSvOqNvOCBDUCoRtoX3YkMMCAQtQugnQEAw/q4izu8xFu8xnu8yJu8yru8zNu8zvu80Bu90ju91Fu91nu92Lu4AQEAOw== + + image/png + iVBORw0KGgoAAAANSUhEUgAAAWMAAABVCAYAAACcloXlAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAhwSURBVHhe7ZZRThxmDAY5FwfiPJwml+GFm2yJZTcr+XOtYrtt1LE0CvllVhPkjHh5MOP5/Pz0rxjm/z38X/j+vPz84QEAwL/L02/GPx5vLy+PF+Pt629/MR/vj9fYfXva/PHm3695ff/wxZ+reif49bEfj/fXeH99/PqIZ1/B6/vXd/pUvmI+3l///Iz/hK9i4d/w93yf7mHRTXHq+/wzVvPN+9VuijvfZ7fuZzz3Ffwu96vm2ffZ7R/t2ddvxv7n1/xu8t88jmdfMcTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tu +ilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix +3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+j8cfhNAi +G/UY+X4AAAAASUVORK5CYII= + Cm ab0e0117-79b9-44e9-a7a3-e3d163f1ee55 diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 738610fb6..5fe457b7e 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -208,7 +208,9 @@ - + diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index aa7f9afff..33a3b9bc3 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -293,7 +293,13 @@ Partial Class Inventarios_ReporteEntradasSalidas Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CvePS").ToEntero <= 0 Then + e.Row.CssClass = "Totales" + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) + 'e.Row.Cells(0).Text = $"{e.Row.DataKey("Codigo")}" + e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" + 'e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" + Else e.Row.Cells(9).BackColor = Drawing.Color.LightGray e.Row.Cells(13).BackColor = Drawing.Color.LightGray @@ -306,6 +312,14 @@ Partial Class Inventarios_ReporteEntradasSalidas e.Row.FCLabel("lbEntradaImp").Text = If(e.Row.DBCampo("EntradaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("EntradaImp").ToDouble.ToString("N2")) e.Row.FCLabel("lbSalidaImp").Text = If(e.Row.DBCampo("SalidaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SalidaImp").ToDouble.ToString("N2")) e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2")) + + + + + '0,1,4 + + + End If End If diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index 219b6d67b..6b6945618 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/Inventarios/RepExistenciasCostos.aspx.vb @@ -60,7 +60,7 @@ Partial Class Inventarios_RepExistenciasCostos Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso Request("FechaI") IsNot Nothing AndAlso Request("FechaF") IsNot Nothing Then ' Alert(Request("CvePS").ToString, TipoMensaje.MsgAdvertencia) - Dim CveAlmacen = IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero + Dim CveAlmacen As String = IfNull(Request("CveAlmacen"), "-1").ToString CargaDatos(Request("CvePS").ToString.Trim.ToEntero, Request("CveProveedor").ToString.Trim.ToEntero, @@ -176,7 +176,7 @@ Partial Class Inventarios_RepExistenciasCostos CargaDatos(CvePS, CveProveedor, CveMoneda, CveConcepto, fechaI, fechaF, CveAlmacen, CveClasificacion, DdlPersonal.SelectedValue.ToEntero) End Sub - Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As Integer, CveClasificacion As Integer, CvePersonal As Integer) + Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As String, CveClasificacion As Integer, CvePersonal As Integer) If CvePS > 0 Then LnkKardex.Visible = True LnkKardex.NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}", CvePS) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index f8759d18d..c92264be3 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -196,7 +196,7 @@ Timbrar todos
  • - Registrar provisión + Registrar provisión
  • Ver provisión diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index bbad1203e..f56d87ecc 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -439,7 +439,8 @@ public partial class Nomina_Nomina2 : ClsPaginas int CvePrePolizaProrrateo = drow["CvePrePolizaProrrateo"].ToString().ToEntero(); //LnkConceptoEmpleado.Visible = (Estatus == 1); - LnkRegistrarProvision.Visible = (Estatus >= 2) && (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100); + LnkRegistrarProvision.Visible = (Estatus >= 2);//&& (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100); + LnkRegistrarProvision.Text = CvePrePolizaProvision <= 0 ? "Registrar provisión" : "Regenerar provisión"; LnkConceptoEmpleado.Visible = true;//(Estatus < 2); LnkCargaAsistenciaMasiva.Visible = (Estatus < 2); LnkModalPlantillaNomina.Visible = true; diff --git a/vwd.webinfo b/vwd.webinfo index 7266d7de6..e457e81ff 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -410,6 +410,8 @@ + +