From 435a92dea3c4aba325b0950f815c8d5a3c8a8830 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 24 Aug 2023 17:53:05 -0700 Subject: [PATCH] =?UTF-8?q?Compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 4 ++-- Prospeccion/Prospectos.aspx.vb | 6 +++--- Prospeccion/RepProspectosGIS.aspx.vb | 2 +- Prospectos/RedesIndicadores.aspx.vb | 2 +- Prospectos/RepMetas2.aspx.vb | 2 +- RH/CatCursosCapacitadores.aspx.vb | 12 +++++------ RH/CatCursosTemas.aspx.vb | 14 ++++++------- RH/CatEstadoCivil.aspx.vb | 2 +- RH/CatPersonalRequerido.aspx.vb | 8 +++---- RH/CatPuestosSueldos.aspx.vb | 6 +++--- Ventas/RepVentaDetalle.aspx | 30 +++++++++++++++++++++++---- Ventas/RepVentaDetalle.aspx.vb | 31 ++++++++++++++++++++++++++++ 12 files changed, 86 insertions(+), 33 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 358583201..50dc49d90 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13326,7 +13326,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal, If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then dt = ObjCompras.DtResultados - 'CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePolizaNueva > 0 Then For Each dr As DataRow In dt.Rows If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString, @@ -13351,7 +13351,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal, If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then dt = ObjContabilidad.DtResultados.FiltraParametros("ISNULL(CveMovimientoAlmacen,0) <=0") - 'CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePolizaNueva > 0 Then For Each dr As DataRow In dt.Rows If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString, diff --git a/Prospeccion/Prospectos.aspx.vb b/Prospeccion/Prospectos.aspx.vb index ba848c90a..c5985a827 100644 --- a/Prospeccion/Prospectos.aspx.vb +++ b/Prospeccion/Prospectos.aspx.vb @@ -162,11 +162,11 @@ Partial Class Prospectos_Prospectos End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) @@ -423,7 +423,7 @@ Partial Class Prospectos_Prospectos #Region "Formatos Imprimir" - Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) Handles LnbImprimir.Click + Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) 'Handles LnbImprimir.Click 'Dim oWordApp As Microsoft.Office.Interop.Word.Application = Nothing 'Dim oWordDoc As Microsoft.Office.Interop.Word.Document = Nothing 'Dim objSelection As Microsoft.Office.Interop.Word.Selection = Nothing diff --git a/Prospeccion/RepProspectosGIS.aspx.vb b/Prospeccion/RepProspectosGIS.aspx.vb index 9fa70be6a..e2edca92e 100644 --- a/Prospeccion/RepProspectosGIS.aspx.vb +++ b/Prospeccion/RepProspectosGIS.aspx.vb @@ -75,7 +75,7 @@ Partial Class Prospeccion_RepProspectosGIS TmpDT.Columns.Add("Clave", GetType(String)) TmpDT.Columns.Add("CvePS", GetType(Integer)) - DdlFiscalEstado.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstado.DataBind() + DdlFiscalEstado.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstado.DataBind() CargaVendidos() End If diff --git a/Prospectos/RedesIndicadores.aspx.vb b/Prospectos/RedesIndicadores.aspx.vb index 9740d753e..a32194ea8 100644 --- a/Prospectos/RedesIndicadores.aspx.vb +++ b/Prospectos/RedesIndicadores.aspx.vb @@ -193,7 +193,7 @@ Partial Class Prospectos_RedesIndicadores ' ChtAvances.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False - Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng <> "-1" Select Fecha = ("01/" & s!MesAnioIng).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha + Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng.ToString <> "-1" Select Fecha = ("01/" & s!MesAnioIng.ToString).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha 'xValues.Add(" - ") diff --git a/Prospectos/RepMetas2.aspx.vb b/Prospectos/RepMetas2.aspx.vb index 9774e9f57..6ede2e420 100644 --- a/Prospectos/RepMetas2.aspx.vb +++ b/Prospectos/RepMetas2.aspx.vb @@ -171,7 +171,7 @@ Partial Class Prospectos_RepMetas2 e.Row.FCLiteral("LitPor").Text = (e.Row.DBCampo("Hijos").ToDouble / e.Row.DBCampo("MetaGlobal").ToDouble * 100).FormatoNumero(0) - If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso") < Now.AddDays(-10) Then + If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso").ToDate < Now.AddDays(-10) Then e.Row.Cells(4).ForeColor = System.Drawing.Color.Red e.Row.Cells(4).ToolTip = "Ultimo ingreso mayor a 10 dias" End If diff --git a/RH/CatCursosCapacitadores.aspx.vb b/RH/CatCursosCapacitadores.aspx.vb index 7d414d95a..98efeb8ae 100644 --- a/RH/CatCursosCapacitadores.aspx.vb +++ b/RH/CatCursosCapacitadores.aspx.vb @@ -145,8 +145,8 @@ Partial Class RH_CatCursosCapacitadores Dim objRH As New ClsRH Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador") + Dim activo As Boolean = False + Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador").ToEntero If objRH.CapacitadorRemove(CveCapacitador) Then CargadatosGvCapacitador() @@ -162,18 +162,18 @@ Partial Class RH_CatCursosCapacitadores Public Sub Edit_ClickCapacitador(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 + Dim activo As Boolean = False LtlTituloModalCapacitadores.Text = "Editar Capacitador" Actualizar = True - CveCapaciatador = GvRow.DataKey("CveCapacitador") + CveCapaciatador = GvRow.DataKey("CveCapacitador").ToEntero TxtCapacitador.Text = GvRow.DataKey("Capacitador") TxtEspecialidades.Text = GvRow.DataKey("Especialidades") TxtCedula.Text = GvRow.DataKey("Cedula") - ChkEstatus.Checked = GvRow.DataKey("Estatus") - chkExterno.Checked = GvRow.DataKey("Externo") + ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus")) + chkExterno.Checked = Boolean.Parse(GvRow.DataKey("Externo")) BtnAgregarCapacitadorModal.Text = "Actualizar" diff --git a/RH/CatCursosTemas.aspx.vb b/RH/CatCursosTemas.aspx.vb index 75996ce7d..7071b6c07 100644 --- a/RH/CatCursosTemas.aspx.vb +++ b/RH/CatCursosTemas.aspx.vb @@ -95,8 +95,8 @@ Partial Class RH_CatCursosTemas Public Sub Remove_ClickTema(sender As Object, e As EventArgs) Dim objRH As New ClsRH Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveTema As Integer = GvRow.DataKey("CveTema") + Dim activo As Boolean = False + Dim CveTema As Integer = GvRow.DataKey("CveTema").ToEntero If objRH.TemasRemove(CveTema) Then CargadatosGvTemas() @@ -109,14 +109,14 @@ Partial Class RH_CatCursosTemas Public Sub Edit_ClickTema(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 + Dim activo As Boolean = False LtlTituloModalTema.Text = "Editar Tema" HdModalTemaModalidad.Value = "U" HdCveTema.Value = GvRow.DataKey("CveTema") TxtTema.Text = GvRow.DataKey("Tema") - ChkEstatusTema.Checked = GvRow.DataKey("Estatus") + ChkEstatusTema.Checked = Boolean.Parse(GvRow.DataKey("Estatus")) BtnAgregarTemaModal.Text = "Actualizar" LoadComboTemas() UpModalTema.Update() @@ -173,8 +173,8 @@ Partial Class RH_CatCursosTemas Public Sub Remove_ClickSubtema(sender As Object, e As EventArgs) Dim objRH As New ClsRH Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveTema As Integer = GvRow.DataKey("CveSubtema") + Dim activo As Boolean = False + Dim CveTema As Integer = GvRow.DataKey("CveSubtema").ToEntero If objRH.SubtemaRemove(CveTema) Then CargadatosGvTemas() @@ -244,7 +244,7 @@ Partial Class RH_CatCursosTemas HdCveSubtema.Value = GvRow.DataKey("CveSubtema") DDlTema.SelectedValueExist(GvRow.DataKey("CveTema")) TxtSubtema.Text = GvRow.DataKey("Subtema") - ChkEstatusSubtema.Checked = GvRow.DataKey("Estatus") + ChkEstatusSubtema.Checked = Boolean.Parse(GvRow.DataKey("Estatus")) LtlTituloModalSubtema.Text = "Editar Subtema" BtnAgregarSubtemaModal.Text = "Actualizar" diff --git a/RH/CatEstadoCivil.aspx.vb b/RH/CatEstadoCivil.aspx.vb index ebc1d624f..8791f4d78 100644 --- a/RH/CatEstadoCivil.aspx.vb +++ b/RH/CatEstadoCivil.aspx.vb @@ -159,7 +159,7 @@ Partial Class RH_CatEstadoCivil Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar EstadoCivilTxt.Text = GvRow.DataKey("EstadoCivil") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) - CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" + CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" UpDatos.Update() If ViewState("Orden").ToString() <> String.Empty Then diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index 1d99a4bae..b60a418ae 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -175,7 +175,7 @@ Partial Class RH_CatPersonalRequerido Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento") + Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento").ToEntero Dim ObjRH As New ClsRH @@ -196,12 +196,12 @@ Partial Class RH_CatPersonalRequerido Public Sub Edit_ClickPersonalReq(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 + Dim activo As Boolean = False LtlTituloModalPersonalReq.Text = "Editar Personal Requerido" Actualizar = True - CveRequerimiento = GvRow.DataKey("CveRequerimiento") + CveRequerimiento = GvRow.DataKey("CveRequerimiento").ToEntero CargaProyectos() CargaTurno() @@ -212,7 +212,7 @@ Partial Class RH_CatPersonalRequerido ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero) - TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero + TxtCantidad.Text = GvRow.DataKey("Cantidad") DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero) diff --git a/RH/CatPuestosSueldos.aspx.vb b/RH/CatPuestosSueldos.aspx.vb index 0cd81b1d6..d098eaee0 100644 --- a/RH/CatPuestosSueldos.aspx.vb +++ b/RH/CatPuestosSueldos.aspx.vb @@ -29,7 +29,7 @@ Partial Class RH_CatPuestosSueldos DDL.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (CvePuesto NOT IN({0}) OR CvePuesto={1})", FiltroPuestos, CvePuesto)) DDL.DataBind() If CvePuesto > 0 Then - DDL.SelectedValue = CvePuesto + DDL.SelectedValueExist(CvePuesto) End If End Sub @@ -75,7 +75,7 @@ Partial Class RH_CatPuestosSueldos Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Dim index As Integer = e.RowIndex Dim cvepuesto As Integer = GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToString.ToEntero - Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToDouble + Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToEntero Dim objRH As New ClsRH If objRH.UpdatePuestosSueldos(cvepuesto, Importe) Then GvDatos.EditIndex = -1 @@ -92,7 +92,7 @@ Partial Class RH_CatPuestosSueldos Dim index As Integer = e.NewEditIndex GvDatos.EditIndex = index cargaGVDatos() - CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value) + CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToEntero) End Sub #End Region diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 8f57510c5..61fae0be3 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -553,6 +553,28 @@ + + + <%-- 36--%> + + + + + + <%-- 37--%> + + + + + + <%-- 38--%> + + + + + + + @@ -680,19 +702,19 @@ - + - + - - &nbst + + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index e3c411985..652ed2836 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -765,6 +765,19 @@ Partial Class RepVentaDetalle ListPersonalizada.Add("Saldo") End If + + If ChkMetodoPago.Checked Then + ListPersonalizada.Add("MetodoPago") + End If + + If ChkFormaPago.Checked Then + ListPersonalizada.Add("FormaPago") + End If + + If ChkUsoCFDI.Checked Then + ListPersonalizada.Add("UsoCFDI") + End If + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") End If @@ -818,6 +831,10 @@ Partial Class RepVentaDetalle ChkFolioFacturacion.Checked = False ChkSaldo.Checked = False + ChkMetodoPago.Checked = False + ChkFormaPago.Checked = False + ChkUsoCFDI.Checked = False + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) For Each personalizacion As String In Personalizaciones @@ -930,6 +947,17 @@ Partial Class RepVentaDetalle Case "Saldo" ChkSaldo.Checked = True Exit Select + + Case "MetodoPago" + ChkMetodoPago.Checked = True + Exit Select + Case "FormaPago" + ChkFormaPago.Checked = True + Exit Select + Case "UsoCFDI" + ChkUsoCFDI.Checked = True + Exit Select + Case Else Exit Select End Select @@ -983,6 +1011,9 @@ Partial Class RepVentaDetalle GvDatos.Columns(33).Visible = ChkSaldo.Checked GvDatos.Columns(34).Visible = ChkOrdenCompra.Checked GvDatos.Columns(35).Visible = ChkPedidoContrato.Checked + GvDatos.Columns(36).Visible = ChkMetodoPago.Checked + GvDatos.Columns(37).Visible = ChkFormaPago.Checked + GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked Personalizo = 1 If Personalizo = 1 Then