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

option strict on

Browse Source
This commit is contained in:
rrene
2023-08-24 00:38:39 -07:00
parent 85d1bcd386
commit 4c6f8bbaef
15 changed files with 96 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -65,7 +65,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString("######.###")
Else
e.Row.FCCheckBox("Chk").Visible = False
e.Row.FCRangeValidator("RVR").MaximumValue = 0
e.Row.FCRangeValidator("RVR").MaximumValue = "0"
End If
End If
End Sub
@@ -169,7 +169,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Cantidad = Row("Cantidad").ToString.ToDecimal()
Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS")).ToString().ToEntero() 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
Dim Serie As String = Row("Serie").ToString()
Dim Lote As String = Row("Lote").ToString()
@@ -329,7 +329,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "")
If Tipo = "EXCEL" Then
Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero()
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}")
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
CargarArchivo(Directorio, file.filename, CveAlmacen, CveSubProyecto)
Else
@@ -445,7 +445,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim SerieSalida As String = RowExistencia("Serie").ToString()
Dim LoteSalida As String = RowExistencia("Lote").ToString()
Dim FechaCaducidadSalida As Date = IfNull(RowExistencia("FechaCaducidad"), MinFecha).ToString.ToDate
Dim PUSalida As Decimal = RowExistencia("PU").ToString()
Dim PUSalida As Decimal = RowExistencia("PU").ToString.ToDecimal
'condicion para ajustar la seccion y permita hacer los cambios en el trigger
If CveSeccionAlmacenSalida > 0 Then

4
Inventarios/CatUnidades.aspx.vb
View File

@@ -213,14 +213,14 @@ Partial Class Inventarios_CatUnidades
If CveCamion <= 0 Then
If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
Alert("Unidad agregada correctamente")
Else
ErrorPrceso = True
End If
Else
If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
Alert("Unidad actualizada correctamente")
Else
ErrorPrceso = True

48
Inventarios/InventarioFisico.aspx.vb
View File

