diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4f57d07db..de4c0e719 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1516,7 +1516,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1") As Boolean + Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexGet") @@ -1534,6 +1534,8 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes + End With Try @@ -1551,16 +1553,17 @@ Public Class ClsInventarios End Function - Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaPSSeriesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes End With Try diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index c63c3d11e..4df28a4d8 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -155,7 +155,10 @@
- + <%----%> + +
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 040ca2bc1..0fa236d7d 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -80,7 +80,7 @@ Partial Class Inventarios_Kardex ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) ddlAlmacen.DataBind() - If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString) + If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString) CargaClasificaciones() CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1) @@ -255,7 +255,8 @@ Partial Class Inventarios_Kardex Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") - Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero + Dim CveAlmacen As Integer = -1 + Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues() If CvePS > 0 Then ddlProducto2.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo", "") Dim CveTiposAlmacen = "" @@ -266,7 +267,7 @@ Partial Class Inventarios_Kardex Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1") Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then + If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then dt = ObjInventarios.DtResultados.Copy End If ObjInventarios.Dispose() @@ -304,8 +305,12 @@ Partial Class Inventarios_Kardex End Sub Private Sub CargarExistenciasProductosSeries() + Dim almacenes As String = ddlAlmacen.GetSelectedValues() + If almacenes = "" Then + almacenes = "-1" + End If Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), ddlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then GvSeries.DataSource = ObjInventarios.DtResultados End If ObjInventarios.Dispose() diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index 9e2e3a4b1..abf7b0787 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -557,6 +557,16 @@ +
+
Salario base cotización
+
+ +
+
+
+ +
+
Puesto
diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 0be303c0f..8abe5f270 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -1247,6 +1247,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string Departamento = ""; string SD = ""; string SDI = ""; + string SalarioDiarioIMSS = ""; DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal)); if (drow != null) { @@ -1257,8 +1258,9 @@ public partial class Nomina_Nomina2 : ClsPaginas FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero()); DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero()); - SD = string.Format("{0}", drow["SalarioDiario"]); - SDI = string.Format("{0}", drow["SalarioDiarioIntegrado"]); + SD = string.Format("{0:####.####}", drow["SalarioDiario"]); + SDI = string.Format("{0:####.####}", drow["SalarioDiarioIntegrado"]); + SalarioDiarioIMSS = string.Format("{0:####.####}", drow["SalarioDiarioIMSS"]); } using (ClsRH objrh = new ClsRH()) @@ -1292,6 +1294,8 @@ public partial class Nomina_Nomina2 : ClsPaginas LblSRDepartamento.Text = Departamento; LblSRSalarioDiario.Text = SD; LblSRSalarioDiarioIntegrado.Text = SDI; + LblSRSbc.Text = SalarioDiarioIMSS; + #endregion #region "Sobre Recibo" { diff --git a/vwd.webinfo b/vwd.webinfo index 4ab5c7c64..7f4ab5f2d 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -118,6 +118,8 @@ + +