From d72a785136bddf184ec117dec1b223d5dae8e496 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 1 Feb 2023 10:26:49 -0700 Subject: [PATCH] Cambios en ventas para contratos de emd --- Contratos/Contrato.aspx.vb | 120 +++++++++++++++---------- Ventas/Ventas.aspx | 40 ++------- Ventas/Ventas.aspx.vb | 173 +++++++++++++++++++++++++++++-------- 3 files changed, 217 insertions(+), 116 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index fe12f6fef..413d9a730 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -25,17 +25,17 @@ Partial Class Contratos_Default ViewState("CveContrato") = value End Set End Property - Private Property CveTipoContrato As Integer + Private Property CveContratoTipo As Integer Get - If ViewState("CveTipoContrato") Is Nothing Then + If ViewState("CveContratoTipo") Is Nothing Then Return 0 Else - Return ViewState("CveTipoContrato").ToString.ToEntero + Return ViewState("CveContratoTipo").ToString.ToEntero End If End Get Set(value As Integer) - ViewState("CveTipoContrato") = value + ViewState("CveContratoTipo") = value End Set End Property Private Property CveMovimiento As Integer @@ -372,7 +372,7 @@ Partial Class Contratos_Default CargaInventarios() '12/04/2018 - Si el tipo de contrato es convenio de precio fijo configura campos - If CveTipoContrato = 28 Then + If CveContratoTipo = 28 Then CargaConvenioPrecioFijo() End If @@ -664,7 +664,11 @@ Partial Class Contratos_Default Private Sub loadComboTipoContrato(venta As Boolean) Try If venta Then - DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1") + If UsuarioActual.CveEmpresa = 13 Then + DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEmpresa = 13") + Else + DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1") + End If Else DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 0") @@ -724,11 +728,11 @@ Partial Class Contratos_Default DvTotal.Visible = True - If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then + If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then TableDatosCabecera.Visible = True End If - If CveTipoContrato = 25 Then + If CveContratoTipo = 25 Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -745,11 +749,11 @@ Partial Class Contratos_Default DvTotal.Visible = True 'TxtCantidad.Visible = False - If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then + If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then TableDatosCabecera.Visible = True End If - If CveTipoContrato = 25 Then + If CveContratoTipo = 25 Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -776,13 +780,13 @@ Partial Class Contratos_Default Exit Sub End If - Me.CveTipoContrato = DdlTipoContrato.SelectedValue.ToEntero + Me.CveContratoTipo = DdlTipoContrato.SelectedValue.ToEntero 'Dim TipoMov = GlobalDTContratosTipos.FiltroPrimeroValor("TipoMovimiento", $"CveContratoTipo='{CveTipoContrato}'").ToEntero If rpCompra.Checked Then - Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveTipoContrato}") + Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveContratoTipo}") 'RegistraScript("window.location='/Contratos/Presupuestos.aspx") Else @@ -853,7 +857,7 @@ Partial Class Contratos_Default ' 'DvObservaciones.Visible = True 'End If - Dim CveTipoContrato = DdlTipoContrato.SelectedValue + 'Dim CveTipoContrato = DdlTipoContrato.SelectedValue 'Dim TipoMov = GlobalDTContratosTipos.AsEnumerable().Where(Function(a) a("CveContratoTipo").ToString = CveTipoContrato).FirstOrDefault()("TipoMovimiento") @@ -913,9 +917,28 @@ Partial Class Contratos_Default TxtNumeroLicitacion.Text = ObjContratos.NumeroLicitacion TipoContrato = ObjContratos.CveContratoTipo TxtPorcentajeComision.Text = ObjContratos.PorcentajeComision.ToString - CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero + CveContratoTipo = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString + If CveContratoTipo = 33 Then + TabContratosGastos.Visible = False + TabAF.Visible = False + TabReporteAvance.Visible = False + TabAvanveDocumento.Visible = False + TabContratosGastos.Visible = False + TabAF.Visible = False + TabPed.Visible = False + TabAddendum.Visible = False + TabFacCiclica.Visible = False + + TabPVInsumos.Visible = False + + thOcCliente.Visible = False + tdOcCliente.Visible = False + + thLimitar.Visible = False + tdLimitar2.Visible = False + End If If ObjContratos.CveProveedor > 0 Then TrProveedor.Visible = True @@ -1379,7 +1402,7 @@ Partial Class Contratos_Default If ObjContratos.UpdateContratos(CveContrato, TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate, TxtUbicacion.Text, TxtResponsable.Text, DdlSubProyectoContrato.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble, TxtPorGarantia.Text.ToDouble, ArchivoUpdate, "", DdlContratoPadre.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, Minimo, Maximo, Total, DdlMoneda.SelectedValue.ToEntero, - ModalidadDetalle, If(UsuarioActual.Empresa.CvePlataforma = 3 OrElse CveTipoContrato = 25, 1, DdlEstatus.SelectedValue.ToEntero), TipoContrato, TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, + ModalidadDetalle, If(UsuarioActual.Empresa.CvePlataforma = 3 OrElse CveContratoTipo = 25, 1, DdlEstatus.SelectedValue.ToEntero), TipoContrato, TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, PorcentajeComision:=TxtPorcentajeComision.Text.ToEntero, TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero, CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=DdlClienteDireccionEnvio.SelectedValue.ToEntero, AplicaImpuestosLocales:=ChkImpuestosLocales.Checked, @@ -1887,7 +1910,7 @@ Partial Class Contratos_Default Gv.DataSource = DtTemp DtPresupuestos = DtTemp Gv.DataBind() - If CveTipoContrato = 25 Then + If CveContratoTipo = 25 Then Gv.Columns(0).Visible = False Gv.Columns(2).Visible = False Gv.Columns(3).Visible = False @@ -2045,7 +2068,7 @@ Partial Class Contratos_Default e.Row.FCLinkButton("imgE").Visible = False e.Row.FCLinkButton("imgD").Visible = False End If - If CveTipoContrato = 25 Then + If CveContratoTipo = 25 Then e.Row.Cells(1).Width = Unit.Pixel(10) e.Row.Cells(6).Width = Unit.Pixel(250) End If @@ -2474,38 +2497,41 @@ Partial Class Contratos_Default Private Sub CargaDatosAvance() If CveContrato <= 0 Then Exit Sub + End If + + If CveContratoTipo <> 33 Then + TabReporteAvance.Visible = True + lbImprimirAvance.Visible = True + + Dim Modalidad = IfNull(Request("Tipo"), 1, 2) + + If Modalidad.ToString.ToEntero = 2 Then + Tab.ActiveTabIndex = 2 + End If + + Dim ObjContratos As New ClsContratos + + If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then + GvDatosAvance.DataSource = ObjContratos.DtResultados + SumaAvance = ObjContratos.DtResultados.SUM("AvanceImporte", "CveClasificacion IS NULL") + SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL") + DtAvance = ObjContratos.DtResultados + Else + Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError) + End If + + ObjContratos.Dispose() + GvDatosAvance.DataBind() + + If (GvDatosAvance.Rows.Count > 0) Then + GvDatosAvance.UseAccessibleHeader = True + GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader + RegistraScript("OrdenarGV();") + End If + + UpGral.Update() End If - TabReporteAvance.Visible = True - lbImprimirAvance.Visible = True - - Dim Modalidad = IfNull(Request("Tipo"), 1, 2) - - If Modalidad.ToString.ToEntero = 2 Then - Tab.ActiveTabIndex = 2 - End If - - Dim ObjContratos As New ClsContratos - - If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then - GvDatosAvance.DataSource = ObjContratos.DtResultados - SumaAvance = ObjContratos.DtResultados.SUM("AvanceImporte", "CveClasificacion IS NULL") - SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL") - DtAvance = ObjContratos.DtResultados - Else - Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError) - End If - - ObjContratos.Dispose() - GvDatosAvance.DataBind() - - If (GvDatosAvance.Rows.Count > 0) Then - GvDatosAvance.UseAccessibleHeader = True - GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader - RegistraScript("OrdenarGV();") - End If - - UpGral.Update() End Sub Protected Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 92084a0bb..4de903d41 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -554,11 +554,11 @@ - - - - - + + Descripción de factura: + + + @@ -907,32 +907,6 @@ - - - -
-
- - Descripción -
-
-
-
-
-
- -
-
-
- - - - -
-
-
- - @@ -3165,7 +3139,7 @@ - + @@ -4552,7 +4526,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8bf4bc962..c554e418e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2315,6 +2315,15 @@ Partial Class Ventas End Set End Property + Private Property CveContratoTipo As Integer + Get + Return IfNull(ViewState("CveContratoTipo"), "-1", ViewState("CveContratoTipo")).ToString().ToEntero() + End Get + Set(value As Integer) + ViewState("CveContratoTipo") = value + End Set + End Property + #End Region '#Region "AuxiliarConta" @@ -3464,7 +3473,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 13 Then - UpDescripcionVenta.Visible = True + TrDescripcionVenta.Visible = True If CveVenta <= 0 Then TxtDescripcionVenta.Enabled = True End If @@ -3742,6 +3751,7 @@ Partial Class Ventas End Try End Sub Private Sub VerificarContrato(Optional AfterPageLoad As Boolean = False) + Dim ObjContratos As New ClsContratos If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente, -1, 1) Then @@ -3823,6 +3833,17 @@ Partial Class Ventas End If + + If UsuarioActual.CveEmpresa = 13 Then + DivEstimaciones.Visible = True + GvEst.Visible = False + ContratoDetalles.Visible = False + GvContratoDetalles.Visible = True + + BtnEstimacion.Visible = False + + End If + PresionarBotonModal("C_BtnCerrarContrato") End Sub Private Sub BtnCancelarContratoDetalles_Click(sender As Object, e As EventArgs) Handles BtnCancelarContratoDetalles.Click @@ -4067,9 +4088,17 @@ Partial Class Ventas ' ObjClientes.Dispose() 'End If + Dim CveContratoSeleccionado As Integer = -1 + If DdlContratosModal.SelectedValue.ToEntero() > 0 Then + CveContratoSeleccionado = DdlContratosModal.SelectedValue.ToEntero() + End If + + If Me.CveContratoTipo = 33 AndAlso DdlContrato.SelectedValue.ToEntero() > 0 Then + CveContratoSeleccionado = DdlContrato.SelectedValue.ToEntero() + End If + + Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {CveContratoSeleccionado}") - Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {DdlContratosModal.SelectedValue.ToEntero()}") - Dim ps As New ClsInventarios CveContrato = DdlContratosModal.SelectedValue.ToEntero() AplicaGastoContrato = If(DrContrato("CveContratoTipo").ToString().Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento @@ -4083,6 +4112,7 @@ Partial Class Ventas TxtIVA.Text = "0" TxtRetIVA.Text = "0" + Dim ps As New ClsInventarios For Each Row As GridViewRow In GvContratoDetalles.Rows If Row.FCTextBox("TxtCant").Text.ToEntero() > 0 Then @@ -4107,8 +4137,8 @@ Partial Class Ventas SeleccionadoContrato += Row.FCTextBox("TxtCant").Text.ToEntero() * Row.FCLiteral("LtlPU").Text.ToDouble AgregarProductoServicio(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), - Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, ObsPlantilla, $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, - DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero()) + Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, ObsPlantilla, $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, + DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero()) 'AddPS(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), Row.DataKey("Clasificacion"), ' Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDouble, If(Row.DataKey("IVA").ToDouble = -1, ViewState("IVA").ToString().ToDouble, Row.DataKey("IVA").ToDouble), 0, 0, 1, 0, True, "", ' DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveTipoPS, CveTipoInv, CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero(), CodigoPS:=Row.FCLiteral("LtlPS").Text) @@ -4125,6 +4155,7 @@ Partial Class Ventas End If Next + ps.Dispose() 'SI EL CONTRATO TIENE IMPUESTOS LOCALES SE CARGAN LOS DEL CONTRATO AHUEVO If RBLTipoContrato.SelectedValue = "2" Then @@ -4175,7 +4206,15 @@ Partial Class Ventas CalculaUsados() CalculaTotalesVenta() - LbAgregar.Visible = False + + If Me.CveContratoTipo <> 33 Then + LbAgregar.Visible = False + Else + Me.CveContrato = DdlContrato.SelectedValue.ToEntero() + LbAgregar.Visible = True + End If + + UpPS.Update() 'restricciones para evitar cambios una vez seleccionado el contrato @@ -4192,7 +4231,7 @@ Partial Class Ventas PresionarBotonModal("C_BtnCerrarContrato") - ps.Dispose() + UpFacturar.Update() End Sub Private Sub CargarContratoUrl() @@ -4366,6 +4405,11 @@ Partial Class Ventas e.Row.FCTextBox("TxtCant").Enabled = False End If + If Me.CveContratoTipo = 33 Then + e.Row.FCTextBox("TxtCant").Enabled = False + e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("Cantidad") + End If + ''Si viene de una OC Sin Facturar y tiene contrato 'If TieneContrato AndAlso ContratosConOC IsNot Nothing AndAlso ContratosConOC.ToString().Length > 0 Then ' e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("CantidadOC").ToString() @@ -4821,7 +4865,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 13 Then - UpDescripcionVenta.Visible = True + TrDescripcionVenta.Visible = True TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString() End If @@ -6682,7 +6726,11 @@ Partial Class Ventas 'CargaFolios() - CargaDatosEstimaciones(CveCliente) + If UsuarioActual.CveEmpresa = 13 Then + CargaContratosCliente(CveCliente) + Else + CargaDatosEstimaciones(CveCliente) + End If If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then 'se cargan impuestos locales @@ -13452,11 +13500,13 @@ Partial Class Ventas End If 'Contratos - If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then - GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1) - 'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN - ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then - GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1) + If factura.CveContrato > 0 AndAlso Me.CveContratoTipo <> 33 Then + If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then + GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1) + 'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN + ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then + GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1) + End If End If 'Impuestos Locales @@ -13626,7 +13676,9 @@ Partial Class Ventas If ErrorList.Count = 0 Then 'estimaciones - GuardarVentaEstimaciones(ObjContr, factura) + If Me.CveContratoTipo <> 33 Then + GuardarVentaEstimaciones(ObjContr, factura) + End If If ErrorList.Count = 0 Then 'armonizaccionContable GuardarVentaAC(ObjVentas, factura, Msgok, objContPaqi) @@ -21410,18 +21462,39 @@ Partial Class Ventas Protected Sub DdlContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContrato.SelectedIndexChanged Dim valueselect = DdlContrato.SelectedValue - CargaDatosEstimaciones(CveCliente) - DdlContrato.SelectedValue = valueselect - If DdlContrato.SelectedValue.ToEntero() > 0 Then - For Each gvr As GridViewRow In GvEst.Rows - If gvr.DataKey("CveContratoAvance").ToEntero() > 0 Then - gvr.FCCheckBox("Chk").Checked = True - gvr.FCCheckBox("Chk").Visible = True - End If - Next - BtnEstimacion.Visible = True + + Dim CveContrato As Integer = valueselect.ToEntero() + Using ObjContratos As New ClsContratos + If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + Me.CveContratoTipo = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString().ToEntero() + End If + End Using + + + If CveContratoTipo <> 33 Then + CargaDatosEstimaciones(CveCliente) + DdlContrato.SelectedValue = valueselect + If DdlContrato.SelectedValue.ToEntero() > 0 Then + For Each gvr As GridViewRow In GvEst.Rows + If gvr.DataKey("CveContratoAvance").ToEntero() > 0 Then + gvr.FCCheckBox("Chk").Checked = True + gvr.FCCheckBox("Chk").Visible = True + End If + Next + BtnEstimacion.Visible = True + End If + Else + CargaDatosContratoDetalle() + GvEst.Visible = False + ContratoDetalles.Visible = False + GvContratoDetalles.Visible = True + + DdlContrato.SelectedValue = valueselect + BtnEstimacion.Visible = False + UPEstimaciones.Update() End If + 'If RblOpcionContrato.SelectedValue = "3" Then @@ -21441,34 +21514,62 @@ Partial Class Ventas If CveVenta > 0 Then Exit Sub End If - Dim Con As New ClsContratos - - - - - If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then - GvEst.DataSource = Con.DtResultados - If Con.DtResultados.Rows.Count > 0 Then + Dim ObjContrato As New ClsContratos + If ObjContrato.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then + GvEst.DataSource = ObjContrato.DtResultados + If ObjContrato.DtResultados.Rows.Count > 0 Then 'BtnEstimacion.Visible = True DdlContrato.Items.Clear() DdlContrato.Items.Add(New ListItem("Todos", "-1")) - DdlContrato.DataSource = Con.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"}) + DdlContrato.DataSource = ObjContrato.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"}) End If End If + ObjContrato.Dispose() - UPEstimaciones.Update() - Con.Dispose() DdlContrato.DataBind() GvEst.DataBind() + UPEstimaciones.Update() + End Sub + Private Sub CargaDatosContratoDetalle() + If CveVenta > 0 Then + Exit Sub + End If + Dim ObjContrato As New ClsContratos + If DdlContrato.SelectedValue.ToEntero() > 0 Then + If ObjContrato.GetContratosDetalle(DdlContrato.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then + GvContratoDetalles.DataSource = ObjContrato.DtResultados + End If + Else + GvContratoDetalles.DataSource = Nothing + End If + ObjContrato.Dispose() + GvContratoDetalles.DataBind() + GvContratoDetalles.EmptyDataText = "No se encontraron productos/servicios para este contrato" + UPEstimaciones.Update() + End Sub + Private Sub CargaContratosCliente(CveCliente As Integer) + If CveVenta > 0 Then + Exit Sub + End If + DdlContrato.Items.Clear() + DdlContrato.Items.Add(New ListItem("Todos", "-1")) + Dim ObjContratos As New ClsContratos + If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveEstatus:=-1) Then + DdlContrato.DataSource = ObjContratos.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"}) + End If + ObjContratos.Dispose() + + DdlContrato.DataBind() + UPEstimaciones.Update() End Sub Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEst.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then