Nuevo parametro de cultivos para la funcionalidad 590
This commit is contained in:
HECTOR RODRIGUEZ
@@ -72,7 +72,7 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
#Region "CARGAS"
|
||||
|
||||
Private Sub InicializaValores()
|
||||
Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
|
||||
Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto, CveCultivo As String
|
||||
Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto, Deducible As String
|
||||
|
||||
Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
|
||||
@@ -82,6 +82,7 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto") <> "", Request("CveSubProyecto"), "-1").ToString
|
||||
SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto)
|
||||
|
||||
CveCultivo = If(Request("CveCultivo") IsNot Nothing AndAlso Request("CveCultivo") <> "", Request("CveCultivo"), "-1").ToString
|
||||
TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto") <> "", Request("CveTipoGasto"), "-1").ToString
|
||||
Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString
|
||||
TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF") <> "", Request("CveTipoAF"), "-1").ToString
|
||||
@@ -133,13 +134,17 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
txtFechaF.Text = FechaF
|
||||
End If
|
||||
End If
|
||||
|
||||
DdlProyecto.SelectedValueExist(Proyecto)
|
||||
If DivProyecto.Visible Then CargaSubProyecto()
|
||||
'CARGA LISTBOXs
|
||||
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
|
||||
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
|
||||
DdlCategoria.SelectedValuesIfExistM(Categoria)
|
||||
DdlTipoAF.SelectedValuesIfExistM(TipoActivoFijo)
|
||||
DdlSubTipoAF.SelectedValuesIfExistM(SubTipoActivoFijo)
|
||||
|
||||
If SubProyecto <> "" Then CargaCultivo()
|
||||
DdlCultivo.SelectedValuesIfExistM(CveCultivo)
|
||||
'END CARGA LISTBOXs
|
||||
|
||||
'DdlCategoria.SelectedValueExist(Categoria)
|
||||
@@ -148,13 +153,12 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
DdlPS.SelectedValue = PS
|
||||
DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
|
||||
End If
|
||||
DdlProyecto.SelectedValueExist(Proyecto)
|
||||
If DivProyecto.Visible Then CargaSubProyecto()
|
||||
|
||||
'DdlSubProyecto.SelectedValueExist(SubProyecto)
|
||||
DdlFamilia.SelectedValueExist(Familia)
|
||||
DdlSubFamilia.SelectedValueExist(SubFamilia)
|
||||
DdlProveedor.SelectedValue = Proveedor
|
||||
If DdlProveedor.SelectedValue.ToEntero > 0 Then
|
||||
If Proveedor.ToEntero > 0 Then
|
||||
DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
|
||||
Else
|
||||
DdlProveedor.SelectedText = "Todos"
|
||||
@@ -172,17 +176,16 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
|
||||
DdlGrupo.SelectedValueExist(Grupo)
|
||||
|
||||
CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto)
|
||||
CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto, CveCultivo)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SetValues()
|
||||
|
||||
'Cargo Proyectos
|
||||
DdlProveedor.setEsWebService(True)
|
||||
DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedor.SelectedText = "Todos"
|
||||
DdlProveedor.SelectedValue = "-1"
|
||||
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlProyecto.DataBind()
|
||||
|
||||
|
||||
'CAarga Tipos de Gasto
|
||||
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
|
||||
@@ -354,6 +357,7 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
|
||||
Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString
|
||||
Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
|
||||
Dim Cultivo As String = IIf(DdlCultivo.GetSelectedValuesM = "", "-1", DdlCultivo.GetSelectedValuesM).ToString
|
||||
|
||||
Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString
|
||||
Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString
|
||||
@@ -364,7 +368,7 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
|
||||
UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF,
|
||||
DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
|
||||
TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
|
||||
TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=Cultivo) Then
|
||||
DtDatos = ObjCompras.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
@@ -376,14 +380,16 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
Agrupador = DdlGrupo.SelectedItem.Text
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String)
|
||||
Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String, CveCultivo As String)
|
||||
Dim ObjCompras As New ClsCompras()
|
||||
|
||||
Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
|
||||
Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
|
||||
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
|
||||
|
||||
If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
|
||||
If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo,
|
||||
Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto,
|
||||
CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=CveCultivo) Then
|
||||
DtDatos = ObjCompras.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
@@ -404,6 +410,17 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
End If
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaCultivo()
|
||||
DdlCultivo.Items.Clear()
|
||||
If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
|
||||
DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True)))
|
||||
DdlCultivo.DataBind()
|
||||
Else
|
||||
DdlCultivo.DataSource = Nothing
|
||||
DdlCultivo.DataBind()
|
||||
End If
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -411,6 +428,10 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
|
||||
CargaCultivo()
|
||||
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
|
||||
' CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
|
||||
|
||||
Reference in New Issue
Block a user