Tareas varias
This commit is contained in:
@@ -300,7 +300,8 @@ Public Class ClsInventarios
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, Optional SoloMovimientosContables As Boolean = False) As Boolean
|
||||
Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean,
|
||||
Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Inv_AlmacenesRepGet")
|
||||
|
||||
@@ -312,6 +313,8 @@ Public Class ClsInventarios
|
||||
.Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
|
||||
.Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables
|
||||
.Add("@Modalidad", SqlDbType.Int).Value = Contabilizable
|
||||
.Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -2415,7 +2418,7 @@ Public Class ClsInventarios
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean
|
||||
Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_InventarioFisicoDetalleGet")
|
||||
@@ -2423,7 +2426,7 @@ Public Class ClsInventarios
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
.Add("@Agrupar", SqlDbType.Bit).Value = Agrupar
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -380,7 +380,6 @@
|
||||
<asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion", "<div>{0}</div>")%>'></asp:Literal>
|
||||
<span style='display: none'><%# Eval("RazonSocial")%></span>
|
||||
</ItemTemplate>
|
||||
|
||||
<HeaderTemplate>
|
||||
<div>
|
||||
<asp:LinkButton ID="LbMoneda_RazonSocial" runat="server" CausesValidation="false" Text="Proveedor" OnClick="LbOrden_Click" CommandArgument="Moneda,RazonSocial"></asp:LinkButton> <asp:ImageButton ID="ImgMoneda_RazonSocial" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" OnClick="LbOrden_Click" CommandArgument="Moneda,RazonSocial" />/<asp:LinkButton ID="LbMoneda_OrdenMonedaProveedor_SerieFolio" runat="server" CausesValidation="false" Text="Factura" OnClick="LbOrden_Click" CommandArgument="Moneda,OrdenMonedaProveedor,SerieFolio"></asp:LinkButton> <asp:ImageButton ID="ImgMoneda_OrdenMonedaProveedor_SerieFolio" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" OnClick="LbOrden_Click" CommandArgument="Moneda,OrdenMonedaProveedor,SerieFolio" />
|
||||
|
||||
@@ -501,7 +501,6 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
Protected Sub BtnProgramar_Click(sender As Object, e As EventArgs) Handles BtnProgramar.Click
|
||||
Dim CveUsuario As Integer = UsuarioActual.CveUsuario
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(138) = "1" Then
|
||||
'Validación del SAT - DF 21/01/17
|
||||
Dim Validada As Boolean = False
|
||||
@@ -597,6 +596,7 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Comp.Dispose()
|
||||
|
||||
TxtCodigoP.Text = ""
|
||||
|
||||
@@ -604,10 +604,9 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
Alert(MsgError, TipoMensaje.MsgError)
|
||||
Else
|
||||
Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion)
|
||||
EnviaCorreoNotificacion()
|
||||
End If
|
||||
|
||||
|
||||
Comp.Dispose()
|
||||
CargaDatos()
|
||||
|
||||
'Recarga DdlUsuarioProgramo
|
||||
@@ -623,6 +622,105 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
End If
|
||||
ObjUsuarios.Dispose()
|
||||
End Sub
|
||||
Private Sub EnviaCorreoNotificacion()
|
||||
If UsuarioActual.CveEmpresa = 13 Then
|
||||
|
||||
Dim strBody As New StringBuilder
|
||||
Try
|
||||
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||
strBody.Append("<head> ")
|
||||
strBody.Append(" <style type=""text/css""> ")
|
||||
strBody.Append(" body ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" margin:0px; ")
|
||||
strBody.Append(" padding:0px 0px 0px 0px; ")
|
||||
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
||||
strBody.Append(" font-size: 10px; ")
|
||||
strBody.Append(" background-color:#F0F0F0; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" a.Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" font-size:11px; ")
|
||||
strBody.Append(" background-color:#F7F6F3; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .TextoAlterno ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .BarraIdentidad ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" color:#FFFFFF; ")
|
||||
strBody.Append(" background:#F0F0F0; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" font-size:19px; ")
|
||||
strBody.Append(" font-style:oblique; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Titulos ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color: Gray;")
|
||||
strBody.Append(" color:White; ")
|
||||
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Verde {color: #00CC00;} ")
|
||||
strBody.Append(" .Negro {color: #000000;} ")
|
||||
strBody.Append(" .Rojo {color: #FF0000;} ")
|
||||
strBody.Append(" </style> ")
|
||||
strBody.Append("</head> ")
|
||||
strBody.Append("<body> ")
|
||||
'Cargo el detalle
|
||||
strBody.Append(" <div style='width: 550px'> ")
|
||||
strBody.Append(" <fieldset> ")
|
||||
strBody.Append(" <legend>Compras Programadas</legend> ")
|
||||
strBody.Append(" <table width=""550px""><tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>")
|
||||
strBody.Append(" <th scope='col' style='width: 100px'>Serie-Folio</th> <th scope='col' style='width: 100px'>Fecha</th><th scope='col' style='width: 120px'>Importe</th><th scope='col' style='width: 100px'>Importe Programado</th></tr>")
|
||||
|
||||
For Each gvr As GridViewRow In Gv.Rows
|
||||
If gvr.FCCheckBox("Chk").Checked Then
|
||||
Dim SerieFolio = gvr.DataKey("SerieFolio")
|
||||
Dim Importe = gvr.DataKey("Original").ToDouble.FormatoNumero()
|
||||
Dim ImporteProgramo = gvr.FCTextBox("TxtS").Text.ToDouble.FormatoNumero()
|
||||
|
||||
strBody.Append($"<tr class='Texto'><td>{SerieFolio}</td><td>{DateTime.Now}</td><td style='text-align: right;'><span >{Importe}</span></td><td style='text-align: right;'>{ImporteProgramo}</td></tr>")
|
||||
End If
|
||||
Next
|
||||
|
||||
strBody.Append(" </table> ")
|
||||
strBody.Append(" </fieldset> ")
|
||||
strBody.Append(" </div> ")
|
||||
strBody.Append("</body></html>")
|
||||
|
||||
Try
|
||||
|
||||
Dim Correo As String = "" '"rpenunuriv@hotmail.com"
|
||||
'Rafael Peñuñuri
|
||||
Dim ObjUsuarios As New ClsSisUsuarios
|
||||
If ObjUsuarios.GetUsuarios(293) Then
|
||||
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
|
||||
Correo = ObjUsuarios.DtResultados.Rows(0)("Correo").ToString()
|
||||
End If
|
||||
End If
|
||||
ObjUsuarios.Dispose()
|
||||
|
||||
Dim Asunto As String = "SIG - Se programaron las siguientes facturas"
|
||||
Dim Mail As New ClsSisMail()
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, strBody.ToString())
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrio un error al general el correo.", ex)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
@@ -77,6 +77,7 @@
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Format>#,0.00</Format>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -90,6 +91,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -110,6 +112,7 @@
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Format>#,0.00;(#,0.00)</Format>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -123,6 +126,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -143,6 +147,7 @@
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Format>#,0.00;(#,0.00)</Format>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -156,6 +161,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -317,6 +323,7 @@
|
||||
<Value>=Fields!Almacen.Value</Value>
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -328,6 +335,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -668,8 +676,6 @@
|
||||
</Style>
|
||||
</Textbox>
|
||||
<Line Name="Line1">
|
||||
<Top>0cm</Top>
|
||||
<Left>0cm</Left>
|
||||
<Height>0cm</Height>
|
||||
<Width>19.26933cm</Width>
|
||||
<ZIndex>5</ZIndex>
|
||||
@@ -697,7 +703,6 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox13</rd:DefaultName>
|
||||
<Top>0.48502cm</Top>
|
||||
<Left>0cm</Left>
|
||||
<Height>0.45889cm</Height>
|
||||
<Width>6.74978cm</Width>
|
||||
<ZIndex>6</ZIndex>
|
||||
|
||||
@@ -97,6 +97,9 @@
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPDFResumido" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir EXCEL</asp:LinkButton>
|
||||
@@ -121,6 +124,7 @@
|
||||
</div>
|
||||
<div class="caption uppercase" style="position: relative;">
|
||||
<i class="fa fa-info-circle"></i>Información del movimiento
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
@@ -161,7 +165,7 @@
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3"> <label><b>Clasificaciones:</b></label> <asp:Label ID="LblClasif" runat="server" Text="Todas"></asp:Label>
|
||||
<br />
|
||||
<br />
|
||||
<label><b>Clasificaciones Excluidas:</b></label> <asp:Label ID="LblClasificacionesExcluidas" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
@@ -184,9 +188,9 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3" id="PAgregar" runat="server">
|
||||
<asp:UpdatePanel ID="UPAgregarPro" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:UpdatePanel ID="UPAgregarPro" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-3" id="PAgregar" runat="server">
|
||||
<asp:Panel ID="PnlII" runat="server" DefaultButton="BtnGuardar">
|
||||
<div class="portlet smmallpadding light bordered" id="DivCodigoBarras" runat="server">
|
||||
<div class="portlet-title">
|
||||
@@ -195,6 +199,7 @@
|
||||
</div>
|
||||
<div class="caption uppercase" style="position: relative;">
|
||||
<i class="fa fa-info-circle"></i>Agregar Producto
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
@@ -235,11 +240,12 @@
|
||||
</div>
|
||||
</div>
|
||||
</asp:Panel>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPPInventario" runat="server" RenderMode="Inline" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<label class="col-md-2"><b>Ultimo Registrado: </b></label>
|
||||
|
||||
@@ -88,44 +88,42 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
#Region " CARGA DATOS "
|
||||
Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1)
|
||||
|
||||
Dim Inventario As New ClsInventarios
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
|
||||
Select Case CveEstatus
|
||||
Case "0" 'NUEVO
|
||||
CveSubProyecto = ObjInventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = ObjInventario.InventarioFisico
|
||||
lbObservaciones.Text = ObjInventario.Observaciones
|
||||
lbSubProyecto.Text = ObjInventario.SubProyectoInventario
|
||||
lbEstatus.Text = ObjInventario.Estatus
|
||||
|
||||
If Inventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) Then
|
||||
|
||||
Select Case Inventario.Estatus
|
||||
Case "Nuevo"
|
||||
CveSubProyecto = Inventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = Inventario.InventarioFisico
|
||||
lbObservaciones.Text = Inventario.Observaciones
|
||||
lbSubProyecto.Text = Inventario.SubProyectoInventario
|
||||
lbEstatus.Text = Inventario.Estatus
|
||||
|
||||
lbFechaF.Text = Inventario.FechaF
|
||||
lbFechaF.Text = ObjInventario.FechaF
|
||||
btnFin.Text = "Iniciar"
|
||||
BtnGuardar.Enabled = False
|
||||
btnFin.ToolTip = "Inicia el Inventario Físico"
|
||||
Case "Finalizado"
|
||||
Case "3" 'FINALIZADO
|
||||
GvIFD.Columns(6).Visible = False
|
||||
PAgregar.Visible = False
|
||||
'BtnGuardar.Visible = False
|
||||
BtnGuardar.Enabled = False
|
||||
BtnGuardar.Visible = False
|
||||
btnFin.Visible = False
|
||||
'BtnGuardar.Enabled = False
|
||||
'PAgregar.Visible = False
|
||||
CveSubProyecto = Inventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = Inventario.InventarioFisico
|
||||
lbObservaciones.Text = Inventario.Observaciones
|
||||
lbSubProyecto.Text = Inventario.SubProyectoInventario
|
||||
lbEstatus.Text = Inventario.Estatus
|
||||
lbFechaI.Text = Inventario.FechaI
|
||||
lbFechaF.Text = Inventario.FechaF
|
||||
Case Else ' en proceso
|
||||
CveSubProyecto = Inventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = Inventario.InventarioFisico
|
||||
lbObservaciones.Text = Inventario.Observaciones
|
||||
lbEstatus.Text = Inventario.Estatus
|
||||
lbSubProyecto.Text = Inventario.SubProyectoInventario
|
||||
lbFechaI.Text = Inventario.FechaI
|
||||
lbFechaF.Text = Inventario.FechaF
|
||||
CveSubProyecto = ObjInventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = ObjInventario.InventarioFisico
|
||||
lbObservaciones.Text = ObjInventario.Observaciones
|
||||
lbSubProyecto.Text = ObjInventario.SubProyectoInventario
|
||||
lbEstatus.Text = ObjInventario.Estatus
|
||||
lbFechaI.Text = ObjInventario.FechaI
|
||||
lbFechaF.Text = ObjInventario.FechaF
|
||||
Case "1", "2" ' EN PROCESO,EN ESPERA
|
||||
CveSubProyecto = ObjInventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = ObjInventario.InventarioFisico
|
||||
lbObservaciones.Text = ObjInventario.Observaciones
|
||||
lbEstatus.Text = ObjInventario.Estatus
|
||||
lbSubProyecto.Text = ObjInventario.SubProyectoInventario
|
||||
lbFechaI.Text = ObjInventario.FechaI
|
||||
lbFechaF.Text = ObjInventario.FechaF
|
||||
BtnGuardar.Enabled = True
|
||||
btnFin.Text = "Finalizar"
|
||||
LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa
|
||||
@@ -133,8 +131,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
GvIFD.Visible = False
|
||||
DivBuscador.Visible = False
|
||||
|
||||
If Inventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = Inventario.DtResultados
|
||||
If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = ObjInventario.DtResultados
|
||||
Dim str As New StringBuilder
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
@@ -144,8 +142,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
End If
|
||||
LblAlmacenes.Text = str.ToString
|
||||
End If
|
||||
If Inventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = Inventario.DtResultados
|
||||
|
||||
If ObjInventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = ObjInventario.DtResultados
|
||||
Dim str As New StringBuilder
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
@@ -161,8 +160,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
End If
|
||||
|
||||
End If
|
||||
If Inventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = Inventario.DtResultados
|
||||
|
||||
If ObjInventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = ObjInventario.DtResultados
|
||||
Dim str As New StringBuilder
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
@@ -179,18 +179,32 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
|
||||
End If
|
||||
|
||||
If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
|
||||
If Inventario.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = Inventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
Else
|
||||
GvIFDUltimoRegistrado.DataSource = Nothing
|
||||
End If
|
||||
DtDatos = Inventario.DtResultados
|
||||
DtDatos = ObjInventario.DtResultados
|
||||
End If
|
||||
Else
|
||||
GvIFD.Columns(6).Visible = False
|
||||
PAgregar.Visible = False
|
||||
BtnGuardar.Enabled = False
|
||||
BtnGuardar.Visible = False
|
||||
btnFin.Visible = False
|
||||
CveSubProyecto = ObjInventario.CveSubProyectoInventario
|
||||
lbTitulo.Text = ObjInventario.InventarioFisico
|
||||
lbObservaciones.Text = ObjInventario.Observaciones
|
||||
lbSubProyecto.Text = ObjInventario.SubProyectoInventario
|
||||
lbEstatus.Text = ObjInventario.Estatus
|
||||
lbFechaI.Text = ObjInventario.FechaI
|
||||
lbFechaF.Text = ObjInventario.FechaF
|
||||
|
||||
Alert("Ocurrió un error al obterner el inventario fisico")
|
||||
End If
|
||||
|
||||
Inventario.Dispose()
|
||||
ObjInventario.Dispose()
|
||||
GvIFDUltimoRegistrado.DataBind()
|
||||
|
||||
'If (GvIFD.Rows.Count > 0) Then
|
||||
@@ -406,11 +420,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
|
||||
Impimir(Formato:="PDF")
|
||||
End Sub
|
||||
Private Sub LnkPDFResumido_Click(sender As Object, e As EventArgs) Handles LnkPDFResumido.Click
|
||||
Impimir(Formato:="PDF", Agrupar:=True)
|
||||
End Sub
|
||||
Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
||||
Impimir(Formato:="EXCEL")
|
||||
End Sub
|
||||
|
||||
Protected Sub Impimir(Optional Formato As String = "PDF")
|
||||
Protected Sub Impimir(Optional Formato As String = "PDF", Optional Agrupar As Boolean = False)
|
||||
Dim DtDatos As New DataTable
|
||||
Dim ObjInventario As New ClsInventarios()
|
||||
If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, Agrupar:=Agrupar) Then
|
||||
DtDatos = ObjInventario.DtResultados
|
||||
End If
|
||||
ObjInventario.Dispose()
|
||||
|
||||
If DtDatos IsNot Nothing Then
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
@@ -17,6 +17,7 @@
|
||||
.GVAlmacen > tbody > tr > td:nth-child(3) {
|
||||
text-align: center;
|
||||
}
|
||||
|
||||
.select2 .select2-selection__rendered {
|
||||
line-height: 1;
|
||||
color: #111;
|
||||
@@ -49,10 +50,16 @@
|
||||
border: none;
|
||||
outline: 0;
|
||||
}
|
||||
|
||||
#chartdiv {
|
||||
width: 100%;
|
||||
height: 500px;
|
||||
}
|
||||
|
||||
.v-center {
|
||||
display: flex;
|
||||
align-items: center;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
@@ -78,17 +85,17 @@
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||
</div>
|
||||
<div class="titlefiltros caption">
|
||||
<div class="row">
|
||||
<div class="titlefiltros caption">
|
||||
<div class="row v-center">
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Fecha Inicio:</div>
|
||||
<div class="col-md-1 col-sm-1">
|
||||
<div class="col-md-1 v-center">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
|
||||
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
@@ -98,9 +105,8 @@
|
||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Fecha Fin:</div>
|
||||
<div class="col-md-1 col-sm-1">
|
||||
<div class="col-md-1 v-center">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
|
||||
<asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
@@ -110,25 +116,39 @@
|
||||
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Tipo Almacen:</div>
|
||||
<div class="col-md-1">
|
||||
<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 class="col-md-1 truncate v-center" style="text-align: right!important">Almacen:</div>
|
||||
<div class="col-md-2 v-center">
|
||||
<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" style="text-align: right!important">Modalidad:</div>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList ID="DdlModalidadFiltro" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Todas" Value="-1" Selected="True"> </asp:ListItem>
|
||||
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No Contable" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<div class="col-md-1 truncate v-center" style="text-align: right!important">Tipo Almacen:</div>
|
||||
<div class="col-md-2 v-center">
|
||||
<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>
|
||||
|
||||
<asp:CheckBox ID="ChkInventariable" CssClass="md-checksd" runat="server" Text="Aplica Inventario" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body" style="display: none;">
|
||||
<div class="row">
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Modalidad:</div>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList ID="DdlModalidadFiltro" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Todas" Value="-1" Selected="True"> </asp:ListItem>
|
||||
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No Contable" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Sucursal:</div>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList ID="DdlSucursal" runat="server" CssClass="input-small input-sm select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||
<asp:ListItem Text="Todas" Value="-1" Selected="True"> </asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<asp:CheckBox ID="ChkInventariable" CssClass="md-checksd" runat="server" Text="Aplica Inventario" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
@@ -213,7 +233,7 @@
|
||||
|
||||
<script>
|
||||
|
||||
function CargaGraficaBarras(data,title) {
|
||||
function CargaGraficaBarras(data, title) {
|
||||
|
||||
var chart = AmCharts.makeChart("chartdiv", {
|
||||
"type": "serial",
|
||||
|
||||
@@ -39,6 +39,15 @@ Partial Class Inventarios_RepAlmacen
|
||||
DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
|
||||
DdlTipoAlmacen.DataBind()
|
||||
DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
DdlAlmacen.DataBind()
|
||||
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1)
|
||||
DdlSucursal.DataBind()
|
||||
DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
@@ -48,8 +57,11 @@ Partial Class Inventarios_RepAlmacen
|
||||
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
|
||||
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
|
||||
Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
|
||||
Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
|
||||
Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()
|
||||
|
||||
If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked) Then
|
||||
If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked,
|
||||
Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto) Then
|
||||
GVAlmacen.DataSource = objInv.DtResultados
|
||||
TmpDT = objInv.DtResultados
|
||||
End If
|
||||
|
||||
@@ -4,4 +4,4 @@
|
||||
28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80
|
||||
|
||||
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1
|
||||
|
||||
|
||||
Reference in New Issue
Block a user