@@ -116,7 +116,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub CargaGvAlmacen()
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
GvAlmacen.DataSource = ObjInventario.DtResultados
GvAlmacen.DataBind()
End If
@@ -125,7 +125,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub CargaGvClasificacion()
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
GvClasificacion.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
GvClasificacionExcluida.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
End If
@@ -137,7 +137,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub CargaGvProductosServicios()
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
GvPS.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
GvPSExcluye.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
End If
@@ -150,7 +150,7 @@ Partial Class Inventarios_InventarioFisico
Private Sub CargaGvProveedores()
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
GvProveedor.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
End If
ObjInventario.Dispose()
@@ -160,7 +160,7 @@ Partial Class Inventarios_InventarioFisico
Private Sub CargaGvUsuarios()
Dim ObjInventario As New ClsInventarios()
If ObjInventario.GetInventarioFisicoDetallesUsuarios(HdnID.Value, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInventarioFisicoDetallesUsuarios(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
gvUsuarios.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
End If
ObjInventario.Dispose()
@@ -244,7 +244,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub BtnAgregarProductosServicios_Click(sender As Object, e As EventArgs) Handles BtnAgregarProductosServicios.Click
If DdlProductosServicios.SelectedValue = -1 Then
If DdlProductosServicios.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvPS.DataSource = Nothing
GvPS.DataBind()
@@ -262,7 +262,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub BtnAddPSExcluye_Click(sender As Object, e As EventArgs) Handles BtnAddPSExcluye.Click
If DdlPSExcluye.SelectedValue = -1 Then
If DdlPSExcluye.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvPSExcluye.DataSource = Nothing
GvPSExcluye.DataBind()
@@ -302,7 +302,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Private Sub BtnAgregarClasificaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificaciones.Click
If DdlClasificacion.SelectedValue = -1 Then
If DdlClasificacion.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvClasificacion.DataSource = Nothing
GvClasificacion.DataBind()
@@ -331,7 +331,7 @@ Partial Class Inventarios_InventarioFisico
End Sub
Protected Sub BtnClasificacionExcluida_Click(sender As Object, e As EventArgs)
If DdlClasificacionExcluida.SelectedValue = -1 Then
If DdlClasificacionExcluida.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvClasificacionExcluida.DataSource = Nothing
GvClasificacionExcluida.DataBind()
@@ -359,7 +359,7 @@ Partial Class Inventarios_InventarioFisico
#Region "PROVEEDORES"
Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click
If DdlProveedor.SelectedValue = -1 Then
If DdlProveedor.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvPS.DataSource = Nothing
GvPS.DataBind()
@@ -396,7 +396,7 @@ Partial Class Inventarios_InventarioFisico
#Region "USUARIOS"
Private Sub btnAddUsuarios_Click(sender As Object, e As EventArgs) Handles btnAddUsuarios.Click
If DdlUsuarios.SelectedValue = -1 Then
If DdlUsuarios.SelectedValue = "-1" Then
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
GvPS.DataSource = Nothing
GvPS.DataBind()
@@ -448,7 +448,7 @@ Partial Class Inventarios_InventarioFisico
Dim Cerrado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3))
Dim Bloqueado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(4))
ObjInventario.UpdateInventarioFisicoUsuarios(HdnID.Value, CveUsuario, Cerrado, Bloqueado)
ObjInventario.UpdateInventarioFisicoUsuarios(HdnID.Value.ToEntero, CveUsuario, Cerrado, Bloqueado)
gvUsuarios.DataSource = tDTUsuario
gvUsuarios.DataBind()
upUsuarios.Update()
@@ -462,7 +462,7 @@ Partial Class Inventarios_InventarioFisico
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnID.Value = GvRow.DataKey("CveInventarioFisico")
UppInventarioFisico.Update()
If ObjInventario.RemoveInventarioFisico(HdnID.Value) Then
If ObjInventario.RemoveInventarioFisico(HdnID.Value.ToEntero) Then
CargaDatos(UsuarioActual.CveEmpresa)
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -503,8 +503,8 @@ Partial Class Inventarios_InventarioFisico
myModalLabel.InnerText = "Actualizar Inventario Fisico"
TxtTitulo.Text = GvRow.DataKey("InventarioFisico")
TxtObservaciones.Text = GvRow.DataKey("Observaciones")
FechaInicio = GvRow.DataKey("FechaInicio").ToEntero
FechaFin = GvRow.DataKey("FechaFin").ToEntero
FechaInicio = GvRow.DataKey("FechaInicio")
FechaFin = GvRow.DataKey("FechaFin")
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
chkUsarApp.Checked = Convert.ToBoolean(GvRow.DataKey("ConAplicacion").ToString)
divUsuarios.Visible = chkUsarApp.Checked
@@ -513,13 +513,13 @@ Partial Class Inventarios_InventarioFisico
CargaGvProductosServicios()
CargaGvProveedores()
CargaGvUsuarios()
tDTClasif = GvClasificacion.DataSource
tDTClasifExcluye = GvClasificacionExcluida.DataSource
tDTPS = GvPS.DataSource
tDTPSExcluye = GvPSExcluye.DataSource
tDTProv = GvProveedor.DataSource
tDTUsuario = gvUsuarios.DataSource
tALM = GvAlmacen.DataSource
tDTClasif = CType(GvClasificacion.DataSource, DataTable)
tDTClasifExcluye = CType(GvClasificacionExcluida.DataSource, DataTable)
tDTPS = CType(GvPS.DataSource, DataTable)
tDTPSExcluye = CType(GvPSExcluye.DataSource, DataTable)
tDTProv = CType(GvProveedor.DataSource, DataTable)
tDTUsuario = CType(gvUsuarios.DataSource, DataTable)
tALM = CType(GvAlmacen.DataSource, DataTable)
UpAddInventarioFisico.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
End Sub
@@ -748,7 +748,7 @@ Partial Class Inventarios_InventarioFisico
Else
ErrorClasif = False
End If
If ErrorClasif = False And HdnID.Value > 0 Then
If ErrorClasif = False And HdnID.Value.ToEntero > 0 Then
ObjInventario.Commit()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
@@ -823,7 +823,7 @@ Partial Class Inventarios_InventarioFisico
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
Dim ObjInventario As New ClsInventarios
If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
gvIF.DataSource = ObjInventario.DtResultados
gvIF.DataBind()
gvIF.Columns(1).HeaderText = LblSubProyecto.Text

6
Inventarios/Paquetes.aspx.vb
View File

