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

Tareas varias

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-09-10 18:11:50 -07:00
parent 0213d4a945
commit 0e24e74e4d
9 changed files with 1627 additions and 1460 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsInventarios.vb
View File

@@ -300,7 +300,8 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenesRepGet") DataAdapter("PA_Inv_AlmacenesRepGet")
@@ -312,6 +313,8 @@ Public Class ClsInventarios
.Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
.Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables
.Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable
.Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -2415,7 +2418,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoDetalleGet") DataAdapter("PA_Inv_InventarioFisicoDetalleGet")
@@ -2423,7 +2426,7 @@ Public Class ClsInventarios
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Agrupar", SqlDbType.Bit).Value = Agrupar
End With End With
Try Try

1
Bancos/RepProgramarRecursos.aspx
View File

@@ -380,7 +380,6 @@
<asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion", "<div>{0}</div>")%>'></asp:Literal> <asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion", "<div>{0}</div>")%>'></asp:Literal>
<span style='display: none'><%# Eval("RazonSocial")%></span> <span style='display: none'><%# Eval("RazonSocial")%></span>
</ItemTemplate> </ItemTemplate>
<HeaderTemplate> <HeaderTemplate>
<div> <div>
<asp:LinkButton ID="LbMoneda_RazonSocial" runat="server" CausesValidation="false" Text="Proveedor" OnClick="LbOrden_Click" CommandArgument="Moneda,RazonSocial"></asp:LinkButton>&nbsp;<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>&nbsp;<asp:ImageButton ID="ImgMoneda_OrdenMonedaProveedor_SerieFolio" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" OnClick="LbOrden_Click" CommandArgument="Moneda,OrdenMonedaProveedor,SerieFolio" /> <asp:LinkButton ID="LbMoneda_RazonSocial" runat="server" CausesValidation="false" Text="Proveedor" OnClick="LbOrden_Click" CommandArgument="Moneda,RazonSocial"></asp:LinkButton>&nbsp;<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>&nbsp;<asp:ImageButton ID="ImgMoneda_OrdenMonedaProveedor_SerieFolio" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" OnClick="LbOrden_Click" CommandArgument="Moneda,OrdenMonedaProveedor,SerieFolio" />

104
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -501,7 +501,6 @@ Partial Class Bancos_RepProgramarRecursos
Protected Sub BtnProgramar_Click(sender As Object, e As EventArgs) Handles BtnProgramar.Click Protected Sub BtnProgramar_Click(sender As Object, e As EventArgs) Handles BtnProgramar.Click
Dim CveUsuario As Integer = UsuarioActual.CveUsuario Dim CveUsuario As Integer = UsuarioActual.CveUsuario
If UsuarioActual.Empresa.Funcionalidad(138) = "1" Then If UsuarioActual.Empresa.Funcionalidad(138) = "1" Then
'Validación del SAT - DF 21/01/17 'Validación del SAT - DF 21/01/17
Dim Validada As Boolean = False Dim Validada As Boolean = False
@@ -597,6 +596,7 @@ Partial Class Bancos_RepProgramarRecursos
End If End If
End If End If
Next Next
Comp.Dispose()
TxtCodigoP.Text = "" TxtCodigoP.Text = ""
@@ -604,10 +604,9 @@ Partial Class Bancos_RepProgramarRecursos
Alert(MsgError, TipoMensaje.MsgError) Alert(MsgError, TipoMensaje.MsgError)
Else Else
Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion) Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion)
EnviaCorreoNotificacion()
End If End If
Comp.Dispose()
CargaDatos() CargaDatos()
'Recarga DdlUsuarioProgramo 'Recarga DdlUsuarioProgramo
@@ -623,6 +622,105 @@ Partial Class Bancos_RepProgramarRecursos
End If End If
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
End Sub 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 Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
End Sub End Sub

11
Empresas/Grales/Formatos/RepAlmacen.rdlc
View File

@@ -77,6 +77,7 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -90,6 +91,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>1pt</PaddingTop> <PaddingTop>1pt</PaddingTop>
@@ -110,6 +112,7 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -123,6 +126,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>1pt</PaddingTop> <PaddingTop>1pt</PaddingTop>
@@ -143,6 +147,7 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -156,6 +161,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>1pt</PaddingTop> <PaddingTop>1pt</PaddingTop>
@@ -317,6 +323,7 @@
<Value>=Fields!Almacen.Value</Value> <Value>=Fields!Almacen.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -328,6 +335,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>1pt</PaddingTop> <PaddingTop>1pt</PaddingTop>
@@ -668,8 +676,6 @@
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line1"> <Line Name="Line1">
<Top>0cm</Top>
<Left>0cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>19.26933cm</Width> <Width>19.26933cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -697,7 +703,6 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName> <rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.48502cm</Top> <Top>0.48502cm</Top>
<Left>0cm</Left>
<Height>0.45889cm</Height> <Height>0.45889cm</Height>
<Width>6.74978cm</Width> <Width>6.74978cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>

