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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-04 11:13:52 -07:00
parent 1f35c6caee 5a438aa8f5
commit e05de4bd31
7 changed files with 283 additions and 286 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
App_Code/ClsInventarios.vb
View File

@@ -1472,7 +1472,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional CveMarca As Integer = -1) As Boolean Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1490,6 +1490,7 @@ Public Class ClsInventarios
.Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
.Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
.Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
.Add("@Orden", SqlDbType.Int).Value = Orden
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
End With End With
@@ -4879,27 +4880,6 @@ Public Class ClsInventarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ExistenciaMedRinGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
.Add("@CveMedida", SqlDbType.Int).Value = CveMedida
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las Existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String) As Boolean Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_CamionesUpdate") DataAdapter("PA_Inv_CamionesUpdate")

8
CxC/RepCxC.aspx.vb
View File

@@ -114,13 +114,11 @@ Partial Class RepCxC
#Region "CARGAS" #Region "CARGAS"
Private Sub CargaCombos() Private Sub CargaCombos()
'CargaClientes 'CargaClientes
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True) DdlClientesWS.setEsWebService(True)
Else Else
DdlClientesWS.setEsWebService(False) DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) CargaClientes()
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If End If
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
'DdlClientes.DataBind() 'DdlClientes.DataBind()
@@ -1433,7 +1431,7 @@ Partial Class RepCxC
End Sub End Sub
Private Sub CargaClientes() Private Sub CargaClientes()
If UsuarioActual.CveEmpresa <> 119 Then If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.ddl.Items.Clear() DdlClientesWS.ddl.Items.Clear()
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
DdlClientesWS.DataBind() DdlClientesWS.DataBind()

10
CxC/RepCxCDetalle.aspx.vb
View File

@@ -205,13 +205,11 @@ Partial Class RepCxCDetalle
'CargaClientes 'CargaClientes
'CargaClientes 'CargaClientes
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True) DdlClientesWS.setEsWebService(True)
Else Else
DdlClientesWS.setEsWebService(False) DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) CargaClientes()
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If End If
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
'DdlClientes.DataBind() 'DdlClientes.DataBind()
@@ -983,7 +981,7 @@ Partial Class RepCxCDetalle
End Sub End Sub
Private Sub CargaClientes() Private Sub CargaClientes()
If UsuarioActual.CveEmpresa <> 119 Then If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.ddl.Items.Clear() DdlClientesWS.ddl.Items.Clear()
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
DdlClientesWS.DataBind() DdlClientesWS.DataBind()

