diff --git a/Contratos/ContratoAvance.aspx b/Contratos/ContratoAvance.aspx index 9d829dce7..45bf7c3d0 100644 --- a/Contratos/ContratoAvance.aspx +++ b/Contratos/ContratoAvance.aspx @@ -100,10 +100,7 @@
- - Agregar - - +
diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index 4ff8715fb..451b2c4a4 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -96,8 +96,8 @@ Partial Class Contratos_ContratoAvance Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - BtnGuardar.Visible = False - btnanexogral.Visible = False + BtnGuardar.Visible = False + CargaContrato() @@ -146,16 +146,16 @@ Partial Class Contratos_ContratoAvance fecha = "" DtDatos = ObjContratos.DtResultados If ObjContratos.DtResultados.Rows.Count > 0 Then - BtnGuardar.Visible = True - btnanexogral.Visible = True + BtnGuardar.Visible = True + End If End If Else If ObjContratos.GetContratosAvanceHistoricos(CveContrato, 2, DdlAvances.SelectedValue) Then fecha = DdlAvances.SelectedValue DtDatos = ObjContratos.DtResultados - BtnGuardar.Visible = False - btnanexogral.Visible = False + BtnGuardar.Visible = False + End If End If ObjContratos.Dispose() @@ -280,7 +280,7 @@ Partial Class Contratos_ContratoAvance Dim TieneError = False Dim CveContratoDetalle As Integer Dim Cantidad As Double - Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos + 'Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos Dim guardarArchivos As New List(Of Archivo) For Each gvr As GridViewRow In Gv.Rows @@ -328,9 +328,10 @@ Partial Class Contratos_ContratoAvance Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia) Else Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) - For Each fileItem As Archivo In filesgral - fileItem.filename.FilesMove(fileItem.filename, urlsave) - Next + + 'For Each fileItem As Archivo In filesgral + ' fileItem.filename.FilesMove(fileItem.filename, urlsave) + 'Next For Each fileItem As Archivo In guardarArchivos fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) @@ -338,7 +339,7 @@ Partial Class Contratos_ContratoAvance ObjContratos.Commit() Alert("se guardo Correctamente") End If - AnexoGral.Text = "[]" + 'AnexoGral.Text = "[]" ObjContratos.Dispose() CargaddlAvance() CargaDatosAvance() diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 9bdb71224..b710ac331 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -75,87 +75,7 @@ -<%--
  • - Concluir Contrato -
    • -
  • - Cancelar Contrato -
    • -
  • - Reactivar Contrato -
    • -
  • - Descargar Formato -
    • -
  • - Crear A Partir De -
    • - -
  • - Importar Listado -
    • - - -
  • - Agregar Gastos -
    • - - -
  • - Avance por Documento PDF -
    • - - -
  • - Descargar Contrato -
    • - -
  • - Informacion PDF -
    • - - -
  • - Gastos PDF -
    • - - -
  • - Suministros PDF -
    • -
  • - Avance PDF -
    • - -
  • - Presupuesto PDF -
    • - -
  • - Activos Fijos PDF -
    • - -
  • - Activos Fijos Excel -
    • -
  • - Pedidos / Devoluciones PDF -
    • - -
  • - Pedidos / Devoluciones Excel -
    • - - - - - - -
  • - Habilitar Ajuste A.F. -
    • -     -     --%> + @@ -165,7 +85,7 @@
  • - Agregar PS Control + Agregar PS Interno
    • @@ -955,21 +875,10 @@
    - <%-- - - - - - - - - --%> - - @@ -981,25 +890,7 @@ -<%-- - - - - - - - - --%> - <%-- - - - - - - - - --%> @@ -1206,7 +1097,7 @@
    @@ -1221,25 +1112,7 @@ - <%-- - - - - - - - - --%> - - <%-- - - - - - - - - --%> + @@ -2736,10 +2609,10 @@
    -
    + <%--
    -
    +
    --%>
    @@ -2750,15 +2623,15 @@ -
    + <%--
    -
    +
    --%> -
    + <%--
    -
    +
    --%>
    @@ -2830,15 +2703,15 @@ -
    + <%--
    -
    +
    --%> -
    + <%--
    -
    +
    --%>
    diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index de67258e1..3faf3afe5 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -421,19 +421,10 @@ Partial Class Contratos_ContratoObra TabReporteAvance.Visible = False TabAvanveDocumento.Visible = False - TAB.ActiveTabIndex = 0 - - 'If UsuarioActual.Empresa.CvePlataforma = 3 Then - ' rdventa.Checked = True - ' rdventa_CheckedChanged(Nothing, Nothing) - ' If (DdlTipoContrato.Items.FindByValue("14") Is Nothing) Then - ' DdlTipoContrato.Items.Insert(1, New ListItem("Contrato de Cuenta y Equipo", "14")) - ' End If - ' DdlTipoContrato.SelectedValue = "14" - ' TipoContrato = 14 - ' BtnTipoContrato_Click(Nothing, Nothing) - 'End If - + TAB.ActiveTabIndex = 0 + + + End If 'carga combos @@ -444,8 +435,6 @@ Partial Class Contratos_ContratoObra CargaDatosEncabezado() - ' CargaImpuestosLocales() - End If @@ -466,13 +455,8 @@ Partial Class Contratos_ContratoObra BtnEliminar.Visible = False Gv.Columns(8).Visible = False GvInsumos.Columns(7).Visible = False - End If - - 'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial - ' Gv.Columns(9).Visible = False - ' GvInsumos.Columns(8).Visible = False - 'End If - + End If + Else TabPres.Visible = False Gv.Columns(8).Visible = True @@ -503,7 +487,7 @@ Partial Class Contratos_ContratoObra CargaProyecto() CargaContratista() - ' CargaVendedores() + DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) DdlUM.DataBind() @@ -511,37 +495,17 @@ Partial Class Contratos_ContratoObra DdlMoneda.DataBind() - ' CargaContratoPadre() + CargaContratosEstatus() - CreaDT() - - 'DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - - 'If UsuarioActual.TienePermisoProceso(172) Then - ' RowPorcentajeComision.Visible = True - 'End If + CreaDT() + + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False - End Sub - - 'Public Sub CargaDireccionesEnvios(CveCliente As Integer) - ' Dim ObjVentas As New ClsClientes - ' If ObjVentas.DireccionEnvioGet(-1, CveCliente, -1) Then + End Sub + + - ' If ObjVentas.DtResultados.Rows.Count > 0 Then - ' DdlClienteDireccionEnvio.DataSource = ObjVentas.DtResultados - ' DdlClienteDireccionEnvio.DataBind() - ' DivClienteDireccion.Visible = True - ' Else - ' DivClienteDireccion.Visible = False - ' End If - - ' End If - ' ObjVentas.Dispose() - ' UpGral.Update() - 'End Sub - Protected Sub DdlMoneda_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMoneda.SelectedIndexChanged If DdlMoneda.SelectedIndex = 0 Then @@ -596,16 +560,10 @@ Partial Class Contratos_ContratoObra DdlCliente.SelectedValue = "-1" TxtFechaInicial.Text = "" TxtFechaFinal.Text = "" - TxtPorIVA.Text = "" - 'txtMinimo.Text = "" - 'txtMaximo.Text = "" - 'TxtArchivo.Text = "" - - DdlProyecto.SelectedValue = "-1" - 'DdlSubProyectoContrato.SelectedValue = "-1" - 'DdlContratoPadre.SelectedValue = "-1" - - 'Tab Presupuesto + TxtPorIVA.Text = "" + + DdlProyecto.SelectedValue = "-1" + TxtCantidad.Text = "" TxtPU.Text = "" TmpDT.Clear() @@ -620,152 +578,37 @@ Partial Class Contratos_ContratoObra Private Sub ConfiguraTipos() If Not TipoContrato.Contiene({7, 9, 13, 16, 18, 21}) Then TabAF.Visible = False - End If - 'TabContratosGastos.Visible = False - - 'DONDE OCUPA ALMACEN + End If + + + + 'DONDE OCUPA ALMACEN Dim CveTipoAlmacenOrigen = "12,15" Dim CveTipoAlmacenDestino = "11,12" - 'If TipoContrato.Contiene({7, 9, 13, 16, 18, 21, 27}) Then - ' RowAlmacen.Visible = True - ' If TipoContrato.Contiene(7, 9, 13, 21, 27) Then - ' If TipoContrato.Contiene(27) Then - ' CveTipoAlmacenOrigen = "1" - ' CveTipoAlmacenDestino = "17" - ' End If - ' RowAlmacenOrigen.Visible = True - ' End If - 'End If - - 'Dim CveOrigen = DdlAlmacenOrigen.SelectedValue - 'DdlAlmacenOrigen.Items.Clear() - 'DdlAlmacenOrigen.SelectedValue = "-1" - 'DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen IN ({CveTipoAlmacenOrigen})") ' GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - 'DdlAlmacenOrigen.DataBind() - 'DdlAlmacenOrigen.SelectedValueExist(CveOrigen) - ''SI EL ALMACEN ANTERIOR DEL CONTRATO NO ESTA EN LOS ALMACENES ACTUALES LO INSERTA A FUERZAS - 'If DdlAlmacenOrigen.SelectedValue <> CveOrigen Then - ' DdlAlmacenOrigen.Items.Insert(1, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveOrigen}"), CveOrigen)) - ' DdlAlmacenOrigen.SelectedValueExist(CveOrigen) - 'End If - - 'Dim CveDestino = DdlAlmacenDestino.SelectedValue - 'DdlAlmacenDestino.Items.Clear() - 'DdlAlmacenDestino.SelectedValue = "-1" - 'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen In ({CveTipoAlmacenDestino})") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) - 'DdlAlmacenDestino.DataBind() - 'DdlAlmacenDestino.SelectedValueExist(CveDestino) - ''SI EL ALMACEN ANTERIOR DEL CONTRATO NO ESTA EN LOS ALMACENES ACTUALES LO INSERTA A FUERZAS - 'If DdlAlmacenDestino.SelectedValue <> CveDestino Then - ' DdlAlmacenDestino.Items.Insert(1, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveDestino}"), CveDestino)) - ' DdlAlmacenDestino.SelectedValueExist(CveDestino) - 'End If - + + End Sub - Private Sub MuestraPermiteAvance() - - 'If Not TipoContrato.Contiene({4, 5, 25, 11}) Then - ' Gv.Columns(9).Visible = False - ' GvInsumos.Columns(7).Visible = False - ' THAvance.Style.Add("display", "none") - ' TDAvance.Style.Add("display", "none") - ' THAvance.Visible = False - ' THAvanceInsumos.Visible = False - ' ' tdCol7.Visible = False - ' TDAvance.Visible = False - ' TDAvanceInsumos.Visible = False - 'Else - ' Gv.Columns(9).Visible = True - ' GvInsumos.Columns(6).Visible = True - ' THAvance.Visible = True - ' THAvanceInsumos.Visible = True - ' 'tdCol7.Visible = True - ' TDAvance.Visible = True - ' TDAvanceInsumos.Visible = True - 'End If - 'UpTitulos.Update() - 'UpGral.Update() + Private Sub MuestraPermiteAvance() + + End Sub #End Region -#Region " PANTALLA INICIAL" - 'Protected Sub rpCompra_CheckedChanged(sender As Object, e As EventArgs) Handles rpCompra.CheckedChanged - ' loadComboTipoContrato(False) - 'End Sub - 'Protected Sub rdventa_CheckedChanged(sender As Object, e As EventArgs) Handles rdventa.CheckedChanged - ' loadComboTipoContrato(True) - 'End Sub - 'Private Sub loadComboTipoContrato(venta As Boolean) - ' Try - ' If venta Then - ' DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1") - - ' Else - ' DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 0") - ' End If - ' dvDetContrato.Visible = True - ' ' DdlTipoContrato.Visible = True - ' DdlTipoContrato.DataBind() - ' DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione una opción", "-1")) - ' If UsuarioActual.CveEmpresa.Contiene(1, 11, 4, 12) And venta Then - ' DdlTipoContrato.Items.Insert(1, New ListItem("Contrato con facturación ciclica", "25")) - ' End If - ' UPTipo.Update() - ' Catch ex As Exception - ' Alert(ex.Message, TipoMensaje.MsgError) - - ' End Try - 'End Sub - -#End Region #Region " INICIO DE PAGINA " - 'Protected Sub DdlTipoContrato_SelectedIndexChanged(sender As Object, e As EventArgs) - ' CargaTipoContrato() - ' '12/04/2018 - Se configuran campos de convenio de precio fijo - ' If DdlTipoContrato.SelectedValue = "28" Then - ' CargaConvenioPrecioFijo() - ' End If - - ' If UsuarioActual.CveEmpresa = 72 And DdlTipoContrato.SelectedValue.Contiene("7", "8", "10", "13", "28") Then - ' GetNoContratoNuevo() - ' End If - - 'End Sub - - - 'Private Sub CargaTipoContrato() - ' If DdlTipoContrato.SelectedIndex = 0 Then - ' TxtDescripcionTipoContrato.Text = "" - ' Exit Sub - ' End If - - ' TipoContrato = DdlTipoContrato.SelectedValue.ToEntero - ' If GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue).Rows.Count > 0 Then - ' TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString() - ' TxtDescripcionTipoContrato.Visible = True - ' End If - - - ' CargaContratoPadre() - ' UpProyecto.Update() - 'End Sub Private Sub modalidades(modalidadDetalleInt As Integer) If modalidadDetalleInt = 1 Then ModalidadDetalle = 1 - ' DvMax.Visible = True - ' DvMin.Visible = True + DvTotal.Visible = True @@ -774,35 +617,25 @@ Partial Class Contratos_ContratoObra End If If CveTipoContrato = 25 Then - 'DvMax.Visible = False - ' DvMin.Visible = False + DvTotal.Visible = False - ' DivFianzas.Visible = False - 'DivImpuestosLocales.Visible = False + End If ElseIf modalidadDetalleInt = 2 Then ModalidadDetalle = 2 - ' DvMax.Visible = True - ' DvMin.Visible = True - DvTotal.Visible = True - 'TxtCantidad.Visible = False - + + DvTotal.Visible = True + + If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then TableDatosCabecera.Visible = True End If - If CveTipoContrato = 25 Then - ' DvMax.Visible = False - ' DvMin.Visible = False - DvTotal.Visible = False - ' DivFianzas.Visible = False - ' DivImpuestosLocales.Visible = False - End If - + End If UpGral.Update() @@ -810,126 +643,7 @@ Partial Class Contratos_ContratoObra End Sub - 'Protected Sub chkDetalleContrato_CheckedChanged(sender As Object, e As EventArgs) - ' If chkDetalleContrato.Checked = False Then - ' modalidades(1) - ' Else - ' modalidades(2) - ' End If - 'End Sub - 'Protected Sub BtnTipoContrato_Click(sender As Object, e As EventArgs) Handles BtnTipoContrato.Click - ' If DdlTipoContrato.SelectedIndex = 0 Then - ' Alert("Tiene que seleccionar un tipo de Contrato.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' Me.CveTipoContrato = DdlTipoContrato.SelectedValue.ToEntero - - - - ' If rpCompra.Checked Then - - ' Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveTipoContrato}") - ' 'RegistraScript("window.location='/Contratos/Presupuestos.aspx") - ' Else - - ' modalidades(1) - - ' DivTipoContrato.Visible = False - - ' If rdventa.Checked Then - ' DdlCliente.Visible = True - ' TrCliente.Visible = True - - ' DdlContratista.Visible = False - ' TrProveedor.Visible = False - - - ' Else - ' DdlCliente.Visible = False - ' TrCliente.Visible = False - - ' TrProveedor.Visible = True - ' DdlContratista.Visible = True - ' End If - - ' If rdventa.Checked Then - ' cargaClientes() - ' Else - ' CargaContratista() - ' End If - - ' If DdlTipoContrato.SelectedValue = "14" Then - ' TrCtaEquipo.Visible = True - ' TrPeriodo.Visible = True - ' RFVEstatus.ValidationGroup = "" - ' RequiredFieldValidator1.ValidationGroup = "" - ' DvMin.Visible = True - ' DvMax.Visible = True - ' DvTotal.Visible = True - ' RowFlexible.Visible = False - ' RowEstatus.Visible = False - ' RowPorcentajeComision.Visible = False - ' dvAddendum.Visible = False - ' CargaPeriodos() - ' CargaPlantillas() - ' TrContratoPlantilla.Visible = True - ' TabPres.HeaderText = "Partidas" - ' Else - ' DtPeriodo = Nothing - ' End If - - - ' If DdlTipoContrato.SelectedValue = "25" Then - ' trLicitacion.Visible = False - ' divResponsable.Visible = False - ' TrPeriodo.Visible = True - ' CargaPeriodos() - ' trIva.Visible = False - ' trAnticipo.Visible = False - ' trAmortizacion.Visible = False - ' trPorGarantia.Visible = False - ' DvMin.Visible = False - ' RowFlexible.Visible = False - ' RowPorcentajeComision.Visible = False - ' DvMax.Visible = False - ' DvTotal.Visible = False - ' RowEstatus.Visible = False - ' TabPres.HeaderText = "Partidas" - ' DdlSubProyectoContrato.AutoPostBack = True - ' DvObservaciones.Visible = True - ' End If - - ' 'Dim CveTipoContrato = DdlTipoContrato.SelectedValue - - ' 'Dim TipoMov = GlobalDTContratosTipos.AsEnumerable().Where(Function(a) a("CveContratoTipo").ToString = CveTipoContrato).FirstOrDefault()("TipoMovimiento") - - - ' DivContent.Visible = True - ' ConfiguraTipos() - - - ' UpGral.Update() - ' 'UPTipo.Update() - ' End If - - 'End Sub - - - 'Protected Sub DdlSubProyectoContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoContrato.SelectedIndexChanged - ' Dim ObjFolios As New ClsGralFolios - ' If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then - ' If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then - ' FolioSugerido = $"{GlobalDTSubProyectos(-1, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}" - ' TxtNumeroContrato.Text = FolioSugerido - ' Else - ' Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia) - ' End If - ' End If - ' ObjFolios.Dispose() - ' UpGral.Update() - 'End Sub #End Region #Region " CARGA DATOS " @@ -959,7 +673,6 @@ Partial Class Contratos_ContratoObra TxtNumeroContrato.Text = ObjContratos.NumeroContrato TxtNumeroLicitacion.Text = ObjContratos.NumeroLicitacion TipoContrato = ObjContratos.CveContratoTipo - ' TxtPorcentajeComision.Text = ObjContratos.PorcentajeComision.ToString CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString DdlCliente.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCliente").ToString) @@ -975,104 +688,43 @@ Partial Class Contratos_ContratoObra UpGral.Update() CargaSucursalCliente() DdlSucursalCliente.SelectedValue = ObjContratos.CveSucursalCliente.ToString - End If - - - 'If DdlCliente.SelectedValue.ToEntero > 0 Then - ' CargaDireccionesEnvios(DdlCliente.SelectedValue.ToEntero) - ' DdlClienteDireccionEnvio.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero) - 'End If - - 'CargaContratoPadre() + End If + CargaContratoAddendum() If ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero = 14 Then - ' CargaPeriodos() - 'TrCtaEquipo.Visible = True - ' TrPeriodo.Visible = True RFVEstatus.ValidationGroup = "" - ' RequiredFieldValidator1.ValidationGroup = "" - ' DvMin.Visible = True - ' DvMax.Visible = True - DvTotal.Visible = True - 'RowFlexible.Visible = False - 'RowPorcentajeComision.Visible = False - RowEstatus.Visible = False - 'dvAddendum.Visible = False - 'liImprimir.Visible = True - CargaPlantillas() - 'TrContratoPlantilla.Visible = True - 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo")) - 'DdlCuentaEquipo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCuentaEquipo")) - 'DdlPlantillaContrato.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveContratoPlantilla")) + DvTotal.Visible = True + RowEstatus.Visible = False + CargaPlantillas() TabPres.HeaderText = "Partidas" End If If ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero = 25 Then trLicitacion.Visible = False - divResponsable.Visible = False - 'TrPeriodo.Visible = True - 'CargaPeriodos() + divResponsable.Visible = False trIva.Visible = False trAnticipo.Visible = False trAmortizacion.Visible = False trPorGarantia.Visible = False - 'DvMin.Visible = False - ' DvMax.Visible = False DvTotal.Visible = False TabPVInsumos.Visible = False RowEstatus.Visible = False - TabPres.HeaderText = "Partidas" - 'thOcCliente.Style.Add("display", "none") - 'tdOcCliente.Style.Add("display", "none") - 'thNoIdentificacionv.Style.Add("display", "none") - 'thLimitar.Style.Add("display", "none") - 'tdLimitar2.Style.Add("display", "none") - 'tdNoIdentificacionv.Style.Add("display", "none") - 'RowFlexible.Visible = False + TabPres.HeaderText = "Partidas" TableDatosCabecera.Visible = False TabAvanveDocumento.Visible = False - TabSistema.Visible = False - 'RowPorcentajeComision.Visible = False - TabContratosGastos.Visible = False - 'tdCveInterna.Text = "" - 'tdLimitar.Text = "" - 'tdOC.Text = "" - 'THAvance.Visible = False - 'THAvance.Style.Add("display", "none") - TDAvance.Style.Add("display", "none") - TxtOCInterna.Visible = False - TxtNoIdentificacionv.Visible = False - ChkLimitarVenta.Visible = False - DvObservaciones.Visible = True - 'TDObservacion.Visible = True - 'tdObservaciones.Visible = True + TabSistema.Visible = False + TabContratosGastos.Visible = False + TDAvance.Style.Add("display", "none") + 'TxtNoIdentificacionv.Visible = False + DvObservaciones.Visible = True TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString - Gv.Columns(3).Visible = True - 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString) - End If - - 'If ObjContratos.DtResultados.Rows(0)("CveVendedor").ToString.ToEntero > 0 Then - ' DdlVendedor.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveVendedor")) - 'End If - - - 'If (DdlAlmacenDestino.Items.FindByValue(ObjContratos.CveAlmacen.ToString()) Is Nothing) Then - ' Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacen)) - ' If dr IsNot Nothing Then - ' DdlAlmacenDestino.Items.Insert(1, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString - ' End If - 'End If - 'DdlAlmacenDestino.SelectedValue = ObjContratos.CveAlmacen.ToString - - 'If (DdlAlmacenOrigen.Items.FindByValue(ObjContratos.CveAlmacenOrigen.ToString()) Is Nothing) Then - ' Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacenOrigen)) - ' If dr IsNot Nothing Then - ' DdlAlmacenOrigen.Items.Insert(1, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString - ' End If - 'End If - 'DdlAlmacenOrigen.SelectedValue = ObjContratos.CveAlmacenOrigen.ToString - + Gv.Columns(3).Visible = True + + End If + + + FechaF = ObjContratos.FechaFinal FechaI = ObjContratos.FechaInicial TxtFechaFinal.Text = ObjContratos.FechaFinal.ToShortDateString @@ -1092,52 +744,25 @@ Partial Class Contratos_ContratoObra - TxtPorIVA.Text = ObjContratos.PorIVA.ToString - 'txtMinimo.Text = ObjContratos.Minimo.FormatoNumero - 'txtMaximo.Text = ObjContratos.Maximo.FormatoNumero - TxtTotal.Text = ObjContratos.Importe.FormatoNumero - 'TxtArchivo.Text = ObjContratos.Archivo - 'DdlTipoGarantia.SelectedValueExist(ObjContratos.TipoGarantia) - 'DdlEstatusFianza.SelectedValueExist(ObjContratos.EstatusFianza) - 'TxtFolio.Text = ObjContratos.Folio.ToString - 'txtFechaVenc.Text = ObjContratos.FechaVenc.ToString + TxtPorIVA.Text = ObjContratos.PorIVA.ToString + TxtTotal.Text = ObjContratos.Importe.FormatoNumero + DdlEstatus.SelectedValueExist(ObjContratos.CveContratosEstatus.ToString) CargarFianzas() If ObjContratos.TipoEstatus = 2 Then - DdlEstatus.Enabled = False - If UsuarioActual.TienePermisoProceso(173) Then - 'liVigenteContrato.Visible = True - 'LBVigenteContrato.Visible = True - End If + DdlEstatus.Enabled = False Else DdlEstatus.Items.Clear() 'Se esta ocultando concluido' DdlEstatus.DataSource = CType(DdlEstatus.DataSource, DataTable).FiltraParametros("TipoEstatus NOT IN (2)") - DdlEstatus.DataBind() - Select Case ObjContratos.TipoEstatus - Case 1 - If UsuarioActual.TienePermisoProceso(173) Then - ' liTerminarContrato.Visible = True - 'LBTerminarContrato.Visible = True + DdlEstatus.DataBind() + - ' liCancelarContrato.Visible = True - 'LBCancelarContrato.Visible = True - End If - Case 2, 3 ' reactivar el contrato - If UsuarioActual.TienePermisoProceso(173) Then - ' liVigenteContrato.Visible = True - ' LBVigenteContrato.Visible = True - End If - End Select - End If TxtTipoCambio.Text = ObjContratos.TipoCambio.ToString - ModalidadDetalle = ObjContratos.ModalidadDetalle - 'chkDetalleContrato.Checked = If(ModalidadDetalle = 2, True, False) - 'ChkImpuestosLocales.Checked = ObjContratos.AplicaImpuestosLocales - 'GvImpuestosLocales.Visible = ObjContratos.AplicaImpuestosLocales + ModalidadDetalle = ObjContratos.ModalidadDetalle modalidades(ModalidadDetalle) CargaGVGastos() @@ -1152,28 +777,20 @@ Partial Class Contratos_ContratoObra Contratante = ObjContratos.RazonSocial.ToString Else Contratante = ObjContratos.NombreComercial.ToString - End If - - 'AFU.Visible = False - - 'TxtArchivo.Text = ObjContratos.Archivo.ToString - - 'ChkEstatusContrato.Checked = CBool(ObjContratos.EstatusContrato) - 'DdlContratoPadre.SelectedValue = ObjContratos.CveContratoPadre.ToString - LblFechaCaptura.Text = ObjContratos.FechaIng.ToShortDateString - 'HplSecciones.NavigateUrl = "/Contratos/ContratosSecciones.aspx?CveContrato=" & CveContrato - 'CargaDatosPresup() - - CargaPresupuesto() - ' MuestraPermiteAvance() + End If + + LblFechaCaptura.Text = ObjContratos.FechaIng.ToShortDateString + + CargaPresupuesto() + cargarBitacora() If LblImporte.Text.ToDecimal <= 0 Then LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero End If If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then - ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) - 'A2.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CONTRATO&CveEmpresa={0}&Archivo={1}", ObjContratos.CveEmpresa, ViewState("FUrl").ToString))) + ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) + BtnDescargar.Visible = True Else BtnDescargar.Visible = False @@ -1243,23 +860,21 @@ Partial Class Contratos_ContratoObra End If End Sub - Private Sub CargarFianzas() - - 'DivFianzas.Visible = True - + Private Sub CargarFianzas() + + Dim ObjContrato As ClsContratos = New ClsContratos() If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then DtTmpFianzas = ObjContrato.DtResultados - ' GvFianzas.DataSource = ObjContrato.DtResultados + DtTmpFianzasInicial = DtTmpFianzas.Copy() End If ObjContrato.Dispose() - ' GvFianzas.DataBind() - ' UpGvFianzas.Update() + End Sub #End Region @@ -1278,19 +893,14 @@ Partial Class Contratos_ContratoObra Dim Archivo = Session("FileUpload").ToString Dim Ruta = Session("FileFolder").ToString - Dim Minimo, Maximo, Total As Double - 'If txtMinimo.Text.ToDouble > 0 Then Minimo = txtMinimo.Text.ToDouble Else Minimo = -1 - 'If txtMaximo.Text.ToDouble > 0 Then Maximo = txtMaximo.Text.ToDouble Else Maximo = -1 - 'If TxtTotal.Text.ToDouble > 0 Then Total = TxtTotal.Text.ToDouble Else Total = -1 + Dim Minimo, Maximo, Total As Double + Minimo = 0 'txtMinimo.Text.ToDouble Maximo = 0 'txtMaximo.Text.ToDouble - Total = TxtTotal.Text.ToDouble - - 'If DdlTipoContrato.SelectedValue = "25" AndAlso DdlPeriodo.SelectedValue.ToEntero() <= 0 Then - ' Alert("Debe seleccionar el periodo de facturación.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - + Total = TxtTotal.Text.ToDouble + + + If DdlMoneda.SelectedIndex > 0 Then If TxtTipoCambio.Text.Trim.Length = 0 Or TxtTipoCambio.Text.Trim.ToDouble = 0.0 Then Alert("Cuando seleccione una moneda diferente a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia) @@ -1348,31 +958,10 @@ Partial Class Contratos_ContratoObra End Try End If - End If - - 'If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso DdlTipoContrato.SelectedValue = "14" Then - ' Dim FechaI As DateTime = TxtFechaInicial.Text.ToDateTime - ' Dim FechaF As DateTime = TxtFechaFinal.Text.ToDateTime - ' Dim Periodo As Integer = DtPeriodo.FiltraParametros($"CvePeriodo = {DdlPeriodo.SelectedValue.ToEntero}").Rows(0)("Dias").ToString.ToEntero - ' Dim VigenciaEnDias As Double = DateDiff(DateInterval.Day, FechaI, FechaF) - ' Dim CiclosComerciales As Integer = Math.Round(VigenciaEnDias / Periodo).ToEntero - ' For Ciclo As Integer = 1 To CiclosComerciales - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, FechaI.AddDays(Periodo * Ciclo)) Then TieneError = True : Exit For - ' Next - 'ElseIf DdlTipoContrato.SelectedValue = "25" Then - ' Dim FechaI As DateTime = TxtFechaInicial.Text.ToDateTime - ' Dim FechaF As DateTime = TxtFechaFinal.Text.ToDateTime - ' If FechaI >= DateTime.Today Then - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, FechaI) Then TieneError = True - ' End If - ' Dim Periodo As Integer = DtPeriodo.FiltroPrimeroValor("Meses", $"CvePeriodo = {DdlPeriodo.SelectedValue.ToEntero}").ToEntero - ' Dim VigenciaMeses As Double = DateDiff(DateInterval.Month, FechaI, FechaF) - ' Dim CiclosComerciales As Integer = Math.Ceiling(VigenciaMeses / Periodo).ToEntero - ' For Ciclo As Integer = 1 To CiclosComerciales - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, If(FechaI.AddMonths(Periodo * Ciclo) > FechaF, FechaF, FechaI.AddMonths(Periodo * Ciclo))) Then TieneError = True : Exit For - ' Next - 'End If - + End If + + + If TxtNumeroContrato.Text = FolioSugerido Then Dim ObjFolios As New ClsGralFolios @@ -1381,24 +970,9 @@ Partial Class Contratos_ContratoObra End If ObjFolios.Dispose() - End If - - 'If ChkImpuestosLocales.Checked Then - ' Dim count As Integer = 0 - - ' For Each GVR As GridViewRow In GvImpuestosLocales.Rows - ' If GVR.FCCheckBox("ChkDeduccion").Checked Then - ' count = count + 1 - ' ObjContratos.AddContratoImpuestosLocales(CveContrato, GVR.DataKey("CveImpuestoLocal").ToEntero) - ' End If - ' Next - - ' If count = 0 Then - ' Alert("Debe seleccionar un Impuesto Local", TipoMensaje.MsgAdvertencia) - ' TieneError = True - ' End If - 'End If - + End If + + Else TieneError = True End If @@ -1427,38 +1001,9 @@ Partial Class Contratos_ContratoObra TieneError = Not GuardaFianzas(ObjContratos) 'Renombrar archivo - If Not TieneError Then - - 'If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso DdlTipoContrato.SelectedValue = "14" Then - ' Dim FechaIN As DateTime = TxtFechaInicial.Text.ToDateTime - ' Dim FechaFN As DateTime = TxtFechaFinal.Text.ToDateTime - ' Dim Periodo As Integer = DtPeriodo.FiltraParametros($"CvePeriodo = {DdlPeriodo.SelectedValue.ToEntero}").Rows(0)("Dias").ToString.ToEntero - ' Dim VigenciaEnDias As Double = DateDiff(DateInterval.Day, FechaI, FechaF) - ' Dim CiclosComerciales As Integer = Math.Round(VigenciaEnDias / Periodo).ToEntero - ' For Ciclo As Integer = 1 To CiclosComerciales - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, FechaI.AddDays(Periodo * Ciclo)) Then TieneError = True : Exit For - ' Next - 'ElseIf CveTipoContrato = 25 Then - ' Dim FechaIN As DateTime = TxtFechaInicial.Text.ToDateTime - ' Dim FechaFN As DateTime = TxtFechaFinal.Text.ToDateTime - ' If FechaFN <> FechaF OrElse FechaI <> FechaIN Then - ' If Not ObjContratos.CicloComercialDelete(CveContrato, False, UsuarioActual.CveEmpresa) Then - ' TieneError = True - ' End If - ' If Not TieneError Then - ' If FechaIN >= DateTime.Today Then - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, FechaIN) Then TieneError = True - ' End If - ' Dim Periodo As Integer = DtPeriodo.FiltroPrimeroValor("Meses", $"CvePeriodo = {DdlPeriodo.SelectedValue.ToEntero}").ToEntero - ' Dim VigenciaMeses As Double = DateDiff(DateInterval.Month, FechaI, FechaF) - ' Dim CiclosComerciales As Integer = Math.Ceiling(VigenciaMeses / Periodo).ToEntero - ' For Ciclo As Integer = 1 To CiclosComerciales - ' If Not ObjContratos.CicloComercialAdd(CveContrato, -1, DdlCliente.SelectedValue.ToEntero, False, -1, 1, UsuarioActual.CveEmpresa, If(FechaIN.AddMonths(Periodo * Ciclo) > FechaFN, FechaFN, FechaIN.AddMonths(Periodo * Ciclo))) Then TieneError = True : Exit For - ' Next - ' End If - ' End If - 'End If - + If Not TieneError Then + + If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then @@ -1474,36 +1019,16 @@ Partial Class Contratos_ContratoObra System.IO.File.Move(ViewState("FUrl").ToString, String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Catch ex As Exception - End Try - ' System.IO.File.Move(Archivo, String.Format("{0}{1}{2}", Ruta, CveContrato.ToString, Extension)) + End Try + End If - End If - - 'If ChkImpuestosLocales.Checked Then - ' Dim count As Integer = 0 - ' ObjContratos.LimpiaImpuestosLocales(CveContrato) - - ' For Each GVR As GridViewRow In GvImpuestosLocales.Rows - ' If GVR.FCCheckBox("ChkDeduccion").Checked Then - ' count = count + 1 - ' ObjContratos.AddContratoImpuestosLocales(CveContrato, GVR.DataKey("CveImpuestoLocal").ToEntero) - ' End If - ' Next - - ' If count = 0 Then - ' Alert("Debe seleccionar un Impuesto Local", TipoMensaje.MsgAdvertencia) - ' TieneError = True - ' End If - 'Else - ' ObjContratos.LimpiaImpuestosLocales(CveContrato) - 'End If - + End If + End If Else TieneError = True End If - End If If TieneError Then @@ -1895,15 +1420,15 @@ Partial Class Contratos_ContratoObra Row("PU") = TxtPU.Text.ToDouble.FormatoNumero Row("Total") = (TxtCantidad.Text.ToDouble * TxtPU.Text.ToDouble).FormatoNumero Row("CveTipoPresupuesto") = 2 - Row("NoIdentificacion") = TxtNoIdentificacionv.Text.Trim - Row("OCInterna") = TxtOCInterna.Text.Trim - Row("LimitarCantidad") = If(ChkLimitarVenta.Checked, 1, 0) + Row("NoIdentificacion") = "" 'TxtNoIdentificacionv.Text.Trim + Row("OCInterna") = "" 'TxtOCInterna.Text.Trim + Row("LimitarCantidad") = False 'If(ChkLimitarVenta.Checked, 1, 0) Row("Observacion") = "" 'TxtObservacionesDetalles.Text Dim ObjContratos As New ClsContratos - If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), Row("OCInterna").ToString, Observacion:=Row("Observacion").ToString) Then + If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "", Observacion:=Row("Observacion").ToString) Then If Autorizado Then Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU")) @@ -1940,17 +1465,17 @@ Partial Class Contratos_ContratoObra Dim Cantidad, PU As Double : Dim CvePS, CveUM As Integer Dim NoIdentificacion As String = "" - Dim OCInterna As String = "" - Dim LimitarCantidad As Boolean + 'Dim OCInterna As String = "" + ' Dim LimitarCantidad As Boolean Dim Observaciones As String = "" Cantidad = TxtCantidad.Text.ToDouble PU = TxtPU.Text.ToDouble CvePS = DdlProductows.SelectedValue.ToEntero CveUM = DdlUM.SelectedValue.ToEntero - NoIdentificacion = TxtNoIdentificacionv.Text.Trim - OCInterna = TxtOCInterna.Text.Trim - LimitarCantidad = If(ChkLimitarVenta.Checked, True, False) + 'NoIdentificacion = TxtNoIdentificacionv.Text.Trim + 'OCInterna = TxtOCInterna.Text.Trim + 'LimitarCantidad = If(ChkLimitarVenta.Checked, True, False) Observaciones = "" Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) @@ -1958,7 +1483,7 @@ Partial Class Contratos_ContratoObra Dim ObjContratos As New ClsContratos - If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, OCInterna, Observaciones) Then + If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, False, "", Observaciones) Then If Autorizado Then Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", @@ -1973,8 +1498,8 @@ Partial Class Contratos_ContratoObra row("CveUM") = CveUM row("UM") = DdlUM.SelectedItem.Text row("NoIdentificacion") = NoIdentificacion - row("OCInterna") = OCInterna - row("LimitarCantidad") = LimitarCantidad + row("OCInterna") = "" + row("LimitarCantidad") = False row("Observacion") = Observaciones TmpDT.AcceptChanges() @@ -2229,11 +1754,11 @@ Partial Class Contratos_ContratoObra Row("PU") = TxtPUInsumos.Text.ToDouble.FormatoNumero Row("Total") = (TxtCantidadInsumos.Text.ToDouble * TxtPUInsumos.Text.ToDouble).FormatoNumero Row("CveTipoPresupuesto") = 1 - Row("NoIdentificacion") = TxtNoIdentificacionvInsumos.Text.Trim - Row("LimitarCantidad") = If(ChkLimitarInsumos.Checked, 1, 0) + Row("NoIdentificacion") = "" 'TxtNoIdentificacionvInsumos.Text.Trim + Row("LimitarCantidad") = False Dim ObjContratos As New ClsContratos - If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "") Then + If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "") Then If Autorizado Then Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU")) guardarBitacora(msj) @@ -2266,22 +1791,22 @@ Partial Class Contratos_ContratoObra Dim Cantidad, PU As Double Dim CvePS, CveUM As Integer - Dim NoIdentificacion As String = "" - Dim LimitarCantidad As Boolean + 'Dim NoIdentificacion As String = "" + 'Dim LimitarCantidad As Boolean Cantidad = TxtCantidadInsumos.Text.ToDouble PU = TxtPUInsumos.Text.ToDouble CvePS = DdlProductowsInsumos.SelectedValue.ToEntero CveUM = DdlUMInsumos.SelectedValue.ToEntero - NoIdentificacion = TxtNoIdentificacionvInsumos.Text.Trim - LimitarCantidad = If(ChkLimitarInsumos.Checked, True, False) + 'NoIdentificacion = TxtNoIdentificacionvInsumos.Text.Trim + 'LimitarCantidad = If(ChkLimitarInsumos.Checked, True, False) Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) Dim ObjContratos As New ClsContratos - If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, "") Then + If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", False, "") Then If Autorizado Then Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", @@ -2295,8 +1820,8 @@ Partial Class Contratos_ContratoObra row("Total") = Cantidad * PU row("CveUM") = CveUM row("UM") = DdlUMInsumos.SelectedItem.Text - row("NoIdentificacion") = NoIdentificacion - row("LimitarCantidad") = LimitarCantidad + row("NoIdentificacion") = "" 'NoIdentificacion + row("LimitarCantidad") = False TmpDT.AcceptChanges() Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion) RegistraScript("$('#ModalControlAddPS').modal('hide')") @@ -2460,7 +1985,7 @@ Partial Class Contratos_ContratoObra Row("PU") = TxtPUInt.Text.ToDouble.FormatoNumero Row("Total") = (TxtCantidadInt.Text.ToDouble * TxtPUInt.Text.ToDouble).FormatoNumero Row("CveTipoPresupuesto") = 1 - Row("NoIdentificacion") = TxtNoIdentificacionv.Text.Trim + Row("NoIdentificacion") = "" ' TxtNoIdentificacionv.Text.Trim Row("LimitarCantidad") = False 'ChkLimitar.Checked <-- Estaba usando un checkbox de un logar muy diferente a donde esta ese formilario, posiblemente se copio codigo y se fue por equivocacion Dim ObjContratos As New ClsContratos @@ -4757,12 +4282,12 @@ Partial Class Contratos_ContratoObra CveContratoDetalleEditar = GvRow.DataKey("CveContratoDetalle").ToEntero - TxtOCInterna.Text = GvRow.DataKey("OCInterna") - TxtCantidad.Text = GvRow.DataKey("Cantidad").ToDouble.ToString + 'TxtOCInterna.Text = GvRow.DataKey("OCInterna") + TxtCantidad.Text = GvRow.DataKey("CantidadContratada").ToDouble.ToString - ChkLimitarVenta.Checked = Boolean.Parse(GvRow.DataKey("LimitarCantidad")) + 'ChkLimitarVenta.Checked = Boolean.Parse(GvRow.DataKey("LimitarCantidad")) - TxtNoIdentificacionv.Text = GvRow.DataKey("NoIdentificacion").ToDouble.ToString + 'TxtNoIdentificacionv.Text = GvRow.DataKey("NoIdentificacion").ToDouble.ToString DdlClasificacionAdd.SelectedValueExist(GvRow.DataKey("CveClasificacion").ToEntero) DdlProductows.txtText.Value = GvRow.DataKey("PS").ToString @@ -4789,9 +4314,9 @@ Partial Class Contratos_ContratoObra CveContratoDetalleEditar = gvRow.DataKey("CveContratoDetalle").ToEntero - TxtCantidadInsumos.Text = gvRow.DataKey("Cantidad").ToDouble.ToString - ChkLimitarInsumos.Checked = Boolean.Parse(gvRow.DataKey("LimitarCantidad")) - TxtNoIdentificacionvInsumos.Text = gvRow.DataKey("NoIdentificacion") + TxtCantidadInsumos.Text = gvRow.DataKey("CantidadContratada").ToDouble.ToString + 'ChkLimitarInsumos.Checked = Boolean.Parse(gvRow.DataKey("LimitarCantidad")) + ' TxtNoIdentificacionvInsumos.Text = gvRow.DataKey("NoIdentificacion") DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero) @@ -4819,10 +4344,10 @@ Partial Class Contratos_ContratoObra Private Sub LimpiarModalVentas() - TxtOCInterna.Text = "" + 'TxtOCInterna.Text = "" TxtCantidad.Text = "" - ChkLimitarVenta.Checked = False - TxtNoIdentificacionv.Text = "" + 'ChkLimitarVenta.Checked = False + 'TxtNoIdentificacionv.Text = "" DdlClasificacionAdd.SelectedValueExist(-1) DdlProductows.txtText.Value = "" DdlProductows.txtValue.Value = "" @@ -4845,8 +4370,8 @@ Partial Class Contratos_ContratoObra TxtCantidadInsumos.Text = "" - ChkLimitarInsumos.Checked = False - TxtNoIdentificacionvInsumos.Text = "" + 'ChkLimitarInsumos.Checked = False + 'TxtNoIdentificacionvInsumos.Text = "" DdlClasificacionAddInsumos.SelectedValueExist(-1) DdlProductowsInsumos.txtText.Value = "" diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 59a4dfbc3..aae116036 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2748,10 +2748,7 @@ Contrato: - - Estimacion: - - + @@ -2793,13 +2790,22 @@
    -
    -
    - -
    -
    - +
    + +
    + + + + + + + + + +
    Estimacion:
    + +
    Saldo: $
    @@ -2813,6 +2819,7 @@ <%----%> +
    @@ -4307,7 +4314,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 324da2f4c..fd606bd03 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3031,21 +3031,7 @@ Partial Class Ventas LnkOCs.Visible = True UpnTools.Update() - ElseIf RblOpcionContrato.SelectedValue = "3" Then - DivEstimaciones.Visible = True - DVEstimacionesObra.Visible = True - - DdlContrato.DataSource = DtContratos.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"}) - DdlContrato.DataBind() - DdlContrato.Items.Insert(0, New ListItem("Seleccione", "0")) - - - BtnEstimacion.Visible = False - GvEst.Visible = False - - - UPEstimaciones.Update() Else BtnEstimacion.Visible = True @@ -3234,6 +3220,7 @@ Partial Class Ventas DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) End If + DVEstimacionesObra.Visible = False Select Case RBLTipoContrato.SelectedValue.ToEntero() Case 1 DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped")) @@ -3246,7 +3233,35 @@ Partial Class Ventas DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido de Consignación", "PeC")) DdlTipoComprobante.SelectedValue = "PeC" DdlTipoComprobante.Enabled = False + + Case 4 + + TabGenerales.Enabled = True + DVEstimacionesObra.Visible = True + DdlEstimacionesObra.Items.Clear() + Dim Con As New ClsContratos + If Con.GetContratosAvanceEstimacionVentas(DdlContratosModal.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then + DdlEstimacionesObra.DataSource = Con.DtResultados + Else + DdlEstimacionesObra.DataSource = Nothing + End If + + Con.Dispose() + + DdlEstimacionesObra.DataBind() + DdlEstimacionesObra.Items.Insert(0, New ListItem("Todos", "-1")) + + BtnCargarContratoDetalles.Visible = False + BtnCancelarContratoDetalles.Visible = False + BtnCalcularTotalesContrato.Visible = False + + BtnEstimacion.Visible = False + GvEst.Visible = False + GvContratoDetalles.Visible = False + End Select + UPEstimaciones.Update() + Updatetabs.Update() ChkPSOC.Checked = False CambiaTipoDocto() @@ -3580,6 +3595,7 @@ Partial Class Ventas UpContratos.Update() End Sub Private Sub DdlContratoModalSelectIndex() + If Not DdlContratosModal.SelectedValue.ToEntero() > 0 Then GvContratoDetalles.DataBind() UpContratos.Update() @@ -8757,6 +8773,13 @@ Partial Class Ventas ObjFactura.CveCorte = CveCorte ObjFactura.CveMesa = -1 ObjFactura.NumeroPersonas = 0 + + + If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Then + CveContrato = DdlContratosModal.SelectedValue.ToEntero + End If + + ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() @@ -10511,7 +10534,7 @@ Partial Class Ventas End If - If ErrorList.Count = 0 AndAlso RblOpcionContrato.SelectedValue = "3" And DdlEstimacionesObra.SelectedValue.ToEntero > 0 Then + If ErrorList.Count = 0 AndAlso RBLTipoContrato.SelectedValue = "4" And DdlEstimacionesObra.SelectedValue.ToEntero > 0 Then If Not ObjContr.UpdateContratosAvanceEstimacionVentas(DdlEstimacionesObra.SelectedValue.ToEntero, ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then ErrorList.Add("Ocurrió un error al actualizar la estimación") @@ -18104,19 +18127,19 @@ Partial Class Ventas BtnEstimacion.Visible = True End If - If RblOpcionContrato.SelectedValue = "3" Then + 'If RblOpcionContrato.SelectedValue = "3" Then - GvEst.DataSource = Nothing - GvEst.DataBind() - BtnEstimacion.Visible = False + ' GvEst.DataSource = Nothing + ' GvEst.DataBind() + ' BtnEstimacion.Visible = False - BtnCargarContratoDetalles.Visible = False - BtnCancelarContratoDetalles.Visible = False + ' BtnCargarContratoDetalles.Visible = False + ' BtnCancelarContratoDetalles.Visible = False - UPEstimaciones.Update() + ' UPEstimaciones.Update() - End If + 'End If End Sub Private Sub CargaDatosEstimaciones(CveCliente As Integer) @@ -18127,29 +18150,9 @@ Partial Class Ventas - If RblOpcionContrato.SelectedValue = "3" Then - - DdlEstimacionesObra.Items.Clear() - - If Con.GetContratosAvanceEstimacionVentas(DdlContrato.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then - - DdlEstimacionesObra.DataSource = Con.DtResultados - DdlEstimacionesObra.DataBind() - DdlEstimacionesObra.Items.Insert(0, New ListItem("Todos", "-1")) - - Else - - DdlEstimacionesObra.DataSource = Nothing - DdlEstimacionesObra.DataBind() - - End If - UPEstimaciones.Update() - - Else - - If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then + If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then GvEst.DataSource = Con.DtResultados If Con.DtResultados.Rows.Count > 0 Then 'BtnEstimacion.Visible = True @@ -18165,7 +18168,7 @@ Partial Class Ventas DdlContrato.DataBind() GvEst.DataBind() - End If +