22
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -97,6 +97,9 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton> <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>
<li> <li>
<asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir EXCEL</asp:LinkButton> <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir EXCEL</asp:LinkButton>
@@ -121,6 +124,7 @@
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Información del movimiento <i class="fa fa-info-circle"></i>Información del movimiento
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
@@ -161,7 +165,7 @@
</tr> </tr>
<tr> <tr>
<td colspan="3">&nbsp;&nbsp;&nbsp;<label><b>Clasificaciones:</b></label>&nbsp;<asp:Label ID="LblClasif" runat="server" Text="Todas"></asp:Label> <td colspan="3">&nbsp;&nbsp;&nbsp;<label><b>Clasificaciones:</b></label>&nbsp;<asp:Label ID="LblClasif" runat="server" Text="Todas"></asp:Label>
<br /> <br />
&nbsp;&nbsp;&nbsp;<label><b>Clasificaciones Excluidas:</b></label>&nbsp;<asp:Label ID="LblClasificacionesExcluidas" runat="server" Text=""></asp:Label> &nbsp;&nbsp;&nbsp;<label><b>Clasificaciones Excluidas:</b></label>&nbsp;<asp:Label ID="LblClasificacionesExcluidas" runat="server" Text=""></asp:Label>
</td> </td>
</tr> </tr>
@@ -184,9 +188,9 @@
</div> </div>
</div> </div>
<div class="col-md-3" id="PAgregar" runat="server"> <asp:UpdatePanel ID="UPAgregarPro" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
<asp:UpdatePanel ID="UPAgregarPro" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional"> <ContentTemplate>
<ContentTemplate> <div class="col-md-3" id="PAgregar" runat="server">
<asp:Panel ID="PnlII" runat="server" DefaultButton="BtnGuardar"> <asp:Panel ID="PnlII" runat="server" DefaultButton="BtnGuardar">
<div class="portlet smmallpadding light bordered" id="DivCodigoBarras" runat="server"> <div class="portlet smmallpadding light bordered" id="DivCodigoBarras" runat="server">
<div class="portlet-title"> <div class="portlet-title">
@@ -195,6 +199,7 @@
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Agregar Producto <i class="fa fa-info-circle"></i>Agregar Producto
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
@@ -235,11 +240,12 @@
</div> </div>
</div> </div>
</asp:Panel> </asp:Panel>
</ContentTemplate> </div>
</asp:UpdatePanel> </ContentTemplate>
</div> </asp:UpdatePanel>
</div> </div>
<asp:UpdatePanel ID="UPPInventario" runat="server" RenderMode="Inline" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<label class="col-md-2"><b>Ultimo Registrado: </b></label> <label class="col-md-2"><b>Ultimo Registrado: </b></label>