487
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -1,241 +1,254 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.dataTables_scrollHead { .dataTables_scrollHead {
background-color: #95A5A6; background-color: #95A5A6;
color: white; color: white;
} }
.dataTables_scrollBody table th { .dataTables_scrollBody table th {
padding: 0px !important; padding: 0px !important;
padding-right: 4px !important; padding-right: 4px !important;
padding-left: 4px !important; padding-left: 4px !important;
} }
.table-scrollable { .table-scrollable {
margin: 0px !important; margin: 0px !important;
} }
.dataTables_scrollFoot { .dataTables_scrollFoot {
display: none; display: none;
} }
.dataTables_scroll { .dataTables_scroll {
margin-bottom: 0px; margin-bottom: 0px;
} }
.table.dataTable { .table.dataTable {
margin-top: 0px !important; margin-top: 0px !important;
} }
.table table-striped table-hover dataTable no-footer { .table table-striped table-hover dataTable no-footer {
margin-top: 0px !important; margin-top: 0px !important;
} }
.Excede { .Excede {
overflow: hidden; overflow: hidden;
text-overflow: ellipsis; text-overflow: ellipsis;
} }
.psagregar > div.comboxes { .psagregar > div.comboxes {
display: inline-block; display: inline-block;
width: 250px; width: 250px;
} }
.psagregar > div.codigo input { .psagregar > div.codigo input {
width: 79px; width: 79px;
} }
.psagregar > div.codigo { .psagregar > div.codigo {
display: inline-block; display: inline-block;
width: 80px; width: 80px;
} }
.psagregar > div.codigo > input[type="submit"] { .psagregar > div.codigo > input[type="submit"] {
display: none; display: none;
} }
</style>
</asp:Content> @media (min-width: 991px) {
.textfilter {
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> max-width: 80px;
Kardex Almacén Horizontal }
</asp:Content>
.textfilter2 {
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> max-width: 70px;
</asp:Content> }
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> .dateFilter {
<li> min-width: 115px;
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton> }
</li> }
</asp:Content>
@media (min-width: 991px) and (max-width: 1400px) {
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> .titlefiltrosmedia .col-md-3 {
</asp:Content> width: 22%;
}
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> }
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional" RenderMode="Inline"> </style>
<ContentTemplate> </asp:Content>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
<div class="tools"> Kardex Almacén Horizontal
<asp:Button ID="btConsultar" runat="server" Text="Consultar" class="btn btn-primary" /> </asp:Content>
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" /> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</div> </asp:Content>
<div class="titlefiltros caption ">
<div class="row"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<div class="col-md-3"> <li>
<div class="row"> <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
<div class="col-md-2 truncate" style="padding-left: 20px;">Proveedor</div> </li>
<div class="col-md-10"> </asp:Content>
<ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" Width="100%" CssClassDdl="select2me" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</div> </asp:Content>
</div>
<div class="col-md-3"> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<div class="row"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<label class="col-md-2 truncate">Producto:</label> <ContentTemplate>
<div class="col-md-10"> <div class="portlet solid grey-cascade portlet-filter">
<ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" CssClassDdl="select2me" CssStyle="width: 100%; "></ADS:Dropdownlost> <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
</div> <div class="tools">
</div> <asp:Button ID="btConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
</div> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<div class="col-md-2"> <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
<div class="row"> </div>
<label class="col-md-2 truncate">Marca:</label> <div class="titlefiltros titlefiltrosmedia caption ">
<div class="col-md-10"> <div class="row" style="padding-top: 10px; position: relative;">
<asp:DropDownList ID="DdlMarca" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="Marca" DataValueField="CveMarca"> <div class="col-md-1 truncate textfilter">Proveedor</div>
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem> <div class="col-md-2">
</asp:DropDownList> <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" Width="100%" CssClassDdl="select2me" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div> </div>
</div> <label class="col-md-1 truncate textfilter2">Producto:</label>
</div> <div class="col-md-2">
<div class="col-md-2"> <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%; "></ADS:Dropdownlost>
<div class="row"> </div>
<label class="col-md-2">Fecha Fin:</label> <div class="col-md-2">
<div class="col-md-10"> <div class="row">
<div style="display: inline-block; vertical-align: text-bottom;"> <label class="col-md-2 truncate">Marca:</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;"> <div class="col-md-10">
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 80px" MaxLength="10"></asp:TextBox> <asp:DropDownList ID="DdlMarca" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="Marca" DataValueField="CveMarca">
<span class="input-group-btn "> <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> </asp:DropDownList>
</span> </div>
</div> </div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> </div>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <label class="col-md-1 textfilter">Fecha Fin:</label>
</div> <div class="col-md-1" style="min-width: 110px;">
</div> <div style="display: inline-block; vertical-align: text-bottom;">
</div> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
</div> <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 80px" MaxLength="10"></asp:TextBox>
<div class="col-md-2"> <span class="input-group-btn ">
<div class="row"> <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<label class="col-md-2 truncate">Producto:</label> </span>
<div class="col-md-10"> </div>
<asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me"> <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<asp:ListItem Text="Con existencia" Value="2" /> <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:ListItem Text="Sin existencia" Value="3" /> </div>
</asp:DropDownList> </div>
</div> <label class="col-md-1 truncate textfilter2">Producto:</label>
</div> <div class="col-md-1">
</div> <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
</div> <asp:ListItem Text="Con existencia" Value="2" />
</div> <asp:ListItem Text="Sin existencia" Value="3" />
</div> </asp:DropDownList>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> </div>
<div class="row"> </div>
<label class="col-md-1 truncate">Clasificación:</label> </div>
<div class="col-md-2"> </div>
<asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;"> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem> <div class="row">
</asp:DropDownList> <label class="col-md-1 truncate">Clasificación:</label>
</div> <div class="col-md-2">
<label class="col-md-1 truncate">Unidad Medida:</label> <asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;">
<div class="col-md-1"> <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida"> </asp:DropDownList>
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> </div>
</asp:DropDownList> <label class="col-md-1 truncate">Unidad Medida:</label>
</div> <div class="col-md-1">
<label class="col-md-1 truncate">Almacén:</label> <asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
<div class="col-md-2"> <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">Tipo Almacen:</label> <label class="col-md-1 truncate">Almacén:</label>
<div class="col-md-1"> <div class="col-md-2">
<asp:DropDownList ID="DdlTipoAlmacen" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"> <asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Seleccione el tipo de Almacen (Todos)" Value="-1"></asp:ListItem> </div>
</asp:DropDownList> <label class="col-md-1 truncate">Tipo Almacen:</label>
</div> <div class="col-md-1">
<label class="col-md-1 truncate">Tránsito?:</label> <asp:DropDownList ID="DdlTipoAlmacen" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
<div class="col-md-1"> <asp:ListItem Selected="True" Text="Seleccione el tipo de Almacen (Todos)" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"> </asp:DropDownList>
<asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem> </div>
<asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem> <label class="col-md-1 truncate">Tránsito?:</label>
<asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem> <div class="col-md-1">
</asp:DropDownList> <asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
<%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%> <asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
</div> <asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem>
</div> <asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem>
</div> </asp:DropDownList>
</div> <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
</ContentTemplate> </div>
</asp:UpdatePanel> </div>
<div class="text-right"> <asp:Panel ID="pnlOrden" runat="server" CssClass="row">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <label class="col-md-1 truncate">Orden:</label>
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <div class="col-md-2">
</div> <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
<table class="Widthall ScrollAD"> <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
<tr style="width: 100%"> <asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
<td style="padding: 0px;"> <asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
<table class="table Widthall"> <asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
<tr> </asp:DropDownList>
</tr> </div>
</table> </asp:Panel>
</td> </div>
</tr> </div>
<tr> </ContentTemplate>
<td style="padding: 0px"> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server"> <div class="text-right">
<ContentTemplate> <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> </div>
<Columns> <table class="Widthall ScrollAD">
<asp:TemplateField ItemStyle-HorizontalAlign="Left"> <tr style="width: 100%">
<HeaderTemplate> <td style="padding: 0px;">
<table class="table Widthall">
<tr>
</tr>
</table>
</td>
</tr>
<tr>
<td style="padding: 0px">
<asp:UpdatePanel ID="UpDatos" runat="server">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Código Código
</HeaderTemplate>
</HeaderTemplate> <ItemTemplate>
<ItemTemplate> <div class='truncate' style='width: 200px;'>
<div class='truncate' style='width: 200px;'> <asp:Label runat="server" Text='<%# Eval("Codigo") %>' Width="100px"></asp:Label>
<asp:Label runat="server" Text='<%# Eval("Codigo") %>' Width="100px"></asp:Label> </div>
</div> </ItemTemplate>
</ItemTemplate> </asp:TemplateField>
</asp:TemplateField> <asp:TemplateField ItemStyle-HorizontalAlign="Left">
<asp:TemplateField ItemStyle-HorizontalAlign="Left"> <HeaderTemplate>
<HeaderTemplate>
Producto Producto
</HeaderTemplate>
</HeaderTemplate> <ItemTemplate>
<ItemTemplate> <div class='truncate' style='width: 200px;'>
<div class='truncate' style='width: 200px;'> <asp:Label runat="server" Text='<%# Eval("PS") %>' Width="250px"></asp:Label>
<asp:Label runat="server" Text='<%# Eval("PS") %>' Width="250px"></asp:Label> </div>
</div> </ItemTemplate>
</ItemTemplate> </asp:TemplateField>
</asp:TemplateField> </Columns>
</Columns> </asp:GridView>
</asp:GridView> </ContentTemplate>
</ContentTemplate> </asp:UpdatePanel>
</asp:UpdatePanel> </td>
</td> </tr>
</tr> </table>
</table> </asp:Content>
</asp:Content> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> </asp:Content>
</asp:Content>

