From 2b6daa08cd5961646d8acb1a954a636f6058adb6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 1 Apr 2022 11:48:02 -0700 Subject: [PATCH] Ajustes AF --- AF/AF.aspx | 4 +- AF/AF.aspx.vb | 64 +++- .../RepEntradasUsadosClientes.aspx.vb | 2 +- .../Formatos/RepEntradasUsadosClientes.rdlc | 352 +++++++++++++++++- 4 files changed, 392 insertions(+), 30 deletions(-) diff --git a/AF/AF.aspx b/AF/AF.aspx index 7660f2441..741f42d39 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -1182,7 +1182,7 @@ - + @@ -2188,7 +2188,7 @@ - + diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 66b751121..5da9f7191 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -14,7 +14,11 @@ Partial Class AF_AF 'Configuración #Region "PROPIEDADES" Private Property CveActivoFijo As Integer - Get + Get + + If ViewState("CveActivoFijo") Is Nothing Then + ViewState("CveActivoFijo") = -1 + End If Return ViewState("CveActivoFijo").ToString.ToEntero End Get Set(value As Integer) @@ -22,7 +26,10 @@ Partial Class AF_AF End Set End Property Private Property CodigoAF As String - Get + Get + If ViewState("CodigoAF") Is Nothing Then + ViewState("CodigoAF") = "" + End If Return ViewState("CodigoAF").ToString End Get Set(value As String) @@ -294,6 +301,8 @@ Partial Class AF_AF CargaCuentasContables() End If + CargaCombos() + If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then ViewState("CveActivoFijo") = Request("CveActivoFijo") CargaDatos() @@ -311,8 +320,8 @@ Partial Class AF_AF HlEvento.Visible = True HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;") Else - ViewState("CveActivoFijo") = -1 - CargaCombos() + ViewState("CveActivoFijo") = -1 + 'Configuración de Modalidad Insert ImgAddObs.Visible = False @@ -422,18 +431,38 @@ Partial Class AF_AF CveEmpresaActual = UsuarioActual.CveEmpresa End Sub - Private Sub ModalidadesPaginaAF(Op As String) + Private Sub ModalidadesPaginaAF(Optional Op As String = "") - Select Case Op - Case "AR" 'Arbol Frutal etc - LblFechaCompra.Text = "Fecha de Nacimiento" - LblFechaBaja.Text = "Fecha de Muerte" - TabProduccion.Visible = True - Exit Select - Case Else - Exit Select - End Select + TabProduccion.Visible = False + TabPlagaEnfermedad.Visible = False + TabServyMant.Visible = False + LblFechaCompra.Text = "Fecha de Compra:" + LblFechaBaja.Text = "Fecha de Baja:" + + 'Arbol Frutal + If DdlTipoActivoFijo.SelectedValue.ToEntero = 150 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1936 And CveActivoFijo > 0 Then + LblFechaCompra.Text = "Fecha de Nacimiento" + LblFechaBaja.Text = "Fecha de Muerte" + TabProduccion.Visible = True + End If + + 'Arbol Apicola + If DdlTipoActivoFijo.SelectedValue.ToEntero = 151 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1937 And CveActivoFijo > 0 Then + TabPlagaEnfermedad.Visible = True + End If + + 'Pozos + If DdlTipoActivoFijo.SelectedValue.ToEntero = 152 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1938 And CveActivoFijo > 0 Then + TabServyMant.Visible = True + End If + + 'Inmuebles + If DdlTipoActivoFijo.SelectedValue.ToEntero = 153 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1939 And CveActivoFijo > 0 Then + + End If + + UpDatos.Update() End Sub @@ -467,13 +496,18 @@ Partial Class AF_AF Private Sub CargaTipoActivoFijo() DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() + CargaSubTipoActivoFijo() End Sub Private Sub CargaSubTipoActivoFijo() + DdlSubTipoActivoFijo.Items.Clear() DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo") DdlSubTipoActivoFijo.DataBind() DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubTipoActivoFijo.SelectedIndex = 0 + + UpDatos.Update() + End Sub Private Sub CargaDispositivos() DivDispositivo.Visible = False @@ -556,6 +590,7 @@ Partial Class AF_AF Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged CargaFolios() + ModalidadesPaginaAF() End Sub Private Sub CargaFolios() @@ -2744,6 +2779,7 @@ Partial Class AF_AF Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged CargaCaracteristicas() CargaDispositivos() + ModalidadesPaginaAF() End Sub #Region "CARGAR CUENTA CONTABLE" diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 9b4da84bb..cae0e6c31 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -76,7 +76,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes e.Row.Cells(2).Text = "" e.Row.Cells(3).Text = "" e.Row.Cells(4).Text = "" - e.Row.Cells(6).Text = "" + 'e.Row.Cells(6).Text = "" End If If e.Row.DataKey("EsDistribuidor") <> "" Then diff --git a/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc b/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc index b3872bef7..71646abd5 100644 --- a/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc +++ b/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -25,10 +25,34 @@ Codigo_Clientes System.String + + SerieFolio + System.String + + + CveVenta + System.Int + + + Folio + System.String + + + Fecha + System.Date + + + SubProyecto + System.String + Total System.String + + TotalImporte + System.String + EsHeader System.String @@ -55,15 +79,27 @@ 1.60534cm - 15.36419cm + 5.44232cm - 3.08282cm + 2.5cm + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + 2.5cm - 0.58521cm + 0.37354cm @@ -110,7 +146,7 @@ - =Fields!Codigo_Clientes.Value + =IIF( Fields!CveVenta.Value > 0, Fields!SerieFolio.Value,Fields!Codigo_Clientes.Value) + + + + + + Folio + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -150,12 +295,12 @@ @@ -174,6 +319,43 @@ + + + + true + true + + + + + =Fields!TotalImporte.Value + + + + + + + TotalImporte + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -183,6 +365,10 @@ + + + + @@ -195,8 +381,8 @@ DataSet1 0.17639cm 0.08377cm - 0.58521cm - 20.05235cm + 0.37354cm + 19.54766cm @@ -423,7 +609,7 @@ 3.27766cm 1.68911cm 0.6cm - 15.36419cm + 5.44232cm 5 @@ -456,9 +642,9 @@ Textbox1 3.27766cm - 17.0533cm + 17.13143cm 0.6cm - 3.08282cm + 2.5cm 6 + + true + true + + + + + Mov. Amacen + + + + + + + Textbox3 + 3.27766cm + 7.13143cm + 0.6cm + 2.5cm + 7 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox3 + 3.27766cm + 9.63143cm + 0.6cm + 2.5cm + 8 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox3 + 3.27766cm + 12.13143cm + 0.6cm + 2.5cm + 9 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cantidad + + + + + + + Textbox3 + 3.27766cm + 14.63143cm + 0.6cm + 2.5cm + 10 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + +