diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index dd3d1ade6..70be6dfdb 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -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") @@ -311,7 +312,9 @@ Public Class ClsInventarios .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .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 Try SqlAdapter.Fill(Data) @@ -2415,15 +2418,15 @@ 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") With SqlAdapter.SelectCommand.Parameters .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 Try @@ -2438,10 +2441,10 @@ Public Class ClsInventarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index 2bcb515c3..cdb2fcca3 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -380,7 +380,6 @@ <%# Eval("RazonSocial")%> -
 /  diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 042f0f391..e859a9868 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -3,10 +3,10 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Bancos_RepProgramarRecursos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" - + Private Property DtDatos As DataTable Get Return CType(ViewState("DtDatos"), DataTable) @@ -80,9 +80,9 @@ Partial Class Bancos_RepProgramarRecursos Set(value As String) ViewState("UsuarioProgramo") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then DdlUsuarioProgramo.Visible = False @@ -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 @@ -596,18 +595,18 @@ Partial Class Bancos_RepProgramarRecursos MsgError &= "No se pudo programar la factura
" End If End If - Next - - TxtCodigoP.Text = "" + Next + Comp.Dispose() + TxtCodigoP.Text = "" + If MsgError <> "" Then Alert(MsgError, TipoMensaje.MsgError) Else - Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion) + 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(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + 'Cargo el detalle + strBody.Append("
") + strBody.Append("
") + strBody.Append(" Compras Programadas ") + strBody.Append(" ") + strBody.Append(" ") + + 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($"") + End If + Next + + strBody.Append("
Serie-Folio FechaImporteImporte Programado
{SerieFolio}{DateTime.Now}{Importe}{ImporteProgramo}
") + strBody.Append("
") + strBody.Append("
") + strBody.Append("") + + 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 @@ -795,8 +893,8 @@ Partial Class Bancos_RepProgramarRecursos End If ObjMovimientos.Dispose() End If - End Sub - + End Sub + #Region "C R E D I T O S - V E N C I M I E N T O" Private Sub CargaCreditosVencimiento() Dim ObjCreditos As New ClsBancos @@ -826,9 +924,9 @@ Partial Class Bancos_RepProgramarRecursos End If GvV.DataBind() UPDatos.Update() - End Sub + End Sub #End Region - - - + + + End Class diff --git a/Empresas/Grales/Formatos/RepAlmacen.rdlc b/Empresas/Grales/Formatos/RepAlmacen.rdlc index b13cca5d5..fa9f1d6cf 100644 --- a/Empresas/Grales/Formatos/RepAlmacen.rdlc +++ b/Empresas/Grales/Formatos/RepAlmacen.rdlc @@ -1,821 +1,826 @@ - - - - - - - - - - - - true - true - - - - - Almacén - - - - - - - Textbox28 - - - - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - 2.5cm - - - 3.17009cm - - - 6.13624cm - - - - - 0.3751cm - - - - - true - - - - - =Fields!Existencia.Value - - - - - - - Existencia - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!TipoAlmacen.Value - - - - - - - TipoAlmacen - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - - - - - - 0.3751cm - - - true - true - - - - - Existencia - - - - - - - Textbox3 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - 0.3751cm - - - true - true - - - - - Total - - - - - - - Textbox40 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - 0.3751cm - - - true - true - - - - - Tipo Almacén - - - - - - - Textbox42 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - - - =Fields!Almacen.Value - - - - - =Fields!Almacen.Value - - - - 6.90208cm - - - true - - - - - =Fields!Almacen.Value - - - - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - DataSet1 - 0.38751in - 0.7502cm - 18.70841cm - - - - - - true - true - - - - - =Parameters!Filtros.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.81828in - - - - - - - Textbox1 - 0.18521cm - 3.59188cm - 0.6cm - 12.60299cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE ALMACENES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 3.59188cm - 0.52945cm - 12.60299cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.04167in - 0.42624cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.94391cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.06cm - 16.60846cm - 0.68085cm - 2.43629cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox11 - 0.06cm - 10.20228cm - 0.68085cm - 4.64495cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0cm - 0cm - 0cm - 19.26933cm - 5 - - - - - - true - true - - - - - IMPRESO EN SIG, Rep. Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + 2.5cm + + + 3.17009cm + + + 6.13624cm + + + + + 0.3751cm + + + + + true + + + + + =Fields!Existencia.Value + + + + + + + Existencia + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!TipoAlmacen.Value + + + + + + + TipoAlmacen + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + + + + + + 0.3751cm + + + true + true + + + + + Existencia + + + + + + + Textbox3 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + 0.3751cm + + + true + true + + + + + Total + + + + + + + Textbox40 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + 0.3751cm + + + true + true + + + + + Tipo Almacén + + + + + + + Textbox42 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + + + =Fields!Almacen.Value + + + + + =Fields!Almacen.Value + + + + 6.90208cm + + + true + + + + + =Fields!Almacen.Value + + + + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + DataSet1 + 0.38751in + 0.7502cm + 18.70841cm + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.81828in + + + + + + + Textbox1 + 0.18521cm + 3.59188cm + 0.6cm + 12.60299cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE ALMACENES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 3.59188cm + 0.52945cm + 12.60299cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.04167in + 0.42624cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.94391cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.06cm + 16.60846cm + 0.68085cm + 2.43629cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.06cm + 10.20228cm + 0.68085cm + 4.64495cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0cm + 19.26933cm + 5 + + + + + + true + true + + + + + IMPRESO EN SIG, Rep. Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - - - - - -
  • - -
    • -
  • - -
    • -
  • - Imprimir PDF -
    • -
  • - Imprimir EXCEL -
    • - -     - - Inventario Físico Detalle - - - - - - -
    - -
    -
    -
    -
    - -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="InventarioFisicoDetalle.aspx.vb" Inherits="Inventarios_InventarioFisicoDetalle" %> + + + + + + + + +
  • + +
    • +
  • + +
    • +
  • + Imprimir PDF +
    • +
  • + Imprimir PDF +
    • +
  • + Imprimir EXCEL +
    • + +     + + Inventario Físico Detalle + + + + + + +
    + +
    +
    +
    +
    + +
    +
    Información del movimiento -
    -
    -
    - - - - - - - - - - - - - - - - - - - - -
    - - - - - - - - -
    - - - - - - - - - - -
         -
         -
    -      -
         -
    -      -
    - - - - -
    - - -
    -
    -
    -
    - -
    - - - -
    -
    -
    - -
    -
    + +
    +
    +
    + + + + + + + + + + + + + + + + + + + + +
    + + + + + + + + +
    + + + + + + + + + + +
         +
         +
    +      +
         +
    +      +
    + + + + +
    + + +
    +
    +
    +
    + + + +
    + +
    +
    +
    + +
    +
    Agregar Producto -
    -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - - - -
    -
    -
    -
    - -
    -
    -
    -
    -     - - -
    -
    - - -
    - -
    - - - - - - - - - - -
    -
    - -
    -
    -
    - - - - - - - - - - - - - - - - -     - - - -     - -     - - - - + +
    +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + + + + +
    +
    +
    +
    + +
    +
    +
    +
    + +
    + + + +
    + + +
    + +
    + + + + + + + + + + +
    +
    + +
    +
    +
    + + + + + + + + + + + + + + + + +     + + + +     + +     + + + + - - + + + diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 0f2a5afd9..ba4af4ee1 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -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 + PAgregar.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 - End If + 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 @@ -397,20 +411,30 @@ Partial Class Inventarios_InventarioFisicoDetalle #Region " VER AVANCE " Protected Sub LBAvance_Click(sender As Object, e As EventArgs) Response.Redirect($"~/Inventarios/RepAnomalias.aspx?CveInventarioFisico={CveInventarioFisico}&EsAvance=1") - End Sub - - + End Sub + + #End Region - + #Region "I M P R I M I R" 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)) @@ -441,8 +465,8 @@ Partial Class Inventarios_InventarioFisicoDetalle Else Alert("No se encontraron resultado", TipoMensaje.MsgAdvertencia) End If - End Sub - + End Sub + #End Region - + End Class diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index 589f572a3..77782e614 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -1,258 +1,278 @@ -<%@ Page Title="REPORTE DE ALMACÉN" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacen.aspx.vb" Inherits="Inventarios_RepAlmacen" %> - - - - - - - - REPORTE DE ALMACÉN - - - - -
  • - PDF -
    • -
  • - Excel -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - -
    - - -
    - -
    Fecha Fin:
    -
    -
    - - - - -
    - - -
    - -
    Tipo Almacen:
    -
    - -
    - -
    Modalidad:
    -
    - - - - - -
    - - -
    -
    -
    -
    -     -     - - - - - - - - <%# Eval("Almacen") %> - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - - - - - - +<%@ Page Title="REPORTE DE ALMACÉN" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacen.aspx.vb" Inherits="Inventarios_RepAlmacen" %> + + + + + + + + REPORTE DE ALMACÉN + + + + +
  • + PDF +
    • +
  • + Excel +
    • + + +
  • + Ver Grafica +
    • +     +     +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Fecha Inicio:
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin:
    +
    +
    + + + + +
    + + +
    +
    Almacen:
    +
    + +
    +
    Tipo Almacen:
    +
    + +
    +
    +
    +
    + +
    +     +     + + + + + + + + <%# Eval("Almacen") %> + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + - - + +     + diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 62e55a98d..027c6d4e7 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -6,9 +6,9 @@ Imports System.Data Imports Microsoft.Reporting.WebForms Partial Class Inventarios_RepAlmacen - Inherits ClsPaginas - - + Inherits ClsPaginas + + #Region "PROPIEDADES" Private Property TmpDT As DataTable Get @@ -25,7 +25,7 @@ Partial Class Inventarios_RepAlmacen Set(value As DataTable) ViewState("DtColor") = value End Set - End Property + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -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 @@ -60,8 +72,8 @@ Partial Class Inventarios_RepAlmacen Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click CargaDatos() UpDatos.Update() - End Sub - + End Sub + #Region "I M P R I M I R " Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click @@ -98,11 +110,11 @@ Partial Class Inventarios_RepAlmacen e.Row.CssClass = "Totales" End If End If - End Sub + End Sub #End Region - + #Region "GRAFICA" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If Not TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia) @@ -227,8 +239,8 @@ Partial Class Inventarios_RepAlmacen Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region - + End Class diff --git a/LogMail.txt b/LogMail.txt index 00f4b2bed..0ac18eb14 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,4 @@ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2 - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario. en System.Net.Mail.SmtpClient.Send(MailMessage message) - en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 \ No newline at end of file + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:10:34 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 10/09/2019:10:36 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 10/09/2019:10:39 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 \ No newline at end of file