110
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -88,44 +88,42 @@ Partial Class Inventarios_InventarioFisicoDetalle
#Region " CARGA DATOS " #Region " CARGA DATOS "
Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) 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 lbFechaF.Text = ObjInventario.FechaF
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
btnFin.Text = "Iniciar" btnFin.Text = "Iniciar"
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
btnFin.ToolTip = "Inicia el Inventario Físico" btnFin.ToolTip = "Inicia el Inventario Físico"
Case "Finalizado" Case "3" 'FINALIZADO
GvIFD.Columns(6).Visible = False GvIFD.Columns(6).Visible = False
PAgregar.Visible = False PAgregar.Visible = False
'BtnGuardar.Visible = False BtnGuardar.Enabled = False
BtnGuardar.Visible = False
btnFin.Visible = False btnFin.Visible = False
'BtnGuardar.Enabled = False CveSubProyecto = ObjInventario.CveSubProyectoInventario
'PAgregar.Visible = False lbTitulo.Text = ObjInventario.InventarioFisico
CveSubProyecto = Inventario.CveSubProyectoInventario lbObservaciones.Text = ObjInventario.Observaciones
lbTitulo.Text = Inventario.InventarioFisico lbSubProyecto.Text = ObjInventario.SubProyectoInventario
lbObservaciones.Text = Inventario.Observaciones lbEstatus.Text = ObjInventario.Estatus
lbSubProyecto.Text = Inventario.SubProyectoInventario lbFechaI.Text = ObjInventario.FechaI
lbEstatus.Text = Inventario.Estatus lbFechaF.Text = ObjInventario.FechaF
lbFechaI.Text = Inventario.FechaI Case "1", "2" ' EN PROCESO,EN ESPERA
lbFechaF.Text = Inventario.FechaF CveSubProyecto = ObjInventario.CveSubProyectoInventario
Case Else ' en proceso lbTitulo.Text = ObjInventario.InventarioFisico
CveSubProyecto = Inventario.CveSubProyectoInventario lbObservaciones.Text = ObjInventario.Observaciones
lbTitulo.Text = Inventario.InventarioFisico lbEstatus.Text = ObjInventario.Estatus
lbObservaciones.Text = Inventario.Observaciones lbSubProyecto.Text = ObjInventario.SubProyectoInventario
lbEstatus.Text = Inventario.Estatus lbFechaI.Text = ObjInventario.FechaI
lbSubProyecto.Text = Inventario.SubProyectoInventario lbFechaF.Text = ObjInventario.FechaF
lbFechaI.Text = Inventario.FechaI
lbFechaF.Text = Inventario.FechaF
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
btnFin.Text = "Finalizar" btnFin.Text = "Finalizar"
LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa 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 GvIFD.Visible = False
DivBuscador.Visible = False DivBuscador.Visible = False
If Inventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
Dim dt As DataTable = Inventario.DtResultados Dim dt As DataTable = ObjInventario.DtResultados
Dim str As New StringBuilder Dim str As New StringBuilder
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -144,8 +142,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
End If End If
LblAlmacenes.Text = str.ToString LblAlmacenes.Text = str.ToString
End If 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 Dim str As New StringBuilder
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -161,8 +160,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
End If End If
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 Dim str As New StringBuilder
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -179,18 +179,32 @@ Partial Class Inventarios_InventarioFisicoDetalle
End If End If
If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
If Inventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
GvIFDUltimoRegistrado.DataSource = Inventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
Else Else
GvIFDUltimoRegistrado.DataSource = Nothing GvIFDUltimoRegistrado.DataSource = Nothing
End If End If
DtDatos = Inventario.DtResultados DtDatos = ObjInventario.DtResultados
End If 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 End If
Inventario.Dispose() ObjInventario.Dispose()
GvIFDUltimoRegistrado.DataBind() GvIFDUltimoRegistrado.DataBind()
'If (GvIFD.Rows.Count > 0) Then '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 Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
Impimir(Formato:="PDF") Impimir(Formato:="PDF")
End Sub 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 Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
Impimir(Formato:="EXCEL") Impimir(Formato:="EXCEL")
End Sub 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 If DtDatos IsNot Nothing Then
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta)) 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)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))

62
Inventarios/RepAlmacen.aspx
View File

@@ -17,6 +17,7 @@
.GVAlmacen > tbody > tr > td:nth-child(3) { .GVAlmacen > tbody > tr > td:nth-child(3) {
text-align: center; text-align: center;
} }
.select2 .select2-selection__rendered { .select2 .select2-selection__rendered {
line-height: 1; line-height: 1;
color: #111; color: #111;
@@ -49,10 +50,16 @@
border: none; border: none;
outline: 0; outline: 0;
} }
#chartdiv { #chartdiv {
width: 100%; width: 100%;
height: 500px; height: 500px;
} }
.v-center {
display: flex;
align-items: center;
}
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -78,17 +85,17 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" /> <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> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" /> <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row v-center">
<div class="col-md-1 truncate" style="text-align: right!important">Fecha Inicio:</div> <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;"> <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> <asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <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: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> <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<div class="col-md-1 truncate" style="text-align: right!important">Fecha Fin:</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;"> <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> <asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <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: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> <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
<div class="col-md-1 truncate v-center" style="text-align: right!important">Almacen:</div>
<div class="col-md-1 truncate" style="text-align: right!important">Tipo Almacen:</div> <div class="col-md-2 v-center">
<div class="col-md-1"> <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="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
</div> </div>
<div class="col-md-1 truncate v-center" style="text-align: right!important">Tipo Almacen:</div>
<div class="col-md-1 truncate" style="text-align: right!important">Modalidad:</div> <div class="col-md-2 v-center">
<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>
<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>
<asp:CheckBox ID="ChkInventariable" CssClass="md-checksd" runat="server" Text="Aplica Inventario" />
</div> </div>
</div> </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> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -213,7 +233,7 @@
<script> <script>
function CargaGraficaBarras(data,title) { function CargaGraficaBarras(data, title) {
var chart = AmCharts.makeChart("chartdiv", { var chart = AmCharts.makeChart("chartdiv", {
"type": "serial", "type": "serial",

14
Inventarios/RepAlmacen.aspx.vb
View File

@@ -39,6 +39,15 @@ Partial Class Inventarios_RepAlmacen
DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1) DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
DdlTipoAlmacen.DataBind() DdlTipoAlmacen.DataBind()
DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) 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 End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
@@ -48,8 +57,11 @@ Partial Class Inventarios_RepAlmacen
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1") FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1") FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM) 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 GVAlmacen.DataSource = objInv.DtResultados
TmpDT = objInv.DtResultados TmpDT = objInv.DtResultados
End If End If

2
LogMail.txt
View File

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