AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-10-15 07:13:28 -07:00
parent 80e41579e5
commit c8c12f862e
6 changed files with 37 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsInventarios.vb
View File

@@ -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

5
Inventarios/Kardex.aspx
View File

@@ -155,7 +155,10 @@
<label class="col-md-1 truncate" style="max-width: 80px;">Almacén:</label>
<div class="col-md-2">
<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
<%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
<asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"
DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
</div>
<label class="col-md-1" style="max-width: 85px;">Fecha Inicio:</label>

13
Inventarios/Kardex.aspx.vb
View File

@@ -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()

10
Nomina/Nomina2.aspx
View File

@@ -557,6 +557,16 @@
<asp:Label ID="LblSRSalarioDiarioIntegrado" runat="server"></asp:Label>
</div>
</div>
<div class="row">
<div class="col-md-2 bold">Salario base cotización</div>
<div class="col-md-3">
<asp:Label ID="LblSRSbc" runat="server"></asp:Label>
</div>
<div class="col-md-3 bold"> </div>
<div class="col-md-4">
<asp:Label ID="Label3" runat="server"></asp:Label>
</div>
</div>
<div class="row">
<div class="col-md-2 bold">Puesto</div>
<div class="col-md-3">

8
Nomina/Nomina2.aspx.cs
View File

@@ -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"
{

2
vwd.webinfo
View File

@@ -118,6 +118,8 @@