@@ -27,13 +27,9 @@ Partial Class Inventarios_Paquetes
Private Sub CargaDatos()
Dim ps As New ClsProductosServicios
If ps.GetPS(-1, -1, UsuarioActual.CveEmpresa, "-1", "-1", 1) Then
If ps.GetPS(-1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
gvPaquetes.DataSource = ps.DtResultados
dtPaquetes = ps.DtResultados
End If
gvPaquetes.EditIndex = -1
gvPaquetes.DataBind()

14
Inventarios/RepAnomalias.aspx.vb
View File

@@ -80,7 +80,7 @@ Partial Class Inventarios_RepAnomalias
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CveInventarioFisico = If(Request("CveInventarioFisico") IsNot Nothing AndAlso Request("CveInventarioFisico").ToEntero() > 0, Request("CveInventarioFisico").ToEntero(), -1).ToString
CveInventarioFisico = If(Request("CveInventarioFisico") IsNot Nothing AndAlso Request("CveInventarioFisico").ToEntero() > 0, Request("CveInventarioFisico").ToEntero(), -1)
EsAvance = If(Request("EsAvance") IsNot Nothing, CBool(Request("EsAvance").ToEntero), False)
If CveInventarioFisico > 0 Then
@@ -107,12 +107,12 @@ Partial Class Inventarios_RepAnomalias
GvF.Columns(3).Visible = True 'proveedor
GvS.Columns(3).Visible = True 'proveedor
GvC.Columns(3).Visible = True 'proveedor
GvF.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvS.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvC.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvF.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvS.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvC.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvGrupos.Columns(1).Visible = True 'clasificación
GvGrupos.Columns(2).Visible = True 'proveedor
GvGrupos.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvGrupos.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
End If
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
@@ -396,7 +396,7 @@ Partial Class Inventarios_RepAnomalias
If e.Row.Cells(7).Text = MinFecha.ToString Then
e.Row.Cells(7).Text = ""
End If
e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1
e.Row.FCLabel("Lblc").Text = (e.Row.RowIndex + 1).ToString
End If
If e.Row.RowType = DataControlRowType.Header Then
If CreandoNuevoInventario Then
@@ -416,7 +416,7 @@ Partial Class Inventarios_RepAnomalias
If e.Row.Cells(7).Text = MinFecha.ToString Then
e.Row.Cells(7).Text = ""
End If
e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1
e.Row.FCLabel("Lblc").Text = (e.Row.RowIndex + 1).ToString
End If
If e.Row.RowType = DataControlRowType.Header Then
If CreandoNuevoInventario Then

20
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -33,19 +33,19 @@ Partial Class Inventarios_RepExistenciasCostos
ViewState("TmpPS") = value
End Set
End Property
Public Property FechaFinal As String
Public Property FechaFinal As Date
Get
Return ViewState("FechaFinal").ToString
Return ViewState("FechaFinal").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaFinal") = value
End Set
End Property
Public Property FechaInicial As String
Public Property FechaInicial As Date
Get
Return ViewState("FechaInicial").ToString
Return ViewState("FechaInicial").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaInicial") = value
End Set
End Property
@@ -54,7 +54,7 @@ Partial Class Inventarios_RepExistenciasCostos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
TxtFechaF.Text = Now.LastDayOfMonth
TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
If Request("CvePS") IsNot Nothing AndAlso Request("CveProveedor") IsNot Nothing AndAlso
Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso
@@ -69,9 +69,9 @@ Partial Class Inventarios_RepExistenciasCostos
If(Request("FechaI").ToString.Trim <> "-1", Request("FechaI").ToString.Trim.ToDate, MinFecha),
If(Request("FechaF").ToString.Trim <> "-1", Request("FechaF").ToString.Trim.ToDate, MaxFecha),
CveAlmacen,
IIf(Request("CVECLASIFICACION") Is Nothing, -1, Request("CveClasificacion").ToEntero),
IIf(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero),
IIf(Request("Tipo") Is Nothing, -1, Request("Tipo").ToEntero)
If(Request("CVECLASIFICACION") Is Nothing, -1, Request("CveClasificacion").ToEntero),
If(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero),
If(Request("Tipo") Is Nothing, -1, Request("Tipo").ToEntero)
)
Panel1.Visible = False
Else

22
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -1,11 +1,11 @@
Imports System.Data
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class RepNotasSinAlmacen
Inherits ClsPaginas
Inherits ClsPaginas
#Region "propiedades"
Private Property dt As DataTable
Get
Try
@@ -27,19 +27,19 @@ Partial Class RepNotasSinAlmacen
ViewState("dtReporte") = value
End Set
End Property
Public Property FechaInicial As String
Public Property FechaInicial As Date
Get
Return ViewState("FechaInicial").ToString
Return ViewState("FechaInicial").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaInicial") = value
End Set
End Property
Public Property FechaFinal As String
Public Property FechaFinal As Date
Get
Return ViewState("FechaFinal").ToString
Return ViewState("FechaFinal").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaFinal") = value
End Set
End Property
@@ -250,8 +250,8 @@ Partial Class RepNotasSinAlmacen
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString()))
params.Add(New ReportParameter("FechaInicio", FechaInicial))
params.Add(New ReportParameter("FechaFin", FechaFinal))
params.Add(New ReportParameter("FechaInicio", FechaInicial.ToShortDateString))
params.Add(New ReportParameter("FechaFin", FechaFinal.ToShortDateString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
If Tab.ActiveTabIndex = 0 Then

2
Inventarios/RepRSCO.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Inventarios_RepRSCO
LnkDescargaExcel.Visible = False
If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, True, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
DTDatos = ObjInventarios.DtResultados
GvDatos.DataSource = DTDatos