From 07b1a55d4e31ecf00e2a7c36774fbea6efbb2e2f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 26 Dec 2019 17:37:21 -0700 Subject: [PATCH 1/8] Agregando formulario de ajuste --- Inventarios/RecepcionUsados.aspx | 189 ++++++++++++++++++++++- Inventarios/RecepcionUsados.aspx.vb | 227 +++++++++++++++++++++++++++- 2 files changed, 411 insertions(+), 5 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index ba194c182..57d8499be 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -111,6 +111,12 @@ +
+ + Usados + Ajuste/Garantía + +
@@ -324,8 +330,8 @@ - - + + @@ -337,6 +343,185 @@
+
+
+ + + +
+
+ + Ajuste +
+
+
+
+ +
+
+ + +
+
+
+
+ + + + + +
+
+
+
+
+
+ + + +
+
+
+
+
+
+ + + + + +
+
+
+
+ + <%-- + <%----%> + <%----%> +
+
+
+
+
+
+ + + <%----% + <%----%> + +
+
+
+
+ + + + + +
+
+
+
+
+
+
+ + + <%----%> + <%----%> + +
+
+
+ +
+ + + + + + + + +
+
+
+
+
+
+ + + <%----%> + <%----%> + +
+
+
+
+ + + + + +
+
+
+
+
+
+ + + + + +
+
+
+
+ + + + + +
+
+
+
+ + + + + +
+
+
+
+
+
+ + <%----%> + <%----%> + +
+
+
+
+ + + + + +
+
+
+ <%----%> +
+
+
+ + +
+
<%--INVENTARIO INICIAL--%> diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 381d6ef3c..b4d73f253 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -23,6 +23,14 @@ Partial Class Inventarios_RecepcionUsados ViewState("DtMovimientos") = value End Set End Property + Private Property ConsecutivoVenta As Integer + Get + Return ViewState("ConsecutivoVenta").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("ConsecutivoVenta") = value + End Set + End Property Public Property DtTamaños() As DataTable Get Return CType(ViewState("DtTamaños"), DataTable) @@ -285,7 +293,22 @@ Partial Class Inventarios_RecepcionUsados ViewState("ObjFactura") = value End Set End Property - + Private Property IndexAjuste As Integer + Get + Return ViewState("IndexAjuste").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IndexAjuste") = value + End Set + End Property + Private Property TmpDTAjustes As DataTable + Get + Return If(IsNothing(ViewState("TmpDTAjustes")), Nothing, CType(ViewState("TmpDTAjustes"), DataTable)) + End Get + Set(value As DataTable) + ViewState("TmpDTAjustes") = value + End Set + End Property #End Region @@ -364,8 +387,6 @@ Partial Class Inventarios_RecepcionUsados CargaTamaños() 'DdlProducto2.setEsWebService(True) 'DdlProducto2.Attributes.Add("data-metodo", "getpsusados") - - End If End Sub @@ -2382,4 +2403,204 @@ Partial Class Inventarios_RecepcionUsados objAcum.Dispose() End Sub +#Region "Ajustes" + Public Sub OnRblUsadosAjuste_Change(sender As Object, e As EventArgs) + If RblUsadosAjuste.SelectedValue = "1" Then + CargaAjuste() + DivAjuste.Visible = True + Else + DivAjuste.Visible = False + End If + End Sub + + Private Sub CargaAjuste() + CreaDTmpDTAjustes() + CargaPSAjuste() + CargaBCIAjuste() + CargaFolioAjuste() + CargaTipoDefecto() + CargaTipoDeUso() + TxtFechaAjuste.Text = Today.ToString("d") + End Sub + Private Sub CreaDTmpDTAjustes() + TmpDTAjustes = New DataTable + TmpDTAjustes.Columns.Add("CveFolioGarantia", GetType(Integer)) + TmpDTAjustes.Columns.Add("CveTipoUso", GetType(Integer)) + TmpDTAjustes.Columns.Add("CveTipoDefecto", GetType(Integer)) + TmpDTAjustes.Columns.Add("CodigoEnsamble", GetType(String)) + TmpDTAjustes.Columns.Add("CodigoLinea", GetType(String)) + TmpDTAjustes.Columns.Add("CodigoInspeccion", GetType(String)) + TmpDTAjustes.Columns.Add("Consecutivo", GetType(String)) + TmpDTAjustes.Columns.Add("ConsecutivoVenta", GetType(Integer)) + TmpDTAjustes.Columns.Add("FechaAjuste", GetType(Date)) + TmpDTAjustes.Columns.Add("Meses", GetType(String)) + TmpDTAjustes.Columns.Add("PorcentajeAjuste", GetType(Double)) + TmpDTAjustes.Columns.Add("NumPoliza", GetType(String)) + TmpDTAjustes.Columns.Add("Importe", GetType(Double)) + TmpDTAjustes.Columns.Add("CvePS", GetType(Integer)) + TmpDTAjustes.Columns.Add("PS", GetType(String)) + TmpDTAjustes.Columns.Add("Cantidad", GetType(Decimal)) + TmpDTAjustes.Columns.Add("CveUM", GetType(Integer)) + TmpDTAjustes.Columns.Add("CveVentaDetalle", GetType(Integer)) + TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer)) + TmpDTAjustes.Columns.Add("PUFactura", GetType(Double)) + End Sub + Private Sub CargaAjusteDetalle() + Dim Dr As DataRow = Nothing + IndexAjuste = 0 + For Each Dr2 As DataRow In TmpDTAjustes.Rows + If Dr2("ConsecutivoVenta").ToString.ToEntero = ConsecutivoVenta Then + Dr = Dr2 + Exit For + End If + IndexAjuste += 1 + Next + If Dr IsNot Nothing Then + IndexAjuste = TmpDTAjustes.Rows.IndexOf(Dr) + DdlFolioGarantia.SelectedValueExist(Dr("CveFolioGarantia").ToString) + TxtConsecutivoAjuste.Text = Dr("Consecutivo").ToString + TxtCodEnsamble.Text = Dr("CodigoEnsamble").ToString + DdlTipoUso.SelectedValueExist(Dr("CveTipoUso").ToString) + TxtCodLinea.Text = Dr("CodigoLinea").ToString + TxtCodInspeccion.Text = Dr("CodigoInspeccion").ToString + TxtMesesUso.Text = Dr("Meses").ToString + DdlTipoDefecto.SelectedValueExist(Dr("CveTipoDefecto").ToString) + TxtPorcentajeAjuste.Text = Dr("PorcentajeAjuste").ToString + TxtPoliza.Text = Dr("NumPoliza").ToString + TxtImporteAjuste.Text = Dr("Importe").ToString + 'DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString) + CargaPSAjuste() + DdlPSAjuste.SelectedValue = (Dr("CvePS").ToString) + TxtFechaAjuste.Text = Dr("FechaAjuste").ToString.ToDate.ToShortDateString + txtPrecio.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2) + txtPrecio.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0 + End If + End Sub + Private Sub CargaPSAjuste() + DdlPSAjuste.setEsWebService(True) + End Sub + + Protected Sub DdlPSAjuste_selectedindexchange(sender As Object, e As EventArgs) + If DdlPSAjuste.SelectedValue.ToEntero > 0 Then + Dim CvePSParametro As Integer = DdlPSAjuste.SelectedValue.ToEntero + Dim PrecioSugerido As Decimal = 0 + Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("") + + If drPS IsNot Nothing Then + PrecioSugerido = drPS("Precio").ToString.ToDecimal + End If + + TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2) + End If + End Sub + + Private Sub CargaBCIAjuste() + Dim ObjGral As New ClsGenerales + If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then + DdlBCIAjuste.DataSource = ObjGral.DtResultados + DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + ObjGral.Dispose() + DdlBCIAjuste.DataBind() + End Sub + + Private Sub CargaFolioAjuste() + Dim ObjAcum As New ClsAcumuladores + If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then + DdlFolioGarantia.DataSource = ObjAcum.DtResultados + DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + ObjAcum.Dispose() + DdlFolioGarantia.DataBind() + End Sub + + Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged + Dim ObjAcumuladores As New ClsAcumuladores + If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then + Dim resultado As String = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo") + TxtConsecutivoAjuste.Text = resultado + UpAjuste.Update() + End If + ObjAcumuladores.Dispose() + End Sub + + Protected Sub CargaTipoDeUso() + DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoUso.DataBind + End Sub + + Protected Sub DdlTipoUso_SelectedIndexChanged(sender As Object, e As EventArgs) + CalculaPorcentajeAjuste() + End Sub + + Protected Sub CargaTipoDefecto() + DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlTipoDefecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoDefecto.DataBind + End Sub + Private Sub CalculaPorcentajeAjuste() + Try + If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then + Dim CveMarca As Integer = -1 + + CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero + + Dim ObjAcum As New ClsAcumuladores + If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then + If ObjAcum.DtResultados.Rows.Count > 0 Then + TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString + + TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero + + Dim CargoVendido As Decimal = 0 + Dim CargoGarantia As Decimal = 0 + Dim CveTamaño As Integer = 0 + + If DdlPSAjuste.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("") + If Dr IsNot Nothing Then + CargoGarantia = Dr("Cargo").ToString.ToDecimal + End If + End If + + If DdlPSAjuste.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("") + If Dr IsNot Nothing Then + CveTamaño = Dr("CveTamaño").ToString.ToEntero + End If + End If + + Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}") + If DrCargo IsNot Nothing Then + + CargoVendido = DrCargo("Cargo").ToString.ToDecimal + + End If + + 'el ajuste no puede ser mayor al precio de lo vendido de nuevo + If (txtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then + + TxtImporteAjuste.Text = "0.00" + CargoGarantia = CargoVendido + End If + TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(txtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}." + TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero + + Else + 'cuando no está registrada, no da ajuste + TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo" + TxtImporteAjuste.Text = "0.00" + End If + End If + ObjAcum.Dispose() + End If + Catch ex As Exception + OnError("Ocurrió un error al recalcular el costo", ex) + End Try + + UpAjuste.Update() + End Sub +#End Region + End Class From 0159bd4609caa03a0fb722645f881ee77125dde5 Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Sat, 28 Dec 2019 22:41:41 -0700 Subject: [PATCH 2/8] Cambios en el reporte de presupuestos --- Contratos/RepPresupuestos.aspx | 72 +++++++++++++++++------- Contratos/RepPresupuestos.aspx.vb | 71 +++++++++++++++++++---- Contratos/RepPresupuestosDetalle.aspx | 72 +++++++++++++++++------- Contratos/RepPresupuestosDetalle.aspx.vb | 71 +++++++++++++++++++---- 4 files changed, 220 insertions(+), 66 deletions(-) diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 8353386b1..ba7cfd71f 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -329,9 +329,10 @@ - - - + + + +
AgrupadorAutorizadoEjercidoPor EjercerAutorizadoEjercidoPor EjercerPagado
@@ -340,11 +341,12 @@ <%-- - - + + - + +
@@ -359,85 +361,113 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + +
AgrupadorAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreTotal
- + + + <%-- --%> + + <%-- --%> + + <%-- --%> - + + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + + diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 52e95a10b..c49216d9b 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -344,6 +344,9 @@ Partial Class Contratos_RepPresupuestos If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If + If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + e.Row.Cells(6).Text = "-" + End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero @@ -387,50 +390,94 @@ Partial Class Contratos_RepPresupuestos End Select If e.Row.DBCampo("EneroEjercido").ToDecimal = 0 Then - e.Row.Cells(2).Text = "-" + e.Row.Cells(3).Text = "-" + End If + If e.Row.DBCampo("EneroPagado").ToDecimal = 0 Then + e.Row.Cells(5).Text = "-" End If If e.Row.DBCampo("FebreroEjercido").ToDecimal = 0 Then - e.Row.Cells(4).Text = "-" + e.Row.Cells(7).Text = "-" + End If + If e.Row.DBCampo("FebreroPagado").ToDecimal = 0 Then + e.Row.Cells(9).Text = "-" End If If e.Row.DBCampo("MarzoEjercido").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" + e.Row.Cells(11).Text = "-" + End If + If e.Row.DBCampo("MarzoPagado").ToDecimal = 0 Then + e.Row.Cells(13).Text = "-" End If If e.Row.DBCampo("AbrilEjercido").ToDecimal = 0 Then - e.Row.Cells(8).Text = "-" + e.Row.Cells(15).Text = "-" + End If + If e.Row.DBCampo("AbrilPagado").ToDecimal = 0 Then + e.Row.Cells(17).Text = "-" End If If e.Row.DBCampo("MayoEjercido").ToDecimal = 0 Then - e.Row.Cells(10).Text = "-" + e.Row.Cells(19).Text = "-" + End If + If e.Row.DBCampo("MayoPagado").ToDecimal = 0 Then + e.Row.Cells(21).Text = "-" End If If e.Row.DBCampo("JunioEjercido").ToDecimal = 0 Then - e.Row.Cells(12).Text = "-" + e.Row.Cells(23).Text = "-" + End If + If e.Row.DBCampo("JunioPagado").ToDecimal = 0 Then + e.Row.Cells(25).Text = "-" End If If e.Row.DBCampo("JulioEjercido").ToDecimal = 0 Then - e.Row.Cells(14).Text = "-" + e.Row.Cells(27).Text = "-" + End If + If e.Row.DBCampo("JulioPagado").ToDecimal = 0 Then + e.Row.Cells(29).Text = "-" End If If e.Row.DBCampo("AgostoEjercido").ToDecimal = 0 Then - e.Row.Cells(16).Text = "-" + e.Row.Cells(31).Text = "-" + End If + If e.Row.DBCampo("AgostoPagado").ToDecimal = 0 Then + e.Row.Cells(33).Text = "-" End If If e.Row.DBCampo("SeptiembreEjercido").ToDecimal = 0 Then - e.Row.Cells(18).Text = "-" + e.Row.Cells(35).Text = "-" + End If + If e.Row.DBCampo("SeptiembrePagado").ToDecimal = 0 Then + e.Row.Cells(37).Text = "-" End If If e.Row.DBCampo("OctubreEjercido").ToDecimal = 0 Then - e.Row.Cells(20).Text = "-" + e.Row.Cells(39).Text = "-" + End If + If e.Row.DBCampo("OctubrePagado").ToDecimal = 0 Then + e.Row.Cells(41).Text = "-" End If If e.Row.DBCampo("NoviembreEjercido").ToDecimal = 0 Then - e.Row.Cells(22).Text = "-" + e.Row.Cells(43).Text = "-" + End If + If e.Row.DBCampo("NoviembrePagado").ToDecimal = 0 Then + e.Row.Cells(45).Text = "-" End If If e.Row.DBCampo("DiciembreEjercido").ToDecimal = 0 Then - e.Row.Cells(24).Text = "-" + e.Row.Cells(47).Text = "-" + End If + If e.Row.DBCampo("DiciembrePagado").ToDecimal = 0 Then + e.Row.Cells(49).Text = "-" + End If + + If e.Row.DBCampo("TotalEjercido").ToDecimal = 0 Then + e.Row.Cells(50).Text = "-" + End If + + If e.Row.DBCampo("TotalPagado").ToDecimal = 0 Then + e.Row.Cells(52).Text = "-" End If If e.Row.RowIndex > 0 Then diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 7bf7d886b..05b3668d8 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -247,9 +247,10 @@ - - - + + + +
AgrupadorAutorizadoEjercidoPor EjercerAutorizadoEjercidoPor EjercerPagado
@@ -257,12 +258,13 @@ <%-- - - - + + + - + +
@@ -277,85 +279,113 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + +
AgrupadorAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreAutorizadoEneroFebreroMarzoAbrilMayoJunioJulioAgostoSeptiembreOctubreNoviembreDiciembreTotal
- + + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + <%-- --%> + + + diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 8c69e0060..c68bd35ff 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -164,6 +164,9 @@ Partial Class Contratos_RepPresupuestosDetalle If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If + If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + e.Row.Cells(6).Text = "-" + End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero Dim EsProyecto = False @@ -195,50 +198,94 @@ Partial Class Contratos_RepPresupuestosDetalle End Select If e.Row.DBCampo("EneroEjercido").ToDecimal = 0 Then - e.Row.Cells(2).Text = "-" + e.Row.Cells(3).Text = "-" + End If + If e.Row.DBCampo("EneroPagado").ToDecimal = 0 Then + e.Row.Cells(5).Text = "-" End If If e.Row.DBCampo("FebreroEjercido").ToDecimal = 0 Then - e.Row.Cells(4).Text = "-" + e.Row.Cells(7).Text = "-" + End If + If e.Row.DBCampo("FebreroPagado").ToDecimal = 0 Then + e.Row.Cells(9).Text = "-" End If If e.Row.DBCampo("MarzoEjercido").ToDecimal = 0 Then - e.Row.Cells(6).Text = "-" + e.Row.Cells(11).Text = "-" + End If + If e.Row.DBCampo("MarzoPagado").ToDecimal = 0 Then + e.Row.Cells(13).Text = "-" End If If e.Row.DBCampo("AbrilEjercido").ToDecimal = 0 Then - e.Row.Cells(8).Text = "-" + e.Row.Cells(15).Text = "-" + End If + If e.Row.DBCampo("AbrilPagado").ToDecimal = 0 Then + e.Row.Cells(17).Text = "-" End If If e.Row.DBCampo("MayoEjercido").ToDecimal = 0 Then - e.Row.Cells(10).Text = "-" + e.Row.Cells(19).Text = "-" + End If + If e.Row.DBCampo("MayoPagado").ToDecimal = 0 Then + e.Row.Cells(21).Text = "-" End If If e.Row.DBCampo("JunioEjercido").ToDecimal = 0 Then - e.Row.Cells(12).Text = "-" + e.Row.Cells(23).Text = "-" + End If + If e.Row.DBCampo("JunioPagado").ToDecimal = 0 Then + e.Row.Cells(25).Text = "-" End If If e.Row.DBCampo("JulioEjercido").ToDecimal = 0 Then - e.Row.Cells(14).Text = "-" + e.Row.Cells(27).Text = "-" + End If + If e.Row.DBCampo("JulioPagado").ToDecimal = 0 Then + e.Row.Cells(29).Text = "-" End If If e.Row.DBCampo("AgostoEjercido").ToDecimal = 0 Then - e.Row.Cells(16).Text = "-" + e.Row.Cells(31).Text = "-" + End If + If e.Row.DBCampo("AgostoPagado").ToDecimal = 0 Then + e.Row.Cells(33).Text = "-" End If If e.Row.DBCampo("SeptiembreEjercido").ToDecimal = 0 Then - e.Row.Cells(18).Text = "-" + e.Row.Cells(35).Text = "-" + End If + If e.Row.DBCampo("SeptiembrePagado").ToDecimal = 0 Then + e.Row.Cells(37).Text = "-" End If If e.Row.DBCampo("OctubreEjercido").ToDecimal = 0 Then - e.Row.Cells(20).Text = "-" + e.Row.Cells(39).Text = "-" + End If + If e.Row.DBCampo("OctubrePagado").ToDecimal = 0 Then + e.Row.Cells(41).Text = "-" End If If e.Row.DBCampo("NoviembreEjercido").ToDecimal = 0 Then - e.Row.Cells(22).Text = "-" + e.Row.Cells(43).Text = "-" + End If + If e.Row.DBCampo("NoviembrePagado").ToDecimal = 0 Then + e.Row.Cells(45).Text = "-" End If If e.Row.DBCampo("DiciembreEjercido").ToDecimal = 0 Then - e.Row.Cells(24).Text = "-" + e.Row.Cells(47).Text = "-" + End If + If e.Row.DBCampo("DiciembrePagado").ToDecimal = 0 Then + e.Row.Cells(49).Text = "-" + End If + + If e.Row.DBCampo("TotalEjercido").ToDecimal = 0 Then + e.Row.Cells(50).Text = "-" + End If + + If e.Row.DBCampo("TotalPagado").ToDecimal = 0 Then + e.Row.Cells(52).Text = "-" End If If e.Row.RowIndex > 0 Then From 72e11ce3e90b56f1544ca399d21e3dca8df00aa6 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 30 Dec 2019 09:00:39 -0700 Subject: [PATCH 3/8] =?UTF-8?q?agregando=20formulario=20de=20ajuste=20a=20?= =?UTF-8?q?la=20recepci=C3=B3n=20de=20usados?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionUsados.aspx | 8 ++++- Inventarios/RecepcionUsados.aspx.vb | 48 ++++++++++++++++++++++++++++- 2 files changed, 54 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index 57d8499be..635ed529a 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -514,7 +514,8 @@
- <%----%> + +
@@ -1026,6 +1027,7 @@ + @@ -1041,6 +1043,10 @@