27
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -10,10 +10,10 @@ Partial Class Inventarios_KardexAlmacen
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
'TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString 'TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString TxtFechaF.Text = Now.ToShortDateString
CargaCombos() CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
pnlOrden.Visible = UsuarioActual.CveEmpresa = 141
If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
End If End If
@@ -24,18 +24,19 @@ Partial Class Inventarios_KardexAlmacen
Private Sub CargaCombos() Private Sub CargaCombos()
CargaFuncionalidad105() CargaFuncionalidad105()
CargaPS() CargaPS()
ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
ddlAlmacen.DataBind()
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados.Copy() DdlMarca.DataSource = ObjPS.DtResultados.Copy()
End If End If
End Using End Using
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
ddlAlmacen.DataBind()
Dim ObjInv As New ClsInventarios() Dim ObjInv As New ClsInventarios()
If ObjInv.GetTiposAlmacenes() Then If ObjInv.GetTiposAlmacenes() Then
DdlTipoAlmacen.DataSource = ObjInv.DtResultados DdlTipoAlmacen.DataSource = ObjInv.DtResultados
@@ -119,6 +120,12 @@ Partial Class Inventarios_KardexAlmacen
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
CargarKardex(CveProducto) CargarKardex(CveProducto)
'If CveProducto > 0 Then
'Else
' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
'End If
End Sub End Sub
Private Sub CargarKardex(CvePS As Integer) Private Sub CargarKardex(CvePS As Integer)
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
@@ -129,8 +136,7 @@ Partial Class Inventarios_KardexAlmacen
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn) Dim ListaBorrar As New List(Of DataColumn)
@@ -233,6 +239,7 @@ Partial Class Inventarios_KardexAlmacen
End Sub End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Imprimir("Excel") Imprimir("Excel")
End Sub End Sub
Private Sub Imprimir(Optional reporte As String = "PDF") Private Sub Imprimir(Optional reporte As String = "PDF")

9
Ventas/RepIngresosDetalle.aspx
View File

@@ -188,16 +188,21 @@
<asp:Label runat="server" Text='<%# Eval("Total", "${0:N2}")%>'> </asp:Label> <asp:Label runat="server" Text='<%# Eval("Total", "${0:N2}")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Amortización" ItemStyle-HorizontalAlign ="Right"> <asp:TemplateField HeaderText="Amortización" >
<ItemTemplate> <ItemTemplate>
<asp:Literal runat="server" Text='<%#If(Eval("EsAmortizacion").ToString = "True", "Si", "No")%>'> </asp:Literal> <asp:Literal runat="server" Text='<%#If(Eval("EsAmortizacion").ToString = "True", "Si", "No")%>'> </asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Venta" ItemStyle-HorizontalAlign ="Right"> <asp:TemplateField HeaderText="Fecha Venta" >
<ItemTemplate> <ItemTemplate>
<asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'> </asp:Literal> <asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'> </asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="NC" >
<ItemTemplate>
<asp:Literal runat="server" Text='<%# Eval("SerieFolioNC") %>'> </asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

4
vwd.webinfo
View File

@@ -21,10 +21,6 @@
<Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/> <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>