Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Luis Quijada
@@ -425,18 +425,17 @@
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-7">
|
||||
<div class="col-md-5">
|
||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpNumeroParte">
|
||||
<ContentTemplate>
|
||||
<asp:Label runat="server" ID="LblNumeroParte" Text="" Visible ="false"></asp:Label>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="col-md-1" style="text-align:right!important">
|
||||
<div id="DivIndicadorL1" runat="server" visible="false" >
|
||||
@@ -473,11 +472,51 @@
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div class="col-md-2">
|
||||
<asp:UpdatePanel runat="server" ID="UpAddWishList" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div runat="server" id="DVWishList" visible="false" style="margin-top:-3PX">
|
||||
<table style="width: 220px!important">
|
||||
<td style="width: 50px!important">
|
||||
|
||||
<div>
|
||||
<div style="color: gray; font-size: 12px; font-weight: bold;">
|
||||
REQ
|
||||
</div>
|
||||
<div style="color: blue; font-size: 20px; font-weight: bold;">
|
||||
<asp:LinkButton ID="LnkIndicador_REQ" Text="0" OnClick="LnkIndicador_REQ_Click" runat="server" CssClass="Texto" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</td>
|
||||
<td style="width: 70px!important">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox runat="server" ID="TxtCantidad" Width="70px" CssClass="form-control"></asp:TextBox>
|
||||
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890.-" />
|
||||
</div>
|
||||
|
||||
</td>
|
||||
<td style="width: 100px!important">
|
||||
<asp:LinkButton ID="LnkAgrgarWishList" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="LnkAgrgarWishList_Click" Width="91px"><i class="fa fa-shopping-cart"></i> Agregar</asp:LinkButton>
|
||||
</td>
|
||||
</table>
|
||||
</div>
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -627,7 +666,7 @@
|
||||
<div class="modal-content" style="width:500px;">
|
||||
<div class="modal-header ">
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal3" Text="OC Pendientes por Recibir" runat="server"> </asp:Literal></h4>
|
||||
<asp:Literal ID="LtlModalOC" Text="OC Pendientes por Recibir" runat="server"> </asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="row" >
|
||||
|
||||
@@ -32,6 +32,20 @@ Partial Class Inventarios_Kardex
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Private Property TipoCancelacion As Integer
|
||||
Get
|
||||
If ViewState("TipoCancelacion") Is Nothing Then
|
||||
ViewState("TipoCancelacion") = -1
|
||||
End If
|
||||
Return ViewState("TipoCancelacion").ToString.ToEntero
|
||||
End Get
|
||||
Set
|
||||
ViewState("TipoCancelacion") = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
@@ -67,8 +81,15 @@ Partial Class Inventarios_Kardex
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
LblPS.ToolTip = ddlProducto2.SelectedValue
|
||||
lblAlm.InnerText = ddlProducto2.SelectedValue
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
DVWishList.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -291,58 +312,66 @@ Partial Class Inventarios_Kardex
|
||||
GvM.DataSource = DtTemp
|
||||
GvM.DataBind()
|
||||
UpAcciones.Update()
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa <> 119 Then
|
||||
|
||||
Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "")
|
||||
Dim drPs As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("", "")
|
||||
|
||||
If drPs IsNot Nothing Then
|
||||
Dim NumeroParte As String = drPs("NumeroParte").ToString
|
||||
Dim Codigo As String = drPs("Codigo").ToString
|
||||
Dim PS As String = drPs("PS").ToString
|
||||
|
||||
Dim PS As String = drPs("PSCodigo").ToString
|
||||
LblNumeroParte.Visible = True
|
||||
If NumeroParte.Trim.Length > 0 Then
|
||||
If UsuarioActual.TienePermisoPagina(13) Then
|
||||
LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{Codigo}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
|
||||
LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
|
||||
Else
|
||||
LblNumeroParte.Text = $" Producto: {NumeroParte}"
|
||||
End If
|
||||
LblNumeroParte.Visible = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
UpNumeroParte.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargarOCPendientesCompra()
|
||||
|
||||
Private Sub CargarOCPendientesCompra(Opcion As Integer, Optional CargaGrid As Boolean = False) ' Opcion1 OC, 2 REQ
|
||||
|
||||
|
||||
Dim tCveSubProyectos As String = "-1"
|
||||
If ddlAlmacen.SelectedValue <> "" Then
|
||||
Dim tt As String = ddlAlmacen.GetSelectedValues()
|
||||
tCveSubProyectos = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen IN ({tt})").DataColumnToString("CveSubProyecto")
|
||||
End If
|
||||
|
||||
Dim ObjOC As New ClsOC
|
||||
If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then
|
||||
GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc")
|
||||
LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
|
||||
LnkIndicador_OC2.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
|
||||
If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa, Opcion:=Opcion) Then
|
||||
|
||||
If CargaGrid Then
|
||||
GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc")
|
||||
End If
|
||||
|
||||
If Opcion = 1 Then
|
||||
LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
|
||||
LnkIndicador_OC2.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
|
||||
ElseIf Opcion = 2 Then
|
||||
LnkIndicador_REQ.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString().ToDecimal.RoundSQL(2).ToString("###,###.##")
|
||||
If LnkIndicador_REQ.Text = "" Then
|
||||
LnkIndicador_REQ.Text = "0"
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjOC.Dispose()
|
||||
GvOC.DataBind()
|
||||
UpModalOC.Update()
|
||||
UpOCS.Update()
|
||||
UpAddWishList.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -456,7 +485,8 @@ Partial Class Inventarios_Kardex
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
CargarOCPendientesCompra()
|
||||
CargarOCPendientesCompra(1)
|
||||
CargarOCPendientesCompra(2)
|
||||
CargaPreciosLista(CvePS)
|
||||
DivIndicadorOC.Visible = True
|
||||
DivIndicadorOC2.Visible = True
|
||||
@@ -826,8 +856,19 @@ Partial Class Inventarios_Kardex
|
||||
End Function
|
||||
|
||||
Protected Sub LnkIndicador_OC_Click(sender As Object, e As EventArgs)
|
||||
UpModalOC.Update()
|
||||
TipoCancelacion = 1
|
||||
LtlModalOC.Text = "OC Pendientes por Recibir"
|
||||
CargarOCPendientesCompra(1, True)
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalOC"))
|
||||
UpModalOC.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkIndicador_REQ_Click(sender As Object, e As EventArgs)
|
||||
TipoCancelacion = 2
|
||||
LtlModalOC.Text = "Requisiciones"
|
||||
CargarOCPendientesCompra(2, True)
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalOC"))
|
||||
UpModalOC.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkCancelarOCDetalle_Click(sender As Object, e As EventArgs)
|
||||
@@ -841,8 +882,14 @@ Partial Class Inventarios_Kardex
|
||||
End If
|
||||
|
||||
Dim ObjOC As New ClsOC
|
||||
If ObjOC.CancelarPartidaPendiente(CveOrdenCompraDetalle, NuevaCantidad, UsuarioActual.CveEmpresa) Then
|
||||
CargarOCPendientesCompra()
|
||||
If ObjOC.CancelarPartidaPendiente(CveOrdenCompraDetalle, NuevaCantidad, UsuarioActual.CveEmpresa, Opcion:=TipoCancelacion) Then
|
||||
If TipoCancelacion = 1 Then
|
||||
CargarOCPendientesCompra(1, True)
|
||||
Else
|
||||
CargarOCPendientesCompra(2, True)
|
||||
End If
|
||||
|
||||
|
||||
Alert("La partida se cancelo correctamente.")
|
||||
End If
|
||||
|
||||
@@ -893,7 +940,7 @@ Partial Class Inventarios_Kardex
|
||||
Protected Sub ddlProducto2_selectedindexchange(sender As Object, e As EventArgs)
|
||||
|
||||
LnkKPIVerComportamiento.Visible = False
|
||||
If ddlProducto2.SelectedValue.ToEntero > 0 And UsuarioActual.CveRol = 1 Then
|
||||
If ddlProducto2.SelectedValue.ToEntero > 0 And UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
LnkKPIVerComportamiento.Visible = True
|
||||
End If
|
||||
UpAcciones.Update()
|
||||
@@ -901,4 +948,149 @@ Partial Class Inventarios_Kardex
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgrgarWishList_Click(sender As Object, e As EventArgs)
|
||||
If AgregarAWishList() Then
|
||||
CargarOCPendientesCompra(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function AgregarAWishList() As Boolean
|
||||
|
||||
Dim respuesta As Boolean = True
|
||||
Dim CveAlmacen As Integer = -1
|
||||
Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
|
||||
Dim almacenStr As String() = ddlAlmacen.GetSelectedValues().Split(","c)
|
||||
Dim CveSubProyecto As Integer = -1
|
||||
Dim FolioOrdenCompra As String = ""
|
||||
Dim CveOrdenCompra As Integer = -1
|
||||
Dim CveOrdenCompraDetalle As Integer = -1
|
||||
Dim UltimoCosto As Decimal = 0D
|
||||
Dim CveProveedorCompra As Integer = -1
|
||||
Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal
|
||||
Dim PorcentajeIVA As Decimal = 0
|
||||
Dim PorcentajeIVASucursal As Decimal = 0
|
||||
Dim CveUnidadMedida As Integer = -1
|
||||
Dim RetISR As Decimal = 0
|
||||
Dim RetIVA As Decimal = 0
|
||||
Dim PorcentajeRetISR As Decimal = 0
|
||||
Dim PorcentajeRetIVA As Decimal = 0
|
||||
|
||||
|
||||
'If Not Cantidad > 0 Then
|
||||
' Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
|
||||
' Return False
|
||||
'End If
|
||||
|
||||
If almacenStr.Length <> 0 Then
|
||||
CveAlmacen = almacenStr(0).ToEntero
|
||||
End If
|
||||
|
||||
If CveAlmacen > 0 Then
|
||||
CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto").ToEntero
|
||||
|
||||
If CveSubProyecto > 0 Then
|
||||
Dim DRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto).FiltroPrimero("")
|
||||
If DRowSubProyecto IsNot Nothing Then
|
||||
PorcentajeIVASucursal = DRowSubProyecto("IVA").ToString.ToDecimal
|
||||
Else
|
||||
Alert("No se encontro el subproyecto.", TipoMensaje.MsgAdvertencia)
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Alert("No se encontro el subproyecto.", TipoMensaje.MsgAdvertencia)
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Alert("Debe seleccionar un almacén.", TipoMensaje.MsgAdvertencia)
|
||||
Return False
|
||||
End If
|
||||
|
||||
If CvePS > 0 Then
|
||||
Dim DTRowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("")
|
||||
If DTRowPS IsNot Nothing Then
|
||||
UltimoCosto = DTRowPS("UltimoCosto").ToString.ToDecimal
|
||||
CveProveedorCompra = If(DTRowPS("CveProveedorCompra").ToString.ToEntero > 0, DTRowPS("CveProveedorCompra").ToString.ToEntero, -1)
|
||||
CveUnidadMedida = DTRowPS("CveUnidadMedida").ToString.ToEntero
|
||||
PorcentajeIVA = If(DTRowPS("IVA").ToString.ToEntero = -1, PorcentajeIVASucursal, 0)
|
||||
PorcentajeRetISR = DTRowPS("RetISR").ToString.ToDecimal
|
||||
PorcentajeRetIVA = DTRowPS("RetIVA").ToString.ToDecimal
|
||||
End If
|
||||
Else
|
||||
Alert("Debe seleccionar un producto.", TipoMensaje.MsgAdvertencia)
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim ObjOC As New ClsOC
|
||||
ObjOC.IniciaTransacSQL()
|
||||
|
||||
If ObjOC.GetOrdenesCompraRep("REQ", -1, CveSubProyecto, -1, 0, MinFecha, MaxFecha, -1, CveProveedorCompra, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
|
||||
If ObjOC.DtResultados IsNot Nothing AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
|
||||
CveOrdenCompra = ObjOC.DtResultados(0)("CveOrdenCompra").ToString.ToEntero
|
||||
FolioOrdenCompra = ObjOC.DtResultados(0)("SerieFolio").ToString
|
||||
End If
|
||||
Else
|
||||
respuesta = False
|
||||
End If
|
||||
|
||||
If respuesta AndAlso Not CveOrdenCompra > 0 Then
|
||||
If ObjOC.AddOrdenCompra("REQ", CveSubProyecto, "Compra de Stock", "Compra de Stock", 1, NowADS, 1, 0, NowADS.ToString("dd/MM/yyyy"), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveProveedorCompra, CveSubProyectoEntrega:=CveSubProyecto, PorcentajeIVA:=PorcentajeIVA) Then
|
||||
CveOrdenCompra = ObjOC.CveOrdenCompra
|
||||
FolioOrdenCompra = ObjOC.SerieFolio
|
||||
Else
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
|
||||
If respuesta AndAlso CveOrdenCompra > 0 Then
|
||||
|
||||
If ObjOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
|
||||
Dim drOcDetalle As DataRow = ObjOC.DtResultados.FiltroPrimero($"CvePs={CvePS}")
|
||||
If drOcDetalle IsNot Nothing Then
|
||||
CveOrdenCompraDetalle = drOcDetalle("CveOrdenCompraDetalle").ToString.ToEntero
|
||||
Cantidad = drOcDetalle("Cantidad").ToString.ToDecimal + Cantidad
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Total As Decimal = (Cantidad * UltimoCosto).RoundSQL
|
||||
Dim IVA As Decimal = (Total * PorcentajeIVA).RoundSQL
|
||||
RetIVA = IVA * PorcentajeRetIVA
|
||||
RetISR = Total * PorcentajeRetISR
|
||||
|
||||
If CveOrdenCompraDetalle > 0 Then
|
||||
If Not ObjOC.UpdateOrdenCompraDetalle(Cantidad, CveUnidadMedida, CvePS, UltimoCosto, CveSubProyecto, -1, "Obs", UsuarioActual.CveUsuario, CveOrdenCompraDetalle, -1, 0, IVA:=IVA, RetIVA:=RetIVA, RetISR:=RetISR,
|
||||
Total:=Total, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=PorcentajeRetIVA, RetISRPorcentaje:=PorcentajeRetISR) >= 0 Then
|
||||
respuesta = False
|
||||
|
||||
End If
|
||||
Else
|
||||
If Not ObjOC.AddOrdenCompraDetalle(CveOrdenCompra, Cantidad, CveUnidadMedida, CvePS, UltimoCosto, CveSubProyecto, -1, "Obs", UsuarioActual.CveUsuario,
|
||||
IVA:=IVA, RetIVA:=RetIVA, RetISR:=RetISR, Total:=Total, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=PorcentajeRetIVA, RetISRPorcentaje:=PorcentajeRetISR) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If respuesta Then
|
||||
Alert($"Producto agregado a la lista, requisición: {FolioOrdenCompra}.", TipoMensaje.ToastInformacion)
|
||||
ObjOC.Commit()
|
||||
TxtCantidad.Text = ""
|
||||
UpAddWishList.Update()
|
||||
Else
|
||||
Alert("No se agrego el producto a la lista.", TipoMensaje.ToastAdventencia)
|
||||
ObjOC.RollBack()
|
||||
End If
|
||||
|
||||
|
||||
ObjOC.Dispose()
|
||||
|
||||
Return respuesta
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -165,18 +165,18 @@ table.adssigscroll {
|
||||
background-color: inherit; /* Para que no se superponga con otros elementos */
|
||||
z-index: 4; /* Asegura que esté sobre otros elementos */
|
||||
}
|
||||
.tr_order tr > th::after {
|
||||
.adssigrid-order tr > th::after {
|
||||
content: "\f0dc";
|
||||
font:normal normal normal 14px / 1 FontAwesome;
|
||||
display: inline-block;
|
||||
margin-left: 5px;
|
||||
color: #32A1CF;
|
||||
}
|
||||
.tr_order tr > th.asce::after {
|
||||
.adssigrid-order tr > th.asce::after {
|
||||
content: "\f0de";
|
||||
}
|
||||
|
||||
.tr_order tr > th.desc::after {
|
||||
.adssigrid-order tr > th.desc::after {
|
||||
content: "\f0dd";
|
||||
}
|
||||
/*END ScrollADS V2*/
|
||||
@@ -353,7 +353,7 @@ table.adssigscroll {
|
||||
|
||||
<div class="divContainerads">
|
||||
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
|
||||
DataKeyNames="CvePS" CssClass="adssigscrollJS tr_order table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" >
|
||||
DataKeyNames="CvePS" CssClass="adssigrid-scroll adssigrid-order table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" >
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
|
||||
<HeaderTemplate>
|
||||
|
||||
@@ -19,7 +19,7 @@
|
||||
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkExportar" />
|
||||
<asp:PostBackTrigger ControlID="LnkExportar" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
@@ -59,7 +59,7 @@
|
||||
<br />
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-5">
|
||||
<div class="col-md-6">
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UPDatosAlmacen" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -68,7 +68,7 @@
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">RECEPCIÓN DE TRASPASO</span>
|
||||
<span class="caption-subject bold uppercase">Devolución de Préstamo</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
@@ -80,10 +80,10 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding">
|
||||
<div class="row">
|
||||
<label class="col-md-3">Fecha:</label>
|
||||
<div class="col-md-9">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
|
||||
<div class="row" style="padding:0px">
|
||||
<label class="col-md-1">Fecha:</label>
|
||||
<div class="col-md-4" >
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-left:-10px">
|
||||
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpRecibir" Width="100px" ClientIDMode="Static"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgFechaEntrega" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
|
||||
@@ -99,35 +99,33 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaEntrega3" runat="server" HighlightCssClass="vco" TargetControlID="RVFechaEntrega" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<asp:HiddenField ID="HdnCveProveedor" runat="server" />
|
||||
<label class="col-md-3">Almacén:</label>
|
||||
<div class="col-md-9">
|
||||
<asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-3">Recibió:</label>
|
||||
<div class="col-md-9">
|
||||
|
||||
<asp:HiddenField ID="HdnCveProveedor" runat="server" />
|
||||
<label class="col-md-2">Almacén:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:DropDownList ID="DdlAlmacenOrigen" Width="100%" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row" style="padding:0px">
|
||||
<label class="col-md-1">Recibió:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox runat="server" ID="TxtRecibio" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-3">Observaciones:</label>
|
||||
<div class="col-md-9">
|
||||
<asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="300px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="100%"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="padding:0px">
|
||||
<div style="text-align: center;" class="col-sm-12">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />
|
||||
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" Visible="false" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
@@ -22,12 +22,17 @@ Partial Class Inventarios_PrestamosdeProveedor
|
||||
End Property
|
||||
|
||||
Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CargaCombos()
|
||||
CveMovimiento = 0
|
||||
CveProveedor = 0
|
||||
|
||||
CargaDatos()
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(409) Then
|
||||
BtnRecibir.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2,9 +2,11 @@
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports Extensiones
|
||||
Imports GemBox.Spreadsheet
|
||||
Imports Microsoft.Owin.Security.Provider
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Inventarios_RecepcionAlmacen
|
||||
@@ -2568,6 +2570,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
|
||||
End If
|
||||
|
||||
Dim CveProveedorCompra As Integer = -1
|
||||
Try
|
||||
'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
|
||||
If CveOCSurtir > 0 And CveMoneda <> 1 Then
|
||||
@@ -3346,6 +3349,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
End If
|
||||
|
||||
'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN
|
||||
|
||||
If TipoMovimiento = 1 AndAlso Not ErrorMovInv Then
|
||||
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
@@ -3372,6 +3376,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
|
||||
Fecha = TxtFecha.Text.ToDate
|
||||
CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
|
||||
CveProveedorCompra = CveProveedor
|
||||
ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
|
||||
SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
|
||||
CveConceptoContableCosto = 205
|
||||
@@ -3663,6 +3668,12 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
RenombrarBitacoras()
|
||||
End If
|
||||
|
||||
If Not ErrorMovInv And CveProveedorCompra > 0 And CveCompraSurtir > 0 Then
|
||||
If Not ActualizaFechaVencimientoCompra(CveCompraSurtir, CveProveedorCompra, ObjInventario.IniciaTransacSQL) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'FINAL
|
||||
If Not ErrorMovInv Then
|
||||
ObjInventario.Commit() ' aplica los movimientos insertados
|
||||
@@ -3764,6 +3775,31 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Function ActualizaFechaVencimientoCompra(CveCompra As Integer, CveProveedor As Integer, TransaccionSql As SqlTransaction) As Boolean
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
|
||||
Dim objProveedores As New ClsCompProveedores(TransaccionSql)
|
||||
Dim objCompras As New ClsCompras(TransaccionSql)
|
||||
Dim CveTipoFechaVencimiento As Integer = 1
|
||||
|
||||
If objProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
CveTipoFechaVencimiento = objProveedores.CveTipoFechaVencimiento
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
If CveTipoFechaVencimiento = 2 Then
|
||||
If Not objCompras.UpdateFechaVencimientoCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Return If(ErrorProceso, False, True)
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub RenombrarBitacoras()
|
||||
Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
|
||||
|
||||
|
||||
@@ -2498,7 +2498,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
ObjCliente.Dispose()
|
||||
|
||||
'DETALLES
|
||||
Me.ObjRemisionNC.DtDetalle = CreaDTDetalleRNC()
|
||||
Me.ObjRemisionNC.DtDetalle = Modelos.Factura.CreaDTFactura()
|
||||
|
||||
'GUARDAR AJUSTES
|
||||
Me.ObjRemisionNC.DtAjustes = TmpDTAjustes
|
||||
@@ -2649,97 +2649,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
Protected Function CreaDTDetalleRNC() As DataTable
|
||||
Dim TmpDT As New DataTable
|
||||
TmpDT.Columns.Add("CveVenta", GetType(Integer))
|
||||
TmpDT.Columns.Add("Consec", GetType(Integer))
|
||||
TmpDT.Columns.Add("Cantidad", GetType(Decimal))
|
||||
TmpDT.Columns.Add("Codigo", GetType(String))
|
||||
TmpDT.Columns.Add("CveUM", GetType(Integer))
|
||||
TmpDT.Columns.Add("UM", GetType(String))
|
||||
TmpDT.Columns.Add("SATClaveUM", GetType(String))
|
||||
TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
|
||||
TmpDT.Columns.Add("Clasificacion", GetType(String))
|
||||
TmpDT.Columns.Add("CvePS", GetType(Integer))
|
||||
TmpDT.Columns.Add("PS", GetType(String))
|
||||
TmpDT.Columns.Add("CodigoPS", GetType(String))
|
||||
TmpDT.Columns.Add("SATClaveProdServ", GetType(String))
|
||||
TmpDT.Columns.Add("NoIdentificacion", GetType(String))
|
||||
TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
|
||||
TmpDT.Columns.Add("Serie", GetType(String))
|
||||
TmpDT.Columns.Add("CuentaPredial", GetType(String))
|
||||
TmpDT.Columns.Add("Obs", GetType(String))
|
||||
TmpDT.Columns.Add("TiempoEntrega", GetType(String))
|
||||
TmpDT.Columns.Add("PU", GetType(Decimal))
|
||||
TmpDT.Columns.Add("IVA", GetType(Decimal))
|
||||
TmpDT.Columns.Add("ImporteIVA", GetType(Decimal))
|
||||
TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal))
|
||||
TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal))
|
||||
TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal))
|
||||
TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
|
||||
TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal))
|
||||
TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal))
|
||||
TmpDT.Columns.Add("IEPS", GetType(Decimal))
|
||||
TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal))
|
||||
TmpDT.Columns.Add("Descuento", GetType(Decimal))
|
||||
TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
|
||||
TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
|
||||
TmpDT.Columns.Add("Total", GetType(Decimal))
|
||||
'Para uso del módulo contable
|
||||
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
|
||||
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
|
||||
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
|
||||
TmpDT.Columns.Add("Proyecto", GetType(String))
|
||||
TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
|
||||
TmpDT.Columns.Add("SubProyecto", GetType(String))
|
||||
TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer))
|
||||
|
||||
'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto
|
||||
TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer))
|
||||
'Contratos
|
||||
TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
|
||||
'Remisiones a Facturas
|
||||
TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer))
|
||||
|
||||
'Pedido2 a Facturas
|
||||
TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer))
|
||||
|
||||
TmpDT.Columns.Add("Origen", GetType(Integer))
|
||||
'Ordenes Servicio
|
||||
TmpDT.Columns.Add("CveOS", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveOSDetalle", GetType(Integer))
|
||||
TmpDT.Columns.Add("SeFacturara", GetType(Integer))
|
||||
TmpDT.Columns.Add("Folio", GetType(Integer))
|
||||
TmpDT.Columns.Add("Estatus", GetType(String))
|
||||
'Ordenamiento
|
||||
TmpDT.Columns.Add("Orden", GetType(Integer))
|
||||
TmpDT.Columns.Add("TipoDocto", GetType(String))
|
||||
'OC
|
||||
TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
|
||||
TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
|
||||
|
||||
TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
|
||||
TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
|
||||
TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal))
|
||||
TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal))
|
||||
TmpDT.Columns.Add("CantidadInventario", GetType(Decimal))
|
||||
|
||||
TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
|
||||
|
||||
TmpDT.Columns.Add("CveTamaño", GetType(Integer))
|
||||
TmpDT.Columns.Add("EsCargo", GetType(Boolean))
|
||||
TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
|
||||
TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
|
||||
|
||||
Return TmpDT
|
||||
End Function
|
||||
Protected Sub CargaDTDetalleRNC()
|
||||
|
||||
For Each Row As GridViewRow In GvM.Rows
|
||||
|
||||
@@ -144,31 +144,22 @@
|
||||
<asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
|
||||
<div class="col-md-1">
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlAplicaInventario" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
|
||||
<asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
|
||||
<div class="col-md-1">
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Tipo Almacen" Value="3"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -178,7 +169,7 @@
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None"
|
||||
DataKeyNames="Gpo,CveAlmacen,CveClasificacion" >
|
||||
DataKeyNames="Gpo,CveAlmacen,CveClasificacion,FechaInicio,FechaFin" >
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Almacén">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -44,8 +44,11 @@ Partial Class Inventarios_RepAlmacen
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim objInv As New ClsInventarios
|
||||
|
||||
Dim objInv As New ClsInventarios
|
||||
|
||||
GVAlmacen.Columns(1).Visible = If(DdlGrupo.SelectedValue.ToEntero = 1, True, False)
|
||||
GVAlmacen.Columns(1).HeaderText = If(DdlGrupo.SelectedValue.ToEntero = 1, "Almacen", "Clasificación")
|
||||
|
||||
Dim FechaI, FechaF As String
|
||||
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
|
||||
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
|
||||
@@ -55,6 +58,7 @@ Partial Class Inventarios_RepAlmacen
|
||||
|
||||
If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero,
|
||||
Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, Gpo:=DdlGrupo.SelectedValue.ToEntero) Then
|
||||
|
||||
GVAlmacen.DataSource = objInv.DtResultados
|
||||
TmpDT = objInv.DtResultados
|
||||
End If
|
||||
@@ -98,7 +102,10 @@ Partial Class Inventarios_RepAlmacen
|
||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
|
||||
|
||||
Dim Archivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepAlmacen.rdlc", "RepAlmacenClasificacion.rdlc")
|
||||
|
||||
ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", TmpDT, params, "ReporteAlmacen", Formato)
|
||||
End Sub
|
||||
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
GenerarPDF()
|
||||
@@ -111,18 +118,22 @@ Partial Class Inventarios_RepAlmacen
|
||||
' e.Row.CssClass = "Totales"
|
||||
'End If
|
||||
|
||||
If e.Row.Cells(0).Text = "" Then
|
||||
If e.Row.DataKey("Gpo") = "Total" Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("CveAlmacen").ToEntero > 0 Then
|
||||
Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1"
|
||||
e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
|
||||
<asp:HyperLink ID = "HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>-
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&CveTipoAlmacen={e.Row.DBCampo("CveTipoAlmacen")}&Tipo=-1"
|
||||
e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
|
||||
'If DdlGrupo.SelectedValue.ToEntero = 1 Then
|
||||
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
|
||||
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
'Else
|
||||
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
|
||||
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -3,53 +3,55 @@
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UPAcciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar Columnas</asp:HyperLink>
|
||||
</li>
|
||||
<%-- <li>
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar Columnas</asp:HyperLink>
|
||||
</li>
|
||||
<%-- <li>
|
||||
<asp:LinkButton ID="Lnkcompuxlsinventarios" OnClick="Lnkcompuxlsinventarios_Click" runat="server"><i class="fa fa-ad-excel"></i> Generar Inventarios HP</asp:LinkButton>
|
||||
</li>--%>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkImprimir" />
|
||||
<asp:PostBackTrigger ControlID="LnkExportar" />
|
||||
<asp:PostBackTrigger ControlID="LnkExcelPersonalizado" />
|
||||
<asp:PostBackTrigger ControlID="LnkFormatoInventario" />
|
||||
<asp:PostBackTrigger ControlID="LnkImprimir" />
|
||||
<asp:PostBackTrigger ControlID="LnkExportar" />
|
||||
<asp:PostBackTrigger ControlID="LnkExcelPersonalizado" />
|
||||
<asp:PostBackTrigger ControlID="LnkFormatoInventario" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
<style>
|
||||
.dataTables_scrollHead {
|
||||
background-color: #95A5A6;
|
||||
color: white;
|
||||
}
|
||||
|
||||
.dataTables_scrollHead{
|
||||
background-color:#95A5A6;
|
||||
color:white;
|
||||
}
|
||||
.table-scrollable{
|
||||
margin-top:0px!important;
|
||||
margin-bottom:0px!important;
|
||||
.table-scrollable {
|
||||
margin-top: 0px !important;
|
||||
margin-bottom: 0px !important;
|
||||
}
|
||||
|
||||
.dataTables_scroll {
|
||||
padding-top: 0px;
|
||||
}
|
||||
|
||||
.Totales a {
|
||||
color: white;
|
||||
}
|
||||
.dataTables_scroll{
|
||||
padding-top:0px;
|
||||
}
|
||||
.Totales a{
|
||||
color: white;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||
@@ -71,7 +73,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-1 truncate">Almacén</div>
|
||||
<div class="col-md-2">
|
||||
<asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
<asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
</div>
|
||||
<div class="col-md-1 truncate">Fecha Inicio</div>
|
||||
<div class="col-md-2 col-sm-2">
|
||||
@@ -195,51 +197,42 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false" id="DVFiltroCodigo">
|
||||
<div class="col-md-1">Código Inicio:</div>
|
||||
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
|
||||
<div class="col-md-1">Código Fin:</div>
|
||||
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
|
||||
|
||||
<div class="col-md-1" runat="server" id="DVNavegar" >
|
||||
<div class="row">
|
||||
<div class="col-md-5">
|
||||
<asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
</div>
|
||||
<div class="col-md-5">
|
||||
<asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-1">Código Inicio:</div>
|
||||
<div class="col-md-2">
|
||||
<asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
|
||||
<div class="col-md-1">Código Fin:</div>
|
||||
<div class="col-md-2">
|
||||
<asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<div class="row col-md-12" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="dvCa" style="width:100%;visibility:hidden;top:40px">
|
||||
<table id="dTable" class="correcto table Widthall " runat="server"><tr>
|
||||
<td id="dvArt" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px;width:32.5%;"><b>Producto</b></td>
|
||||
<td id="dvCan" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:30%;border-style: solid;"><b>Cantidad</b></td>
|
||||
<td id="dvImp" runat="server" class="dataTables_scrollHead" style="text-align:center!important;width: 37.5%;font-size:14px;"><b>Importe</b></td>
|
||||
</tr></table>
|
||||
</div>
|
||||
<ContentTemplate>
|
||||
<div id="dvCa" style="width: 100%; visibility: hidden; top: 40px">
|
||||
<table id="dTable" class="correcto table Widthall " runat="server">
|
||||
<tr>
|
||||
<td id="dvArt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; width: 32.5%;"><b>Producto</b></td>
|
||||
<td id="dvCan" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 30%; border-style: solid;"><b>Cantidad</b></td>
|
||||
<td id="dvImp" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 37.5%; font-size: 14px;"><b>Importe</b></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD"
|
||||
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall adssigrid-scroll adssigrid-order" data-cols="1" data-rows="2"
|
||||
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,NumeroParte,PS"
|
||||
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
|
||||
<Columns>
|
||||
@@ -255,80 +248,80 @@
|
||||
<%--4--%>
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="22.5%" HeaderText="Descripción" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="PS" />
|
||||
<%--5--%>
|
||||
<asp:BoundField Visible="false" DataField="SeccionAlmacen" HeaderText="Sección Almacén" ItemStyle-Width="10%" />
|
||||
<asp:BoundField Visible="false" DataField="SeccionAlmacen" HeaderText="Sección Almacén" ItemStyle-Width="10%" />
|
||||
<%--6--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Inicial" >
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Inicial">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSaldoI" runat="server" Text='<%# If(Eval("SaldoIniCant").ToString() = "0", "-", Eval("SaldoIniCant", "{0:#,###.######}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--7--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbEntradasCant" runat="server" Text='<%#If(Eval("EntradaCant").ToString() = "0", "-", Eval("EntradaCant", "{0:#,###.######}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--8--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSalidasCant" runat="server" Text='<%# If(Eval("SalidaCant").ToString() = "0", "-", Eval("SalidaCant", "{0:#,###.######}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--9--%>
|
||||
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
|
||||
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
|
||||
<%--10--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Final" ItemStyle-CssClass="LightGray">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Final" ItemStyle-CssClass="LightGray">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSaldoF" runat="server" Text='<%# If(Eval("SaldoFCant").ToString() = "0", "-", Eval("SaldoFCant", "{0:#,###.######}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<%--11--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Inicial">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Inicial">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--12--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbEntradaImp" runat="server" Text='<%# If(Eval("EntradaImp").ToString() = "0", "-", Eval("EntradaImp", "{0:N2}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--13--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSalidaImp" runat="server" Text='<%# If(Eval("SalidaImp").ToString() = "0", "-", Eval("SalidaImp", "{0:N2}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--14--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Final" >
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Final">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbSaldoF2" runat="server" Text='<%# If(Eval("SaldoFImp").ToString() = "0", "-", Eval("SaldoFImp", "{0:N2}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--15--%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Último Costo">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Último Costo">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lbUltimoCosto" runat="server" Text='<%# If(Eval("UltimoCosto").ToString() = "0", "-", Eval("UltimoCosto", "{0:N2}")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
|
||||
</asp:TemplateField>
|
||||
<%--16--%>
|
||||
<asp:BoundField Visible="false" DataField="FechaCompra" HeaderText="Última Compra" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
|
||||
<asp:BoundField Visible="false" DataField="FechaCompra" HeaderText="Última Compra" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
|
||||
<%--17--%>
|
||||
<asp:BoundField Visible="false" DataField="FechaVenta" HeaderText="Última Venta" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
|
||||
<asp:BoundField Visible="false" DataField="FechaVenta" HeaderText="Última Venta" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
|
||||
<%--18--%>
|
||||
<asp:BoundField Visible="false" DataField="PUPromedio" HeaderText="PU Promedio" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
|
||||
|
||||
<asp:BoundField Visible="false" DataField="PUPromedio" HeaderText="PU Promedio" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
@@ -369,7 +362,7 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Id_Clave" HeaderText="Folio / Concepto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HTMLEncode="false"/>
|
||||
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HtmlEncode="false" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
@@ -379,7 +372,7 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
@@ -393,7 +386,7 @@
|
||||
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table style="width:598px;" class="table table-advance">
|
||||
<table style="width: 598px;" class="table table-advance">
|
||||
<tbody>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
@@ -402,21 +395,21 @@
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkCodigoBarras" runat="server" Text="Código Barras" />
|
||||
</td>
|
||||
<td style="text-align: left;">
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkSeccionAlmacen" runat="server" Text="Sección Almacen" />
|
||||
</td>
|
||||
<td style="text-align: left;" id="TdModalClasificacion2" runat="server" visible ="false">
|
||||
<td style="text-align: left;" id="TdModalClasificacion2" runat="server" visible="false">
|
||||
<asp:CheckBox ID="ChkClasificacion2" runat="server" Text="Clasificación 2" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaUltimaCompra" runat="server" Text="Fecha Última Compra" />
|
||||
</td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaUltimaVenta" runat="server" Text="Fecha Última Venta" />
|
||||
</td>
|
||||
<td style="text-align: left;">
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkPUPromedio" runat="server" Text="PU Promedio" />
|
||||
</td>
|
||||
</tr>
|
||||
@@ -436,8 +429,8 @@
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script type="text/javascript">
|
||||
|
||||
function elementexist(element) {
|
||||
@@ -454,7 +447,7 @@
|
||||
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
});
|
||||
|
||||
|
||||
var dTable;
|
||||
function pageLoad() {
|
||||
var Tam = TamañoVentana();
|
||||
@@ -463,10 +456,10 @@
|
||||
Alto = 100;
|
||||
}
|
||||
|
||||
|
||||
|
||||
var rows = false;
|
||||
var cont = 0;
|
||||
|
||||
var cont = 0;
|
||||
|
||||
$("#<%=GvM.ClientID %> tr").each(function () {
|
||||
|
||||
cont++;
|
||||
@@ -486,63 +479,63 @@
|
||||
//}
|
||||
}
|
||||
|
||||
$(window).resize(function () {
|
||||
|
||||
subHeaders();
|
||||
dTable.columns.adjust().draw();
|
||||
});
|
||||
$(window).resize(function () {
|
||||
|
||||
function subHeaders() {
|
||||
subHeaders();
|
||||
dTable.columns.adjust().draw();
|
||||
});
|
||||
|
||||
function subHeaders() {
|
||||
|
||||
|
||||
|
||||
|
||||
var recco = 0;
|
||||
|
||||
$("#<%=GvM.ClientID %> tr").each(function() {
|
||||
if (!this.rowIndex) return;
|
||||
var recco = 0;
|
||||
|
||||
var celdas = [];
|
||||
$("#<%=GvM.ClientID %> tr").each(function () {
|
||||
if (!this.rowIndex) return;
|
||||
|
||||
$(this).find('td').each(function (column, td) {
|
||||
|
||||
celdas.push($(td).width());
|
||||
});
|
||||
var celdas = [];
|
||||
|
||||
|
||||
$(this).find('td').each(function (column, td) {
|
||||
|
||||
var ancho = 0
|
||||
ancho += celdas[0];
|
||||
ancho += celdas[1];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvArt').width(ancho);
|
||||
ancho = 0;
|
||||
|
||||
ancho += celdas[2];
|
||||
ancho += celdas[3];
|
||||
ancho += celdas[4];
|
||||
ancho += celdas[5];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvCan').width(ancho);
|
||||
ancho = 0;
|
||||
|
||||
ancho += celdas[6];
|
||||
ancho += celdas[7];
|
||||
ancho += celdas[8];
|
||||
ancho += celdas[9];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvImp').width(ancho);
|
||||
|
||||
$('#dvCa').css('visibility', 'visible');
|
||||
|
||||
return false;
|
||||
celdas.push($(td).width());
|
||||
});
|
||||
|
||||
|
||||
|
||||
|
||||
var ancho = 0
|
||||
ancho += celdas[0];
|
||||
ancho += celdas[1];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvArt').width(ancho);
|
||||
ancho = 0;
|
||||
|
||||
ancho += celdas[2];
|
||||
ancho += celdas[3];
|
||||
ancho += celdas[4];
|
||||
ancho += celdas[5];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvCan').width(ancho);
|
||||
ancho = 0;
|
||||
|
||||
ancho += celdas[6];
|
||||
ancho += celdas[7];
|
||||
ancho += celdas[8];
|
||||
ancho += celdas[9];
|
||||
|
||||
console.log('ancho req ' + ancho);
|
||||
$('#dvImp').width(ancho);
|
||||
|
||||
$('#dvCa').css('visibility', 'visible');
|
||||
|
||||
return false;
|
||||
});
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -74,31 +74,42 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
FechaFinal = "-1"
|
||||
|
||||
CargaCombos()
|
||||
|
||||
GvM.DataBind(True)
|
||||
If Not IsNothing(Request("CveAlmacen")) Then
|
||||
DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
|
||||
TxtFechaI.Text = "01/01/2000"
|
||||
If Not IsNothing(Request("FechaCorte")) Then
|
||||
TxtFechaF.Text = Request("FechaCorte")
|
||||
End If
|
||||
|
||||
If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
|
||||
TxtFechaI.Text = Request("FechaInicio")
|
||||
End If
|
||||
|
||||
If Not IsNothing(Request("Tipo")) Then
|
||||
DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
|
||||
End If
|
||||
|
||||
btConsultar_Click(Nothing, Nothing)
|
||||
End If
|
||||
CargaRequest()
|
||||
CargaPermisos()
|
||||
CargaGvBitacora()
|
||||
|
||||
' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRequest()
|
||||
|
||||
Dim CveAlmacen As Integer = If(Not IsNothing(Request("CveAlmacen")) AndAlso Request("CveAlmacen").ToEntero > 0, Request("CveAlmacen").ToEntero, -1)
|
||||
Dim CveClasificacion As Integer = If(Not IsNothing(Request("CveClasificacion")) AndAlso Request("CveClasificacion").ToEntero > 0, Request("CveClasificacion").ToEntero, -1)
|
||||
|
||||
If CveAlmacen > 0 Or CveClasificacion > 0 Then ' CveClasificacion
|
||||
|
||||
DdlAlmacen.SelectedValuesIfExist(CveAlmacen.ToString)
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
|
||||
TxtFechaI.Text = "01/01/2000"
|
||||
If Not IsNothing(Request("FechaCorte")) Then
|
||||
TxtFechaF.Text = Request("FechaCorte")
|
||||
End If
|
||||
|
||||
If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
|
||||
TxtFechaI.Text = Request("FechaInicio")
|
||||
End If
|
||||
|
||||
If Not IsNothing(Request("Tipo")) Then
|
||||
DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub CargaPermisos()
|
||||
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
|
||||
|
||||
@@ -109,7 +120,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
GvM.Columns(7).HeaderStyle.Width = 133
|
||||
GvM.Columns(8).HeaderStyle.Width = 133
|
||||
GvM.Columns(10).HeaderStyle.Width = 134
|
||||
GvM.CssClass = "table table-smallpadding table-striped table-hover ScrollAD"
|
||||
GvM.Width = 1074
|
||||
dvArt.Attributes.Add("style", "text-align:center!important; font-size:14px;width:537px;")
|
||||
dvCan.Attributes.Add("style", "text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:537px;border-style: solid;")
|
||||
@@ -256,10 +266,13 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
CveMarca = DdlMarca.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
|
||||
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
|
||||
|
||||
If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
|
||||
Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
|
||||
DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
|
||||
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
|
||||
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
dt = Reporte.DtResultados
|
||||
|
||||
|
||||
@@ -575,331 +588,4 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
|
||||
NavegacionPS(Siguiente:=False)
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
|
||||
NavegacionPS(Siguiente:=True)
|
||||
End Sub
|
||||
Private Sub NavegacionPS(Siguiente As Boolean)
|
||||
Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero
|
||||
|
||||
If Not CvePS > 0 Then
|
||||
CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente)
|
||||
If Not CvePS > 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim dt As DataTable = New DataTable
|
||||
|
||||
Dim Entrada As Boolean = True
|
||||
Dim Salida As Boolean = True
|
||||
|
||||
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 = If(DdlAlmacen.SelectedValue.ToEntero = 0, -1, DdlAlmacen.SelectedValue.ToEntero)
|
||||
Dim CveAlmacenes As String = DdlAlmacen.GetSelectedValues()
|
||||
If CveAlmacenes.Contains(",") Then
|
||||
CveAlmacen = -1
|
||||
End If
|
||||
If CvePS > 0 Then
|
||||
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||
If dr IsNot Nothing Then
|
||||
DdlPS.SelectedText = dr("PSCodigo").ToString
|
||||
DdlPS.SelectedValue = CvePS.ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'Dim CveTiposAlmacen As String = "-1"
|
||||
'For Each item As ListItem In CBLTiposAlmacen.Items
|
||||
' CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
|
||||
'Next
|
||||
|
||||
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
|
||||
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
|
||||
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
dt = ObjInventarios.DtResultados.Copy
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
|
||||
DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
|
||||
DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
|
||||
DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
|
||||
CargaDatos()
|
||||
'UPFiltros.Update()
|
||||
UPPMov.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer
|
||||
|
||||
Dim CvePSRespuesta As Integer = -1
|
||||
Dim dt As DataTable = New DataTable
|
||||
|
||||
If Siguiente Then
|
||||
If TxtCodigoInicio.Text.Trim.Length > 0 Then
|
||||
'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
|
||||
dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim)
|
||||
End If
|
||||
Else
|
||||
If TxtCodigoFinal.Text.Trim.Length > 0 Then
|
||||
'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
|
||||
dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero
|
||||
DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
|
||||
DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
|
||||
DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
|
||||
DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
|
||||
'UPFiltros.Update()
|
||||
UPPMov.Update()
|
||||
End If
|
||||
|
||||
|
||||
Return CvePSRespuesta
|
||||
|
||||
End Function
|
||||
|
||||
'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
|
||||
' Dim continuar = True
|
||||
' Try
|
||||
|
||||
' Dim wb As New ClosedXML.Excel.XLWorkbook()
|
||||
' Dim libro As ClosedXML.Excel.IXLWorksheet = wb.AddWorksheet("Reporte de inventarios")
|
||||
|
||||
|
||||
|
||||
' Dim Fila As Integer = 0
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
|
||||
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
|
||||
' libro.Cell(Fila + 3, 5).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Column(1).Width = 34.43
|
||||
' libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
|
||||
' libro.Cell(Fila + 2, 1).Value = "RECORD Type"
|
||||
' libro.Cell(Fila + 3, 1).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(2).Width = 24
|
||||
' libro.Cell(Fila + 1, 2).Value = "Codigo del Partner"
|
||||
' libro.Cell(Fila + 2, 2).Value = "Reporter_id "
|
||||
' libro.Cell(Fila + 3, 2).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(3).Width = 28.71
|
||||
' libro.Cell(Fila + 1, 3).Value = "Nombre de la Empresa"
|
||||
' libro.Cell(Fila + 2, 3).Value = "Reporter Company Name"
|
||||
' libro.Cell(Fila + 3, 3).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(4).Width = 23.57
|
||||
' libro.Cell(Fila + 1, 4).Value = "CÓDIGO DEL PAÍS"
|
||||
' libro.Cell(Fila + 2, 4).Value = "COUNTRY CD"
|
||||
' libro.Cell(Fila + 3, 4).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(5).Width = 17.57
|
||||
' libro.Cell(Fila + 1, 5).Value = "Ubicación"
|
||||
' libro.Cell(Fila + 2, 5).Value = "LOCATION"
|
||||
' libro.Cell(Fila + 3, 5).Value = "OPCIONAL"
|
||||
|
||||
' libro.Column(6).Width = 35.29
|
||||
' libro.Cell(Fila + 1, 6).Value = "FECHA DEL INVENTARIO"
|
||||
' libro.Cell(Fila + 2, 6).Value = "Period End Date"
|
||||
' libro.Cell(Fila + 3, 6).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(7).Width = 23.43
|
||||
' libro.Cell(Fila + 1, 7).Value = "REENVIO"
|
||||
' libro.Cell(Fila + 2, 7).Value = "RESUBMIT"
|
||||
' libro.Cell(Fila + 3, 7).Value = "OBLIGATORIO"
|
||||
|
||||
' libro.Column(8).Width = 29.29
|
||||
' libro.Column(9).Width = 25
|
||||
' libro.Column(10).Width = 18.14
|
||||
' libro.Column(11).Width = 32.71
|
||||
' libro.Column(12).Width = 13.57
|
||||
' libro.Column(13).Width = 13
|
||||
' libro.Column(14).Width = 32
|
||||
' libro.Column(15).Width = 12.71
|
||||
' libro.Column(16).Width = 13
|
||||
|
||||
|
||||
|
||||
' Fila = Fila + 3
|
||||
|
||||
' libro.Cell(Fila + 1, 1).Value = "IH"
|
||||
' libro.Cell(Fila + 1, 2).Value = "10245068"
|
||||
' libro.Cell(Fila + 1, 3).Value = "COMPUPROVEEDORES SA DE CV"
|
||||
' libro.Cell(Fila + 1, 4).Value = "MX"
|
||||
' libro.Cell(Fila + 1, 5).Value = ""
|
||||
' libro.Cell(Fila + 1, 6).Value = String.Format("{0:yyyyMMdd}", TxtFechaF.Text.ToDate())
|
||||
' libro.Cell(Fila + 1, 7).Value = "N"
|
||||
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
|
||||
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
|
||||
' libro.Range(libro.Cell(Fila + 3, 3), libro.Cell(Fila + 3, 15)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
|
||||
' libro.Cell(Fila + 3, 7).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
|
||||
' libro.Cell(Fila + 3, 10).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
|
||||
' libro.Cell(Fila + 1, 2).Value = "NÚMERO DEL PRODUCTO"
|
||||
' libro.Cell(Fila + 1, 3).Value = "OPCION DEL PRODUCTO"
|
||||
' libro.Cell(Fila + 1, 4).Value = "UPC"
|
||||
' libro.Cell(Fila + 1, 5).Value = "CODIGO SKU"
|
||||
' libro.Cell(Fila + 1, 6).Value = "ORDENES DE COMPRAS EN ABIERTO "
|
||||
' libro.Cell(Fila + 1, 7).Value = "INVENTARIO DISPONIBLE"
|
||||
' libro.Cell(Fila + 1, 8).Value = "DEVOLUCIONES"
|
||||
' libro.Cell(Fila + 1, 9).Value = "INVENTARIO RESERVADO"
|
||||
' libro.Cell(Fila + 1, 10).Value = "INVENTARIO TOTAL"
|
||||
' libro.Cell(Fila + 1, 11).Value = "EN TRANSITO"
|
||||
' libro.Cell(Fila + 1, 12).Value = "VALOR UNITARIO DEL PRODUCTO HP"
|
||||
' libro.Cell(Fila + 1, 13).Value = "VALOR TOTAL DEL INVENTARIO"
|
||||
' libro.Cell(Fila + 1, 14).Value = "NOMBRE DE LA TIENDA"
|
||||
' libro.Cell(Fila + 1, 15).Value = "Codigo de la tienda"
|
||||
' libro.Cell(Fila + 1, 16).Value = "MONEDA"
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "RECORD TYPE "
|
||||
' libro.Cell(Fila + 1, 2).Value = "Partner Reported Product ID"
|
||||
' libro.Cell(Fila + 1, 3).Value = "PROD_OPTION"
|
||||
' libro.Cell(Fila + 1, 4).Value = "UPC"
|
||||
' libro.Cell(Fila + 1, 5).Value = "Reseller product number "
|
||||
' libro.Cell(Fila + 1, 6).Value = "Quantity on Order"
|
||||
' libro.Cell(Fila + 1, 7).Value = "Quantity on Hand"
|
||||
' libro.Cell(Fila + 1, 8).Value = "Quantity in stock allocated to be returned to supplier"
|
||||
' libro.Cell(Fila + 1, 9).Value = "Reserved Inventory"
|
||||
' libro.Cell(Fila + 1, 10).Value = "Quantity avail. for sale"
|
||||
' libro.Cell(Fila + 1, 11).Value = "Quantity in float (In transit between partner warehouses)"
|
||||
' libro.Cell(Fila + 1, 12).Value = "INVENTORY UNIT VALUE"
|
||||
' libro.Cell(Fila + 1, 13).Value = "INVENTORY VALUATION"
|
||||
' libro.Cell(Fila + 1, 14).Value = "Sell from name (For retailers, ""Store Name / Site Name"")"
|
||||
' libro.Cell(Fila + 1, 15).Value = "Sell From Location ID"
|
||||
' libro.Cell(Fila + 1, 16).Value = "CURRENCY"
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 3).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 4).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 5).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 6).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 7).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 8).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 9).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 10).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 11).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 12).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 13).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 14).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 15).Value = "OPCIONAL"
|
||||
' libro.Cell(Fila + 1, 16).Value = "OBLIGATORIO"
|
||||
|
||||
|
||||
' If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
' For Each row As DataRow In dt.Select("CvePS>0 AND SaldoFCant >0")
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "ID" ' "TIPO DO REGISTRO"
|
||||
' libro.Cell(Fila + 1, 2).Value = String.Format("'{0}", row("Codigo")) ' "NÚMERO DEL PRODUCTO"
|
||||
' libro.Cell(Fila + 1, 3).Value = "" ' "OPCION DEL PRODUCTO"
|
||||
' libro.Cell(Fila + 1, 4).Value = "" ' "UPC"
|
||||
' libro.Cell(Fila + 1, 5).Value = "" ' "CODIGO SKU"
|
||||
' libro.Cell(Fila + 1, 6).Value = "" ' "ORDENES DE COMPRAS EN ABIERTO "
|
||||
' libro.Cell(Fila + 1, 7).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO DISPONIBLE"
|
||||
' 'libro.Cell(Fila + 1, 7).Style.NumberFormat.Format = "N2"
|
||||
' libro.Cell(Fila + 1, 8).Value = "" ' "DEVOLUCIONES"
|
||||
' libro.Cell(Fila + 1, 9).Value = "" ' "INVENTARIO RESERVADO"
|
||||
' libro.Cell(Fila + 1, 10).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO TOTAL"
|
||||
' 'libro.Cell(Fila + 1, 10).Style.NumberFormat.Format = "$ #,##0.00"
|
||||
' libro.Cell(Fila + 1, 11).Value = "" ' "EN TRANSITO"
|
||||
' libro.Cell(Fila + 1, 12).Value = "" ' "VALOR UNITARIO DEL PRODUCTO HP"
|
||||
' libro.Cell(Fila + 1, 13).Value = "" ' "VALOR TOTAL DEL INVENTARIO"
|
||||
' libro.Cell(Fila + 1, 14).Value = "" ' "NOMBRE DE LA TIENDA"
|
||||
' libro.Cell(Fila + 1, 15).Value = "" ' "Codigo de la tienda"
|
||||
' libro.Cell(Fila + 1, 16).Value = "MXN" ' "MONEDA"
|
||||
' Next
|
||||
' End If
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
|
||||
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
|
||||
' libro.Cell(Fila + 1, 1).Value = "TIPO DEL REGISTRO"
|
||||
' libro.Cell(Fila + 1, 2).Value = "TOTAL DE REGISTROS"
|
||||
' libro.Cell(Fila + 1, 3).Value = "Suma del Inventario Disponible"
|
||||
' libro.Cell(Fila + 1, 4).Value = "Suma del Inventario Total"
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "RECORD TYPE"
|
||||
' libro.Cell(Fila + 1, 2).Value = "COUNT OF RECORDS"
|
||||
' libro.Cell(Fila + 1, 3).Value = "SUM OF “"On Hand”""
|
||||
' libro.Cell(Fila + 1, 4).Value = "SUM OF “"Total Inventory"”"
|
||||
|
||||
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 3).Value = "OBLIGATORIO"
|
||||
' libro.Cell(Fila + 1, 4).Value = "OBLIGATORIO"
|
||||
|
||||
' Dim Codigo As Double = 0
|
||||
' Dim SaldoFCant As Double = 0
|
||||
' Dim SaldoFImp As Double = 0
|
||||
' If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then
|
||||
' Codigo = dt.COUNT("Codigo", "CvePS>0")
|
||||
' SaldoFCant = dt.SUM("SaldoFCant", "CvePS>0")
|
||||
' SaldoFImp = dt.SUM("SaldoFImp", "CvePS>0")
|
||||
' End If
|
||||
' Fila = Fila + 1
|
||||
' libro.Cell(Fila + 1, 1).Value = "IT"
|
||||
' libro.Cell(Fila + 1, 2).Value = String.Format("{0}", Codigo)
|
||||
' 'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
|
||||
' libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
|
||||
' 'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
|
||||
' libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
|
||||
' 'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
|
||||
|
||||
|
||||
' ''Guarda streem y descarga
|
||||
' Dim fs As Stream = New MemoryStream()
|
||||
' wb.SaveAs(fs)
|
||||
' fs.Position = 0
|
||||
' Dim memoryStream As New MemoryStream()
|
||||
' Using input As Stream = fs
|
||||
' input.CopyTo(memoryStream)
|
||||
' End Using
|
||||
' memoryStream.Position = 0
|
||||
|
||||
' Response.Clear()
|
||||
' Response.Buffer = True
|
||||
|
||||
' Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
|
||||
' Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "Reporte de Inventarios HP"))
|
||||
' Response.BinaryWrite(memoryStream.ToArray())
|
||||
' Response.End()
|
||||
|
||||
' ''endGuarda streem y descarga
|
||||
' Catch
|
||||
|
||||
' continuar = False
|
||||
' End Try
|
||||
' If Not continuar Then
|
||||
' Alert("Ocurrió un error al gener el excel", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user