diff --git a/.gitignore b/.gitignore index fea5190bd..dcae84dd2 100644 --- a/.gitignore +++ b/.gitignore @@ -283,3 +283,7 @@ vwd.webinfo /BinOLD /App_Data/PublishProfiles/FolderProfile.pubxml /vwd.webinfo +/A/CatEstatusIE.aspx +/A/CatEstatusIE.aspx.vb +/A/a.aspx +/A/a.aspx.vb diff --git a/AC/RegDevengadoIngresos.aspx.vb b/AC/RegDevengadoIngresos.aspx.vb index dca7b8e99..331d51626 100644 --- a/AC/RegDevengadoIngresos.aspx.vb +++ b/AC/RegDevengadoIngresos.aspx.vb @@ -73,7 +73,7 @@ Partial Class AC_RegDevengadoIngresos End Sub Private Sub Limpiar() - CboPresupuesto.SelectedValue = -1 + CboPresupuesto.SelectedValue = "-1" TxtImporte.Text = "" TxtFecha.Text = "__/__/____" ChkDevengar.Checked = False diff --git a/AF/AF.aspx b/AF/AF.aspx index f239e34fc..2234d7bf7 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -2448,8 +2448,15 @@ Agregar --%> -
- +
+ +
+ + diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 7274f3c51..2ad4f8085 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -395,6 +395,7 @@ Partial Class AF_AF If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero HlEvento.Visible = True HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;") + LtlTareaNueva.Text = String.Format(" Tarea", CveActivoFijo) Else ViewState("CveActivoFijo") = -1 @@ -2752,7 +2753,7 @@ Partial Class AF_AF Dim ObjAFCaracteristicas As New ClsAF If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then - Dim Filtro = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue)) + Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue)) GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden") If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then @@ -3167,21 +3168,21 @@ Partial Class AF_AF Private Sub BtnCtaContable_Click(sender As Object, e As EventArgs) Handles BtnCtaContable.Click Dim IdCuentaContable As Integer = -1 Dim CtaCodigo As String = "" - Dim TieneError = False + Dim TieneError As Boolean = False - Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero + Dim CuentaPadre As Integer = UsuarioActual.Empresa.Funcionalidad(221).ToEntero Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjAF As New ClsAF() ObjContaAC.IniciaTransacSQL() ObjAF.IniciaTransacSQL() - Dim NombreCuenta = If(TxtDescripcion.Text.Trim.Length > 50, TxtDescripcion.Text.Trim.Substring(0, 50), TxtDescripcion.Text.Trim) + Dim NombreCuenta As String = If(TxtDescripcion.Text.Trim.Length > 50, TxtDescripcion.Text.Trim.Substring(0, 50), TxtDescripcion.Text.Trim) IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2) If IdCuentaContable > 0 Then ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) - Dim dt = ObjContaAC.DtResultados + Dim dt As DataTable = ObjContaAC.DtResultados If dt.Rows.Count = 1 Then diff --git a/AF/CatCargasCombustible.aspx.vb b/AF/CatCargasCombustible.aspx.vb index d3c289ce3..a76a4b01a 100644 --- a/AF/CatCargasCombustible.aspx.vb +++ b/AF/CatCargasCombustible.aspx.vb @@ -18,10 +18,10 @@ Partial Class AF_CatCargasCombustible Dim ObjAF As New ClsAF() Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString - Dim CveProveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString - Dim CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString - Dim CveTipoAF = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString - Dim CveAF = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString + Dim CveProveedor As Integer = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString.ToEntero + Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString.ToEntero + Dim CveTipoAF As Integer = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString.ToEntero + Dim CveAF As Integer = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString.ToEntero Dim FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString Dim FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString @@ -39,7 +39,7 @@ Partial Class AF_CatCargasCombustible If AnioMes <> "-1" Then FechaI = String.Format("01/{0}/{1}", sMes, sAnio) - FechaF = FechaI.ToDate.LastDayOfMonth + FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString End If If ObjAF.GetCargasCombustible(CveAF, CveProveedor, CveTipoAF, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveEmpresa, CveCargaCombustible:=-1) Then @@ -75,7 +75,7 @@ Partial Class AF_CatCargasCombustible Dim ObjAF As New ClsAF() DdlActivoFijo.Items.Clear() - If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, "-1", -1) Then + If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "-1", -1) Then DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlActivoFijo.DataSource = ObjAF.DtResultados DdlActivoFijo.DataBind() @@ -110,7 +110,7 @@ Partial Class AF_CatCargasCombustible FechaCarga = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFecha.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm)) - If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, CkhTanque.Checked, TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble, + If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, If(CkhTanque.Checked, 1, 0), TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble, TxtOdometro.Text.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then Alert("Se registró la carga correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/AF/CatMarcas.aspx.vb b/AF/CatMarcas.aspx.vb index 202fe026a..ff2412af5 100644 --- a/AF/CatMarcas.aspx.vb +++ b/AF/CatMarcas.aspx.vb @@ -49,11 +49,12 @@ Partial Class AF_CatMarcas If HdnModalidad.Value = "A" Then If ObjAF.AddMarcasActivosFijos(TxtMarca.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then If ObjAF.UpdateMarcasActivosFijos(HdnID.Value.ToEntero, TxtMarca.Text.Trim, Estatus, UsuarioActual.CveEmpresa) Then - + GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If End If @@ -85,6 +86,7 @@ Partial Class AF_CatMarcas HdnID.Value = GvRow.DataKey("CveMarcaActivoFijo") UpDatos.Update() If ObjAF.RemoveMarcasActivosFijos(HdnID.Value.ToEntero) Then + GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb index 63e255224..80935ed10 100644 --- a/AF/RepDepreciacion.aspx.vb +++ b/AF/RepDepreciacion.aspx.vb @@ -31,7 +31,7 @@ Partial Class AF_RepDepreciacion Dim ErrorMovInv As Boolean = False Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text) Dim CveSubProyecto As Integer ' = DdlSubProyecto.SelectedValue.ToEntero - Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) For Each RowsDt As GridViewRow In GvDatos.Rows CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero diff --git a/Acarreos/Acarreos.aspx.vb b/Acarreos/Acarreos.aspx.vb index 133ce1d85..1fb11371f 100644 --- a/Acarreos/Acarreos.aspx.vb +++ b/Acarreos/Acarreos.aspx.vb @@ -39,7 +39,7 @@ Partial Class Acarreos_Acarreos Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveAcarreo") UpDatos.Update() - If ObjAcar.RemoveAcarreo(HdnID.Value) Then + If ObjAcar.RemoveAcarreo(HdnID.Value.ToEntero) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -49,7 +49,7 @@ Partial Class Acarreos_Acarreos Private Sub GvAcarreo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAcarreo.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CveEstatus") = True Then + If e.Row.DBCampo("CveEstatus") = "True" Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green @@ -58,7 +58,7 @@ Partial Class Acarreos_Acarreos e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red End If - If e.Row.DBCampo("CveTipoAcarreo") = True Then + If e.Row.DBCampo("CveTipoAcarreo") = "True" Then e.Row.FCLabel("LblTipoAcarreo").Text = "Destino" Else diff --git a/Acarreos/AcarreosConcluidos.aspx.vb b/Acarreos/AcarreosConcluidos.aspx.vb index fc8912987..90a0d30f7 100644 --- a/Acarreos/AcarreosConcluidos.aspx.vb +++ b/Acarreos/AcarreosConcluidos.aspx.vb @@ -80,7 +80,7 @@ Partial Class Acarreos_AcarreosAutoConciliacion Private Sub CargaGvNoMatch() Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetAcarreosConcluidosNoMatch(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, DdlUnidad.SelectedValue, DdlChofer.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then + If ObjAcar.GetAcarreosConcluidosNoMatch(DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then GvDatosNoMatch.DataSource = ObjAcar.DtResultados GvDatosNoMatch.DataBind() End If @@ -109,7 +109,7 @@ Partial Class Acarreos_AcarreosAutoConciliacion Private Sub CargaGvMatch() Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetAcarreosConcluidosMatch(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, DdlUnidad.SelectedValue, DdlChofer.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then + If ObjAcar.GetAcarreosConcluidosMatch(DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjAcar.DtResultados GvDatos.DataBind() End If @@ -168,7 +168,7 @@ Partial Class Acarreos_AcarreosAutoConciliacion e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True) e.Row.FCLiteral("LtlKm").Text = FormatNumber(e.Row.FCLiteral("LtlKm").Text, 2, , , TriState.True) - If e.Row.DBCampo("CveTipoAcarreo") = True Then + If e.Row.DBCampo("CveTipoAcarreo") = "True" Then e.Row.FCLabel("LblTipoAcarreo").Text = "Destino" Else diff --git a/Acarreos/AcarreosPreEstimacion.aspx.vb b/Acarreos/AcarreosPreEstimacion.aspx.vb index 929c8ce56..6e76fc51e 100644 --- a/Acarreos/AcarreosPreEstimacion.aspx.vb +++ b/Acarreos/AcarreosPreEstimacion.aspx.vb @@ -31,7 +31,7 @@ Partial Class Acarreos_AcarreosPreEstimacion ObjAcar.IniciaTransacSQL() For Each Gvr As GridViewRow In GvPreEstimacion.Rows If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then - If Not ObjAcar.AddPreEstimacion(DdlNumContrato.SelectedValue, DdlTransportista.SelectedValue, TxtNumPreEstimacion.Text, TxtFechaPreEstimacion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If Not ObjAcar.AddPreEstimacion(DdlNumContrato.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, TxtNumPreEstimacion.Text.ToEntero, TxtFechaPreEstimacion.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ErrorAdd = True Exit For End If @@ -80,7 +80,7 @@ Partial Class Acarreos_AcarreosPreEstimacion Private Sub CargaDdlNumContrato() Dim ObjAcar As New ClsAcarreos - If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, -1) Then + If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then DdlNumContrato.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlNumContrato.DataSource = ObjAcar.DtResultados DdlNumContrato.DataBind() @@ -94,7 +94,7 @@ Partial Class Acarreos_AcarreosPreEstimacion GvPreEstimacion.DataBind() If Not DdlTransportista.SelectedValue = "-1" Then Dim ObjAcar As New ClsAcarreos - If ObjAcar.GetAcarreosConcluidos(DdlTransportista.SelectedValue, UsuarioActual.CveEmpresa, DdlNumContrato.SelectedValue, 0, DdlMaterial.SelectedValue) Then + If ObjAcar.GetAcarreosConcluidos(DdlTransportista.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlNumContrato.SelectedValue.ToEntero, 0, DdlMaterial.SelectedValue.ToEntero) Then GvPreEstimacion.DataSource = ObjAcar.DtResultados GvPreEstimacion.DataBind() End If @@ -113,7 +113,7 @@ Partial Class Acarreos_AcarreosPreEstimacion If Not DdlNumContrato.SelectedValue = "-1" Then DdlTransportista.Items.Clear() Dim ObjAcar As New ClsAcarreos - If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1, DdlNumContrato.SelectedValue) Then + If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1, DdlNumContrato.SelectedValue.ToEntero) Then DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTransportista.DataSource = ObjAcar.DtResultados DdlTransportista.DataBind() @@ -131,7 +131,7 @@ Partial Class Acarreos_AcarreosPreEstimacion DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMaterial.DataBind() Dim ObjAcar As New ClsAcarreos - If ObjAcar.GetAcarreosMaterialVolumen(DdlNumContrato.SelectedValue, UsuarioActual.CveEmpresa, -1) Then + If ObjAcar.GetAcarreosMaterialVolumen(DdlNumContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then DdlMaterial.DataSource = ObjAcar.DtResultados DdlMaterial.DataBind() End If diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 14398413b..00136404a 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -211,7 +211,7 @@ Partial Class Acarreos_CatChoferes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveChofer") UpDatos.Update() - If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then + If ObjAcar.RemoveChofer(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) Else @@ -223,7 +223,7 @@ Partial Class Acarreos_CatChoferes Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then + If e.Row.DBCampo("Estatus") = "True" Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green @@ -247,9 +247,9 @@ Partial Class Acarreos_CatChoferes DdlMunicipio.Items.Clear() - If DdlEstado.SelectedValue > 0 Then + If DdlEstado.SelectedValue.ToEntero > 0 Then - DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue) + DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue.ToEntero) DdlMunicipio.DataBind() End If @@ -271,11 +271,10 @@ Partial Class Acarreos_CatChoferes DdlLocalidad.Items.Clear() DdlColonia.Items.Clear() - If DdlMunicipio.SelectedValue > 0 Then + If DdlMunicipio.SelectedValue.ToEntero > 0 Then DdlLocalidad.DataSource = GlobalDTLocalidad(DdlEstado.SelectedValue.ToEntero, DdlMunicipio.SelectedValue.ToEntero) DdlLocalidad.DataBind() - DdlColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtCP.Text.Trim.Length > 0, TxtCP.Text.ToEntero, -1)) DdlColonia.DataBind() @@ -283,27 +282,18 @@ Partial Class Acarreos_CatChoferes DdlLocalidad.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlLocalidad.SelectedValueExist(-1) - - DdlColonia.Items.Insert(0, New ListItem("Seleccione Una", "-1")) DdlColonia.SelectedValueExist(-1) - - UpAddChofer.Update() - End Sub - - Protected Sub DdlColonias_selectedindexchange(sender As Object, e As EventArgs) If DdlColonia.SelectedValue.ToEntero > 0 Then validaCodigoPostal() End If - End Sub - Private Sub validaCodigoPostal() Dim CPTxt As Integer = TxtCP.Text.ToEntero() diff --git a/Acarreos/CatMateriales.aspx.vb b/Acarreos/CatMateriales.aspx.vb index 7e776efdc..c717e6c20 100644 --- a/Acarreos/CatMateriales.aspx.vb +++ b/Acarreos/CatMateriales.aspx.vb @@ -25,7 +25,7 @@ Partial Class Acarreos_CatMateriales Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateMaterial(HdnID.Value, TxtMaterial.Text, Estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjAcar.UpdateMaterial(HdnID.Value.ToEntero, TxtMaterial.Text, Estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -76,7 +76,7 @@ Partial Class Acarreos_CatMateriales Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveMaterial") UpDatos.Update() - If ObjAcar.RemoveMaterial(HdnID.Value) Then + If ObjAcar.RemoveMaterial(HdnID.Value.ToEntero) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -86,7 +86,7 @@ Partial Class Acarreos_CatMateriales Private Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMaterial.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then + If e.Row.DBCampo("Estatus") = "True" Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green diff --git a/Acarreos/CatTransportistas.aspx.vb b/Acarreos/CatTransportistas.aspx.vb index 356e29633..0da91b1d3 100644 --- a/Acarreos/CatTransportistas.aspx.vb +++ b/Acarreos/CatTransportistas.aspx.vb @@ -41,16 +41,16 @@ Partial Class Acarreos_CatTransportistas Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddTransportista(TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue) Then - CargaDatos() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + If ObjAcar.AddTransportista(TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + End If + ElseIf HdnModalidad.Value = "U" Then + If ObjAcar.UpdateTransportista(HdnID.Value.ToEntero, TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlProveedor.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) + End If End If - ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateTransportista(HdnID.Value, TxtTransportista.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlProveedor.SelectedValue) Then - CargaDatos() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - End If - End If RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTransportista")) ObjAcar.Dispose() UpDatos.Update() @@ -90,7 +90,7 @@ Partial Class Acarreos_CatTransportistas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveTransportista") UpDatos.Update() - If ObjAcar.RemoveTransportista(HdnID.Value) Then + If ObjAcar.RemoveTransportista(HdnID.Value.ToEntero) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -100,7 +100,7 @@ Partial Class Acarreos_CatTransportistas Private Sub GvTransportista_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTransportista.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then + If e.Row.DBCampo("Estatus") = "True" Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green diff --git a/Acarreos/CatUnidades.aspx.vb b/Acarreos/CatUnidades.aspx.vb index aa4d388bb..97ee544a2 100644 --- a/Acarreos/CatUnidades.aspx.vb +++ b/Acarreos/CatUnidades.aspx.vb @@ -33,12 +33,12 @@ Partial Class Acarreos_CatUnidades Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddUnidad(TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue) Then + If ObjAcar.AddUnidad(TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue.ToEntero) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateUnidad(HdnID.Value, TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue, Estatus) Then + If ObjAcar.UpdateUnidad(HdnID.Value.ToEntero, TxtUnidadCodigo.Text, TxtUnidad.Text, UsuarioActual.CveUsuario, DdlTransportista.SelectedValue.ToEntero, Estatus) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -103,7 +103,7 @@ Partial Class Acarreos_CatUnidades Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveUnidad") UpDatos.Update() - If ObjAcar.RemoveUnidad(HdnID.Value) Then + If ObjAcar.RemoveUnidad(HdnID.Value.ToEntero) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -113,7 +113,7 @@ Partial Class Acarreos_CatUnidades Private Sub GvUnidad_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvUnidad.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then + If e.Row.DBCampo("Estatus") = "True" Then e.Row.FCLabel("LblEstatus").Text = "Activo" e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green diff --git a/Acarreos/ContratosAcarreos.aspx.vb b/Acarreos/ContratosAcarreos.aspx.vb index 04f474456..1cc1d414d 100644 --- a/Acarreos/ContratosAcarreos.aspx.vb +++ b/Acarreos/ContratosAcarreos.aspx.vb @@ -34,13 +34,13 @@ Partial Class Acarreos_ContratosAcarreos Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveAcarreoProyecto") UpDatos.Update() - If Not ObjAcar.RemoveAcarreosMaterialVolumen(HdnID.Value) Then + If Not ObjAcar.RemoveAcarreosMaterialVolumen(HdnID.Value.ToEntero) Then ErrorClasif = True End If - If Not ObjAcar.RemoveAcarreosTarifas(HdnID.Value) Then + If Not ObjAcar.RemoveAcarreosTarifas(HdnID.Value.ToEntero) Then ErrorClasif = True End If - If Not ObjAcar.RemoveAcarreosProyectos(HdnID.Value) Then + If Not ObjAcar.RemoveAcarreosProyectos(HdnID.Value.ToEntero) Then ErrorClasif = True End If diff --git a/Acarreos/RegistroContratosAcarreos.aspx.vb b/Acarreos/RegistroContratosAcarreos.aspx.vb index 2000cdcf1..8f4149a4e 100644 --- a/Acarreos/RegistroContratosAcarreos.aspx.vb +++ b/Acarreos/RegistroContratosAcarreos.aspx.vb @@ -93,11 +93,10 @@ Partial Class Acarreos_ContratosAcarreos DdlSubProyectoOrigen.SelectedValue = dr("CveSubProyectoOrigen").ToString TxtDescripcion.Text = dr("Descripcion").ToString TxtNumContrato.Text = dr("NumContrato").ToString - TxtFechaInicio.Text = dr("FechaInicio").ToString.ToDate - TxtFechaFin.Text = dr("FechaFin").ToString.ToDate + TxtFechaInicio.Text = dr("FechaInicio").ToString.ToDate.ToShortDateString + TxtFechaFin.Text = dr("FechaFin").ToString.ToDate.ToShortDateString BtnAgregarContratoAcarreo.Text = "Guardar Cambios" - DTMaterialVolumen = GvMaterialVolumen.DataSource - DTTarifa = GvTarifa.DataSource + End If ObjAcar.Dispose() End If @@ -252,31 +251,31 @@ Partial Class Acarreos_ContratosAcarreos ErrorClasif = True End If - If Not ObjAcar.UpdateAcarreosProyectos(CveAcarreoProyecto, DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then + If Not ObjAcar.UpdateAcarreosProyectos(CveAcarreoProyecto, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then ErrorClasif = True End If For Each Gvr As GridViewRow In GvMaterialVolumen.Rows - If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then + If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen").ToDouble, Gvr.DataKey("Presupuesto").ToDouble, Gvr.DataKey("VolumenTipo").ToDouble, CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then ErrorClasif = True End If Next For Each Gvr As GridViewRow In GvTarifa.Rows - If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then + If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa").ToDouble, Gvr.DataKey("DistanciaInicio").ToDouble, Gvr.DataKey("DistanciaFin").ToDouble, CveAcarreoProyecto, Gvr.DataKey("CveTransportista").ToEntero, Gvr.DataKey("CveMaterial").ToEntero) Then ErrorClasif = True End If Next Else - If Not ObjAcar.AddAcarreosProyectos(DdlSubProyectoOrigen.SelectedValue, DdlSubProyectoDestino.SelectedValue, TxtFechaInicio.Text, TxtFechaFin.Text, UsuarioActual.CveEmpresa, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then + If Not ObjAcar.AddAcarreosProyectos(DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, UsuarioActual.CveEmpresa, TxtNumContrato.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario) Then ErrorClasif = True End If _CveAcarreoProyecto = ObjAcar._CveAcarreoProyecto For Each Gvr As GridViewRow In GvMaterialVolumen.Rows - If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen"), Gvr.DataKey("Presupuesto"), Gvr.DataKey("VolumenTipo"), _CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then + If Not ObjAcar.AddAcarreosMaterialVolumen(Gvr.DataKey("CveMaterial").ToEntero, Gvr.DataKey("Volumen").ToDouble, Gvr.DataKey("Presupuesto").ToDouble, Gvr.DataKey("VolumenTipo").ToDouble, _CveAcarreoProyecto, Gvr.DataKey("CveUnidadMedida").ToEntero) Then ErrorClasif = True End If Next For Each Gvr As GridViewRow In GvTarifa.Rows - If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa"), Gvr.DataKey("DistanciaInicio"), Gvr.DataKey("DistanciaFin"), _CveAcarreoProyecto, Gvr.DataKey("CveTransportista"), Gvr.DataKey("CveMaterial")) Then + If Not ObjAcar.AddAcarreosTarifas(Gvr.DataKey("Tarifa").ToDouble, Gvr.DataKey("DistanciaInicio").ToDouble, Gvr.DataKey("DistanciaFin").ToDouble, _CveAcarreoProyecto, Gvr.DataKey("CveTransportista").ToEntero, Gvr.DataKey("CveMaterial").ToEntero) Then ErrorClasif = True End If Next diff --git a/Acarreos/RepAcarreos.aspx.vb b/Acarreos/RepAcarreos.aspx.vb index 3245d2d15..c530964bc 100644 --- a/Acarreos/RepAcarreos.aspx.vb +++ b/Acarreos/RepAcarreos.aspx.vb @@ -121,7 +121,7 @@ Partial Class Acarreos_RepAcarreos Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then + If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjAcar.DtResultados GvDatos.DataBind() End If diff --git a/Acarreos/RepAcarreosDetalle.aspx.vb b/Acarreos/RepAcarreosDetalle.aspx.vb index b33788a1a..b39288317 100644 --- a/Acarreos/RepAcarreosDetalle.aspx.vb +++ b/Acarreos/RepAcarreosDetalle.aspx.vb @@ -33,14 +33,14 @@ Partial Class Acarreos_RepAcarreosDetalle CargaDdlTransportista() CargaDdlMaterial() CargaDdlNumContrato() - DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString.ToEntero - DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString.ToEntero - DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString.ToEntero - DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString.ToEntero - DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString.ToEntero - DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString.ToEntero - DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString.ToEntero - DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero + DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString + DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString + DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString + DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString + DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString + DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString + DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString + DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString Gpo = IfNull(Request("Gpo"), "-1").ToString txtFechaF.Text = IfNull(Request("FFinal"), "-1").ToString txtFechaI.Text = IfNull(Request("FInicial"), "-1").ToString @@ -62,7 +62,7 @@ Partial Class Acarreos_RepAcarreosDetalle Private Sub CargaDatos() Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then + If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjAcar.DtResultados GvDatos.DataBind() Gpo = "-1" @@ -143,7 +143,7 @@ Partial Class Acarreos_RepAcarreosDetalle e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Unidad") e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("Volumen") If e.Row.DBCampo("Folio") = "" Then - If DdlAgrupador.SelectedValue = 6 Or DdlAgrupador.SelectedValue = 7 Or DdlAgrupador.SelectedValue = 8 Then + If DdlAgrupador.SelectedValue = "6" Or DdlAgrupador.SelectedValue = "7" Or DdlAgrupador.SelectedValue = "8" Then e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Gpo") End If e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("TotalVolumen") diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb index 25ae5df94..62f3b8812 100644 --- a/Acarreos/RepContratosAcarreos.aspx.vb +++ b/Acarreos/RepContratosAcarreos.aspx.vb @@ -120,9 +120,9 @@ Partial Class Acarreos_RepContratosAcarreos Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Dim ObjAcar As New ClsAcarreos() If ObjAcar.GetRepContratosAcarreos(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, - DdlNumContrato.SelectedValue, DdlTransportista.SelectedValue, DdlSubProyectoOrigen.SelectedValue, - DdlSubProyectoDestino.SelectedValue, DdlProveedor.SelectedValue, - DdlMaterial.SelectedValue, DdlAgrupador.SelectedValue) Then + DdlNumContrato.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlSubProyectoOrigen.SelectedValue.ToEntero, + DdlSubProyectoDestino.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, + DdlMaterial.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjAcar.DtResultados GvDatos.DataBind() DTCont = ObjAcar.DtResultados diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb index c7436ae0d..3333d3de7 100644 --- a/Acarreos/RepContratosAcarreosDetalle.aspx.vb +++ b/Acarreos/RepContratosAcarreosDetalle.aspx.vb @@ -106,15 +106,15 @@ Partial Class Acarreos_RepContratosAcarreosDetalle CargaDatos() For Each Gvr As GridViewRow In GvDatos.Rows - NumAcarreosEstimados = FormatNumber(NumAcarreosEstimados + Gvr.DataKey("NumAcarreosEstimados"), 2, , , TriState.True) - NumAcarreosXEstimar = FormatNumber(NumAcarreosXEstimar + Gvr.DataKey("NumAcarreosXEstimar"), 2, , , TriState.True) + NumAcarreosEstimados = NumAcarreosEstimados + Gvr.DataKey("NumAcarreosEstimados").ToEntero + NumAcarreosXEstimar = NumAcarreosXEstimar + Gvr.DataKey("NumAcarreosXEstimar").ToEntero If Gvr.DataKey("SerieFolio") = "" Then - VolXEstimar = FormatNumber(VolXEstimar + Gvr.DataKey("VolTot"), 2, , , TriState.True) - PresXEstimar = FormatNumber(PresXEstimar + Gvr.DataKey("Importe"), 2, , , TriState.True) + VolXEstimar = VolXEstimar + Gvr.DataKey("VolTot").ToDouble + PresXEstimar = PresXEstimar + Gvr.DataKey("Importe").ToDouble Else - VolEstimado = FormatNumber(VolEstimado + Gvr.DataKey("VolTot"), 2, , , TriState.True) - PresEstimado = FormatNumber(PresEstimado + Gvr.DataKey("Importe"), 2, , , TriState.True) + VolEstimado = VolEstimado + Gvr.DataKey("VolTot").ToDouble + PresEstimado = PresEstimado + Gvr.DataKey("Importe").ToDouble End If Next LblVolEstimado.Text = FormatNumber(VolEstimado.ToString, 2, , , TriState.True) diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 1ac31b0e6..4abe3c48f 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -80,29 +80,10 @@ Partial Class Acumuladores_CatFoliosGarantia objAcum.Dispose() UPGvFolioGarantia.DataBind() - UpGral.Update() - - 'CargaGvTamanioBitacora() - - End Sub - - 'Private Sub CargaGvTamanioBitacora() - - ' Dim objAcum As New ClsAcumuladores - - ' If objAcum.TamañoBitacoraGet(UsuarioActual.Empresa.CveEmpresa) Then - ' GvBitacora.DataSource = objAcum.DtResultados - ' Else - ' GvBitacora.DataSource = Nothing - ' End If - - ' objAcum.Dispose() - - ' UpGvBitacora.DataBind() - ' UpGral.Update() - - - 'End Sub + UpGral.Update() + + End Sub + Protected Sub BtnAgregarFolioGarantia_Click(sender As Object, e As EventArgs) Handles BtnAgregarFolioGarantia.Click LtlTituloModalFolioGarantia.Text = "Agregar Folio Garantía" BtnAgregarFolioGarantiaModal.Text = "Agregar" @@ -180,8 +161,7 @@ Partial Class Acumuladores_CatFoliosGarantia Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia") + Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia").ToEntero Dim objAcum As New ClsAcumuladores If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then @@ -199,12 +179,9 @@ Partial Class Acumuladores_CatFoliosGarantia Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía" Actualizar = True - - CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") + CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) @@ -233,8 +210,8 @@ Partial Class Acumuladores_CatFoliosGarantia Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") - CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1) + CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero + CveMovimiento = If(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento").ToEntero, -1) LblFolio.Text = GvRow.DataKey("FolioGarantia") Using ObjAcum As New ClsAcumuladores @@ -252,9 +229,6 @@ Partial Class Acumuladores_CatFoliosGarantia End Sub - - - #End Region Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb index 9ce2b7d8d..5b917d1c9 100644 --- a/Acumuladores/CatGarantiasMeses.aspx.vb +++ b/Acumuladores/CatGarantiasMeses.aspx.vb @@ -91,10 +91,10 @@ Partial Class Acumuladores_CatFoliosGarantia BtnAgregarFolioGarantiaModal.Text = "Agregar" CargaCombosModal() - If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero) - If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero) + If DdlMarca.SelectedValue <> "-1" Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero) + If DdlTipoUso.SelectedValue <> "-1" Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero) - TxtMes.Text = TxtMes.Text.ToEntero + 1 + TxtMes.Text = (TxtMes.Text.ToEntero + 1).ToString TxtValor.Text = "" TxtMes.Focus() @@ -128,7 +128,7 @@ Partial Class Acumuladores_CatFoliosGarantia If Not Actualizar Then If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtMes.Text = TxtMes.Text.ToEntero + 1 + TxtMes.Text = (TxtMes.Text.ToEntero + 1).ToString TxtValor.Text = "" TxtMes.Focus() @@ -180,8 +180,7 @@ Partial Class Acumuladores_CatFoliosGarantia Dim objAcum As New ClsAcumuladores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveGarantiaMes") + Dim CveCapacitador As Integer = GvRow.DataKey("CveGarantiaMes").ToEntero If objAcum.GarantiasMesesRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then CargadatosGvFolioGarantia() @@ -202,12 +201,10 @@ Partial Class Acumuladores_CatFoliosGarantia Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 LtlTituloModalFolioGarantia.Text = "Editar Garantía de Mes" Actualizar = True - - CveGarantiaMes = GvRow.DataKey("CveGarantiaMes") + CveGarantiaMes = GvRow.DataKey("CveGarantiaMes").ToEntero TxtMes.Text = GvRow.DataKey("Mes") TxtValor.Text = GvRow.DataKey("Valor") diff --git a/Acumuladores/CatTiposDefecto.aspx.vb b/Acumuladores/CatTiposDefecto.aspx.vb index 423974ef4..0cf2dd7c7 100644 --- a/Acumuladores/CatTiposDefecto.aspx.vb +++ b/Acumuladores/CatTiposDefecto.aspx.vb @@ -169,8 +169,7 @@ Partial Class Acumuladores_CatTiposDefecto Dim objAcum As New ClsAcumuladores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto") + Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto").ToEntero If objAcum.TiposDefectoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then CargadatosGvTiposD() @@ -192,12 +191,11 @@ Partial Class Acumuladores_CatTiposDefecto Public Sub Edit_ClickTiposD(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 LtlTituloModalTiposD.Text = "Editar Tipo Defecto" Actualizar = True - CveTipoDefecto = GvRow.DataKey("CveTipoDefecto") + CveTipoDefecto = GvRow.DataKey("CveTipoDefecto").ToEntero TxtTiposD.Text = GvRow.DataKey("TipoDefecto") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) diff --git a/Acumuladores/CatTiposUso.aspx.vb b/Acumuladores/CatTiposUso.aspx.vb index bec66d598..3550b72fd 100644 --- a/Acumuladores/CatTiposUso.aspx.vb +++ b/Acumuladores/CatTiposUso.aspx.vb @@ -170,8 +170,7 @@ Partial Class Acumuladores_CatTiposUso Dim objAcum As New ClsAcumuladores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoUso") + Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoUso").ToEntero If objAcum.TiposUsoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then CargadatosGvTiposUso() @@ -193,12 +192,10 @@ Partial Class Acumuladores_CatTiposUso Public Sub Edit_ClickTiposUso(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - LtlTituloModalTiposUso.Text = "Editar Tipo Uso" Actualizar = True - CveTipoUso = GvRow.DataKey("CveTipoUso") + CveTipoUso = GvRow.DataKey("CveTipoUso").ToEntero TxtTiposUso.Text = GvRow.DataKey("TipoUso") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) @@ -216,10 +213,6 @@ Partial Class Acumuladores_CatTiposUso End Sub - - #End Region - - End Class diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index 30d650c56..ea3a27693 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -22,8 +22,8 @@ Partial Class Acumuladores_RepEntradasUsados Protected Sub Page_Load() Handles Me.Load If Not IsPostBack Then - txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)) - txtFechaF.Text = Today + txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)).ToShortDateString + txtFechaF.Text = Today.ToShortDateString CargarDatos() CargarCombos() End If @@ -40,14 +40,14 @@ Partial Class Acumuladores_RepEntradasUsados Dim i As Integer If Cargado = 0 Then For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1 - Años = New ListItem(i, i) + Años = New ListItem(i.ToString, i.ToString) DdlAño.Items.Add(Años) Next End If Cargado = 1 - DdlAño.SelectedValue = fecha.Year.ToEntero - DdlMes.SelectedValue = fecha.Month.ToEntero + DdlAño.SelectedValue = fecha.Year.ToString + DdlMes.SelectedValue = fecha.Month.ToString End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) @@ -55,7 +55,7 @@ Partial Class Acumuladores_RepEntradasUsados BtnImprimir.Visible = False - If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate) Then GvAcum.DataSource = ObjAcum.DtResultados DatosEntradasUsados = ObjAcum.DtResultados @@ -115,10 +115,10 @@ Partial Class Acumuladores_RepEntradasUsados Dim dt As DataTable Dim NombreArchivo As String Try - If DdlOpcion.SelectedValue = 1 Then + If DdlOpcion.SelectedValue = "1" Then ObjAcum.GetSabanaVenta(Fecha, 1, UsuarioActual.CveEmpresa) - ElseIf DdlOpcion.SelectedValue = 2 Then + ElseIf DdlOpcion.SelectedValue = "2" Then ObjAcum.GetSabanaVenta(Fecha, 2, UsuarioActual.CveEmpresa) End If @@ -151,12 +151,11 @@ Partial Class Acumuladores_RepEntradasUsados If Mes.ToEntero < 10 Then Mes = String.Format("0{0}", Mes) End If - If DdlOpcion.SelectedValue = 1 Then + If DdlOpcion.SelectedValue = "1" Then NombreArchivo = String.Format("700415-{0}{1}-GE", Mes, Año) workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) - - ElseIf DdlOpcion.SelectedValue = 2 Then + ElseIf DdlOpcion.SelectedValue = "2" Then NombreArchivo = String.Format("700415-{0}{1}-CS", Mes, Año) workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault) diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 4f50f7d2c..6a89cc2c4 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -36,8 +36,8 @@ Partial Class Acumuladores_RepEntradasUsadosClientes DdlAlmacen.DataBind() DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) - TxtFechaI.text = now.Firstdayofmonth - txtfechaf.text = now.toshortdatestring + TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + TxtFechaF.text = now.toshortdatestring End Sub @@ -152,7 +152,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes LbTam.Text = renglon.DataKey("Codigo_Clientes") Dim CveAlmacen As Integer = -1 Dim ObjAcum As New ClsAcumuladores - If ObjAcum.EntradasUsadosClientesDetalleRep(renglon.DataKey("EsDistribuidor"), renglon.DataKey("CveCliente"), renglon.DataKey("CvePS"), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjAcum.EntradasUsadosClientesDetalleRep(CBool(renglon.DataKey("EsDistribuidor")), renglon.DataKey("CveCliente").ToEntero, renglon.DataKey("CvePS").ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then GvVentas.DataSource = ObjAcum.DtResultados End If ObjAcum.Dispose() diff --git a/Acumuladores/Tamaños.aspx.vb b/Acumuladores/Tamaños.aspx.vb index af6592262..87ea660b7 100644 --- a/Acumuladores/Tamaños.aspx.vb +++ b/Acumuladores/Tamaños.aspx.vb @@ -114,7 +114,6 @@ Partial Class Acumuladores_Tamaños Protected Sub BtnAgregarTamanioModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTamanioModal.Click Dim ObjAcum As New ClsAcumuladores - Dim Cargo, Bonificacion, Compra, Puntos As Decimal Cargo = If(TxtCargo.Text.ToDecimal > 0, TxtCargo.Text.ToDecimal, -1) @@ -123,8 +122,6 @@ Partial Class Acumuladores_Tamaños Puntos = If(TxtPuntos.Text.ToDecimal > 0, TxtPuntos.Text.ToDecimal, -1) - - If Not Actualizar Then If ObjAcum.TamañoAdd(TxtTamanio.Text, Cargo, Bonificacion, Compra, Puntos, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -175,8 +172,8 @@ Partial Class Acumuladores_Tamaños Dim objAcum As New ClsAcumuladores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño") + Dim activo As Boolean = False + Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño").ToEntero If objAcum.TamañoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then CargadatosGvTamanio() @@ -197,12 +194,11 @@ Partial Class Acumuladores_Tamaños Public Sub Edit_ClickTamanio(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 LtlTituloModalTamanio.Text = "Editar Tamaño" Actualizar = True - CveTamaño = GvRow.DataKey("CveTamaño") + CveTamaño = GvRow.DataKey("CveTamaño").ToEntero TxtTamanio.Text = GvRow.DataKey("Tamaño") TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00") diff --git a/Agropecuaria/CierreCultivo.aspx.vb b/Agropecuaria/CierreCultivo.aspx.vb index 0643b8ed7..443bb0025 100644 --- a/Agropecuaria/CierreCultivo.aspx.vb +++ b/Agropecuaria/CierreCultivo.aspx.vb @@ -175,12 +175,12 @@ Partial Class Agrupecuaria_CierreCultivo Dim CveConceptoTotal As Integer = 69 If CveClasificacion > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then ErrorProceso = True Exit For End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then ErrorProceso = True Exit For End If diff --git a/App_Code/Arbolito.vb b/App_Code/Arbolito.vb index 145f7ce8e..1d18e8933 100644 --- a/App_Code/Arbolito.vb +++ b/App_Code/Arbolito.vb @@ -1,9 +1,10 @@ 'Imports Microsoft.Office.Core 'Imports Microsoft.VisualBasic Imports System.Data +Imports ADSNetLibrary.Helpers Public Class NodeArbol - Public nivel As String + Public nivel As Integer Public id As String Public padre As String Public titulo As String @@ -26,7 +27,7 @@ Public Class Arbolito For Each row As DataRow In TDatos.Rows Dim newnodo As New NodeArbol newnodo.id = row(nodoid).ToString - newnodo.nivel = row(nivel).ToString + newnodo.nivel = row(nivel).ToString.ToEntero newnodo.padre = row(padre).ToString newnodo.titulo = row(titulo).ToString listaarbol.Add(newnodo) diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index 05748e891..f048b5d51 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -45,6 +45,15 @@ Public Class CalendarEvent Public Property CveCompra As Integer Public Property SerieFolioCompra As String + Public Property CveVenta As Integer + Public Property SerieFolioVenta As String + Public Property CveActivoFijo As Integer + Public Property AFCodigo As String + + Public Property CveMovimiento As Integer + Public Property MovimientoFolio As String + Public Property CveIE As Integer + Public Property FolioIE As String End Class diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index e767e84c3..61265c606 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -776,7 +776,7 @@ Public Class ClsAF Public Function ActivoFijoResguardoADD(FechaInicio As Date, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, TipoDocto As String, Tipo As Integer, CveEmpresa As Integer, Optional Observaciones As String = " ", Optional CveResguardo As Integer = -1) As Boolean 'Dim CveResguardo As Integer = -1 - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AF_ActivosFijosResguardosAdd") With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 05c8e5531..56dc02260 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -132,6 +132,7 @@ Public Class ClsBancos Public Property UsaTarjeta As Boolean Public Property TieneTerminal As Boolean + Public Property CveCuentaPadre As Integer #End Region @@ -151,9 +152,9 @@ Public Class ClsBancos Public Property Referencia As String Public Property TipoCredito As Integer Public Property Plazo As Integer - Public Property ImporteCredito As Double - Public Property CreditoValor As Double - Public Property TotalFinanciado As Double + Public Property ImporteCredito As Decimal + Public Property CreditoValor As Decimal + Public Property TotalFinanciado As Decimal Public Property Proveedor As String Public Property CveProveedor As Integer Public Property CveTipoCredito As Integer @@ -416,6 +417,7 @@ Public Class ClsBancos Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").ToString = "True", True, False) Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False) Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False) + Me.CveCuentaPadre = Data.Rows(0)("CveCuentaPadre").ToString.ToEntero End If @@ -450,7 +452,7 @@ Public Class ClsBancos Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String, - UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean + UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False, Optional CveCuentaPadre As Integer = Nothing) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_BancosCuentasAdd") @@ -476,7 +478,7 @@ Public Class ClsBancos .Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal - + .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre End With @@ -500,7 +502,7 @@ Public Class ClsBancos Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String, - UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean + UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False, Optional CveCuentaPadre As Integer = Nothing) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_BancosCuentasUpdate") @@ -524,6 +526,7 @@ Public Class ClsBancos .Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal + .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre End With @@ -717,6 +720,7 @@ Public Class ClsBancos Me.CveBanco = Data.Rows(0)("CveBanco").ToString.ToEntero Me.Banco = Data.Rows(0)("Banco").ToString Me.NumCuenta = Data.Rows(0)("NumCuenta").ToString + Me.CveTipoCuenta = Data.Rows(0)("CveTipoCuenta").ToString.ToEntero Me.CveTipoTransaccion = Data.Rows(0)("CveTipoTransaccion").ToString.ToEntero Me.Tipo = Data.Rows(0)("Tipo").ToString Me.TipoTransaccion = Data.Rows(0)("TipoTransaccion").ToString @@ -791,7 +795,7 @@ Public Class ClsBancos Public Function GetBancosRepIE(CveBanco As Integer, CveCuenta As Integer, TipoMovimiento As String, CveTipoTransaccion As Integer, Folio As String, PagueseA As String, Importe As Double, CveMoneda As Integer, EsAbonoEnCuenta As Integer, FueConciliado As Integer, CveEstatusIE As Integer, FechaInicio As Date, FechaFin As Date, FechaAplicacionInicio As Date, FechaAplicacionFin As Date, - FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer, + FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, CveUsuarioRegistro As Integer, TImporte As Double, CveEmpresa As Integer, Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean Dim Retorno As Boolean = False @@ -820,6 +824,7 @@ Public Class ClsBancos .Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta + .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro .Add("@TopSelect", SqlDbType.Int).Value = TopSelect End With @@ -1487,7 +1492,7 @@ Public Class ClsBancos NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, - Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1) As Integer + Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1527,6 +1532,8 @@ Public Class ClsBancos .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo + .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago + End With Try @@ -2434,8 +2441,8 @@ Public Class ClsBancos FacturaSerieFolio = Data.Rows(0)("FacturaSerieFolio").ToString FacturaDescripcion = Data.Rows(0)("FacturaDescripcion").ToString FacturaFecha = Data.Rows(0)("FacturaFecha").ToString.ToDate - CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDouble - TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDouble + CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDecimal + TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDecimal CvePrePoliza = Data.Rows(0)("CvePrePoliza").ToString.ToEntero End If Retorno = True @@ -2531,7 +2538,7 @@ Public Class ClsBancos OtrosGastos As Double, CveProveedor As Integer, ClasificacionContable As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaTarjeta As Integer = -1, Optional AplicaAnticipo As Boolean = False, Optional CreditoAnticipo As Double = 0.0, Optional ComisionAnticipo As Double = 0.0, Optional SeguroAnticipo As Double = 0.0, Optional OtrosGastosAnticipo As Double = 0.0, Optional FondoGarantia As Double = 0.0, Optional SeguroValor As Double = 0.0, Optional TipoInteres As Boolean = False) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Banc_CreditosAdd") @@ -2707,19 +2714,22 @@ Public Class ClsBancos Return Retorno End Function - Public Function RemoveCreditos(CveCredito As Integer) As Boolean + Public Function RemoveCreditos(CveCredito As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_CreditosRemove") - SqlAdapter.SelectCommand.Parameters.Add("@CveCredito", SqlDbType.Int).Value = CveCredito + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCredito", SqlDbType.Int).Value = CveCredito + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 547;") Then - Alert("El registro no se pudo eliminar porque está siendo usado.", TipoMensaje.MsgAdvertencia) + Alert("El registro no se pudo eliminar porque está siendo utilizado.", TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al eliminar el registro.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If @@ -3073,7 +3083,7 @@ Public Class ClsBancos Return Retorno End Function Public Function AddLayoutEnvios(Archivo As String, Fecha As Date, CveCuenta As Integer, Optional PorGrupos As Boolean = False) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Banc_LayoutEnviosAdd") diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index acbf3ef8c..3c8597b3a 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -339,19 +339,19 @@ Public Class ClsClasificaciones With SqlAdapter.SelectCommand.Parameters .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion.Clasificacion .Add("@Codigo", SqlDbType.VarChar).Value = Clasificacion.Codigo - .Add("@IdCuentaGasto", SqlDbType.Int).Value = Clasificacion.IdCuentaGasto - .Add("@IdCuentaCostos", SqlDbType.Int).Value = Clasificacion.IdCuentaCostos + '.Add("@IdCuentaGasto", SqlDbType.Int).Value = Clasificacion.IdCuentaGasto + '.Add("@IdCuentaCostos", SqlDbType.Int).Value = Clasificacion.IdCuentaCostos '.Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - .Add("@CuentaGasto", SqlDbType.VarChar).Value = Clasificacion.CuentaGasto - .Add("@CuentaCostos", SqlDbType.VarChar).Value = Clasificacion.CuentaCostos + '.Add("@CuentaGasto", SqlDbType.VarChar).Value = Clasificacion.CuentaGasto + '.Add("@CuentaCostos", SqlDbType.VarChar).Value = Clasificacion.CuentaCostos ' .Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario .Add("@CveCategoria", SqlDbType.Int).Value = Clasificacion.CveCategoria .Add("@CveEmpresa", SqlDbType.Int).Value = Clasificacion.CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = Clasificacion.CveUsuario 'Nuevo 10/06/2016 - .Add("@IdCuentaIngresos", SqlDbType.Int).Value = Clasificacion.IdCuentaIngresos - .Add("@CuentaIngresos", SqlDbType.VarChar).Value = Clasificacion.CuentaIngresos + '.Add("@IdCuentaIngresos", SqlDbType.Int).Value = Clasificacion.IdCuentaIngresos + '.Add("@CuentaIngresos", SqlDbType.VarChar).Value = Clasificacion.CuentaIngresos .Add("@RequiereSerieLote", SqlDbType.Int).Value = -1 .Add("@UsoClasificacion", SqlDbType.Int).Value = Clasificacion.UsoClasificacion diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 7a990616c..aee9aab93 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -402,7 +402,9 @@ Public Class ClsCompProveedores CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1, Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", - Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean + Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, + Optional IdCtaContProveedores As Integer = -1, Optional CtaContProveedores As String = "", Optional IdCtaContExtranjera As Integer = -1, Optional CtaContExtranjera As String = "", Optional IdCtaContComplementaria As Integer = -1, Optional CtaContComplementaria As String = "", + Optional IdCtaContAnticipos As Integer = -1, Optional CtaContAnticipos As String = "", Optional IdCtaContAnticiposExtranjera As Integer = -1, Optional CtaContAnticiposExtranjera As String = "", Optional IdCtaContAnticiposComplementaria As Integer = -1, Optional CtaContAnticiposComplementaria As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ProveedorUpdate") @@ -456,6 +458,22 @@ Public Class ClsCompProveedores .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + 'Proveedores + .Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores + .Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores + .Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera + .Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera + .Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria + .Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria + + 'Anticipos + .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos + .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos + .Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera + .Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera + .Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria + .Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria + End With Try @@ -535,30 +553,7 @@ Public Class ClsCompProveedores Return Retorno End Function - Public Function UpdateProveedorIdCuentaAC(CveProveedor As Integer, IdCtaAC As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ProveedorUpdateCuentaAC") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@IdCtaAC", SqlDbType.VarChar).Value = IdCtaAC - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Proveedor no se pudo Actualizar por que está siendo utilizado por un registro", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Actualizar el Proveedor.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Actualizar el Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function Public Function UpdateProveedorNotificarA(CveProveedor As Integer, NotificarA As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ProveedorUpdateNotificarA") @@ -685,117 +680,6 @@ Public Class ClsCompProveedores #End Region - '#Region "P R O V E E D O R E S - C U E N T A S" - ' Public Function GetProveedoresCuentas() As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Comp_ProveedoresCuentasGet") - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el Catálogo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function AddProveedoresCuentas(CveProveedor As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, CveUsuario As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_Comp_ProveedoresCuentasAdd") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - ' .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre - ' .Add("@Plaza", SqlDbType.VarChar).Value = Plaza - ' .Add("@Sucursal", SqlDbType.VarChar).Value = Sucursal - ' .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta - ' .Add("@CLABE", SqlDbType.VarChar).Value = CLABE - ' .Add("@CIE", SqlDbType.VarChar).Value = CIE - ' .Add("@SWIFT", SqlDbType.VarChar).Value = SWIFT - ' .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - - - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' 'Catch Ex1 As SqlException - ' ' If Ex1.Message.Contains("Número: 2627;") Then - ' ' Alert("Ya existe un Registro con el mismo nombre: " & CveProveedor & ".", TipoMensaje.MsgAdvertencia) - ' ' Else - ' ' Me.OnError("Ocurrió un error al Guardar el registro.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al Guardar el registro", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function RemoveProveedoresCuentas(CveProveedorCuenta As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_Comp_ProveedoresCuentasRemove") - - ' SqlAdapter.SelectCommand.Parameters.Add("@CveProveedorCuenta", SqlDbType.Int).Value = CveProveedorCuenta - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 547;") Then - ' Alert("El registro no se pudo eliminar porque está siendo usado.", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al eliminar el registro.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' Me.OnError("Ocurrió un error al eliminar el registro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - - ' Public Function UpdateProveedoresCuentas(CveProveedor As Integer, CveProveedorCuenta As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, Predeterminada As Boolean, Estatus As Boolean) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_Comp_ProveedoresCuentasUpdate") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - ' .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre - ' .Add("@Plaza", SqlDbType.VarChar).Value = Plaza - ' .Add("@Sucursal", SqlDbType.VarChar).Value = Sucursal - ' .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta - ' .Add("@CLABE", SqlDbType.VarChar).Value = CLABE - ' .Add("@CIE", SqlDbType.VarChar).Value = CIE - ' .Add("@SWIFT", SqlDbType.VarChar).Value = SWIFT - ' .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - ' .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada - ' .Add("@Estatus", SqlDbType.VarChar).Value = Estatus - ' .Add("@CveProveedorCuenta", SqlDbType.Int).Value = CveProveedorCuenta - ' .Add("@FechaIng", SqlDbType.Date).Value = Date.Now - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 2627;") Then - ' Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If - ' Catch ex As Exception - ' OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - ' End Function - - '#End Region - - #Region "S U C U R S A L E S" Public Function GetSucursales(CveProveedor As Integer, CveEmpresa As Integer) As Boolean diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 65c7ac3e5..6c8520fef 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -36,6 +36,7 @@ Public Class ClsCompras Public Property CveCompra As Integer Public Property CveFactura As Integer Public Property CveCompraDetalle As Integer + Public Property FechaCancelacionMovto As Date #End Region Public Function IniciaTransacSQL() As SqlTransaction @@ -1173,6 +1174,7 @@ Public Class ClsCompras End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString = "" Then Retorno = True @@ -1295,7 +1297,7 @@ Public Class ClsCompras #Region "I M P O R T A C I O N E S" Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer, Optional CveEstatus As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesGet") @@ -1320,7 +1322,7 @@ Public Class ClsCompras End Function Public Function AddImportacion(Pedimento As String, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Comp_ImportacionesAdd") @@ -1346,7 +1348,7 @@ Public Class ClsCompras End Function Public Function UpdateImportacion(Pedimento As String, CveImportacion As Integer, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesUpdate") @@ -1372,7 +1374,7 @@ Public Class ClsCompras End Function Public Function RemoveImportacion(CveImportacion As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesRemove") @@ -1391,7 +1393,7 @@ Public Class ClsCompras End Function Public Function GetImportacionCompra(CveCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesCompraGet") @@ -1410,7 +1412,7 @@ Public Class ClsCompras End Function Public Function GetImportacionesDetalle(CveImportacion As Integer, CveImportacionDetalle As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesDetalleGet") @@ -1430,7 +1432,7 @@ Public Class ClsCompras End Function Public Function AddImportacionDetalle(CveImportacion As Integer, CveCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesDetalleAdd") @@ -1450,7 +1452,7 @@ Public Class ClsCompras End Function Public Function UpdateImportacionDetalle(CveImportacionDetalle As Integer, CveCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesDetalleUpdate") @@ -1470,7 +1472,7 @@ Public Class ClsCompras End Function Public Function RemoveImportacionDetalle(CveImportacionDetalle As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesDetalleRemove") @@ -1489,7 +1491,7 @@ Public Class ClsCompras End Function Public Function AddImportacionCompra(CveImportacion As Integer, CveCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesCompraAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion @@ -1505,7 +1507,7 @@ Public Class ClsCompras End Function Public Function RemoveImportacionCompra(CveImportacionCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesCompraRemove") With SqlAdapter.SelectCommand.Parameters .Add("@CveImportacionCompra", SqlDbType.Int).Value = CveImportacionCompra @@ -1520,7 +1522,7 @@ Public Class ClsCompras End Function Public Function GetImportacionCompras(Optional CveImportacion As Integer = -1, Optional CveCompra As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_ImportacionesComprasGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion @@ -1563,7 +1565,7 @@ Public Class ClsCompras #Region "B E N E F I C I A R I O S" Public Function GetBeneficiarios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_BeneficiariosGet") @@ -1584,7 +1586,7 @@ Public Class ClsCompras Public Function GetBeneficiarios2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_BeneficiariosGet2") @@ -1605,7 +1607,7 @@ Public Class ClsCompras Public Function GetBeneficiariosDetalle(CveProveedor As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_BeneficiariosDetalleGet") @@ -1630,7 +1632,7 @@ Public Class ClsCompras #Region "N O T A S - C R E D I T O" Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Comp_RepNotasCredito") @@ -1775,7 +1777,7 @@ Public Class ClsCompras CveEmpresa As Integer, PreFijo As String) As Integer Dim Retorno As Integer = -1 - Dim StrSQL = New StringBuilder() + Dim StrSQL As StringBuilder = New StringBuilder() StrSQL.Append(" BEGIN ") StrSQL.Append(" DECLARE @tTotal INT; ") StrSQL.Append(" ") @@ -1832,7 +1834,7 @@ Public Class ClsCompras Return Retorno End Function Public Function UpdateArchivo(CveFactura As Integer, Columna As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False Dim Str As String = "" If Columna = "XML" Then Str = "UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml') WHERE CveFactura = @CveFactura" @@ -3321,6 +3323,26 @@ Public Class ClsCompras End Function + Public Function GetFechaCancelacionMovimiento(CveCompra As Integer, CveEmpresa As Integer) As Boolean + FechaCancelacionMovto = MinFecha + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_FechaCancelacionMovimiento") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Fecha", SqlDbType.DateTime).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + FechaCancelacionMovto = SqlAdapter.SelectCommand.Parameters("@Fecha").Value.ToString.ToDateTime + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la fecha de cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + + + End Function End Class diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index f0169db98..1e8ddfe32 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1040,7 +1040,7 @@ Public Class ClsContPAQi End Function Public Function GetNumeroPoliza(TipoPoliza As Integer, Fecha As String) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 If Not FNC_GetNumPoliza() Then Return Retorno End If @@ -3345,8 +3345,6 @@ Public Class ClsContPAQi #End Region #Region " C U E N T A S " - - Public Function GetCuentas(IdCuenta As Integer, Codigo As String, Afectable As Integer, Optional RowNum As Integer = 100000, Optional IdPadre As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -3685,7 +3683,7 @@ Public Class ClsContPAQi #Region "P R E S U P U E S T O - I N G R E S O S " Public Function GetPresupuestoIngresosRep(Ejercicio As Integer, Fecha As Date, Gpo As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_PresupuestosIngresosRep") @@ -3706,7 +3704,7 @@ Public Class ClsContPAQi End Function Public Function GetPresupuestoIngresosMensualesRep(Ejercicio As Integer, MomentoContable As Integer, CveFuenteRecaudacion As Integer, CveRubroIngreso As Integer, GPO As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_PresupuestosIngresosMensualesRep") @@ -3735,7 +3733,7 @@ Public Class ClsContPAQi Public Function GetBalanceGeneral(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional UsaAC As Boolean = False, Optional IdCuentaAhorroDesahorro As Integer = 9999, Optional SegmentoNegocio As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False Dim IdCtaSup As String = "" Dim IdCtaSup2 As String = "" @@ -3910,7 +3908,7 @@ Public Class ClsContPAQi End Function Public Function BalanceGeneral(FechaF As Date, Optional TipoMovtos As Integer = -1, Optional UsaAcumulado As Integer = 0, Optional NivelInferior As Integer = -2, Optional NivelInferior2 As Integer = -2, Optional NivelSuperior As Integer = 2) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_BalanceGeneralIP") @@ -3933,7 +3931,7 @@ Public Class ClsContPAQi End Function Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalMensualBG() Then Return Retorno @@ -4459,7 +4457,7 @@ Public Class ClsContPAQi End Function Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalAnual() Then Return Retorno @@ -4833,7 +4831,7 @@ Public Class ClsContPAQi End Function Public Function GetBalanceGeneralProForma(Unidad As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_BalanceGeneralProForma") @@ -4855,7 +4853,7 @@ Public Class ClsContPAQi #Region "E S T A D O - D E - A C T I V I D A D E S" Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, Optional TipoMovtos As Integer = -1, Optional UsaAC As Boolean = False, Optional IdSegNeg As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalComplementaria(UsaAC) Then Return Retorno @@ -4973,7 +4971,7 @@ Public Class ClsContPAQi End Function Public Function GetEstadoActividadesSegmento(FechaI As Date, FechaF As Date, TipoMovtos As Integer, IdSegNeg As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalComplementaria(False) Then Return Retorno @@ -5135,7 +5133,7 @@ Public Class ClsContPAQi End Function Public Function GetEstadoActividadesSegmentoDetalle(FechaI As Date, FechaF As Date, IdCta As Integer, IdsSegmentos As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalComplementaria(False) Then Return Retorno @@ -5297,7 +5295,7 @@ Public Class ClsContPAQi End Function Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalMensual() Then Return Retorno @@ -5868,7 +5866,7 @@ Public Class ClsContPAQi ' Return Retorno 'End Function Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalAnual() Then Return Retorno @@ -6135,7 +6133,7 @@ Public Class ClsContPAQi End Function Public Function GetEstadoResultadosProForma(Unidad As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_EstadoResultadosProForma") @@ -6157,7 +6155,7 @@ Public Class ClsContPAQi #Region "E S T A D O - A N A L Í T I C O - D E L - A C T I V O" Public Function GetEstadoAnaliticoActivo(FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_Total() Then Return Retorno @@ -6228,10 +6226,8 @@ Public Class ClsContPAQi #Region "A N E X O - D E L - C A T A L O G O" - - Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, Optional TipoMovtos As Integer = -1, Optional SegmentoNegocio As Integer = -1, Optional UsaAC As Boolean = False) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalComplementaria(UsaAC) Then Return Retorno @@ -6318,7 +6314,7 @@ Public Class ClsContPAQi ''Esta es Public Function GetAnexoCatalogoMes(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, Optional TipoMovtos As Integer = -1, Optional SegmentoNegocio As Integer = -1, Optional UsaAC As Boolean = False) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_TotalComplementaria(UsaAC) Then Return Retorno @@ -6510,7 +6506,7 @@ Public Class ClsContPAQi #Region "B A L A N Z A - D E - C O M P R O B A C I O N" Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_Total() Then Return Retorno @@ -6669,7 +6665,7 @@ Public Class ClsContPAQi #Region "M O V I M I E N T O S - A U X I L I A R E S - C A T A L O G O" Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, Optional IdSegNeg As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If Not FNC_Total_Segmento() Then Return Retorno @@ -6870,7 +6866,7 @@ Public Class ClsContPAQi #Region "E S T A D O - D E - F L U J O - D E - E F E C T I V O " Public Function GetFlujoEfectivo(FechaI As Date, FechaF As Date, Unidad As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_RepFlujoEfectivo") @@ -6893,7 +6889,7 @@ Public Class ClsContPAQi #Region "E S T A D O - D E - C A M B I O - D E - S I T U A C I O N - F I N A N C I E R A" Public Function GetCambioSituacionFinanciera(FechaI As Date, FechaF As Date, Unidad As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_RepCambioSituacionFinanciera") @@ -6916,7 +6912,7 @@ Public Class ClsContPAQi #Region "E S T A D O - D E - V A R I A C I O N - H A C I E N D A - P U B L I C A " Public Function GetVariacionHaciendaPublica(FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'StrSQL.Clear() @@ -6993,7 +6989,7 @@ Public Class ClsContPAQi #Region " O R I G E N - Y - A P L I C A C I O N " Public Function GetOrigenAplicacion(FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_RepOrigenAplicacion") @@ -7012,7 +7008,7 @@ Public Class ClsContPAQi Return Retorno End Function Public Function GetOrigenAplicacionMensual(Ejercicio As Integer, TipoMovtos As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_RepOrigenAplicacionMensual") @@ -7031,7 +7027,7 @@ Public Class ClsContPAQi Return Retorno End Function Public Function GetOrigenAplicacionAnual(Ejercicio As Integer, TipoMovtos As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_RepOrigenAplicacionAnual") @@ -7053,7 +7049,7 @@ Public Class ClsContPAQi #Region " P O L I Z A S - C O M P L E M E N T A R I A S " Public Function BalanceGeneralGet(TipoReporte As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_Conta_BalanceGeneralGet") @@ -7073,7 +7069,7 @@ Public Class ClsContPAQi Return Retorno End Function Public Function EstadoResultadosGet(TipoReporte As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_Conta_EstadoResultadosGet") @@ -7196,7 +7192,7 @@ Public Class ClsContPAQi Return Retorno End Function Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_PresupuestosEgresosSaldosDetalleRep") @@ -7249,7 +7245,7 @@ Public Class ClsContPAQi End Function Public Function GetRepPresupuestosIngresosSaldosDetalle(MomentoContable As Integer, FuenteRecaudacion As Integer, RubroIngreso As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False SqlDataAdapter("PA_PresupuestosIngresosSaldosDetalleRep") @@ -7509,7 +7505,7 @@ Public Class ClsContPAQi End Function Public Function GetFolioProveedores(CuentaPadre As String) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 SqlDataAdapter("PA_AC_ProveedoresCuentasGetFolio") @@ -8133,8 +8129,8 @@ Public Class ClsContPAQi 'StrSQL.Append(file.OpenText().ReadToEnd()) - Dim file = System.IO.File.ReadAllText(HttpContext.Current.Server.MapPath("~/Empresas/TriggerConta.sql")) - Dim Comandos As [String]() = file.Split(New String() {"GO"}, StringSplitOptions.None) + Dim file As String = System.IO.File.ReadAllText(HttpContext.Current.Server.MapPath("~/Empresas/TriggerConta.sql")) + Dim Comandos As String() = file.Split(New String() {"GO"}, StringSplitOptions.None) For Each Script As String In Comandos SqlDataCommand(Script, CommandType.Text) SqlCommand.ExecuteNonQuery() @@ -8559,10 +8555,6 @@ Public Class ClsContPAQi Return Retorno End If - - - 'SqlDataAdapter("PA_AddMovimiento") - StrSQL.Clear() StrSQL.AppendLine(" BEGIN ") StrSQL.AppendLine(" DECLARE @Error nvarchar(300) ") @@ -8685,8 +8677,6 @@ Public Class ClsContPAQi #Region "CONTABILIDAD ELECTRONICA" - - Public Function GetBancos() As Boolean Dim Retorno As Boolean = False @@ -9852,7 +9842,7 @@ Public Class ClsContPAQi Public Function FNC_GetSigno() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_GetSigno') IS NOT NULL DROP FUNCTION FNC_GetSigno") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -9903,7 +9893,7 @@ Public Class ClsContPAQi Public Function FNC_GetNumPoliza() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_GetNumPoliza') IS NOT NULL DROP FUNCTION FNC_GetNumPoliza") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -9963,7 +9953,7 @@ Public Class ClsContPAQi Public Function FNC_GetNumMovtoDevIVA() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_GetNumMovtoDevIVA') IS NOT NULL DROP FUNCTION FNC_GetNumMovtoDevIVA") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10008,7 +9998,7 @@ Public Class ClsContPAQi Public Function FNC_GetNumMovto() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_GetNumMovto') IS NOT NULL DROP FUNCTION FNC_GetNumMovto") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10056,7 +10046,7 @@ Public Class ClsContPAQi Public Function FNC_GetCounter() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'StrSQL.Clear() 'StrSQL.Append(" IF OBJECT_ID ('FNC_GetCounter') IS NOT NULL DROP FUNCTION FNC_GetCounter") 'SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10103,7 +10093,7 @@ Public Class ClsContPAQi Public Function FNC_TotalAnualBG() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalAnualBG') IS NOT NULL DROP FUNCTION FNC_TotalAnualBG") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10214,7 +10204,7 @@ Public Class ClsContPAQi Public Function FNC_TotalAnual() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalAnual') IS NOT NULL DROP FUNCTION FNC_TotalAnual") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10327,7 +10317,7 @@ Public Class ClsContPAQi Public Function FNC_TotalMensualBG() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalMensualBG') IS NOT NULL DROP FUNCTION FNC_TotalMensualBG") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10425,7 +10415,7 @@ Public Class ClsContPAQi Public Function FNC_TotalMensual() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalMensual') IS NOT NULL DROP FUNCTION FNC_TotalMensual") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10539,7 +10529,7 @@ Public Class ClsContPAQi Public Function FNC_TotalMensualERSubTotales() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalMensualERSubTotales') IS NOT NULL DROP FUNCTION FNC_TotalMensualERSubTotales") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10656,7 +10646,7 @@ Public Class ClsContPAQi End Function Public Function FNC_TotalComplementaria(UsaAC As Boolean) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_TotalComplementaria') IS NOT NULL DROP FUNCTION FNC_TotalComplementaria") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10847,7 +10837,7 @@ Public Class ClsContPAQi Public Function FNC_CargosComplementaria() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_CargosComplementaria') IS NOT NULL DROP FUNCTION FNC_CargosComplementaria") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -10954,7 +10944,7 @@ Public Class ClsContPAQi Public Function FNC_AbonosComplementaria() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_AbonosComplementaria') IS NOT NULL DROP FUNCTION FNC_AbonosComplementaria") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11064,7 +11054,7 @@ Public Class ClsContPAQi Public Function FNC_Total() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Total') IS NOT NULL DROP FUNCTION FNC_Total") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11141,7 +11131,7 @@ Public Class ClsContPAQi Public Function FNC_Cargos() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Cargos') IS NOT NULL DROP FUNCTION FNC_Cargos") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11211,7 +11201,7 @@ Public Class ClsContPAQi Public Function FNC_Abonos() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Abonos') IS NOT NULL DROP FUNCTION FNC_Abonos") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11285,10 +11275,9 @@ Public Class ClsContPAQi #Region "Funciones con Segmento" - Public Function FNC_Total_Segmento() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Total_Segmento') IS NOT NULL DROP FUNCTION FNC_Total_Segmento") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11366,7 +11355,7 @@ Public Class ClsContPAQi Public Function FNC_Cargos_Segmento() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Cargos_Segmento') IS NOT NULL DROP FUNCTION FNC_Cargos_Segmento") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11437,7 +11426,7 @@ Public Class ClsContPAQi Public Function FNC_Abonos_Segmento() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False StrSQL.Clear() StrSQL.Append(" IF OBJECT_ID ('FNC_Abonos_Segmento') IS NOT NULL DROP FUNCTION FNC_Abonos_Segmento") SqlDataAdapter(StrSQL.ToString, CommandType.Text) @@ -11491,9 +11480,6 @@ Public Class ClsContPAQi StrSQL.Append(" END; ") - - - SqlDataAdapter(StrSQL.ToString, CommandType.Text) Try diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 444f8a130..f5eaa75ab 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -936,10 +936,10 @@ Public Class ClsContabilidad ' Return Retorno 'End Function - Public Function AddPrePolizasDetalle2(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, FechaVencimiento As Date, IdCtaContable As Integer, IdSegmentoNegocio As Integer, + Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, ImporteMN As Decimal, CveConceptoContable As Integer, Referencia As String, Concepto As String, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, - Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0, + Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteME As Decimal = 0, Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean @@ -961,17 +961,17 @@ Public Class ClsContabilidad .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento - .Add("@Importe", SqlDbType.Money).Value = Math.Round(Importe, 2) - .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2) - .Add("@ImporteME", SqlDbType.Money).Value = Math.Round(ImporteME, 3) + .Add("@Importe", SqlDbType.Money).Value = Importe.RoundSQL + .Add("@ImporteMX", SqlDbType.Money).Value = ImporteMN.RoundSQL + .Add("@ImporteME", SqlDbType.Money).Value = ImporteME.RoundSQL(3) .Add("@TC", SqlDbType.Decimal).Value = TipoCambio .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago .Add("@Referencia", SqlDbType.VarChar).Value = Referencia .Add("@Concepto", SqlDbType.VarChar).Value = Concepto - .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable + '.Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + '.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable + '.Add("@IdSegmentoNegocio", SqlDbType.Int).Value = IdSegmentoNegocio .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@IdSegmentoNegocio", SqlDbType.Int).Value = IdSegmentoNegocio .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVentaAmortizacion", SqlDbType.Int).Value = CveVentaAmortizacion @@ -1053,19 +1053,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, ImporteMN As Decimal, CveConceptoContable As Integer, Referencia As String, Concepto As String, - Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, - Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, - Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteME As Decimal = 0, - Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, - Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean - Dim Retorno As Boolean = False - Retorno = AddPrePolizasDetalle2(CvePrePoliza, TipoMovimiento, Importe, Referencia, CveConceptoContable, Concepto, New DateTime(1900, 1, 1), 0, -1, CveIE, CveVenta, CveCompra, CveSubProyecto, CveCliente, CveProveedor, CvePersonal, - CveMovimientoAlmacen, CveActivoFijo, CveColectiva, CveCreditoDetalle, CveOC, CveClasificacion, CveVentaAmortizacion, CveCompraAmortizacion, ImporteMN, ImporteME, CvePrePoliza, CveIEDevolucion, CveCredito, CveCuenta, CveTipoGasto, Contabilizable, - TipoCambio, CveOCDetalle, TipoCambioPago, PorcentajeImpuesto, CveNominaMovtoPermanente) - Return Retorno - End Function - Public Function ObtenerConceptoEmpresa(CveEmpresa As Integer, CveConcepto As Integer, NombreComercial As String, SerieFolio As String, FolioBancario As String, Optional Adicional As String = "") As String Dim Concepto As String = "" @@ -2855,35 +2842,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function UpdatePoliza(FechaPoliza As Date, Folio As Integer, CvePoliza As Integer, Concepto As String, TipoPoliza As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Conta_PolizasUpdate") - - - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@Concepto", SqlDbType.VarChar).Value = Concepto - .Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza - .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza - .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As SqlException - If ex.Number = 50000 Then - OnError("No se puede registrar la poliza porque ya existe una con el mismo Folio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Póliza.", ex) - End Try - - Return Retorno - - End Function Public Function UpdatePolizaDetalle(CvePolizaDetalle As Integer, IdCuenta As Integer, CveSubProyecto As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String, Concepto As String) As Boolean Dim Retorno As Boolean = False @@ -3031,7 +2989,7 @@ Public Class ClsContabilidad #Region "F I N A N C I A M I E N T O - M E T A S" Public Function AddFinan_Metas(Meta As Decimal, CveCuenta As Integer, Anio As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Finan_MetasAdd") With SqlAdapter.SelectCommand.Parameters @@ -3132,7 +3090,7 @@ Public Class ClsContabilidad #Region "F I N A N C I A M I E N T O - V E N T A S - P R O Y E C C I O N E S" Public Function AddFinan_VentasProyecciones(CvePS As Integer, Cantidad As Double, PU As Double, Fecha As Date, Anio As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Finan_MetasAdd") @@ -3238,7 +3196,7 @@ Public Class ClsContabilidad #Region " CUENTAS " Public Function GetCuentas(CveCuenta As Integer, Codigo As String, Afectable As Integer, CveEmpresa As Integer, Optional RowNum As Integer = 100000, Optional CvePadre As Integer = -1, Optional Nombre As String = "-1") As Boolean ', Codigo As String, Nombre As String, CveClasificacionCuenta As Integer, TipoCuenta As Integer, Afectable As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGet") With SqlAdapter.SelectCommand.Parameters @@ -3262,7 +3220,7 @@ Public Class ClsContabilidad End Function Public Function GetClasificacionesCuentas() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ClasificacionesCuentaGet") With SqlAdapter.SelectCommand.Parameters @@ -3282,7 +3240,7 @@ Public Class ClsContabilidad #Region " EJERCICIOS " Public Function GetEjercicios(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EjerciciosGet") With SqlAdapter.SelectCommand.Parameters @@ -3300,7 +3258,7 @@ Public Class ClsContabilidad End Function Public Function AddEjercicio(Ejercicio As String, PeriodoActual As Integer, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EjerciciosAdd") With SqlAdapter.SelectCommand.Parameters @@ -3321,7 +3279,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function UpdateEjercicio(CveEjercicio As Integer, Ejercicio As String, Estatus As Boolean, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EjerciciosUpdate") With SqlAdapter.SelectCommand.Parameters @@ -3342,7 +3300,7 @@ Public Class ClsContabilidad End Function Public Function RemoveEjercicio(CveEjercicio As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EjerciciosRemove") With SqlAdapter.SelectCommand.Parameters @@ -3366,7 +3324,7 @@ Public Class ClsContabilidad #Region "REPORTE DE CONTABILIDAD" Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosMensual") @@ -3393,7 +3351,7 @@ Public Class ClsContabilidad Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer, CveSubProyecto As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralAnual") @@ -3417,7 +3375,7 @@ Public Class ClsContabilidad Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -3447,7 +3405,7 @@ Public Class ClsContabilidad Public Function GetSituacionFinanciera2(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -3478,7 +3436,7 @@ Public Class ClsContabilidad Public Function GetSituacionFinancieraMensuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -3507,7 +3465,7 @@ Public Class ClsContabilidad Public Function GetSituacionFinancieraAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -3537,7 +3495,7 @@ Public Class ClsContabilidad Public Function GetSituacionFinancieraSubProyectolHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -3566,7 +3524,7 @@ Public Class ClsContabilidad Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_AnexoCatalogoGet") @@ -3593,7 +3551,7 @@ Public Class ClsContabilidad End Function Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String, OpcionCuentas As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet") @@ -3640,7 +3598,7 @@ Public Class ClsContabilidad End Function Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoActividadesGet") @@ -3667,7 +3625,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanzaComprobacionGet") @@ -3696,7 +3654,7 @@ Public Class ClsContabilidad End Function Public Function GetCambioSituacionFinanciera(FechaI As Date, FechaF As Date, Unidad As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional ConMovimientos As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepCambioSituacionFinanciera") @@ -3721,7 +3679,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetFlujoEfectivo(FechaI As Date, FechaF As Date, Unidad As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepFlujoEfectivo") @@ -3745,7 +3703,7 @@ Public Class ClsContabilidad End Function Public Function GetFlujoEfectivo2(FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepFlujoEfectivo2") @@ -3766,7 +3724,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepOrigenAplicacion") @@ -3844,7 +3802,7 @@ Public Class ClsContabilidad End Function Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosMensual") @@ -3866,7 +3824,7 @@ Public Class ClsContabilidad End Function Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosAnual") @@ -3887,7 +3845,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetOrigenAplicacionMensual(Ejercicio As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepOrigenAplicacionMensual") @@ -3910,7 +3868,7 @@ Public Class ClsContabilidad End Function Public Function GetOrigenAplicacionAnual(Ejercicio As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepOrigenAplicacionAnual") @@ -3932,7 +3890,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetVariacionHaciendaPublica(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_RepVariacionHaciendaPublica") @@ -3955,7 +3913,7 @@ Public Class ClsContabilidad End Function Public Function GetLibroDiario(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoPoliza As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False 'SqlAdapter.SelectCommand.t @@ -4026,7 +3984,7 @@ Public Class ClsContabilidad #Region " REPORTES FINANCIEROS DICIEMBRE 2016 " Public Function GetBalanceGeneralVertical(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralVerticalGet") @@ -4048,7 +4006,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetBalanceGeneralMensualVertical(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralVerticalMensualGet") @@ -4069,7 +4027,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetBalanceGeneralAnualVertical(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralAnualGet") @@ -4091,7 +4049,7 @@ Public Class ClsContabilidad End Function Public Function GetBalanceGeneralMensualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralHorizontalMensualGet") @@ -4113,7 +4071,7 @@ Public Class ClsContabilidad End Function Public Function GetBalanceGeneralHorizontalCC(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_BalanceGeneralHorizontalCCGet") @@ -4135,7 +4093,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetEstadoResultadosVertical(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosVerticalGet") @@ -4157,7 +4115,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetEstadoResultadoMensualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosHorizontalMensual") @@ -4179,7 +4137,7 @@ Public Class ClsContabilidad End Function Public Function GetEstadoResultadosAnualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosHorizontalAnual") @@ -4202,7 +4160,7 @@ Public Class ClsContabilidad Public Function GetEstadoResultadosHorizontalCC(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EstadoResultadosHorizontalCCGet") @@ -4225,7 +4183,7 @@ Public Class ClsContabilidad End Function Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_AnexoCatalogoMensualGet") @@ -4249,7 +4207,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, EjercicioFinal As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_AnexoCatalogoAnualGet") @@ -4278,7 +4236,7 @@ Public Class ClsContabilidad End Function Public Function GetAnexoCatalagoCC(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_AnexoCatalogoCCGet") @@ -4303,7 +4261,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosEgresosSaldosDetalleRep") @@ -4330,7 +4288,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetRepPresupuestosIngresosSaldosDetalle(MomentoContable As Integer, FuenteRecaudacion As Integer, RubroIngreso As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosIngresosSaldosDetalleRep") @@ -4353,7 +4311,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetPresupuestoIngresosRep(Ejercicio As Integer, Fecha As Date, Gpo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosIngresosRep") @@ -4399,7 +4357,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetPresupuestoIngresosMensualesRep(Ejercicio As Integer, MomentoContable As Integer, CveFuenteRecaudacion As Integer, CveRubroIngreso As Integer, GPO As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosIngresosMensualesRep") @@ -4423,7 +4381,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetDependenciasUnidadesResponsables(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_DepUnidadResponsableGET") @@ -4441,7 +4399,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetProgramaSubPrograma(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_ProGSubProgramaGET") @@ -4459,7 +4417,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetGrupoVulnerable(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_GrupoVulnerable") @@ -4477,7 +4435,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetTipoGasto(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AC_TipoGastoGet") @@ -4491,7 +4449,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetClasificadorOG(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AC_ClasificadorOGGet") @@ -4509,7 +4467,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetClasificacion(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionGET") @@ -4527,7 +4485,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetClasificacionEconomica(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionEconomicaGET") @@ -4545,7 +4503,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetFuenteFinanciera(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AC_FuentesFinanciamientoGet") @@ -4757,7 +4715,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosEgresosSaldosDetalleRep") @@ -4785,7 +4743,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function GetGeneraPolizaPresupuestoEgresos(CveEmpresa As Integer, CveEjercicio As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_GeneraPolizaPresupuestoEgresos") @@ -5056,7 +5014,7 @@ Public Class ClsContabilidad #Region "FIS IMPUESTOS" Public Function GetFisImpuestos(CveImpuesto As Integer, CveImpuestoTipo As Integer, CveProveedor As Integer, Folio As String, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_FisImpuestosGet") @@ -5081,7 +5039,7 @@ Public Class ClsContabilidad End Function Public Function GetFisImpuestosDetalle(CveImpuesto As Integer, CveImpuestoTipo As Integer, CveProveedor As Integer, Folio As String, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_FisImpuestosDetalleGet") @@ -5106,7 +5064,7 @@ Public Class ClsContabilidad End Function Public Function AddUpdateFisImpuestos(CveImpuesto As Integer, CveImpuestoTipo As Integer, CvePrePoliza As Integer, CveProveedor As Integer, Fecha As Date, Folio As String, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_FisImpuestosAddUpdate") @@ -5161,7 +5119,7 @@ Public Class ClsContabilidad 'End Function Public Function GetFisImpuestosTipos(Estatus As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Fis_ImpuestosTiposGet") @@ -5183,7 +5141,7 @@ Public Class ClsContabilidad #Region "Contabilidad Electronica" Public Function GetCuentasElectronica(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaElectronicaCuentasGet") @@ -5202,7 +5160,7 @@ Public Class ClsContabilidad End Function Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaElectronicaBalanzaGet") @@ -5225,7 +5183,7 @@ Public Class ClsContabilidad #Region "Estado de Situacion Financiera" Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_SituacionFinancieraGet") @@ -5247,7 +5205,7 @@ Public Class ClsContabilidad End Function Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_BalanceGeneralMensual") @@ -5269,7 +5227,7 @@ Public Class ClsContabilidad End Function Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_BalanceGeneralAnual") @@ -5289,146 +5247,97 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + 'Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno = False - DataAdapter("PA_Conta_BalanzaComprobacionPymeGet") + ' DataAdapter("PA_Conta_BalanzaComprobacionPymeGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@FechaI", SqlDbType.Date).Value = FechaI + ' .Add("@FechaF", SqlDbType.Date).Value = FechaF + ' .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function 'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean - Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean - Dim Retorno = False + ' Dim Retorno = False - DataAdapter("PA_EstadoActividadesGet") + ' DataAdapter("PA_EstadoActividadesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@FechaI", SqlDbType.Date).Value = FechaI + ' .Add("@FechaF", SqlDbType.Date).Value = FechaF + ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function - Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + 'Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno = False - DataAdapter("PA_EstadoResultadosMensualPyme") + ' DataAdapter("PA_EstadoResultadosMensualPyme") - With SqlAdapter.SelectCommand.Parameters - .Add("@ANO", SqlDbType.Int).Value = ANO - .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@ANO", SqlDbType.Int).Value = ANO + ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function - Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + 'Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno = False - DataAdapter("PA_EstadoResultadosAnualPyme") + ' DataAdapter("PA_EstadoResultadosAnualPyme") - With SqlAdapter.SelectCommand.Parameters - .Add("@ANO", SqlDbType.Int).Value = ANO - .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@ANO", SqlDbType.Int).Value = ANO + ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function #End Region -#Region "A N E X O - D E L - C A T A L O G O" - Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean - Dim Retorno = False - - DataAdapter("PA_Conta_AnexoCatalogo") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas - .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el Anexo del Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False - - DataAdapter("PA_Conta_AuxiliarCatalogo") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener los Movimientos Auxiliares Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region #Region "Cierre Contable" Public Function GetCuentasCierre(FechaI As Date, FechaF As Date, CveCuentaCierre As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Integer - Dim Retorno = 0 + Dim Retorno As Integer = 0 DataAdapter("PA_Conta_CierrePolizaCuentasGet") @@ -5500,7 +5409,7 @@ Public Class ClsContabilidad Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ReporteGastos") @@ -5522,7 +5431,7 @@ Public Class ClsContabilidad Public Function GetEdoResultadosMes(FechaInicio As Date, FechaFin As Date, CveTipoGasto As Integer, CveClasificacion As Integer, CveSubProyecto As Integer, Agrupador As Integer, CveEmpresa As Integer, Unidad As Integer) As DataSet - Dim Retorno = False + Dim Retorno As Boolean = False Dim ds As New DataSet DataAdapter("PA_Conta_EdoResultado2") @@ -5712,7 +5621,7 @@ Public Class ClsContabilidad Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesGet") @@ -5731,7 +5640,7 @@ Public Class ClsContabilidad End Function Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet") @@ -5758,7 +5667,7 @@ Public Class ClsContabilidad Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False, Optional OpActualizarClasificacion As Boolean = False) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesAdd") @@ -5798,7 +5707,7 @@ Public Class ClsContabilidad Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesUpdate") @@ -5831,7 +5740,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesDelete") @@ -5851,7 +5760,7 @@ Public Class ClsContabilidad #Region "Globales" Public Function GetCuentasGlobales(CveEmpresa As Integer, Optional CveConcepto As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGlobalesGet") @@ -5871,7 +5780,7 @@ Public Class ClsContabilidad End Function Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGlobalesAdd") @@ -5893,7 +5802,7 @@ Public Class ClsContabilidad End Function Public Function RemoveCuentasGlobales(CveConceptoContable As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGlobalesDelete") @@ -5916,7 +5825,7 @@ Public Class ClsContabilidad #End Region Public Function GetContaEjercicio(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaEjerciciosGet") @@ -5934,10 +5843,9 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, - Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, - Optional Estatus As Boolean = False) As Boolean - Dim Retorno = False + Public Function AddContaEjercicio(Ejercicio As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PeriodoActual As Integer = 0, + Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1) As Boolean + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaEjerciciosAdd") @@ -5947,8 +5855,6 @@ Public Class ClsContabilidad .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -5965,7 +5871,7 @@ Public Class ClsContabilidad Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Boolean = False) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaEjerciciosUpdate") @@ -5990,7 +5896,7 @@ Public Class ClsContabilidad End Function Public Function RemoveContaEjercicio(CveEjercicio As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ContaEjerciciosDelete") @@ -6070,7 +5976,7 @@ Public Class ClsContabilidad #Region " RECONSTRUCCION DE PREPOLIZAS " Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AD_PrePolizaReconstruccionPagoCompra") With SqlAdapter.SelectCommand.Parameters @@ -6087,7 +5993,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function ReconstruirPP_Compra(CveCompra As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AD_PrePolizaReconstruccionCompra") With SqlAdapter.SelectCommand.Parameters @@ -6104,7 +6010,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function ReconstruirPP_PagoVenta(CvePrePoliza As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AD_PrePolizaReconstruccionPagoVenta") With SqlAdapter.SelectCommand.Parameters @@ -6121,7 +6027,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function ReconstruirPP_PagoCompraVenta(CveIE As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_AD_PrePolizaReconstruccionPagoCompraVenta") With SqlAdapter.SelectCommand.Parameters @@ -6142,7 +6048,7 @@ Public Class ClsContabilidad #Region "VALIDACION POLIZA DESCUADRADA" Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasValidacion") With SqlAdapter.SelectCommand.Parameters @@ -6175,7 +6081,7 @@ Public Class ClsContabilidad Public Function ValidacionesPrePoliza(CvePrePoliza As Integer, ByRef UsuarioActual As Usuario, Optional Opcion As Integer = 1, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True, Optional ObjConta As ClsContPAQi = Nothing) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasValidacion") With SqlAdapter.SelectCommand.Parameters @@ -6269,7 +6175,7 @@ Public Class ClsContabilidad #Region "Periodos Bloqueo Meses" Public Function GetPeriodosBloqueo(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EmpresasBloqueoMesesGet") With SqlAdapter.SelectCommand.Parameters @@ -6286,7 +6192,7 @@ Public Class ClsContabilidad Return Retorno End Function Public Function AddPeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer, Mes1 As Integer, Mes2 As Integer, Mes3 As Integer, Mes4 As Integer, Mes5 As Integer, Mes6 As Integer, Mes7 As Integer, Mes8 As Integer, Mes9 As Integer, Mes10 As Integer, Mes11 As Integer, Mes12 As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EmpresasBloqueoMesesAdd") With SqlAdapter.SelectCommand.Parameters @@ -6318,7 +6224,7 @@ Public Class ClsContabilidad Public Function UpdatePeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer, Mes1 As Boolean, Mes2 As Boolean, Mes3 As Boolean, Mes4 As Boolean, Mes5 As Boolean, Mes6 As Boolean, Mes7 As Boolean, Mes8 As Boolean, Mes9 As Boolean, Mes10 As Boolean, Mes11 As Boolean, Mes12 As Boolean, CveUsuario As Integer) As String - Dim Retorno = "" + Dim Retorno As String = "" DataAdapter("PA_Conta_EmpresasBloqueoMesesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -6352,7 +6258,7 @@ Public Class ClsContabilidad End Function Public Function RemovePeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_EmpresasBloqueoMesesRemove") With SqlAdapter.SelectCommand.Parameters @@ -6371,7 +6277,7 @@ Public Class ClsContabilidad End Function Public Function GetBloqueoMesesBitacora(CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_GetBloqueoMesesBitacora") @@ -6394,7 +6300,7 @@ Public Class ClsContabilidad Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta2_EstadoResultadosMensual") @@ -6423,7 +6329,7 @@ Public Class ClsContabilidad End Function Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal") @@ -6451,11 +6357,8 @@ Public Class ClsContabilidad Return Retorno End Function - - - Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal") @@ -6486,7 +6389,7 @@ Public Class ClsContabilidad Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal") @@ -6517,7 +6420,7 @@ Public Class ClsContabilidad #End Region Public Function UpdateTraspasoPrepoliza(CveEmpresa As Integer, CveCuenta As Integer, CveCuentaNueva As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_Traspaso_Prepolizas") @@ -6538,7 +6441,7 @@ Public Class ClsContabilidad End Function Public Function UpdateProveedorPoliza(CveOrdenCompra As Integer, CveProveedor As Integer, Concepto As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_ActualizarProveedor") @@ -6560,7 +6463,7 @@ Public Class ClsContabilidad #Region "F L U C T U A C I O N - C A M B I A R I A" Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Conta_TipoCambioValuacionUpdate") @@ -6584,8 +6487,6 @@ Public Class ClsContabilidad #End Region - - Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Respuesta As Boolean = False diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 747f593bd..7c423f4bf 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -401,7 +401,7 @@ Public Class ClsContratos Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "") As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosUpdate") With SqlAdapter.SelectCommand.Parameters @@ -475,7 +475,7 @@ Public Class ClsContratos End Function Public Function TerminarContrato(CveContrato As Integer, CveTipoEstatus As Integer, CveEmpresa As Integer) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosTerminar") With SqlAdapter.SelectCommand.Parameters @@ -498,7 +498,7 @@ Public Class ClsContratos 'Usado en conrtatos Obra Public Function AbrirCerrarContrato(CveContrato As Integer, CveEmpresa As Integer, Cerrar As Boolean, CveUsuario As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraAbrirCerrar") With SqlAdapter.SelectCommand.Parameters @@ -529,7 +529,7 @@ Public Class ClsContratos 'End Function Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosRemove") With SqlAdapter.SelectCommand.Parameters @@ -660,7 +660,7 @@ Public Class ClsContratos Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0, Optional ImporteSubTotal As Decimal = 0) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraUpdate") With SqlAdapter.SelectCommand.Parameters @@ -731,7 +731,7 @@ Public Class ClsContratos End Function Public Function GetContratosObraEstadoCuenta(CveContrato As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosEstadoCuentaGet") With SqlAdapter.SelectCommand.Parameters @@ -755,7 +755,7 @@ Public Class ClsContratos #Region "ESTIMACION OBRA" Public Function GetContratosObraRepAvances(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraRepAvancesGet") With SqlAdapter.SelectCommand.Parameters @@ -778,7 +778,7 @@ Public Class ClsContratos Public Function GetContratosObraRepAvancesDetalle(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraRepAvancesDetalleGet") With SqlAdapter.SelectCommand.Parameters @@ -798,7 +798,7 @@ Public Class ClsContratos Public Function GetContratosObraRepAvancesPartida(CveEstimacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet") With SqlAdapter.SelectCommand.Parameters @@ -817,7 +817,7 @@ Public Class ClsContratos End Function Public Function GetContratosObraRepAvancesPartida(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet") With SqlAdapter.SelectCommand.Parameters @@ -840,7 +840,7 @@ Public Class ClsContratos Public Function GetContratosObraAvancesControlAcumulativo(CveContrato As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraAvancesControlAcumulativo") With SqlAdapter.SelectCommand.Parameters @@ -866,11 +866,8 @@ Public Class ClsContratos #Region "GASTOS OBRA" - - - Public Function GetContratosObragGastosVeiculos(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraGastosVeiculosGet") With SqlAdapter.SelectCommand.Parameters @@ -888,10 +885,8 @@ Public Class ClsContratos Return Retorno End Function - - Public Function GetContratosObragGastosCompras(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraGastosComprasGet") With SqlAdapter.SelectCommand.Parameters @@ -911,7 +906,7 @@ Public Class ClsContratos Public Function GetContratosObragGastosNomina(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosObraGastosNominaGet") With SqlAdapter.SelectCommand.Parameters @@ -1048,7 +1043,7 @@ Public Class ClsContratos Public Function AddContratosDetalle(CveContrato As Integer, CvePS As Integer, Cantidad As Double, PU As Double, CveUsuario As Integer, CveTipoPresupuesto As Integer, NoIdentificacion As String, LimitarCantidad As Boolean, OCInterna As String, Optional Observacion As String = "", Optional CveRubro As Integer = -1, Optional CveActividad As Integer = -1, Optional CveSubTipoActivoFijo As Integer = -1, Optional Dias As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleAdd") With SqlAdapter.SelectCommand.Parameters @@ -1083,7 +1078,7 @@ Public Class ClsContratos Public Function UpdateContratosDetalle(CveContratoDetalle As Integer, CveContrato As Integer, CvePS As Integer, Cantidad As Double, PU As Double, CveUsuario As Integer, NoIdentificacion As String, LimitarCantidad As Boolean, OCInterna As String, Optional Observacion As String = "", Optional CveRubro As Integer = -1, Optional CveActividad As Integer = -1, Optional CveSubTipoActivoFijo As Integer = -1, Optional Dias As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1116,7 +1111,7 @@ Public Class ClsContratos Public Function GetContratosDetalle(CveContrato As Integer, CveEmpresa As Integer, Optional Grupo As Integer = 1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleGet") With SqlAdapter.SelectCommand.Parameters @@ -1136,7 +1131,7 @@ Public Class ClsContratos End Function Public Function GetContratosDetalleOC(CveCliente As Integer, OCs As String, Tipo As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleOCGet") With SqlAdapter.SelectCommand.Parameters @@ -1156,7 +1151,7 @@ Public Class ClsContratos End Function Public Function AutorizarContratos(CveContrato As Integer, CveUsuario As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAutorizar") With SqlAdapter.SelectCommand.Parameters @@ -1175,7 +1170,7 @@ Public Class ClsContratos End Function Public Function UpdateContratosDetalleEstimacion(CveContratoDetalle As Integer, Estimacion As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleUpdateEstimacion") With SqlAdapter.SelectCommand.Parameters @@ -1194,7 +1189,7 @@ Public Class ClsContratos End Function Public Function RemoveContratosDetalle(CveContratoDetalle As Integer, CveContrato As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleRemove") With SqlAdapter.SelectCommand.Parameters @@ -1213,7 +1208,7 @@ Public Class ClsContratos End Function Public Function ValidaPSContrato(DtPS As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ValidarPSContrato") With SqlAdapter.SelectCommand.Parameters @@ -1231,7 +1226,7 @@ Public Class ClsContratos End Function Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_GetPSContratoDetalle") With SqlAdapter.SelectCommand.Parameters @@ -1253,7 +1248,7 @@ Public Class ClsContratos #Region "Contratos detalles Avance" Public Function GetContratosAvanceHistoricos(CveContrato As Integer, CveTipoPresupuesto As Integer, fecha As String) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceHistorico") With SqlAdapter.SelectCommand.Parameters @@ -1272,7 +1267,7 @@ Public Class ClsContratos Return Retorno End Function Public Function GetContratosAvanceTodos(CveContrato As Integer, CveTipoPresupuesto As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceTodos") With SqlAdapter.SelectCommand.Parameters @@ -1290,7 +1285,7 @@ Public Class ClsContratos Return Retorno End Function Public Function GetContratosAvanceFecha(CveContrato As Integer, CveTipoPresupuesto As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceFechas") With SqlAdapter.SelectCommand.Parameters @@ -1308,7 +1303,7 @@ Public Class ClsContratos Return Retorno End Function Public Function AddContratosAvance(CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle @@ -1328,7 +1323,7 @@ Public Class ClsContratos Return Retorno End Function Public Function UpdateContratosDetalleAvance(CveContratoDetalle As Integer, Avance As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosDetalleUpdateAvance") With SqlAdapter.SelectCommand.Parameters @@ -1346,7 +1341,7 @@ Public Class ClsContratos Return Retorno End Function Public Function AddContratosAvanceAnexo(CveContratoAvance As Integer, Archivo As String, CveUsuario As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceAnexosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveContratoAvance", SqlDbType.Int).Value = CveContratoAvance @@ -1363,7 +1358,7 @@ Public Class ClsContratos Return Retorno End Function Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, CveUsuario As Integer, Optional CveEstimacion As Integer = -1, Optional CveContratoAvance As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceAnexos") With SqlAdapter.SelectCommand.Parameters @@ -1386,9 +1381,8 @@ Public Class ClsContratos #Region "ESTIMACION" - Public Function AddContratosObraAvance(CveContrato As Integer, CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False CveEstimacionActual = 0 @@ -1422,7 +1416,7 @@ Public Class ClsContratos Public Function GetContratosAvanceEstimacion(CveContrato As Integer, CveEmpresa As Integer, CveEstimacion As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceEstimacionGet") With SqlAdapter.SelectCommand.Parameters @@ -1443,7 +1437,7 @@ Public Class ClsContratos Public Function AddContratosAvanceEstimacion(CveContrato As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False NumeroEstimacionNueva = -1 CveEstimacionNueva = -1 @@ -1475,7 +1469,7 @@ Public Class ClsContratos Public Function UpdateContratosAvanceEstimacion(CveContratoAvance As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceEstimacionUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1494,12 +1488,9 @@ Public Class ClsContratos Return Retorno End Function - - - Public Function UpdateContratosEstimacion(CveEstimacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveEstimacionEstatus As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosEstimacionUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1524,7 +1515,7 @@ Public Class ClsContratos Public Function RemoveContratosAvance(CveContratoAvance As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceRemove") With SqlAdapter.SelectCommand.Parameters @@ -1549,7 +1540,7 @@ Public Class ClsContratos #Region "CONTRATOS OBRA COMPRAS" Public Function GetContratosObraCompras(CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAvanceObraComprasGet") With SqlAdapter.SelectCommand.Parameters @@ -1880,10 +1871,8 @@ Public Class ClsContratos #Region "S U B - T O T A L E S" - Public Function GetSubTotalesConDetalle(CveEmpresa As Integer) As Boolean - - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_SubtotalesWDetalles") With SqlAdapter.SelectCommand.Parameters @@ -1902,8 +1891,7 @@ Public Class ClsContratos End Function Public Function GetSubTotales(CveEmpresa As Integer, CveContrato As Integer) As Boolean - - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_SubTotalesGet") With SqlAdapter.SelectCommand.Parameters @@ -1921,14 +1909,11 @@ Public Class ClsContratos Return Retorno End Function - Public Function UpdateSubTotales(Descripcion As String, Porcentaje As Double, - CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False + Public Function UpdateSubTotales(Descripcion As String, Porcentaje As Double, CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False DataAdapter("PA_Con_SubTotalesUpdate") With SqlAdapter.SelectCommand.Parameters - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Porcentaje", SqlDbType.Float).Value = Porcentaje .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion @@ -1944,7 +1929,6 @@ Public Class ClsContratos End Try Return Retorno - End Function Public Function AddContratosSubTotales(CveContrato As Integer, CveSubTotal As Integer, Porcentaje As Double, Importe As Double) As Boolean Dim Retorno As Boolean = False @@ -1989,7 +1973,7 @@ Public Class ClsContratos #Region "S U B - T O T A L E S - D E T A L L E S" Public Function GetSubTotalesDetalle(CveEmpresa As Integer) As Boolean - Dim Retorno = True + Dim Retorno As Boolean = True DataAdapter("PA_Con_SubTotalesDetalleGet") With SqlAdapter.SelectCommand.Parameters @@ -2795,7 +2779,7 @@ Public Class ClsContratos #Region "Addendum" Public Function GetContratosAddendum(CveContrato As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosAddendumGet") With SqlAdapter.SelectCommand.Parameters @@ -2814,7 +2798,7 @@ Public Class ClsContratos Public Function GetContratosSuministros(CveContrato As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEstatus As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosSuministrosGet") With SqlAdapter.SelectCommand.Parameters @@ -2838,7 +2822,7 @@ Public Class ClsContratos #End Region Public Function GetContratosCostos(CveContrato As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEstatus As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosCostosGet") With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 66843a690..a5d52f0f9 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -223,7 +223,7 @@ Public Class ClsFinanzas End Try Return Retorno End Function - Public Function GetRazonesFinancierasRep(CveEmpresa As Integer, Tipo As String, FechaI As String, FechaF As String, CveCuenta As Integer, CveSubProyecto As Integer) As Boolean + Public Function GetRazonesFinancierasRep(CveEmpresa As Integer, Tipo As String, FechaI As Date, FechaF As Date, CveCuenta As Integer, CveSubProyecto As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RazonesFinancierasRepGet") diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 51915e47c..2a38bb5aa 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -772,9 +772,9 @@ Public Class ClsGPS 'Dim datos As New JArray() Using Row = SqlAdapter.SelectCommand.ExecuteReader() - Dim Contador = 0 - Dim Info = "" - Dim Direccion = "" + Dim Contador As Integer = 0 + Dim Info As String = "" + Dim Direccion As String = "" Dim SBBody As New StringBuilder Dim StrPolyPath As New StringBuilder Dim StrScriptsMakers As New StringBuilder @@ -1051,7 +1051,7 @@ Public Class ClsGPS End With Try - Dim noRows = SqlAdapter.SelectCommand.ExecuteNonQuery() + Dim noRows As Integer = SqlAdapter.SelectCommand.ExecuteNonQuery() Retorno = (noRows = 1) If Retorno Then CveGeoReferencia = SqlAdapter.SelectCommand.Parameters("@CveGeoReferencia").Value.ToString.ToEntero @@ -1198,7 +1198,7 @@ Public Class ClsGPS If rdr.GetName(i) = "Coordenadas" Then jsonWriter.WritePropertyName(rdr.GetName(i)) jsonWriter.WriteStartArray() - For Each Coord As JObject In SQLToGmapsJArray(rdr(i), "POLYGON") + For Each Coord As JObject In SQLToGmapsJArray(rdr(i).ToString, "POLYGON") jsonWriter.WriteStartObject() jsonWriter.WritePropertyName("Lat") jsonWriter.WriteValue(Coord("lat").ToString().ToDouble()) diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index f0a8eefc7..94a74b82c 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/App_Code/ClsGPSHerramientas.vb @@ -105,7 +105,7 @@ Public Class ClsGPSHerramientas End Sub Public Function EjecutarComandoManualSMS(Trama As String, Telefono As String, CveDispositivo As Integer, CveUsuario As Integer, Optional Valor As String = "") As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False Dim ObjMensaje As New ClsTecnoMovil If ObjMensaje.EnviarMensajeWS(Telefono, Trama) Then Retorno = InsertarComandoEnviar(Trama, 2, 1, CveDispositivo, CveUsuario, -1) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index e860e2755..1b98bec8a 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1817,7 +1817,7 @@ Public Class ClsGenerales End Function Public Function GetTipoCambio(CveTipoCambio As Integer, Fecha As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Gral_TipoCambioGet") @@ -1836,7 +1836,7 @@ Public Class ClsGenerales Return Retorno End Function Public Function GetTipoCambioUltimaFluctuacion(CveTipoCambio As Integer, Fecha As Date, Optional Top As Integer = 1000) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Gral_TipoCambioUltimaFluctuacionGet") @@ -1856,7 +1856,7 @@ Public Class ClsGenerales Return Retorno End Function Public Function GetTiposCambio(FechaInicio As Date, FechaFin As Date) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Gral_TiposCambioGet") @@ -3344,93 +3344,12 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - -#Region "CLASIFICACIONES PORCENTAJE" - - Public Function GetClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasificacionPorcentaje As Integer = -1, - Optional CveClasificacion As Integer = -1, Optional PorcentajeIVA As Double = -1, - Optional Opcion As Integer = 1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Gral_ClasificacionPorcentajeGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClasificacionPorcentaje", SqlDbType.Int).Value = CveClasificacionPorcentaje - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA - .Add("@Opcion", SqlDbType.Int).Value = Opcion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function AddClasificacionPorcentaje(CveClasificacion As Integer, PorcentajeIVA As Double, IdCtaIVAXAcreditar As Integer, IdCtaIVAAcreditable As Integer, - IdCtaIVAXTrasladar As Integer, IdCtaIVATrasladado As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Gral_ClasificacionPorcentajeAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA - .Add("@IdCtaIVAXAcreditar", SqlDbType.Int).Value = IdCtaIVAXAcreditar - .Add("@IdCtaIVAAcreditable", SqlDbType.Int).Value = IdCtaIVAAcreditable - .Add("@IdCtaIVAXTrasladar", SqlDbType.Int).Value = IdCtaIVAXTrasladar - .Add("@IdCtaIVATrasladado", SqlDbType.Int).Value = IdCtaIVATrasladado - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function UpdateClasificacionPorcentaje(CveClasificacionPorcentaje As Integer, CveClasificacion As Integer, PorcentajeIVA As Double, IdCtaIVAXAcreditar As Integer, IdCtaIVAAcreditable As Integer, - IdCtaIVAXTrasladar As Integer, IdCtaIVATrasladado As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Gral_ClasificacionPorcentajeUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClasificacionPorcentaje", SqlDbType.Int).Value = CveClasificacionPorcentaje - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA - .Add("@IdCtaIVAXAcreditar", SqlDbType.Int).Value = IdCtaIVAXAcreditar - .Add("@IdCtaIVAAcreditable", SqlDbType.Int).Value = IdCtaIVAAcreditable - .Add("@IdCtaIVAXTrasladar", SqlDbType.Int).Value = IdCtaIVAXTrasladar - .Add("@IdCtaIVATrasladado", SqlDbType.Int).Value = IdCtaIVATrasladado - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function RemoveClasificacionPorcentaje(CveClasificacionPorcentaje As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Gral_ClasificacionPorcentajeRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClasificacionPorcentaje", SqlDbType.Int).Value = CveClasificacionPorcentaje - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - - + + #Region "C A R T A P O R T E" - + Public Function GetMaterialPeligroso() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CP_MaterialPeligrosoGet") @@ -3497,13 +3416,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los tipos de remolque de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #End Region - - - - + + #Region "CRUD_Edoc_DocumentacionTipo" Public Function GetEdoc_DocumentacionTipo(CveDocumentacionTipo As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional EsCatalogo As Integer = 0, Optional Modulo As Integer = 1) As Boolean @@ -3584,16 +3501,14 @@ Public Class ClsGenerales Return retorno - End Function - + End Function + #End Region - - - - + + #Region "" - - + + Public Function GetJAMCorveta(Opcion As Integer) As Boolean Dim Retorno As Boolean = False @@ -3612,17 +3527,14 @@ Public Class ClsGenerales Return Retorno - End Function - + End Function + #End Region - - - - - + + #Region "CULTIVOS" - - + + Public Function GetCultivosCuadro(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3706,16 +3618,12 @@ Public Class ClsGenerales Return Retorno - End Function - - + End Function + + #End Region - - - - - - + + #Region " P O L I Z A V I R T U A L " Public Function ModelosAutosGet(Estatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -3777,15 +3685,12 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener los BCI de Usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function + End Function #End Region - - - - + #Region "GRAL TIMBRES" - - + + Public Function AddGralTimbre(TipoDocto As String, CveSubProyecto As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional Serie As String = "-1", Optional Folio As Integer = -1, Optional Estatus As Integer = 0, Optional CveEntregaAlmacen As Integer = -1, Optional AplicaCP As Boolean = False, Optional CveVenta As Integer = -1) As Integer @@ -4189,12 +4094,11 @@ Public Class ClsGenerales OnError("Ocurrió un error al obtener el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - + End Function + + #End Region - - + Public Function GetMediosTransporte(CveOrigen As Integer, Estatus As Boolean, CveEmpresa As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, Tipo As Integer, GPO As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 823f6d5c7..502282246 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -374,7 +374,7 @@ Public Class ClsInventarios End Function - Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean + Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesAdd") @@ -382,7 +382,6 @@ Public Class ClsInventarios With SqlAdapter.SelectCommand.Parameters .Add("@Almacen", SqlDbType.VarChar).Value = Almacen .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@Modalidad", SqlDbType.Int).Value = Modalidad .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -410,7 +409,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean + Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesUpdate") @@ -419,7 +418,6 @@ Public Class ClsInventarios .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@Almacen", SqlDbType.VarChar).Value = Almacen .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@Modalidad", SqlDbType.Int).Value = Modalidad .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable @@ -1071,7 +1069,7 @@ Public Class ClsInventarios Public Function UpdateMovimiento(CveMovimiento As Integer, CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, Folio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer, CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Double = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosUpdate") @@ -3696,7 +3694,7 @@ Public Class ClsInventarios End Function Public Function AddConsignaciones(CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Inv_ConsignacionesAdd") @@ -5986,6 +5984,25 @@ Public Class ClsInventarios Return Retorno End Function + + Public Function GetJAM_APIs(Optional Opcion As Integer = 1) As Boolean + Dim Retorno As Boolean = False + Dataset = New DataSet() + DataAdapter("PA_JAM_APIs") + With SqlAdapter.SelectCommand.Parameters + .Add("@Opcion", SqlDbType.Int).Value = Opcion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function #End Region diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9d7a712ec..c6a5268bc 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -774,25 +774,25 @@ Public Class ClsNominas Return Retorno End Function - Public Function UpdatePagoNomina(CvePeriodo As Integer, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Nom_PagoNominaUpdate") + 'Public Function UpdatePagoNomina(CvePeriodo As Integer, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Nom_PagoNominaUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + ' .Add("@CveIE", SqlDbType.Int).Value = CveIE + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function 'Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean ' Dim Retorno As Boolean = False @@ -987,7 +987,7 @@ Public Class ClsNominas Me.SeTimbro = Data.Rows(0)("SeTimbro").ToString Me.CvePeriodo = Data.Rows(0)("CvePeriodo").ToString.ToEntero Me.TipoPeriodo = Data.Rows(0)("TipoPeriodo").ToString - Me.CveTipoPeriodo = Data.Rows(0)("CveTipoPeriodo").ToString + Me.CveTipoPeriodo = Data.Rows(0)("CveTipoPeriodo").ToString.ToEntero Me.CvePersonal = Data.Rows(0)("CvePersonal").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Nombre = Data.Rows(0)("Nombre").ToString @@ -1403,9 +1403,9 @@ Public Class ClsNominas End Function Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, - EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, + EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, - ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Integer + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Nom_ConceptosAdd") @@ -1422,7 +1422,6 @@ Public Class ClsNominas .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("EsRetencion", SqlDbType.Bit).Value = EsRetencion .Add("CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("TipoCalculo", SqlDbType.Bit).Value = TipoCalculo .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue @@ -1437,7 +1436,6 @@ Public Class ClsNominas .Add("Contabiliza", SqlDbType.Int).Value = contabiliza .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB - .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo @@ -1464,9 +1462,9 @@ Public Class ClsNominas End Function Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer, - EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, + EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer, - ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Boolean + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ConceptosUpdate") @@ -1482,7 +1480,6 @@ Public Class ClsNominas .Add("CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("EsRetencion", SqlDbType.Bit).Value = EsRetencion .Add("CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("TipoCalculo", SqlDbType.Bit).Value = TipoCalculo .Add("CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable @@ -1497,7 +1494,6 @@ Public Class ClsNominas .Add("Contabiliza", SqlDbType.Int).Value = contabiliza .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB - .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo End With diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 356e4e3d4..fe4cc82c8 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -684,7 +684,7 @@ Public Class ClsOC _CveDireccionEnvio = dr("CveDireccionEnvio").ToString.ToEntero _CveUsoCFDI = dr("CveUsoCFDI").ToString.ToEntero _UsoCFDI = dr("UsoCFDI").ToString - Promocion = IfNull(dr("Promocion"), "", dr("Promocion").ToString) + Promocion = IfNull(dr("Promocion"), "", dr("Promocion").ToString).ToString CveProveedorContacto = If(Not IsDBNull(dr("CveProveedorContacto")), dr("CveProveedorContacto").ToString.ToEntero, -1) NumRemision = dr("NumRemision").ToString @@ -704,7 +704,7 @@ Public Class ClsOC pFechaEstimadaEntrega As String, pLugarEntrega As String, pCveUsuario As Integer, pCveEmpresa As Integer, pCvePresupuestoEgreso As Integer, Optional pCveProveedor As Integer = -1, Optional pCveProveedorSucursal As Integer = -1, Optional IDPoliza As Integer = -1, Optional RequiereCotizacion As Boolean = False, Optional CveUsuarioAsignado As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", - Optional PorcentajeIVA As Decimal = 0.16, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, + Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -913,7 +913,7 @@ Public Class ClsOC pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", - Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16, Optional NumRemision As String = "-1") As Boolean + Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraUpdate") @@ -2028,7 +2028,7 @@ Public Class ClsOC Return Retorno End Function Public Function GetOCFacturacion(pCveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraFacturacionGet") diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 56d781b38..37c61db00 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -964,7 +964,8 @@ Public Class ClsOIEventos Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "", Optional Asistencia As String = "", Optional Duracion As String = "") As Boolean + Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "", + Optional Asistencia As String = "", Optional Duracion As String = "", Optional CveAcercamiento As Integer = -1) As Boolean Dim retorno As Boolean = False Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing @@ -1026,9 +1027,11 @@ Public Class ClsOIEventos .Add("@Asistencia", SqlDbType.VarChar).Value = Asistencia .Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@CveTableroLista", SqlDbType.VarChar).Value = CveTableroLista - - '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output - '.Add("@mailBody", SqlDbType.Xml).Direction = ParameterDirection.Output + .Add("@CveAcercamiento", SqlDbType.VarChar).Value = CveAcercamiento + + + '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output + '.Add("@mailBody", SqlDbType.Xml).Direction = ParameterDirection.Output End With Dim separador As String = "" @@ -1463,7 +1466,7 @@ Public Class ClsOIEventos #Region "E V E N T O S" Public Function GetEvento(CveEvento As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuarioConsulta, CveEmpresa) + Dim Retorno As Boolean = GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuarioConsulta, CveEmpresa) Return Retorno End Function Public Function GetEvento(objEvento As Modelos.Evento, CveUsuarioConsulta As Integer) As Boolean @@ -2488,12 +2491,14 @@ Public Class ClsOIEventos Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1, Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -1, Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveCompra As Integer = -1) As Boolean + Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveMovimiento As Integer = -1) As Boolean Dim Retorno As Boolean = False Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, - CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto, CveCompra:=CveCompra) + CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto, CveCompra:=CveCompra, + CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento) + Return Retorno End Function diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1f3aec036..2e7b3b93f 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -535,7 +535,7 @@ Public Class ClsOS Me.UsuarioAtendio = Data.Rows(0)("UsuarioAtendio").ToString Me.CveUsuarioEntrego = Data.Rows(0)("CveUsuarioEntrego").ToString.ToEntero Me.UsuarioEntrego = Data.Rows(0)("UsuarioEntrego").ToString - Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString + Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString.ToEntero Me.CveOSTipo = Data.Rows(0)("CveOrdenServicioTipo").ToString.ToEntero Me.Telefono = Data.Rows(0)("TelefonoContacto").ToString diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7e29da433..138b0c987 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -19,8 +19,8 @@ Imports Newtonsoft.Json.Linq Public Class ClsPaginas Inherits System.Web.UI.Page Public Const CveUsuarioAsistencia As Integer = 100 - Public Const ContraseñaPredeterminada = "-acceso-" - Public Const ContraseñaPredeterminadaEncriptada = "aQDyjiv2NgoTct4c84VnLQ==" ' "-acceso-" + Public Const ContraseñaPredeterminada As String = "-acceso-" + Public Const ContraseñaPredeterminadaEncriptada As String = "aQDyjiv2NgoTct4c84VnLQ==" ' "-acceso-" Private Shared EncryptKey() As Byte = {} Private Shared ReadOnly IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} Private Const SEncryptionKey As String = "__sig__$gj7+5&j__sig__" @@ -131,7 +131,7 @@ Public Class ClsPaginas End If ObjGral.Dispose() End If - Dim fluctuacion = New MTipoCambioFluctuacion() With { + Dim fluctuacion As MTipoCambioFluctuacion = New MTipoCambioFluctuacion() With { .TCFluctuacion = 0, .FechaFluctuacion = MinFecha } @@ -139,7 +139,7 @@ Public Class ClsPaginas If Fecha = MinFecha Then Fecha = Now If HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then - Dim dr = DirectCast(HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha < '{0}'", Fecha), Orderby:="Fecha DESC") + Dim dr As DataRow = DirectCast(HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha < '{0}'", Fecha), Orderby:="Fecha DESC") If dr IsNot Nothing Then fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal() fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime() @@ -1622,7 +1622,7 @@ Public Class ClsPaginas ObjPS.Dispose() End If - Dim Cons = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow)) + Dim Cons As EnumerableRowCollection(Of DataRow) = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow)) 'Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo)) @@ -4327,15 +4327,15 @@ Public Class ClsPaginas Return URLParametros End Function Private Function AuthorizePageWithoutSessions() As List(Of String) - Dim pages = New List(Of String) + Dim pages As List(Of String) = New List(Of String) pages.Add("/Compras/PopUpVerFactura.aspx") Return pages End Function Protected Overridable Sub Page_PreInit(sender As Object, e As EventArgs) Handles Me.PreInit If Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing Then Dim AuthorizeRequest As Boolean = False - Dim HuboError = False - Dim statusCode = 200 + Dim HuboError As Boolean = False + Dim statusCode As Integer = 200 If AuthorizePageWithoutSessions().Contains(Request.ServerVariables("URL")) Then If Request.Headers("ADSToken") IsNot Nothing AndAlso Request.Headers("Host") IsNot Nothing Then Try @@ -4634,7 +4634,7 @@ Public Class ClsPaginas rds.Name = RDSName rds.Value = DtDatos lrds.Add(rds) - Dim Extension = "pdf" + Dim Extension As String = "pdf" If Formato.ToLower() = "excel" Then Extension = "xlsx" End If @@ -4746,7 +4746,7 @@ Public Class ClsPaginas reportobjects.Add(ojext) End If Else - Dim dt = New DataTable() + Dim dt As DataTable = New DataTable() dt.TableName = If(String.IsNullOrEmpty(rpds.Name), "DataTable1", rpds.Name) ds.Tables.Add(dt) End If @@ -4846,7 +4846,7 @@ Public Class ClsPaginas End Function Private Sub LocalReport_SubreportProcessing(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs) If SubReportData IsNot Nothing Then - For Each ds In SubReportData.DataSources + For Each ds As ReportDataSource In SubReportData.DataSources e.DataSources.Add(ds) Next End If @@ -5146,9 +5146,9 @@ Public Class ClsPaginas Dim RutaCBB As String = String.Format("{0}CBB\{1}.jpg", Ruta, Vta.SerieFolio) Dim ImagenCBB As New System.IO.FileInfo(RutaCBB) Dim ImgCBB As String '= String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio) - Dim ImagenPath = String.Format("{0}Formatos\Suc{1}\logo.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) + Dim ImagenPath As String = String.Format("{0}Formatos\Suc{1}\logo.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) Dim Logo As New System.IO.FileInfo(ImagenPath) - Dim ImgLogo = New Uri(String.Format("{0}Empresas/{1}/Formatos/Suc{2}.png", UrlSitio, UsuarioActual.CveEmpresa, Vta.CveSucursal)).AbsoluteUri + Dim ImgLogo As String = New Uri(String.Format("{0}Empresas/{1}/Formatos/Suc{2}.png", UrlSitio, UsuarioActual.CveEmpresa, Vta.CveSucursal)).AbsoluteUri Dim SBDomicilioSucursal As New StringBuilder() Dim CiudadSucursal As String = String.Format("{0},{1}", Vta.SubProyecto.Municipio, Vta.SubProyecto.Estado) Dim DomicilioSucursal As String = "" @@ -5171,7 +5171,7 @@ Public Class ClsPaginas Vta.SelloCFDi = "Sin Timbrar" Vta.SelloSAT = "Sin Timbrar" #Region "COMERCIO EXTERIOR VARIABLES Y TABLAS" - Dim CETipoOperacion = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = "" + Dim CETipoOperacion As String = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = "" Dim RCETipoOperacion As String = "", RCEClavePedimento As String = "", RCEIncoterm As String = "", RCEMotivoTraslado As String = "" Dim CE_DT_Cabecera As New DataTable @@ -5210,7 +5210,7 @@ Public Class ClsPaginas 'SI ESTA TIMBRADA - CON XML If File.Exists(PathXML) AndAlso Vta.Serie <> "VistaPrevia" Then 'Cuando es vista previe y coincide la serie y folio se ponen los datos fiscales Dim XmlDoc As New System.Xml.XmlDocument - Dim EsXMLValido = False + Dim EsXMLValido As Boolean = False Try XmlDoc.Load(PathXML) EsXMLValido = True @@ -5225,7 +5225,7 @@ Public Class ClsPaginas If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then Vta.FechaEmision = ValorNodoXML(XmlDoc.DocumentElement, "fecha").ToDate Vta.NoSerieCertificadoContribuyente = ValorNodoXML(XmlDoc.DocumentElement, "NoCertificado") - Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") + Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento") If Not IsNothing(validaElemento) Then For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1 If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then @@ -5344,7 +5344,7 @@ Public Class ClsPaginas Else Vta.FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate Vta.NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText - Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") + Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento") If Not IsNothing(validaElemento) Then For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1 If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then @@ -5641,8 +5641,8 @@ Public Class ClsPaginas 'VSH If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then 'DATOS CLIENTES - Dim ClienteRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString)) - Dim DatosCliente = "" + Dim ClienteRow As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString)) + Dim DatosCliente As String = "" If ClienteRow IsNot Nothing Then DatosCliente = String.Format("{0} | {1} | {2}", Vta.SubProyecto.Municipio, ClienteRow("CuentaContable"), ClienteRow("Codigo")) End If @@ -5919,7 +5919,7 @@ Public Class ClsPaginas For i As Integer = 0 To Vta.DtFirmas.Rows.Count - 1 'Si DtDetalle es menor al DtFirmas, crea un nuevo Row en DtDetalle y le asigna valor, Si no solo asigna valor If DtDetalleFirmas.Rows.Count < i + 1 Then - Dim Dr = DtDetalleFirmas.NewRow + Dim Dr As DataRow = DtDetalleFirmas.NewRow Dr("Titulo") = Vta.DtFirmas(i)("Titulo").ToString Dr("Nombre") = Vta.DtFirmas(i)("Nombre").ToString Dr("Puesto") = Vta.DtFirmas(i)("Puesto").ToString @@ -6000,12 +6000,7 @@ Public Class ClsPaginas If Not UsarStimulsoft Then Dim Archivo As New System.IO.FileInfo(RutaFormato) If Archivo.Exists Then - 'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then - ' RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") - ' retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") - 'Else - ' retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) - 'End If + retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing, SubReportData:=SubReportData) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) If Guardar Then @@ -6029,12 +6024,7 @@ Public Class ClsPaginas Else params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - 'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then - ' RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") - ' retorno = StreamBytesStimulsoft("Facturas", RutaFormatoDefault, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") - 'Else - ' retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) - 'End If + retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing, SubReportData:=SubReportData) End If Else @@ -6094,7 +6084,7 @@ Public Class ClsPaginas urlHost = "http://sig.adssistemas.mx:6599/" End If 'SITIO DE PRUEBA EN IIS - Dim Url = New Uri(String.Format("{0}{1}", urlHost, Opcion)) + Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion)) Try Dim dataSourceArray As New JArray() Dim paramsArray As New JArray() @@ -6160,7 +6150,7 @@ Public Class ClsPaginas Public Sub GenerarFacturaVenta(CveVenta As Integer) Dim ObjVentas As New ClsVentas Dim Vta As Modelos.Factura = Nothing - Dim TmpDTImpuestos = New DataTable + Dim TmpDTImpuestos As DataTable = New DataTable TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) @@ -6240,7 +6230,7 @@ Public Class ClsPaginas Dim dtImpuesto As DataTable = ObjVentas.DtResultados If dtImpuesto.Rows.Count > 0 Then For Each Row As DataRow In dtImpuesto.Rows - Dim Orden = 80 + Dim Orden As Integer = 80 If Row("Importe").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString DR("Importe") = Row("Importe").ToString.ToDouble @@ -6569,9 +6559,9 @@ Public Class ClsPaginas ObjEmpresa.Dispose() '----------------------- COTIZACIONES -------------------------- Dim params As New List(Of ReportParameter) - Dim NumCotizaciones = 0 + Dim NumCotizaciones As Integer = 0 Dim DtCotizaciones As New DataTable - Dim ProveedoresCotizacion = New ArrayList + Dim ProveedoresCotizacion As ArrayList = New ArrayList Dim Ds As DataSet = ObjOC.GetCotizacionesTabla(tCveOrdenCompra) If Ds IsNot Nothing AndAlso Ds.Tables.Count = 2 Then For Each Dr2 As DataRow In Ds.Tables(1).Rows @@ -6586,7 +6576,7 @@ Public Class ClsPaginas If Not DtCotizaciones.Columns.Contains("PU5") Then DtCotizaciones.Columns.Add("PU5", GetType(String)) End If 'COTIZACION - For Index = 1 To 5 + For Index As Integer = 1 To 5 Try params.Add(New ReportParameter($"Cotizacion{Index.ToString}", ProveedoresCotizacion(Index - 1).ToString)) Catch ex As Exception @@ -6629,11 +6619,11 @@ Public Class ClsPaginas End If If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then Dim dr As DataRow = DTCxPTempral.Rows(0) - Dim NombreProv = "" - Dim Direccion = "" - Dim RFC = "" - Dim Tel = "" - Dim DiasCredito = "" + Dim NombreProv As String = "" + Dim Direccion As String = "" + Dim RFC As String = "" + Dim Tel As String = "" + Dim DiasCredito As String = "" Dim LimCredito As Double CveEmpresaActual = dr("CveEmpresa").ToString.ToEntero Dim ObjEmpresa As New ClsSisEmpresas() @@ -6644,7 +6634,7 @@ Public Class ClsPaginas ObjEmpresa.Dispose() Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", EmpresaActual.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", EmpresaActual.Ruta)) - Dim logouri = String.Format("{0}Logo.png", EmpresaActual.Ruta) 'String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, CveEmpresaActual) + Dim logouri As String = String.Format("{0}Logo.png", EmpresaActual.Ruta) 'String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, CveEmpresaActual) Dim ObjProveedor As New ClsCompProveedores() If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then If ObjProveedor.DtResultados.Rows.Count > 0 Then @@ -6657,7 +6647,7 @@ Public Class ClsPaginas End If End If ObjProveedor.Dispose() - Dim lista = New List(Of CrystalParametro) + Dim lista As List(Of CrystalParametro) = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", EmpresaActual.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", "Todas")) lista.Add(New CrystalParametro("FechaInicio", "-")) @@ -6692,7 +6682,7 @@ Public Class ClsPaginas Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte() Dim ObjNomina As New ClsNominas Dim ObjPersonal As New ClsRH - Dim TieneError = False + Dim TieneError As Boolean = False Dim Retorno As Byte() = Nothing If Not ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, CveEmpresa) Then Alert("Ocurrio un erro al obtener datos de la nomina", TipoMensaje.MsgError) @@ -6700,7 +6690,7 @@ Public Class ClsPaginas ObjNomina.Dispose() Return Nothing End If - Dim CveNomina = ObjNomina.CveNomina + Dim CveNomina As Integer = ObjNomina.CveNomina Dim DTPercepciones As Data.DataTable Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable @@ -6923,7 +6913,7 @@ Public Class ClsPaginas Dim LSRds As New List(Of ReportDataSource) - Dim rds2 = New ReportDataSource() + Dim rds2 As ReportDataSource = New ReportDataSource() Dim dtqr As New DataTable Dim column As DataColumn = New DataColumn("ImagenByte") column.DataType = System.Type.[GetType]("System.Byte[]") @@ -6939,13 +6929,13 @@ Public Class ClsPaginas Dim numnewfiles As Integer = 0 If DTPercepciones.Rows.Count > DTDeducciones2.Rows.Count Then numnewfiles = DTPercepciones.Rows.Count - DTDeducciones2.Rows.Count - For index = 1 To numnewfiles + For index As Integer = 1 To numnewfiles DTDeducciones2.Rows.Add(DTDeducciones2.NewRow) Next Else If DTDeducciones2.Rows.Count > DTPercepciones.Rows.Count Then numnewfiles = DTDeducciones2.Rows.Count - DTPercepciones.Rows.Count - For index = 1 To numnewfiles + For index As Integer = 1 To numnewfiles DTPercepciones.Rows.Add(DTPercepciones.NewRow) Next End If @@ -7000,26 +6990,26 @@ Public Class ClsPaginas Public Sub PDFReciboDePagos(CveVenta As Integer, CveIE As Integer, CveComplementoPago As Integer, Optional imprimir As Boolean = True, Optional SobreescribirPDF As Boolean = False) Dim params As New List(Of ReportParameter) Dim SerieFolio As String = "" - Dim Serie = "" - Dim Folio = "" - Dim CveCliente = -1 - Dim RFCOrdenante = "" + Dim Serie As String = "" + Dim Folio As String = "" + Dim CveCliente As Integer = -1 + Dim RFCOrdenante As String = "" Dim CveMoneda As Integer = 1 - Dim FolioFiscal = "" - Dim NoSerieCertificado = "" - Dim FechaCertificacion = "" - Dim SelloCFDi = "" - Dim SelloSAT = "" - Dim CertificadoSAT = "" + Dim FolioFiscal As String = "" + Dim NoSerieCertificado As String = "" + Dim FechaCertificacion As String = "" + Dim SelloCFDi As String = "" + Dim SelloSAT As String = "" + Dim CertificadoSAT As String = "" Dim FechaComprobante As Date - Dim CveUnidad = "" - Dim Descripcion = "" - Dim Cantidad = "" - Dim CvePS = "" - Dim PU = "" - Dim Importe = "" - Dim TotalLetra = "" - Dim FechaRecibo = "" + Dim CveUnidad As String = "" + Dim Descripcion As String = "" + Dim Cantidad As String = "" + Dim CvePS As String = "" + Dim PU As String = "" + Dim Importe As String = "" + Dim TotalLetra As String = "" + Dim FechaRecibo As String = "" Dim ProveedorIntermediario As String = "" Dim RegimenFiscalCodigo As String = "" Dim CFDIVersion As String = "4.0" @@ -7145,13 +7135,13 @@ Public Class ClsPaginas If File.Exists(PathXML) Then Dim XmlDoc As New System.Xml.XmlDocument XmlDoc.Load(PathXML) - Dim Version = ValorXML(XmlDoc.DocumentElement, "version") + Dim Version As String = ValorXML(XmlDoc.DocumentElement, "version") Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable) Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix) Dim cfdVer As String = "" Dim PagoVersion As String = "pago20" - Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") - Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos") + Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento") + Dim validaElementoPago As XmlElement = XmlDoc.DocumentElement("cfdi:Conceptos") If Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" PagoVersion = "pago10" @@ -7218,7 +7208,7 @@ Public Class ClsPaginas If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value If Version = "4.0" Then - Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) + Dim NodosTraslados As XmlNodeList = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) For Each NodoTraslados As XmlNode In NodosTraslados Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR") Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR") ' ImpuestoDR @@ -7916,7 +7906,7 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If - If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then + If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (Pago.ImportePago * TCValuacionPago).RoundSQL, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then ErrorMovtos = True End If End If @@ -8058,7 +8048,7 @@ Public Class ClsPaginas End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=VentaActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If - If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then + If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago OrElse Pago.ImporteFluctuacionAdicional <> 0 Then 'si hay aplicación de exc, y no hay varación en el pago Dim ConceptoContable As Integer Dim TipoMovimiento As Boolean Dim Diferencia As Decimal = 0 @@ -8576,7 +8566,7 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1) PaginaDict.Add("/Compras/Compras3.aspx".ToUpper(), -1) PaginaDict.Add("/Compras/Compras5.aspx".ToUpper(), -1) - PaginaDict.Add("/Compras/Importaciones.aspx".ToUpper(), 319) + PaginaDict.Add("/Compras/Importaciones.aspx".ToUpper(), 326) PaginaDict.Add("/Compras/RepImportaciones.aspx".ToUpper(), 326) PaginaDict.Add("/Compras/RegGastos.aspx".ToUpper(), 328) PaginaDict.Add("/Compras/RepBeneficiarios.aspx".ToUpper(), 336) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 31bac4cb7..77ee44b44 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1316,8 +1316,7 @@ Public Class ClsProductosServicios 'Ubicacion temporal Public Function GetMetodosInv() As Boolean - Dim Retorno = False - + Dim Retorno As Boolean = False DataAdapter("PA_Inv_MetodosGet") Try diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index f26258873..e5b3fe7a3 100644 --- a/App_Code/ClsProyectos.vb +++ b/App_Code/ClsProyectos.vb @@ -147,7 +147,7 @@ Public Class ClsProyectos End Function Public Function AddProyecto(Proyecto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveSucursal As Integer = -1) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_ProyectoAdd") diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 1fc60db2d..eedeea1c5 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1568,6 +1568,8 @@ Public Class ClsRH DtResultados = Data End Get End Property + + Public Property TipoSangre As String #End Region #Region "Personal" @@ -1719,6 +1721,7 @@ Public Class ClsRH Me.CelularPersonal = Data.Rows(0)("CelularPersonal").ToString Me.TelefonoMarcadoRapido = Data.Rows(0)("TelefonoMarcadoRapido").ToString Me.ContactoAlterno = Data.Rows(0)("ContactoAlterno").ToString + Me.TipoSangre = Data.Rows(0)("TipoSangre").ToString If Not IsDBNull(Data(0)("CveSubProyectoZona")) Then CveSubproyectoZona = Data(0)("CveSubProyectoZona").ToString.ToEntero @@ -1937,12 +1940,12 @@ Public Class ClsRH CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String, Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String, NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, - CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, + CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean Dim Retorno As Boolean = False - Dim noguardoXcurp = False + Dim noguardoXcurp As Boolean = False SqlDataAdapter("PA_RH_PersonalAdd") With SqlAdapter.SelectCommand.Parameters @@ -2007,11 +2010,7 @@ Public Class ClsRH .Add("@CveSupervisor", SqlDbType.VarChar).Value = CveSupervisor .Add("@BancoNumCuenta", SqlDbType.VarChar).Value = BancoNumCuenta .Add("@CLABE", SqlDbType.VarChar).Value = CLABE - .Add("@CveJornada", SqlDbType.Int).Value = CveJornada - .Add("@IdCtaContPersonal", SqlDbType.Int).Value = IdCtaContPersonal - .Add("@CtaContPersonal", SqlDbType.VarChar).Value = CtaContPersonal - .Add("@IdCtaContPrestamos", SqlDbType.Int).Value = IdCtaContPrestamos - .Add("@CtaContPrestamos", SqlDbType.VarChar).Value = CtaContPrestamos + .Add("@CveJornada", SqlDbType.Int).Value = CveJornada .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Beneficiario", SqlDbType.VarChar).Value = Beneficiario @@ -2031,16 +2030,13 @@ Public Class ClsRH .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo - + .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With - - - Try SqlAdapter.Fill(Data) _CvePersonal = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero @@ -2073,10 +2069,11 @@ Public Class ClsRH CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String, Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String, NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, - CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, + CveJornada As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, - Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean + Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, + Optional TipoSangre As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -2146,11 +2143,7 @@ Public Class ClsRH .Add("@CveSupervisor", SqlDbType.VarChar).Value = CveSupervisor .Add("@BancoNumCuenta", SqlDbType.VarChar).Value = BancoNumCuenta .Add("@CLABE", SqlDbType.VarChar).Value = CLABE - .Add("@CveJornada", SqlDbType.Int).Value = CveJornada - .Add("@IdCtaContPersonal", SqlDbType.Int).Value = IdCtaContPersonal - .Add("@CtaContPersonal", SqlDbType.VarChar).Value = CtaContPersonal - .Add("@IdCtaContPrestamos", SqlDbType.Int).Value = IdCtaContPrestamos - .Add("@CtaContPrestamos", SqlDbType.VarChar).Value = CtaContPrestamos + .Add("@CveJornada", SqlDbType.Int).Value = CveJornada .Add("@CveUsuarioNomina", SqlDbType.VarChar).Value = CveUsuarioNomina .Add("@Beneficiario", SqlDbType.VarChar).Value = Beneficiario .Add("@CveSubProyectoZona", SqlDbType.Int).Value = CveSubProyectoZona @@ -2174,6 +2167,7 @@ Public Class ClsRH .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo + .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre End With @@ -7075,7 +7069,7 @@ Public Class ClsRH #Region "T A G S - RH " Public Function GetDatosTagsDocumentos(CvePersonal As Integer, CveEmpresa As Integer) As List(Of TagsDocumentos) - Dim ListaTagsDocumentost = New List(Of TagsDocumentos) + Dim ListaTagsDocumentost As List(Of TagsDocumentos) = New List(Of TagsDocumentos) If PersonalReclutamientoGet(CvePersonal, CveEmpresa) Then diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index f0650949d..b7eb261df 100644 --- a/App_Code/ClsSAT.vb +++ b/App_Code/ClsSAT.vb @@ -218,7 +218,7 @@ Public Class ClsSAT Private Function ToDataTable69B(Ruta As String) As DataTable ' Dim conn As Odbc.OdbcConnection = Nothing - Dim HasError = False + Dim HasError As Boolean = False Dim DTRespuesta As DataTable = New DataTable DTRespuesta.TableName = "Detalles" diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index ba8e8bd27..6cce01769 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -421,7 +421,6 @@ Public Class ClsSisEmpresas _Empresa.CvePlataforma = Data.Rows(0)("CvePlataforma").ToString.ToEntero _Empresa.CveDistribuidor = Data.Rows(0)("CveDistribuidor").ToString.ToEntero _Empresa.DiasPermitidos = Data.Rows(0)("DiasPermitidos").ToString.ToEntero - _Empresa.AsientoContableComprasContado = If(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString = "", False, CBool(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString)) _Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero _Empresa.TipoContabilidad = Data.Rows(0)("Conta_TipoContabilidad").ToString.ToEntero '0 - Sin Conta, 1- Contabilidad SIG, 2- Contabilidad Contpaq _Empresa.DefaultAsistencias = If(Data.Rows(0)("RH_DefaultAsistencias").ToString = "", False, CBool(Data.Rows(0)("RH_DefaultAsistencias").ToString)) @@ -461,22 +460,20 @@ Public Class ClsSisEmpresas SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, Buzon_Tipo As String, Soporte_Mail As String, - Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, IdCuentaIVAxAcreditar As Integer, IdCuentaIVAAcreditable As Integer, - IdCuentaIVAxTrasladar As Integer, IdCuentaIVATrasladado As Integer, IdCuentaRetIVACirculacion As Integer, IdCuentaOtrosIngresos As Integer, IdCuentaDescuentoVentas As Integer, - IdCuentaRetISRCirculacion As Integer, RegistroPatronal As String, AreaGeografica As String, - Conta_IdCuentaPerdidaCambiaria As Integer, Conta_IdCuentaGananciaCambiaria As Integer, NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, Importe As Decimal, - CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, AsientoContableComprasContado As Boolean, + Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, + RegistroPatronal As String, AreaGeografica As String, + NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, Importe As Decimal, + CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer, - Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0, Optional IdCuentaDSV As Integer = -1, - Optional IdCuentaImpuestosLocales As Integer = -1, Optional RegistroCompleto As Boolean = False, Optional IdCuentaIEPSxAcreditar As Integer = -1, Optional IdCuentaIEPSAcreditable As Integer = -1, Optional IdCuentaIEPSxTrasladar As Integer = -1, - Optional IdCuentaIEPSTrasladado As Integer = -1) As Boolean + Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0, + Optional RegistroCompleto As Boolean = False + ) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_EmpresasAdd") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Empresa", SqlDbType.VarChar).Value = Empresa .Add("@Direccion", SqlDbType.VarChar).Value = Direccion @@ -535,27 +532,12 @@ Public Class ClsSisEmpresas 'Nuevos Datos .Add("@Buzon_Tipo", SqlDbType.VarChar).Value = Buzon_Tipo - .Add("@IdCuentaIVAxAcreditar", SqlDbType.VarChar).Value = IdCuentaIVAxAcreditar - .Add("@IdCuentaIVAAcreditable", SqlDbType.VarChar).Value = IdCuentaIVAAcreditable - .Add("@IdCuentaIVAxTrasladar", SqlDbType.VarChar).Value = IdCuentaIVAxTrasladar - .Add("@IdCuentaIVATrasladado", SqlDbType.VarChar).Value = IdCuentaIVATrasladado - .Add("@IdCuentaRetIVACirculacion", SqlDbType.VarChar).Value = IdCuentaRetIVACirculacion - .Add("@IdCuentaRetISRCirculacion", SqlDbType.VarChar).Value = IdCuentaRetISRCirculacion .Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica - .Add("@Conta_IdCuentaPerdidaCambiaria", SqlDbType.VarChar).Value = Conta_IdCuentaPerdidaCambiaria - .Add("@Conta_IdCuentaGananciaCambiaria", SqlDbType.VarChar).Value = Conta_IdCuentaGananciaCambiaria .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto .Add("@CvePAC", SqlDbType.Int).Value = CvePAC - .Add("@IdCuentaDSV", SqlDbType.Int).Value = IdCuentaDSV - .Add("@IdCuentaImpuestosLocales", SqlDbType.Int).Value = IdCuentaImpuestosLocales .Add("@CveEmpresaNew", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@RegistroCompleto", SqlDbType.Bit).Value = RegistroCompleto - - .Add("@IdCuentaIEPSxAcreditar", SqlDbType.VarChar).Value = IdCuentaIEPSxAcreditar - .Add("@IdCuentaIEPSAcreditable", SqlDbType.VarChar).Value = IdCuentaIEPSAcreditable - .Add("@IdCuentaIEPSxTrasladar", SqlDbType.VarChar).Value = IdCuentaIEPSxTrasladar - .Add("@IdCuentaIEPSTrasladado", SqlDbType.VarChar).Value = IdCuentaIEPSTrasladado .Add("@Soporte_Tipo", SqlDbType.VarChar).Value = Soporte_Tipo .Add("@Soporte_SSL", SqlDbType.Bit).Value = Soporte_SSL .Add("@Soporte_USR", SqlDbType.VarChar).Value = Soporte_USR @@ -571,7 +553,6 @@ Public Class ClsSisEmpresas .Add("@Extension", SqlDbType.VarChar).Value = Extension .Add("@Localidad", SqlDbType.VarChar).Value = Localidad .Add("@MetodoInventario", SqlDbType.Int).Value = MetodoInventario - .Add("@AsientoContableComprasContado", SqlDbType.Bit).Value = AsientoContableComprasContado .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual .Add("@EjercicioActual", SqlDbType.Int).Value = EjercicioActual .Add("@RH_DefaultAsistencias", SqlDbType.Bit).Value = RH_DefaultAsistencias @@ -579,11 +560,8 @@ Public Class ClsSisEmpresas .Add("@TipoCentroCosto", SqlDbType.Int).Value = TipoCentroCosto .Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto .Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo - .Add("@IdCuentaDescuentoVentas", SqlDbType.Int).Value = IdCuentaDescuentoVentas - .Add("@IdCuentaOtrosIngresos", SqlDbType.Int).Value = IdCuentaOtrosIngresos .Add("@Importe", SqlDbType.Decimal).Value = Importe - End With Try @@ -611,12 +589,10 @@ Public Class ClsSisEmpresas SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, CveEmpresa As Integer, Buzon_Tipo As String, Soporte_Mail As String, - Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, IdCuentaIVAxAcreditar As Integer, IdCuentaIVAAcreditable As Integer, - IdCuentaIVAxTrasladar As Integer, IdCuentaIVATrasladado As Integer, IdCuentaRetIVACirculacion As Integer, IdCuentaRetISRCirculacion As Integer, IdCuentaOtrosIngresos As Integer, IdCuentaDescuentoVentas As Integer, RegistroPatronal As String, AreaGeografica As String, - Conta_IdCuentaPerdidaCambiaria As Integer, Conta_IdCuentaGananciaCambiaria As Integer, NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, CvePAC As Integer, - Importe As Decimal, CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, AsientoContableComprasContado As Boolean, - PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer, Optional IdCuentaDSV As Integer = -1, Optional IdCuentaImpuestosLocales As Integer = -1, - Optional IdCuentaIEPSxAcreditar As Integer = -1, Optional IdCuentaIEPSAcreditable As Integer = -1, Optional IdCuentaIEPSxTrasladar As Integer = -1, Optional IdCuentaIEPSTrasladado As Integer = -1) As Boolean + Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, RegistroPatronal As String, AreaGeografica As String, + NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, CvePAC As Integer, + Importe As Decimal, CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, + PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer) As Boolean Dim Retorno As Boolean = False @@ -680,25 +656,11 @@ Public Class ClsSisEmpresas 'Nuevos Datos .Add("@Buzon_Tipo", SqlDbType.VarChar).Value = Buzon_Tipo - .Add("@IdCuentaIVAxAcreditar", SqlDbType.VarChar).Value = IdCuentaIVAxAcreditar - .Add("@IdCuentaIVAAcreditable", SqlDbType.VarChar).Value = IdCuentaIVAAcreditable - .Add("@IdCuentaIVAxTrasladar", SqlDbType.VarChar).Value = IdCuentaIVAxTrasladar - .Add("@IdCuentaIVATrasladado", SqlDbType.VarChar).Value = IdCuentaIVATrasladado - .Add("@IdCuentaRetIVACirculacion", SqlDbType.VarChar).Value = IdCuentaRetIVACirculacion - .Add("@IdCuentaRetISRCirculacion", SqlDbType.VarChar).Value = IdCuentaRetISRCirculacion .Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica - .Add("@Conta_IdCuentaPerdidaCambiaria", SqlDbType.Int).Value = Conta_IdCuentaPerdidaCambiaria - .Add("@Conta_IdCuentaGananciaCambiaria", SqlDbType.Int).Value = Conta_IdCuentaGananciaCambiaria .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto .Add("@CvePAC", SqlDbType.Int).Value = CvePAC - .Add("@IdCuentaDSV", SqlDbType.Int).Value = IdCuentaDSV - .Add("@IdCuentaImpuestosLocales", SqlDbType.Int).Value = IdCuentaImpuestosLocales - .Add("@IdCuentaIEPSxAcreditar", SqlDbType.VarChar).Value = IdCuentaIEPSxAcreditar - .Add("@IdCuentaIEPSAcreditable", SqlDbType.VarChar).Value = IdCuentaIEPSAcreditable - .Add("@IdCuentaIEPSxTrasladar", SqlDbType.VarChar).Value = IdCuentaIEPSxTrasladar - .Add("@IdCuentaIEPSTrasladado", SqlDbType.VarChar).Value = IdCuentaIEPSTrasladado .Add("@Soporte_Tipo", SqlDbType.VarChar).Value = Soporte_Tipo .Add("@Soporte_SSL", SqlDbType.Bit).Value = Soporte_SSL .Add("@Soporte_USR", SqlDbType.VarChar).Value = Soporte_USR @@ -714,7 +676,6 @@ Public Class ClsSisEmpresas .Add("@Extension", SqlDbType.VarChar).Value = Extension .Add("@Localidad", SqlDbType.VarChar).Value = Localidad .Add("@MetodoInventario", SqlDbType.Int).Value = MetodoInventario - .Add("@AsientoContableComprasContado", SqlDbType.Bit).Value = AsientoContableComprasContado .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual .Add("@EjercicioActual", SqlDbType.Int).Value = EjercicioActual .Add("@RH_DefaultAsistencias", SqlDbType.Bit).Value = RH_DefaultAsistencias @@ -722,10 +683,7 @@ Public Class ClsSisEmpresas .Add("@TipoCentroCosto", SqlDbType.Int).Value = TipoCentroCosto .Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto .Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo - .Add("@IdCuentaDescuentoVentas", SqlDbType.Int).Value = IdCuentaDescuentoVentas - .Add("@IdCuentaOtrosIngresos", SqlDbType.Int).Value = IdCuentaOtrosIngresos .Add("@Importe", SqlDbType.Decimal).Value = Importe - End With Try diff --git a/App_Code/ClsSisMail.vb b/App_Code/ClsSisMail.vb index 6bdb5ef93..560db8771 100644 --- a/App_Code/ClsSisMail.vb +++ b/App_Code/ClsSisMail.vb @@ -176,7 +176,8 @@ Public Class ClsSisMail Dim FS As New FileStream(FileName, FileMode.Open, FileAccess.Read) ' Create a byte array of file stream length - Dim FileData As Byte() = New Byte(FS.Length - 1) {} + Dim longitud As Integer = FS.Length.ToEntero - 1 + Dim FileData As Byte() = New Byte(longitud) {} 'Read block of bytes from stream into the byte array FS.Read(FileData, 0, System.Convert.ToInt32(FS.Length)) diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index 4547acac5..a7169b443 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -1,4 +1,5 @@ Option Explicit On +Option Strict Off Imports System.Data Imports System.Data.SqlClient @@ -1518,7 +1519,7 @@ Public Class ClsSisNotificaciones For Each Dr As DataRow In DTNotificacionesVentana.Rows Dim Encabezado As String = Dr("Encabezado").ToString.Replace("{Vehiculo}", Dr("Vehiculo").ToString).Replace("{Clase}", Dr("Clase").ToString) Dim Mensaje As String = Dr("Cuerpo").ToString.Replace("{Mensaje}", $"{Dr("Nombre").ToString} {Dr("FechaEvento")}") - Dim CveUsuario = Dr("CveUsuario").ToString + Dim CveUsuario As Integer = Dr("CveUsuario").ToString.ToEntero Dim TipoNotificacion As Integer = Dr("TipoNotificacion").ToString().ToEntero() Dim Pie As String = Dr("Pie").ToString Dim Sonido As String = Dr("Sonido").ToString diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 1a79d3b39..464fb1d6b 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -273,8 +273,7 @@ Public Class ClsSisUsuarios Retorno.Procesos = UsuariosProcesos Dim UsuariosIndicadores As New HybridDictionary - Dim dTableIndicadores = getUsuarioIndicadores(Retorno.CveUsuario, Retorno.CveEmpresa, Retorno.CveRol) - + Dim dTableIndicadores As DataTable = getUsuarioIndicadores(Retorno.CveUsuario, Retorno.CveEmpresa, Retorno.CveRol) For Each Row As DataRow In dTableIndicadores.Rows @@ -843,7 +842,7 @@ Public Class ClsSisUsuarios CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False, Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Sis_UsuarioAdd") With SqlAdapter.SelectCommand.Parameters .Add("@Usuario", SqlDbType.VarChar).Value = Usuario @@ -910,7 +909,7 @@ Public Class ClsSisUsuarios End Function Public Function AddUsuarioPopUp(Usuario As String, Contraseña As String, Nombre As String, Correo As String, CambiarContraseña As Boolean, CveUsuarioIng As Integer, CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer, Optional CvePlataforma As Integer = -1) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Sis_UsuarioAddPopUp") With SqlAdapter.SelectCommand.Parameters .Add("@Usuario", SqlDbType.VarChar).Value = Usuario @@ -941,7 +940,7 @@ Public Class ClsSisUsuarios Return Retorno End Function Public Function DeleteClienteUsuario(CveUsuario As Integer, CveCliente As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False DataAdapter("PA_Sis_UsuariosClienteDelete") With SqlAdapter.SelectCommand.Parameters @@ -1832,7 +1831,7 @@ Public Class ClsSisUsuarios dtMenu.TableName = "UsuariosModulos" Try - Dim Carpeta = "" + Dim Carpeta As String = "" 'GPS Carpeta = $"{AppDomain.CurrentDomain.BaseDirectory}/Menu/GPS" diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 752b7cb0e..2215fda48 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -166,21 +166,14 @@ Public Class ClsSubProyectos Return Retorno End Function - Public Function UpdateSubProyectoExcel(CveEmpresa As Integer, CveClasificacion As Integer, CveSubProyecto As Integer, IdCuentaGasto As Integer, IdCuentaAnticipo As Integer, IdCuentaInventario As Integer, CuentaGasto As String, CuentaAnticipo As String, CuentaInventario As String) As Boolean + Public Function UpdateSubProyectoExcel(CveEmpresa As Integer, CveClasificacion As Integer, CveSubProyecto As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_SubProyectosExcelSetUp") With SqlAdapter.SelectCommand.Parameters .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@IdCuentaGasto", SqlDbType.Int).Value = IdCuentaGasto - .Add("@IdCuentaAnticipo", SqlDbType.Int).Value = IdCuentaAnticipo - .Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - .Add("@CuentaGasto", SqlDbType.VarChar).Value = CuentaGasto - .Add("@CuentaAnticipo", SqlDbType.VarChar).Value = CuentaAnticipo - .Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresas", SqlDbType.Int).Value = CveEmpresa - End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb index 5b28b15a6..68dd68ef5 100644 --- a/App_Code/ClsTSoft.vb +++ b/App_Code/ClsTSoft.vb @@ -220,9 +220,9 @@ Public Class ClsTSoft MyCurrentError = String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional) OnError(Mensaje, Exeption, InfoAdicional) End Sub - Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") - GuardaLogAD(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional), "LogClsTsoft") - Alert(Obj, Mensaje, TipoMensaje.MsgError) - 'If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) - End Sub + 'Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") + ' GuardaLogAD(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional), "LogClsTsoft") + ' Alert(Obj, Mensaje, TipoMensaje.MsgError) + ' 'If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) + 'End Sub End Class diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb index 33531e153..c2e19cc0c 100644 --- a/App_Code/ClsValidaCFDi.vb +++ b/App_Code/ClsValidaCFDi.vb @@ -28,7 +28,7 @@ Public Class ClsValidaCFDi Public Property Receptor As String Public Property RFCPAC As String Public Property FechaCertificacion As String - Public Property Monto As String + Public Property Monto As Decimal Public Property FechaCancelacion As String Public Property ResponseHTML As String @@ -40,7 +40,7 @@ Public Class ClsValidaCFDi End Sub - Public Sub New(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0.00) + Public Sub New(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0) Me.LFolioFiscal = HttpUtility.UrlEncode(FolioFiscal) Me.LRFCEmisor = HttpUtility.UrlEncode(RFCEmisor) Me.LRFCReceptor = HttpUtility.UrlEncode(RFCReceptor) @@ -59,7 +59,7 @@ Public Class ClsValidaCFDi End If End Sub - Public Function Verificar(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0.00) As Integer + Public Function Verificar(FolioFiscal As String, RFCEmisor As String, RFCReceptor As String, Optional Importe As Decimal = 0) As Integer Me.LFolioFiscal = HttpUtility.UrlEncode(FolioFiscal) Me.LRFCEmisor = RFCEmisor Me.LRFCReceptor = RFCReceptor @@ -83,7 +83,7 @@ Public Class ClsValidaCFDi End Function Private Sub VerificaCFDI() - Dim Importe As String = LImporte.ToString("F6").PadLeft(17, "0") + Dim Importe As String = LImporte.ToString("F6").PadLeft(17, "0"c) Dim MsgError As String = "" Dim MsgError2 As String = "" Try @@ -120,7 +120,7 @@ Public Class ClsValidaCFDi 'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION If EsValida = 0 Then - Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True) + Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True) If Vigencia IsNot Nothing Then If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then @@ -239,7 +239,7 @@ Public Class ClsValidaCFDi Me.Receptor = ExtraeDatos(HTML, "ctl00_MainContent_LblNombreReceptor"">", 200) Me.RFCPAC = ExtraeDatos(HTML, "ctl00_MainContent_LblRfcPac"">", 13) Me.FechaCertificacion = ExtraeDatos(HTML, "ctl00_MainContent_LblFechaCertificacion"">", 19) - Me.Monto = ExtraeDatos(HTML, "ctl00_MainContent_LblMonto"">", 15) + Me.Monto = ExtraeDatos(HTML, "ctl00_MainContent_LblMonto"">", 15).ToDecimal Me.FechaCancelacion = ExtraeDatos(HTML, "ctl00_MainContent_LblFechaCancelacion"">", 19) If Estado.ToLower = "vigente" Then EsValida = 1 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index fd66b4b7e..a0626d3da 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1104,7 +1104,7 @@ Public Class ClsVentas With SqlAdapter.SelectCommand.Parameters .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle .Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad End With Try @@ -2174,7 +2174,7 @@ Public Class ClsVentas Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String, Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Vta_PromocionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -2206,7 +2206,7 @@ Public Class ClsVentas Public Function AddPromociones(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Actualizar As Boolean) As Integer - Dim Retorno = -1 + Dim Retorno As Integer = -1 DataAdapter("PA_Vta_PromocionesAddClonar") With SqlAdapter.SelectCommand.Parameters @@ -2679,7 +2679,7 @@ Public Class ClsVentas #End Region #Region " I M P U E S T O S L O C A L E S" - Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As Boolean + Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ImpuestosLocalesAdd") @@ -2689,12 +2689,10 @@ Public Class ClsVentas .Add("@Orden", SqlDbType.Int).Value = Orden .Add("@TipoImpuesto", SqlDbType.Int).Value = TipoImpuesto .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - End With Try @@ -2724,7 +2722,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, Optional CveClasificacion As Integer = -1) As Boolean + Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ImpuestosLocalesUpdate") @@ -2735,7 +2733,6 @@ Public Class ClsVentas .Add("@TipoImpuesto", SqlDbType.Int).Value = TipoImpuesto .Add("@Orden", SqlDbType.Int).Value = Orden .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With @@ -3175,7 +3172,7 @@ Public Class ClsVentas theDataSet.ReadXml(theReader) If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then - Dim sb = New StringBuilder() + Dim sb As StringBuilder = New StringBuilder() For Each item As DataRow In theDataSet.Tables(0).Rows sb.AppendFormat("{0};", item("Uuid").ToString()) @@ -3334,7 +3331,7 @@ Public Class ClsVentas #Region " CANCELAR ANTE SAT " Public Function CancelarVentasSAT(StrVentas As String) As String - Dim CveVentas = StrVentas.Split(","c) + Dim CveVentas As String() = StrVentas.Split(","c) Dim CveVentasError As New List(Of Integer) If CveVentas IsNot Nothing Then @@ -3344,17 +3341,17 @@ Public Class ClsVentas Dim Usuario As Usuario = Nothing Dim ObjEmpresa As New ClsSisEmpresas() - Dim FolioFiscal = "-1" - Dim CveEstatus = -1 - Dim Total = 0.0D - Dim RFCReceptor = "-1" - Dim Nombre = "-1" + Dim FolioFiscal As String = "-1" + Dim CveEstatus As Integer = -1 + Dim Total As Decimal = 0.0D + Dim RFCReceptor As String = "-1" + Dim Nombre As String = "-1" Dim DbRowVenta As DataRow - Dim CveUsuario = -1 - Dim pCveEmpresa = -1 - Dim Contraseña = "-1" + Dim CveUsuario As Integer = -1 + Dim pCveEmpresa As Integer = -1 + Dim Contraseña As String = "-1" - For Each PCveVenta In CveVentas + For Each PCveVenta As String In CveVentas If ObjVentas.GetVenta(PCveVenta.ToEntero, -1) Then DbRowVenta = ObjVentas.DtResultados.Rows(0) @@ -3382,7 +3379,6 @@ Public Class ClsVentas Continue For End If - 'SOLO SI ESTA CANCELADA ANTE SAT EN SIG SE INTENTARA CANCELAR DE NUEVO CONTRA EL SAT If CveEstatus = 5 Then Dim Resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(Usuario.Empresa, FolioFiscal, Total, RFCReceptor, Usuario.Empresa.RFC) @@ -4917,7 +4913,7 @@ Public Class ClsVentas End Try Return retorno End Function - Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, + Public Function GetRepMetasVendedores(FechaMesActual As Date, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, EsDistribuidor As Integer, Optional GrupoSuperior As Integer = 0) As Boolean Dim retorno As Boolean = False @@ -5862,7 +5858,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetFacturacionAcarreos(CveFacturacionAcarreo As Integer, CveCliente As Integer, CveSubProyecto As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean + Public Function GetFacturacionAcarreos(CveFacturacionAcarreo As Integer, CveCliente As Integer, CveSubProyecto As Integer, Estatus As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_FacturacionAcarreosGet") @@ -5871,6 +5867,7 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index 5afd2bf58..f3b7eb91c 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -298,8 +298,13 @@ - - + + + + + + + diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 2508ad6f9..c0c231714 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -119,8 +119,7 @@ Public Class Empresa Public Property PorDepreciacion As Decimal Public Property CvePlataforma As Integer Public Property CveDistribuidor As Integer - Public Property DiasPermitidos As Integer - Public Property AsientoContableComprasContado As Boolean + Public Property DiasPermitidos As Integer Public Property TipoContabilizacion As Integer Public Property TipoContabilidad As Integer Public Property DefaultAsistencias As Boolean diff --git a/App_Code/EntityModel.vb b/App_Code/EntityModel.vb index 91b537d48..19459d8c3 100644 --- a/App_Code/EntityModel.vb +++ b/App_Code/EntityModel.vb @@ -48,7 +48,7 @@ Case "Single" prop.SetValue(Me, CSng(row(prop.Name))) Case "String" - If String.IsNullOrEmpty(row(prop.Name)) Then + If String.IsNullOrEmpty(row(prop.Name).ToString) Then prop.SetValue(Me, "") Else prop.SetValue(Me, CStr(row(prop.Name))) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index ba91cbbbd..a6dcf91e0 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -164,8 +164,7 @@ Public Class LogicNominas 'Else totalDb = drow("Total").ToString().ToDecimal() subTotalDb = drow("SubTotal").ToString().ToDecimal() - 'End If - cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() + 'End If cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie Folio = objNomina.Folio.ToString() diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 8b66a900e..bf9510f6a 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -709,7 +709,7 @@ Namespace Modelos Public Property FolioUsado As String End Class - Public Function RegenerarPrePolizas(Optional TransaccionCompartida As SqlClient.SqlTransaction = Nothing, Optional ObjACTransac As ClsContPAQi = Nothing) As Boolean + Public Function RegenerarPrePolizas(Optional TransaccionCompartida As SqlClient.SqlTransaction = Nothing) As Boolean Dim ErrorPrePolizas As Boolean = False Dim ObjVentas As ClsVentas = Nothing @@ -723,17 +723,8 @@ Namespace Modelos Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL()) - Dim ObjAC As ClsContPAQi = Nothing - If ObjACTransac Is Nothing Then - If UsuarioActual.Empresa.UsaAC Then - ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() - End If - Else - ObjAC = ObjACTransac - End If - - ErrorPrePolizas = Not RegeneracionPolizas(Me, ObjVentas, ObjAC, ObjConta, ObjBancos, ObjEventos) + ErrorPrePolizas = Not RegeneracionPolizas(Me, ObjVentas, ObjConta, ObjBancos, ObjEventos) If TransaccionCompartida Is Nothing Then ObjVentas.Commit() @@ -742,16 +733,9 @@ Namespace Modelos ObjEventos.Dispose() End If - If ObjACTransac Is Nothing Then - If ObjAC IsNot Nothing Then - ObjAC.Commit() - ObjAC.Dispose() - End If - End If - Return Not ErrorPrePolizas End Function - Private Function RegeneracionPolizas(ObjFactura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjAC As ClsContPAQi, ByRef ObjConta As ClsContabilidad, ObjBancos As ClsBancos, ObjEventos As ClsOIEventos) As Boolean + Private Function RegeneracionPolizas(ObjFactura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ObjBancos As ClsBancos, ObjEventos As ClsOIEventos) As Boolean Dim ErrorPrePolizas As Boolean = False 'REMOVEMOS LOS CONCEPTOS DE LA PREPOLIZA @@ -759,7 +743,7 @@ Namespace Modelos 'VUELVE A GENERAR LAS PREPOLIZAS If Not ErrorPrePolizas Then - ErrorPrePolizas = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ObjAC, ValorMultiplicador:=1, ObjBancos:=ObjBancos, ObjVentas:=ObjVentas, ObjEventos:=ObjEventos, DtRemisionesRelacionadas:=New DataTable, SeCancelaRemisionProceso:=False, + ErrorPrePolizas = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ValorMultiplicador:=1, ObjBancos:=ObjBancos, ObjVentas:=ObjVentas, ObjEventos:=ObjEventos, DtRemisionesRelacionadas:=New DataTable, SeCancelaRemisionProceso:=False, CancelarRemisiones:=False, ListaRemisionesCancelar:=New List(Of Integer)) End If @@ -767,7 +751,7 @@ Namespace Modelos Return Not ErrorPrePolizas End Function - Public Function EmitirFactura(Optional Timbrar As Boolean = True, Optional Transac As SqlClient.SqlTransaction = Nothing, Optional ObjContPaqTransac As ClsContPAQi = Nothing, Optional Modulo As String = "Modelos/GuardarVentaM") As MMensajeFactura + Public Function EmitirFactura(Optional Timbrar As Boolean = True, Optional Transac As SqlClient.SqlTransaction = Nothing, Optional Modulo As String = "Modelos/GuardarVentaM") As MMensajeFactura Dim Retorno As New MMensajeFactura() If Me.Version = "3.3" AndAlso Not Me.TipoDocto.Contiene("Ped", "PeC") Then @@ -835,19 +819,9 @@ Namespace Modelos Dim ObjDocCliente As New ClsEdocumentacion(ObjVentas.IniciaTransacSQL()) Dim ObjGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL()) Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL()) - Dim ObjContPaq As ClsContPAQi = Nothing Dim MensajeAlert = New StringBuilder Try - 'CONTABILIDAD AUTOMATICA Y AC - If ObjContPaqTransac IsNot Nothing Then - ObjContPaq = ObjContPaqTransac - Else - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1") Then - ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) - End If - End If - 'GUARDA VENTA Dim TieneAnticipo As Boolean = False @@ -868,7 +842,7 @@ Namespace Modelos Dim CveTimbreCartaPorte As Integer = -1 - GuardarVenta(Me, ObjVentas, ObjConta, ObjInventario, ObjContr, DtDetalle, Me.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS, ObjEventos, ObjCGame, ObjClientes, ObjAcum:=ObjAcum, Resp:=Retorno, Modulo:=Modulo) + GuardarVenta(Me, ObjVentas, ObjConta, ObjInventario, ObjContr, DtDetalle, Me.CveNCaVincular, ObjBancos, ObjOS, ObjEventos, ObjCGame, ObjClientes, ObjAcum:=ObjAcum, Resp:=Retorno, Modulo:=Modulo) If ErrorList.Count = 0 AndAlso Me.EmitirCartaPorte AndAlso Me.TipoDocto = "Ing" Then CveTimbreCartaPorte = GuardarCartaPorte(Me, ObjGeneral, ObjVentas) @@ -882,7 +856,7 @@ Namespace Modelos If ErrorList.Count = 0 Then If NuevaFactura = 1 AndAlso FacturaDevolucion IsNot Nothing Then - ObjNC = GeneraNC(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, FacturaDevolucion, ObjBancos, ObjEventos) + ObjNC = GeneraNC(ObjVentas, ObjConta, ObjInventario, ObjContr, FacturaDevolucion, ObjBancos, ObjEventos) If ObjNC Is Nothing Then ErrorList.Add("No se pudo Cancelar la Factura") @@ -908,7 +882,7 @@ Namespace Modelos If TieneAnticipo Then Try 'DESCOMENTAR - If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, FacturaDevolucion, ObjBancos, Nothing, Nothing) Then + If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, FacturaDevolucion, ObjBancos, Nothing, Nothing) Then Obj2.Add(FacturaDevolucion) End If Catch ex As Exception @@ -1046,9 +1020,6 @@ Namespace Modelos If Transac Is Nothing Then ObjVentas.Commit() End If - If ObjContPaqTransac Is Nothing Then - If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() - End If Try If Not String.IsNullOrEmpty(DirectorioServidor) Then @@ -1263,9 +1234,6 @@ Namespace Modelos If Transac Is Nothing Then ObjVentas.RollBack() End If - If ObjContPaqTransac Is Nothing Then - If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - End If Retorno.Mensajes = ErrorList Retorno.TieneError = True End If @@ -1275,10 +1243,6 @@ Namespace Modelos ObjVentas.RollBack() End If - If ObjContPaqTransac Is Nothing Then - If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - End If - ErrorList.Add("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.") Retorno.Mensajes = ErrorList Retorno.TieneError = True @@ -1289,9 +1253,6 @@ Namespace Modelos If Transac Is Nothing Then ObjVentas.RollBack() End If - If ObjContPaqTransac Is Nothing Then - If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - End If Retorno.Mensajes = ErrorList Retorno.TieneError = True @@ -1306,9 +1267,6 @@ Namespace Modelos ObjClientes.Dispose() ObjAcum.Dispose() End If - If ObjContPaqTransac Is Nothing Then - If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() - End If End Try Else Retorno.Mensajes.Add("No se han agregado productos/servicios") @@ -1319,7 +1277,7 @@ Namespace Modelos End Function Public Shared Function CrearVentaNueva(UsuarioActual As Usuario, CveSubProyecto As Integer, CveCliente As Integer, CveMoneda As Integer) As Modelos.Factura - Dim ObjFactura = New Modelos.Factura(UsuarioActual) + Dim ObjFactura As New Modelos.Factura(UsuarioActual) Try ObjFactura.DirectorioServidor = HttpContext.Current.Server.MapPath("/") @@ -1424,7 +1382,7 @@ Namespace Modelos End Function Private Shared Function CreaDTFactura() As DataTable - Dim TmpDT = New DataTable + Dim TmpDT As New DataTable TmpDT.Columns.Add("CveVenta", GetType(Integer)) TmpDT.Columns.Add("Consec", GetType(Integer)) TmpDT.Columns.Add("Cantidad", GetType(Decimal)) @@ -1590,8 +1548,8 @@ Namespace Modelos Row("Consec") = ConsecutivoActual + 1 - Dim ClienteRetIVA = Me.Cliente.RetIVA - Dim ClienteRetISR = Me.Cliente.RetISR + Dim ClienteRetIVA As Decimal = Me.Cliente.RetIVA + Dim ClienteRetISR As Decimal = Me.Cliente.RetISR If ClienteRetIVA <= 0 AndAlso DrPS("RetIVA").ToString.ToDecimal > 0 Then ClienteRetIVA = DrPS("RetIVA").ToString.ToDecimal @@ -1941,7 +1899,7 @@ Namespace Modelos End Function #Region " GUARDAR - VENTA, PREPOLIZAS, INV, NC , ESTIMACIONES, AC, NOTA DE CRÉDITO " - Private Function RegistrarNCAmortizacion(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, ObjContPaq As ClsContPAQi, ByVal factura As Modelos.Factura, ObjBancos As ClsBancos, TmpDTconceptos As DataTable, ByRef ObjEventos As ClsOIEventos) As Boolean + Private Function RegistrarNCAmortizacion(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, ByVal factura As Modelos.Factura, ObjBancos As ClsBancos, TmpDTconceptos As DataTable, ByRef ObjEventos As ClsOIEventos) As Boolean Dim ProcesoCorrecto As Boolean = True 'Generamos el nuevo folio @@ -2035,7 +1993,7 @@ Namespace Modelos factura.CveVentaPadre = CveVentaP 'Registramos la venta - GuardarVenta(factura, ObjVentas, ObjConta, ObjInventario, ObjContr, tmpcon, -1, ObjContPaq, ObjBancos) + GuardarVenta(factura, ObjVentas, ObjConta, ObjInventario, ObjContr, tmpcon, -1, ObjBancos) ''Timbramos Else @@ -2144,8 +2102,8 @@ Namespace Modelos Dim CveCamionRemolque1 As Integer = -1 Dim CveCamionRemolque2 As Integer = -1 - If ObjVentas.GetFacturacionAcarreos(ObjFactura.CveFacturacionAcarreo, -1, -1, -1, UsuarioActual.CveEmpresa) Then - Dim Row = ObjVentas.DtResultados.Rows(0) + If ObjVentas.GetFacturacionAcarreos(ObjFactura.CveFacturacionAcarreo, -1, -1, -1, MinFecha, UsuarioActual.CveEmpresa) Then + Dim Row As DataRow = ObjVentas.DtResultados.Rows(0) If Row IsNot Nothing Then CveDireccionOrigen = Row("CveDireccionOrigen").ToString().ToEntero() @@ -2202,7 +2160,7 @@ Namespace Modelos End If End Function - Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing, ByRef Optional Resp As MMensajeFactura = Nothing, Optional Modulo As String = "Modelos/GuardarVentaM") + Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing, ByRef Optional Resp As MMensajeFactura = Nothing, Optional Modulo As String = "Modelos/GuardarVentaM") Dim Msgok As New StringBuilder factura.CvePrePoliza = ObjConta.AddPrePolizas(Modulo, factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) @@ -2531,7 +2489,7 @@ Namespace Modelos If ErrorList.Count = 0 Then 'prepoliza - GuardarVentaPrePolizas(factura, ObjConta, TmpDTDetalle, CveNCaVincular, objContPaqi, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, ObjInventario:=ObjInventario) + GuardarVentaPrePolizas(factura, ObjConta, TmpDTDetalle, CveNCaVincular, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, ObjInventario:=ObjInventario) If ErrorList.Count = 0 Then 'inventarios GuardarVentaInventarios(Resp, factura, ObjInventario, ObjConta, ObjVentas, ObjAcum) @@ -2543,7 +2501,7 @@ Namespace Modelos GuardarVentaEstimaciones(factura, ObjContr) If ErrorList.Count = 0 Then 'armonizaccionContable - GuardarVentaAC(factura, ObjVentas, Msgok, objContPaqi) + 'GuardarVentaAC(factura, ObjVentas, Msgok, objContPaqi) If ErrorList.Count = 0 Then 'Impuestos Locales If GuardarVentaImpuestosLocales(factura, ObjVentas, ObjConta) Then @@ -2559,20 +2517,20 @@ Namespace Modelos End Sub Private Function SalidaAlmacenMateriales(ByRef ObjInventario As ClsInventarios, CveOS As Integer, ByRef ObjConta As ClsContabilidad, ConSalida As Boolean, ConceptoMovimiento As Integer) As Boolean Dim TieneError As Boolean = False - Dim CveMovimientoSalida = 0 - Dim CveMovimientoEntrada = 0 + Dim CveMovimientoSalida As Integer = 0 + Dim CveMovimientoEntrada As Integer = 0 - Dim CveMovimientoSalida2 = 0 - Dim CveMovimientoEntrada2 = 0 + Dim CveMovimientoSalida2 As Integer = 0 + Dim CveMovimientoEntrada2 As Integer = 0 - Dim CveMovimientoSalida3 = 0 - Dim CveMovimientoEntrada3 = 0 + Dim CveMovimientoSalida3 As Integer = 0 + Dim CveMovimientoEntrada3 As Integer = 0 - Dim AlmacenEntrada = -1 - Dim FolioSalida = 0 - Dim FolioEntrada = 0 + Dim AlmacenEntrada As Integer = -1 + Dim FolioSalida As Integer = 0 + Dim FolioEntrada As Integer = 0 - Dim TextoError = "" + Dim TextoError As String = "" Dim TextoExistencia As StringBuilder = New StringBuilder 'Obtenemos los movimientos detalle @@ -2678,9 +2636,9 @@ Namespace Modelos Return True End If - Dim CveMovimientoSalidaConsignacion = -1 - Dim CveMovimientoEntradaGeneral = -1 - Dim CveMovimientoSalidaGeneral = -1 + Dim CveMovimientoSalidaConsignacion As Integer = -1 + Dim CveMovimientoEntradaGeneral As Integer = -1 + Dim CveMovimientoSalidaGeneral As Integer = -1 'MOVIMIENTO DE SALIDA POR TRASPASO DEL ALMACEN DE CONSIGNACION @@ -2842,7 +2800,7 @@ Namespace Modelos Dim ImporteCargo As Decimal = RowSalida("ImporteCargo").ToString().ToDecimal() * -1 Dim ImporteBonificacion As Decimal = RowSalida("ImporteBonificacion").ToString().ToDecimal() * -1 - Dim FacturadoBonificacion = False + Dim FacturadoBonificacion As Boolean = False Dim CveVentaBonificacion As Integer = -1 If factura.TipoDocto = "RNC" Then @@ -2910,7 +2868,7 @@ Namespace Modelos 'SI ES UNA RNC DE CARGO GENERA EL MOVIMIENTO DE ALMACEN AQUI If factura.TipoDocto = "RNC" AndAlso factura.Num1 = 1 AndAlso factura.DtMovimientosUsados IsNot Nothing AndAlso ObjAcum IsNot Nothing Then 'Dim Mensaje As String = "" - Dim CveMovimiento = ObjInventario.AddMovimiento(factura.CveAlmacen, factura.CveConceptoMovimiento, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + Dim CveMovimiento As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, factura.CveConceptoMovimiento, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, CveSubProyecto, CveActivoFijo:=-1, Observaciones:=factura.MovimientoObservaciones, Recibio:=factura.MovimientoRecibio, CvePersonal:=-1, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, Modulo:="RU/GModel") If CveMovimiento <= 0 Then @@ -3055,7 +3013,7 @@ Namespace Modelos Return Resultado End Function - Private Sub GuardarVentaPrePolizas(ByRef factura As Modelos.Factura, ByRef ObjConta As ClsContabilidad, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjInventario As ClsInventarios = Nothing) + Private Sub GuardarVentaPrePolizas(ByRef factura As Modelos.Factura, ByRef ObjConta As ClsContabilidad, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer, Optional ByRef ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjInventario As ClsInventarios = Nothing) Dim CveIE As Integer = -1 Dim DT As DataTable = Nothing @@ -3073,7 +3031,7 @@ Namespace Modelos 'P R E P O L I Z A S If Me.TipoDocto <> "Cot" Then If Me.CvePrePoliza > 0 Then - If ProcesoPrepolizas(factura, ObjConta, CveIE, TmpDTDetalleMovimientos, objContPaqi, 1, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, ObjInventario:=ObjInventario) Then + If ProcesoPrepolizas(factura, ObjConta, CveIE, TmpDTDetalleMovimientos, 1, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, ObjInventario:=ObjInventario) Then ErrorList.Add("Ocurrió un error al agregar los Movimientos de la prepoliza.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") End If Else @@ -3081,7 +3039,7 @@ Namespace Modelos End If End If End Sub - Private Function ProcesoPrepolizas(ObjFactura As Factura, ByRef ObjConta As ClsContabilidad, CveIE As Integer, TmpDTDetalle As DataTable, ByRef objContPaqi As ClsContPAQi, + Private Function ProcesoPrepolizas(ObjFactura As Factura, ByRef ObjConta As ClsContabilidad, CveIE As Integer, TmpDTDetalle As DataTable, Optional ValorMultiplicador As Integer = 1, ByRef Optional ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, Optional ByRef DtRemisionesRelacionadas As DataTable = Nothing, Optional SeCancelaRemisionProceso As Boolean = False, Optional CancelarRemisiones As Boolean = False, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusRefacturacion As Integer = 0, Optional ByRef ObjInventario As ClsInventarios = Nothing, Optional FechaCancelacion As DateTime = MinFecha) As Boolean @@ -3138,14 +3096,14 @@ Namespace Modelos Dim FechaMovimiento As Date = ObjFactura.Fecha Dim Concepto As String = ObjFactura.SerieFolio Dim Referencia As String = ObjFactura.SerieFolio - Dim Fecha = ObjFactura.Fecha + Dim Fecha As Date = ObjFactura.Fecha Dim importeMX As Decimal Dim Multiplicador As Integer Dim CveIEPago As Integer Dim FolioIE As Long Dim CveIEAnticipo As Integer - Dim CveSubProyectoVenta = ObjFactura.CveSubProyecto + Dim CveSubProyectoVenta As Integer = ObjFactura.CveSubProyecto Dim CveSubProyectoContabilizar As Integer Dim SeContabiliza As Boolean = True Dim DtPrePolizasAFCancelar As DataTable = Nothing @@ -3304,7 +3262,7 @@ Namespace Modelos 'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then Dim CveMovimientoReferencia As Integer = -1 - Dim TipoMovto68 = TipoMovimiento + Dim TipoMovto68 As Boolean = TipoMovimiento 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS If ValorMultiplicador = -1 Then CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta, GenerarPrePoliza:=False) @@ -3473,7 +3431,7 @@ Namespace Modelos ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta) Next - If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then + If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorPrepoliza = True GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") @@ -3492,11 +3450,11 @@ Namespace Modelos 'APLICA DEVOLUCION SALDOS DIRECTOS If ObjFactura.AplicaDevolucion Then - Dim TipoCambioFactura = ObjFactura.TipoCambio - Dim importeMovimientoDev = ObjFactura.Total + Dim TipoCambioFactura As Decimal = ObjFactura.TipoCambio + Dim importeMovimientoDev As Decimal = ObjFactura.Total importeMovimientoDev = If(ObjFactura.SaldoVentaDevolucion < importeMovimientoDev, ObjFactura.SaldoVentaDevolucion, importeMovimientoDev) If importeMovimientoDev > 0 Then - Dim importeMXDev = importeMovimientoDev * tipoCambio * Multiplicador + Dim importeMXDev As Decimal = importeMovimientoDev * tipoCambio * Multiplicador If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimientoDev.FormatoNumero(2)}" If UsaComplementariaClientes AndAlso tipoCambio > 1 Then @@ -3547,7 +3505,7 @@ Namespace Modelos End If End If - If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then + If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorPrepoliza = True GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") @@ -4194,8 +4152,7 @@ Namespace Modelos Next End If - - If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then + If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2) Then If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre = 2 Then ErrorList.Add(ObjConta.MensajePolizaDescuadre) @@ -4222,7 +4179,7 @@ Namespace Modelos If AutoConta Then If idCuentaContabilizacion > 0 Then - If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=objContPaqi) Then + If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then ErrorList.Add("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico") 'ErrorPrepoliza = True End If @@ -4276,7 +4233,6 @@ Namespace Modelos End If End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then OcurrioError = True ErrorList.Add("Ocurrió un error al agregar los Movimientos de entrada al Inventario.
") @@ -4346,7 +4302,7 @@ Namespace Modelos 'SI ES UNA RNC DE CARGO GENERA EL MOVIMIENTO DE ALMACEN AQUI If factura.TipoDocto = "RNC" AndAlso factura.Num3 = 10 Then - Dim CveMovimiento = GenerarMovimientoAlmacenDevolucionRNC(ObjInventario, factura, DtInventario, factura.CveAlmacen, factura.CveConceptoMovimiento, factura.CveMoneda, factura.CveVenta, "Modelos/RNC1") + Dim CveMovimiento As Integer = GenerarMovimientoAlmacenDevolucionRNC(ObjInventario, factura, DtInventario, factura.CveAlmacen, factura.CveConceptoMovimiento, factura.CveMoneda, factura.CveVenta, "Modelos/RNC1") If CveMovimiento <= 0 Then OcurrioError = True Else @@ -4380,11 +4336,11 @@ Namespace Modelos 'SI TIENE UNA GARANTIA, GENERAR EL MOVIMIENTO DE ALMACEN If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then Dim TotalGarantia As Decimal = 0 - Dim CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, CveConceptoMovimiento, 1, FechaMovimiento, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Guia:="", Modulo:=Modulo) - Dim FolioGarantia = ObjInventario.Folio + Dim CveMovimientoGarantia As Integer = ObjInventario.AddMovimiento(CveAlmacenGarantia, CveConceptoMovimiento, 1, FechaMovimiento, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Guia:="", Modulo:=Modulo) + Dim FolioGarantia As Integer = ObjInventario.Folio For Each RowGarantia As DataRow In DtGarantias.Rows - Dim CvePS = RowGarantia("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowGarantia("CvePS").ToString().ToEntero() Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero() Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero() Dim PU As Decimal = 0 ' el valor de garántía debe de ser cero, tema contable @@ -4526,7 +4482,7 @@ Namespace Modelos If ErrorList.Count = 0 Then If MovDetalle.Rows.Count > 0 Then - Dim CveMovimientoSalidaPorTraspaso = -1 + Dim CveMovimientoSalidaPorTraspaso As Integer = -1 'Le damos salida de apartado por traspaso CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision) @@ -4581,7 +4537,7 @@ Namespace Modelos End Function Private Function GenerarMovimientoAlmacen(ByRef ObjInventario As ClsInventarios, DtMovDetalle As DataTable, CveAlmacen As Integer, ConceptoEntrada As Integer, CveMoneda As Integer, CveVenta As Integer, Optional MovimientoPrePoliza As Boolean = False, Optional ByRef ObjConta As ClsContabilidad = Nothing, Optional CveMovimientoRelacionado As Integer = -1) As Integer Dim OcurrioError As Boolean = False - Dim ContadorMovtosDetalles = 0 + Dim ContadorMovtosDetalles As Integer = 0 'Creamos el movimiento Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Mod/M2") @@ -4609,7 +4565,7 @@ Namespace Modelos 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) + Dim CveVentaDetalle As Integer = If(ConceptoEntrada.Contiene(3, 40), DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) Dim CveVentaDetalleRemision As Integer = -1 If ConceptoEntrada = 40 AndAlso MovDet("CveVentaDetalle").ToString().ToEntero() > 0 Then @@ -4962,31 +4918,31 @@ Namespace Modelos End If End If End Sub - Private Sub GuardarVentaAC(ByRef factura As Modelos.Factura, ObjVentas As ClsVentas, Msgok As StringBuilder, ObjAC As ClsContPAQi) - If UsuarioActual.Empresa.UsaAC Then + 'Private Sub GuardarVentaAC(ByRef factura As Modelos.Factura, ObjVentas As ClsVentas, Msgok As StringBuilder ) + ' If UsuarioActual.Empresa.UsaAC Then - If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then + ' If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then - 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() - Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(factura, ObjAC) + ' 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() + ' Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(factura, ObjAC) - If IDPoliza.IdPoliza > 0 Then + ' If IDPoliza.IdPoliza > 0 Then - If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then + ' If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then - 'Si se facturó la cotización hay que vincular la venta - Msgok.AppendFormat("Abono Registrado Correctamente.

Ver Poliza", IDPoliza) - End If - Else - ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") - End If + ' 'Si se facturó la cotización hay que vincular la venta + ' Msgok.AppendFormat("Abono Registrado Correctamente.

Ver Poliza", IDPoliza) + ' End If + ' Else + ' ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") + ' End If - Else - Msgok.Append("Movimiento Registrado Correctamente.

") - End If + ' Else + ' Msgok.Append("Movimiento Registrado Correctamente.

") + ' End If - End If - End Sub + ' End If + 'End Sub Private Function GuardarVentaImpuestosLocales(factura As Modelos.Factura, ObjVentas As ClsVentas, ObjConta As ClsContabilidad, Optional ValorMultiplicador As Integer = 1) As Boolean Dim ErrorPrepoliza As Boolean = False @@ -5036,7 +4992,7 @@ Namespace Modelos Return ErrorPrepoliza End Function - Private Function GeneraNC(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef ObjContPaq As ClsContPAQi, ByVal factura As Modelos.Factura, ByRef ObjBancos As ClsBancos, ByRef ObjEventos As ClsOIEventos) As List(Of Object) + Private Function GeneraNC(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByVal factura As Modelos.Factura, ByRef ObjBancos As ClsBancos, ByRef ObjEventos As ClsOIEventos) As List(Of Object) Dim Obj As New List(Of Object) Dim CveVentaNueva As Integer = ObjVentas.CveVenta Dim BanderaGeneraNC As Boolean = False @@ -5114,7 +5070,7 @@ Namespace Modelos 'CANCELA FACTURA If Month(factura.Fecha) = Month(Now) OrElse BanderaGeneraNC = True Then - If CancelarFactura(ObjVentas, ObjConta, ObjContPaq, ObjBancos) Then + If CancelarFactura(ObjVentas, ObjConta, ObjBancos) Then Obj.Add(factura) Else Return Nothing @@ -5122,7 +5078,7 @@ Namespace Modelos Else FacturaDevolucion.TipoDocto = "Egs" FacturaDevolucion.Fecha = Now - If RegistrarNC(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, FacturaDevolucion, ObjBancos, TmpDTconceptos, ObjEventos) Then + If RegistrarNC(ObjVentas, ObjConta, ObjInventario, ObjContr, FacturaDevolucion, ObjBancos, TmpDTconceptos, ObjEventos) Then Obj.Add(FacturaDevolucion) Else Return Nothing @@ -5442,7 +5398,7 @@ Namespace Modelos 'VERIFICA SI DEBE VALIDAR ANTE EL SAT If ValidarSAT AndAlso Not (UsuarioActual.Empresa.Funcionalidad(529) = "1") Then - Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion) + Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion) If Vigencia IsNot Nothing Then @@ -5646,7 +5602,7 @@ Namespace Modelos End If 'SI ES CANCELACION EN PROCESO CANCELA EL PROCESO DE LAS REMISIONES - Dim SeCancelaRemisionProceso = (CveEstatus.Contiene(20, 23) AndAlso TieneRemisionesRelacionadas AndAlso CancelarRemisiones) + Dim SeCancelaRemisionProceso As Boolean = (CveEstatus.Contiene(20, 23) AndAlso TieneRemisionesRelacionadas AndAlso CancelarRemisiones) Retorno.CveEstatus = CveEstatus @@ -5666,11 +5622,6 @@ Namespace Modelos Dim ObjContrato As New ClsContratos(ObjVentas.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL()) Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL()) - Dim ObjAC As ClsContPAQi = Nothing - - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1") Then - ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() - End If Try If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then @@ -5705,7 +5656,7 @@ Namespace Modelos 'CANCELA PREPOLIZA If Not ErrorCancelar Then - ErrorCancelar = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ObjAC, -1, ObjBancos, ObjVentas, ObjEventos, DtRemisionesRelacionadas:=DtRemisionesRelacionadas, SeCancelaRemisionProceso:=SeCancelaRemisionProceso, + ErrorCancelar = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, -1, ObjBancos, ObjVentas, ObjEventos, DtRemisionesRelacionadas:=DtRemisionesRelacionadas, SeCancelaRemisionProceso:=SeCancelaRemisionProceso, CancelarRemisiones:=CancelarRemisiones, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusRefacturacion:=CveEstatusRefacturacion, ObjInventario:=ObjInventario, FechaCancelacion:=CancelacionFecha) MensajeError = "Ocurrió un error al generar la prepoliza de cancelación." End If @@ -5933,8 +5884,7 @@ Namespace Modelos AutoConta = False End If - - If Not ErrorCancelar AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePolizaDev, -1) Then + If Not ErrorCancelar AndAlso ObjConta.ValidacionesPrePoliza(CvePrePolizaDev, UsuarioActual) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorCancelar = True @@ -5942,13 +5892,13 @@ Namespace Modelos End If If AutoConta And Not ErrorCancelar Then - If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then ErrorCancelar = True MensajeError = "Ocurrió un error al contabilizar la prepoliza." End If End If Else - ErrorCancelar = True + ErrorCancelar = True MensajeError = "Ocurrió un Error al ingresar las prepolizas" End If End If @@ -6035,7 +5985,7 @@ Namespace Modelos Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") - Dim DtDevMovs = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveMovimiento", "CveRemision", "CveAlmacen", "CveAlmacenDestino"}) + Dim DtDevMovs As DataTable = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveMovimiento", "CveRemision", "CveAlmacen", "CveAlmacenDestino"}) For Each RowDevolucion As DataRow In DtDevMovs.Rows CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() @@ -6168,7 +6118,7 @@ Namespace Modelos 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO) If Not ErrorCancelar AndAlso DtMovRemision IsNot Nothing AndAlso DtMovRemision.Rows.Count > 0 AndAlso SaldoAlmacenExA <> 0 Then - Dim DtDevMovs = DtMovRemision.FiltraParametros("", DistinctColumns:={"CveMovimiento", "CveAlmacen"}) + Dim DtDevMovs As DataTable = DtMovRemision.FiltraParametros("", DistinctColumns:={"CveMovimiento", "CveAlmacen"}) For Each RowDevolucion As DataRow In DtDevMovs.Rows CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() @@ -6277,16 +6227,16 @@ Namespace Modelos End If 'POLIZA DE CANCELACION - If Not ErrorCancelar Then - If UsuarioActual.Empresa.UsaAC Then - Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjFactura, ObjAC, True) - IDPoliza = Pol.IdPoliza - If IDPoliza <= 0 Then - ErrorCancelar = True - MensajeError = "Ocurrió un error al generar la poliza de cancelación." - End If - End If - End If + 'If Not ErrorCancelar Then + ' If UsuarioActual.Empresa.UsaAC Then + ' Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjFactura, ObjAC, True) + ' IDPoliza = Pol.IdPoliza + ' If IDPoliza <= 0 Then + ' ErrorCancelar = True + ' MensajeError = "Ocurrió un error al generar la poliza de cancelación." + ' End If + ' End If + 'End If 'DESVINCULA REMISIONES PREDECESORAS If Not ErrorCancelar Then @@ -6348,7 +6298,6 @@ Namespace Modelos End Select End If - If CveEstatus.Contiene(4, 5) Then If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion) Then ErrorCancelar = True @@ -6375,16 +6324,13 @@ Namespace Modelos End If Next End If - If Not ErrorCancelar Then If Not ObjVentas.UpdateCancelaRemision(CveVenta, SeCancelaRemisionProceso) Then ErrorCancelar = True MensajeError = "Ocurrió un error al actualizar que la remision sea cancelable." End If End If - Else - If Not ErrorCancelar Then For Each CveRemisionCancelar In ListaRemisionesCancelar If Not ObjVentas.UpdateEstatusFactura(12, "", "", CancelacionFecha, CveRemisionCancelar) Then @@ -6406,7 +6352,6 @@ Namespace Modelos Finally If Not ErrorCancelar Then ObjVentas.Commit() - If ObjAC IsNot Nothing Then ObjAC.Commit() If CveEstatus = 5 Then Dim MensajeAlert As New StringBuilder @@ -6427,7 +6372,6 @@ Namespace Modelos ObjFactura.CveEstatus = CveEstatus Else ObjVentas.RollBack() - If ObjAC IsNot Nothing Then ObjAC.RollBack() Retorno.Mensaje = MensajeError Retorno.HuboError = True @@ -6442,7 +6386,6 @@ Namespace Modelos ObjInventario.Dispose() ObjContrato.Dispose() ObjConta.Dispose() - If ObjAC IsNot Nothing Then ObjAC.Dispose() End Try Return Retorno @@ -6452,7 +6395,7 @@ Namespace Modelos Try If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then Dim CveMovimientoVirtual As Integer = -1 - Dim ValidaVirtual = True + Dim ValidaVirtual As Boolean = True Dim DtPSVirtual As New DataTable("DtTamanios") Dim CveAlmacenVirtual As Integer = -1 @@ -6488,7 +6431,7 @@ Namespace Modelos If CveMovimientoVirtual > 0 Then For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -6527,7 +6470,7 @@ Namespace Modelos Try If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then Dim CveMovimientoVirtual As Integer = -1 - Dim ValidaVirtual = True + Dim ValidaVirtual As Boolean = True Dim DtPSVirtual As New DataTable("DtTamanios") Dim CveAlmacenVirtual As Integer = -1 @@ -6567,7 +6510,7 @@ Namespace Modelos If CveMovimientoVirtual > 0 Then For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -6606,9 +6549,9 @@ Namespace Modelos Dim ErrorCancelar As Boolean = False Dim DtMovtosDev As New DataTable - Dim CveAlmacenTraspasoDestinoDevRem = -1 + Dim CveAlmacenTraspasoDestinoDevRem As Integer = -1 - Dim CveVentaDetalleRem = -1 + Dim CveVentaDetalleRem As Integer = -1 Dim CantidadDevolver As Decimal = 0 Dim CantidadRem As Decimal = 0 Dim CveMovimientoSalidaDevRem As Integer = 0 @@ -6748,8 +6691,8 @@ Namespace Modelos 'SALIDA DE (ENTREGA POR ADELANTADO) If Not ErrorCancelar Then For Each DrRem As DataRow In DtMovDetalle.Rows - Dim CveVentaDetalleRem = DrRem("CveVentaDetalleRemision").ToString.ToEntero - Dim CantidadRem = DrRem("Cantidad").ToString.ToDecimal + Dim CveVentaDetalleRem As Integer = DrRem("CveVentaDetalleRemision").ToString.ToEntero + Dim CantidadRem As Decimal = DrRem("Cantidad").ToString.ToDecimal 'SI NO UTILIZA EL CAMPO DEBE TOMAR DE LA VENTA If Not CveVentaDetalleRem > 0 Then @@ -6792,8 +6735,8 @@ Namespace Modelos Dim ValorInventario As Decimal = DtEntradaDetalle.SUMD("Total") Dim EsContabilizable As Boolean = False Dim Concepto As String = "Cancelación" - Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancExAR1", 74, DtEntradaDetalle.SUMD("Total"), DtEntradaDetalle.SUMD("Total"), 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - Dim tCveSubProyecto = ClsPaginas.GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Mod/CancExAR1", 74, DtEntradaDetalle.SUMD("Total"), DtEntradaDetalle.SUMD("Total"), 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto As Integer = ClsPaginas.GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto").ToEntero If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, ValorInventario, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoSalidaDevRem, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then ErrorCancelar = True @@ -6829,11 +6772,11 @@ Namespace Modelos DtTraspasos.Columns.Add("CveMovimientoEntrada", GetType(Integer)) DtTraspasos.Columns.Add("FolioEntrada", GetType(Integer)) - Dim DtTempApartados = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 9", "CveAlmacen") - Dim CveMovimientoSalidaApartado = -1 - Dim CveAlmacenApartado = -1 - Dim CveAlmacenOrigen = CveAlmacenDevolucion - Dim FolioSalida As Integer = 0, FolioEntrada = 0, CveMovimientoSalida = 0, CveMovimientoEntradaApartado = 0 + Dim DtTempApartados As DataTable = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 9", "CveAlmacen") + Dim CveMovimientoSalidaApartado As Integer = -1 + Dim CveAlmacenApartado As Integer = -1 + Dim CveAlmacenOrigen As Integer = CveAlmacenDevolucion + Dim FolioSalida As Integer = 0, FolioEntrada As Integer = 0, CveMovimientoSalida As Integer = 0, CveMovimientoEntradaApartado As Integer = 0 For Each Dr As DataRow In DtTempApartados.Rows @@ -6842,7 +6785,7 @@ Namespace Modelos FolioSalida = ObjInventario.Folio CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero - Dim DrMovto = DtTraspasos.NewRow + Dim DrMovto As DataRow = DtTraspasos.NewRow DrMovto("Almacen") = Dr("Almacen").ToString.ToEntero DrMovto("CveAlmacen") = Dr("CveAlmacen").ToString.ToEntero DrMovto("CveMovimientoSalida") = CveMovimientoSalidaApartado @@ -6906,7 +6849,7 @@ Namespace Modelos Return Retorno End Function - Protected Function CancelarFactura(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi, ByRef ObjBancos As ClsBancos) As Boolean + Protected Function CancelarFactura(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjBancos As ClsBancos) As Boolean Dim IDPoliza As Integer = -1 Dim CvePrePoliza As Integer @@ -6933,9 +6876,9 @@ Namespace Modelos If ObjVentas.GetVentaDetalle(FacturaDevolucion.CveVenta) Then DtDetalle = ObjVentas.DtResultados End If - ErrorCancelar = ProcesoPrepolizas(FacturaDevolucion, ObjConta, -1, DtDetalle, ObjAC, -1, ObjBancos, ObjVentas) + ErrorCancelar = ProcesoPrepolizas(FacturaDevolucion, ObjConta, -1, DtDetalle, -1, ObjBancos, ObjVentas) Else - ErrorCancelar = ProcesoPrepolizas(FacturaDevolucion, ObjConta, -1, DtDetalle, ObjAC, -1, ObjBancos, ObjVentas) + ErrorCancelar = ProcesoPrepolizas(FacturaDevolucion, ObjConta, -1, DtDetalle, -1, ObjBancos, ObjVentas) End If If Not ErrorCancelar Then @@ -6974,15 +6917,15 @@ Namespace Modelos If Resp.Verificado Then 'falta verificar traer el acuse y reenviarlo - If UsuarioActual.Empresa.UsaAC Then - Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(Me, ObjAC, True) - IDPoliza = Pol.IdPoliza + 'If UsuarioActual.Empresa.UsaAC Then + ' Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(Me, ObjAC, True) + ' IDPoliza = Pol.IdPoliza - If IDPoliza <= 0 Then - Mensaje = "No se pudo generar la poliza" - ErrorCancelar = True - End If - End If + ' If IDPoliza <= 0 Then + ' Mensaje = "No se pudo generar la poliza" + ' ErrorCancelar = True + ' End If + 'End If If Not ErrorCancelar Then If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, Now, CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then @@ -6999,13 +6942,13 @@ Namespace Modelos Return Not ErrorCancelar End Function - Private Function RegistrarNC(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, ObjContPaq As ClsContPAQi, ByVal factura As Modelos.Factura, ObjBancos As ClsBancos, TmpDTconceptos As DataTable, ByRef ObjEventos As ClsOIEventos) As Boolean + Private Function RegistrarNC(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, ByVal factura As Modelos.Factura, ObjBancos As ClsBancos, TmpDTconceptos As DataTable, ByRef ObjEventos As ClsOIEventos) As Boolean Dim ProcesoCorrecto As Boolean = True RefacturacionGeneroNC = True factura.Folio = -1 'Registramos la venta - GuardarVenta(factura, ObjVentas, ObjConta, ObjInventario, ObjContr, TmpDTconceptos, -1, ObjContPaq, ObjBancos) + GuardarVenta(factura, ObjVentas, ObjConta, ObjInventario, ObjContr, TmpDTconceptos, -1, ObjBancos) If ErrorList.Count > 0 Then ProcesoCorrecto = False @@ -7016,107 +6959,107 @@ Namespace Modelos - Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta - Dim Retorno As New RetornoPolizaConta - Dim IDPoliza As Integer = 0 + 'Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta + ' Dim Retorno As New RetornoPolizaConta + ' Dim IDPoliza As Integer = 0 - Dim ErrorAC As Boolean = False - 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() - Dim Fecha As Date = ObjFactura.Fecha - Dim Concepto As String = String.Format("GD {0}", ObjFactura.Cliente.Nombre) - Dim Paridad As Integer = 1 - Dim TipoMovto As Boolean = False + ' Dim ErrorAC As Boolean = False + ' 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() + ' Dim Fecha As Date = ObjFactura.Fecha + ' Dim Concepto As String = String.Format("GD {0}", ObjFactura.Cliente.Nombre) + ' Dim Paridad As Integer = 1 + ' Dim TipoMovto As Boolean = False - If CancelacionIngreso Then - Concepto = String.Format("Cancelación GD {0}", ObjFactura.Cliente.Nombre) - Paridad = -1 - TipoMovto = True - End If - Dim TipoPoliza = If(ObjFactura.TipoDocto = "OP" Or ObjFactura.TipoDocto = "Com", 3, 1) + ' If CancelacionIngreso Then + ' Concepto = String.Format("Cancelación GD {0}", ObjFactura.Cliente.Nombre) + ' Paridad = -1 + ' TipoMovto = True + ' End If + ' Dim TipoPoliza = If(ObjFactura.TipoDocto = "OP" Or ObjFactura.TipoDocto = "Com", 3, 1) - IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, ObjFactura.Total * 2, ObjFactura.Total * 2, UsuarioActual.CveUsuario, Fecha) - Dim dr As DataRow - Dim CtaCliente As Integer = -1 - Dim CtaISSSTESON As Integer = 643 - Dim CtaISPT As Integer = 1745 + ' IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, ObjFactura.Total * 2, ObjFactura.Total * 2, UsuarioActual.CveUsuario, Fecha) + ' Dim dr As DataRow + ' Dim CtaCliente As Integer = -1 + ' Dim CtaISSSTESON As Integer = 643 + ' Dim CtaISPT As Integer = 1745 - If IDPoliza > 0 Then - Retorno.IdPoliza = IDPoliza - Retorno.FolioPoliza = ObjAC.Folio - 'Orden de PAGO - If ObjFactura.TipoDocto = "OP" Then - 'ORDEN DE PAGO - If ObjFactura.Num3 = 1 Then - 'ISSSTESON + ' If IDPoliza > 0 Then + ' Retorno.IdPoliza = IDPoliza + ' Retorno.FolioPoliza = ObjAC.Folio + ' 'Orden de PAGO + ' If ObjFactura.TipoDocto = "OP" Then + ' 'ORDEN DE PAGO + ' If ObjFactura.Num3 = 1 Then + ' 'ISSSTESON - If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then - If Not ObjAC.AddMovimiento(IDPoliza, CtaISSSTESON, True, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then - ErrorAC = True - End If - Else - ErrorAC = True - End If - Else - 'ISPT + ' If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then + ' If Not ObjAC.AddMovimiento(IDPoliza, CtaISSSTESON, True, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then + ' ErrorAC = True + ' End If + ' Else + ' ErrorAC = True + ' End If + ' Else + ' 'ISPT - If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then - If Not ObjAC.AddMovimiento(IDPoliza, CtaISPT, True, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then - ErrorAC = True - End If - Else - ErrorAC = True - End If - End If + ' If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then + ' If Not ObjAC.AddMovimiento(IDPoliza, CtaISPT, True, Paridad * ObjFactura.Total, "", Concepto, 0, Fecha, "") Then + ' ErrorAC = True + ' End If + ' Else + ' ErrorAC = True + ' End If + ' End If - ' NORMAL - Else - Dim DTPresupuestoIngresos As New DataTable - Dim AC As New ClsAC - If AC.GetPresupuestoIngresos(-1, Now.Year, True, UsuarioActual.CveEmpresa) Then - DTPresupuestoIngresos = AC.DtResultados.Copy() - End If - AC.Dispose() + ' ' NORMAL + ' Else + ' Dim DTPresupuestoIngresos As New DataTable + ' Dim AC As New ClsAC + ' If AC.GetPresupuestoIngresos(-1, Now.Year, True, UsuarioActual.CveEmpresa) Then + ' DTPresupuestoIngresos = AC.DtResultados.Copy() + ' End If + ' AC.Dispose() - For Each grp As DataRow In DtDetalleAC.Rows - dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp("CvePresupuestoIngreso"))) - Concepto = String.Format("{0} - {1}: {2}", ObjFactura.Cliente.Nombre, ObjFactura.TipoDocumento, ObjFactura.Folio) + ' For Each grp As DataRow In DtDetalleAC.Rows + ' dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp("CvePresupuestoIngreso"))) + ' Concepto = String.Format("{0} - {1}: {2}", ObjFactura.Cliente.Nombre, ObjFactura.TipoDocumento, ObjFactura.Folio) - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString.ToEntero, False, Paridad * grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, Paridad * grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then - 'CARGO la deuda del cliente - If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then - 'abono, - If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString.ToEntero, Not TipoMovto, grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then - ErrorAC = True - End If - Else - ErrorAC = True - End If - Else - ErrorAC = True - End If - Else - ErrorAC = True - End If - Next - End If + ' If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString.ToEntero, False, Paridad * grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then + ' If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, Paridad * grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then + ' 'CARGO la deuda del cliente + ' If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then + ' 'abono, + ' If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString.ToEntero, Not TipoMovto, grp("TotalImporte").ToString().ToDouble(), "", Concepto, 0, Fecha, "") Then + ' ErrorAC = True + ' End If + ' Else + ' ErrorAC = True + ' End If + ' Else + ' ErrorAC = True + ' End If + ' Else + ' ErrorAC = True + ' End If + ' Next + ' End If - Else - ErrorAC = True - End If + ' Else + ' ErrorAC = True + ' End If - If Not ErrorAC Then - ObjAC.AjustaPoliza(IDPoliza) + ' If Not ErrorAC Then + ' ObjAC.AjustaPoliza(IDPoliza) - ' Retorno = IDPoliza - Else - 'Retorno = -1 - 'Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError) - End If + ' ' Retorno = IDPoliza + ' Else + ' 'Retorno = -1 + ' 'Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError) + ' End If - Return Retorno + ' Return Retorno - End Function + 'End Function #End Region @@ -7384,7 +7327,7 @@ Namespace Modelos Public Property MonedaSAT As String Public Property UsuarioCreo As String Public Property MonedaAbreviatura As String - Public Property TipoCambio As Decimal + Public Property TipoCambio As Decimal = 1 Public Property TipoCambioDolares As Decimal Public Property ConvertirPesos As Boolean Public Property ConvertirDolares As Boolean diff --git a/App_Code/MyGPSHub.vb b/App_Code/MyGPSHub.vb index cd2273d4c..810fa2955 100644 --- a/App_Code/MyGPSHub.vb +++ b/App_Code/MyGPSHub.vb @@ -1,4 +1,5 @@ -Imports System.Collections.Concurrent +Option Strict Off +Imports System.Collections.Concurrent Imports Extensiones Imports Microsoft.AspNet.SignalR diff --git a/App_Code/MyHub.vb b/App_Code/MyHub.vb index d30c6ad5d..6dbfd21c6 100644 --- a/App_Code/MyHub.vb +++ b/App_Code/MyHub.vb @@ -1,4 +1,5 @@ -Imports Extensiones +Option Strict Off +Imports Extensiones Imports Microsoft.AspNet.SignalR Public Class MyHub diff --git a/App_Code/Notificaciones.vb b/App_Code/Notificaciones.vb index a326d4b02..ef5e9cd67 100644 --- a/App_Code/Notificaciones.vb +++ b/App_Code/Notificaciones.vb @@ -1,4 +1,5 @@ -Imports Extensiones +Option Strict Off +Imports Extensiones Imports Microsoft.AspNet.SignalR Public Enum TipoNotificacion As Integer diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 2b83f2fa6..65fcf95b2 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -28,7 +28,7 @@ Public Class Timbrado Public Property CancelacionState As Integer Public Property CancelacionMensaje As String Public Property CancelacionFecha As Date - Public Const LigaVerificacionSAT = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" + Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" Public Class AcuseCancelacionSAT Public Property CodigoEstatus As String @@ -63,7 +63,7 @@ Public Class Timbrado Dim Retorno As Boolean = False Try Dim RowVentas As DataRow = Nothing - Dim RFCEmisor = UsuarioActual.Empresa.RFC + Dim RFCEmisor As String = UsuarioActual.Empresa.RFC Dim RFCReceptor As String = "" Dim FolioFiscal As String = "" Dim FolioSustitucion As String = "" @@ -104,7 +104,7 @@ Public Class Timbrado Dim xmlDoc As New System.Xml.XmlDocument() xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.CfdiB64))) Dim xpath As String = "Acuse/Folios" - Dim nodes = xmlDoc.SelectNodes(xpath) + Dim nodes As XmlNodeList = xmlDoc.SelectNodes(xpath) CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero xpath = "Acuse/Signature" @@ -171,7 +171,7 @@ Public Class Timbrado End Function Public Shared Function ConsultarUUIDRelacionados(Empresa As Empresa, FolioFiscal As String, Optional Produccion As Boolean = True) As MRespUUIDRelacionados - Dim Retorno = New MRespUUIDRelacionados() + Dim Retorno As MRespUUIDRelacionados = New MRespUUIDRelacionados() Dim resp As Cancelacion2022.StructRelations = New Cancelacion2022.StructRelations() Using ws As Cancelacion2022.CancelacionSoapClient = New Cancelacion2022.CancelacionSoapClient @@ -219,18 +219,14 @@ Public Class Timbrado Dim Retorno As New RespuestaCancelacionSAT Dim MsgCancelacion As New StringBuilder 'dim Error - If CvePACCancelacion = 3 Then - ValidaFactura = False - End If + If CvePACCancelacion = 3 Then ValidaFactura = False 'TEMPORAL. PARCHE PARA CANCELAR DOCUMENTOS EMITIDOS CON EL PAC 5 - If CvePACCancelacion = 5 Then - CvePACCancelacion = 4 - End If + If CvePACCancelacion = 5 Then CvePACCancelacion = 4 If Not (Empresa.Funcionalidad(529) = "1") Then If ValidaFactura Then - Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) + Dim Vigencia As AcuseCancelacionSAT = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) If Vigencia IsNot Nothing Then If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then Retorno.Estado = "NO CANCELABLE" @@ -442,7 +438,7 @@ Public Class Timbrado Dim xmlDoc As New System.Xml.XmlDocument() xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml))) Dim xpath As String = "Acuse/Folios" - Dim nodes = xmlDoc.SelectNodes(xpath) + Dim nodes As XmlNodeList = xmlDoc.SelectNodes(xpath) CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero xpath = "Acuse/Signature" @@ -472,7 +468,7 @@ Public Class Timbrado Dim xmlDoc As New System.Xml.XmlDocument() xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.CfdiB64))) Dim xpath As String = "Acuse/Folios" - Dim nodes = xmlDoc.SelectNodes(xpath) + Dim nodes As XmlNodeList = xmlDoc.SelectNodes(xpath) CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero xpath = "Acuse/Signature" @@ -561,6 +557,8 @@ Public Class Timbrado If resultadoCancelacion.Exitoso OrElse resultadoCancelacion.NumeroError.Contiene("202", "330279") Then MsgCancelacion.AppendFormat("-3.4") CancelacionMensaje = resultadoCancelacion.Descripcion + Retorno.CancelacionFecha = CancelacionFecha + Retorno.Verificado = True Dim xmlDoc As New System.Xml.XmlDocument() MsgCancelacion.AppendFormat("-3.4.1") @@ -580,11 +578,11 @@ Public Class Timbrado If xmlDoc.HasChildNodes Then Dim xpath As String = "Acuse/Folios" - Dim nodes = xmlDoc.SelectNodes(xpath) + 'Dim nodes = xmlDoc.SelectNodes(xpath) CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero MsgCancelacion.AppendFormat("-3.4.2") xpath = "Acuse/Signature" - nodes = xmlDoc.SelectNodes(xpath) + 'nodes = xmlDoc.SelectNodes(xpath) MsgCancelacion.AppendFormat("-3.4.3") CancelacionAcuse = xmlDoc.GetElementsByTagName("SignatureValue")(0).InnerText CancelacionFecha = xmlDoc.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate @@ -683,7 +681,7 @@ Public Class Timbrado Dim xmlDoc As New System.Xml.XmlDocument() xmlDoc.LoadXml(objCan.Xml) Dim xpath As String = "Acuse/Folios" - Dim nodes = xmlDoc.SelectNodes(xpath) + Dim nodes As XmlNodeList = xmlDoc.SelectNodes(xpath) xpath = "Acuse/Signature" nodes = xmlDoc.SelectNodes(xpath) @@ -791,7 +789,7 @@ Public Class Timbrado 'valida que si se halla cancelado If Retorno.Verificado Then - Dim VigenciaExtra = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) + Dim VigenciaExtra As AcuseCancelacionSAT = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) If VigenciaExtra IsNot Nothing Then If VigenciaExtra.Estado.ToUpper = "VIGENTE" AndAlso VigenciaExtra.EstatusCancelacion.ToUpper.Contiene("EN PROCESO") Then Retorno.Estado = "EN PROCESO" @@ -1256,26 +1254,16 @@ Public Class Timbrado ' Retorno = If(Ret = "", True, False) Case 3 - Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas) - - 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) Case 4 - Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) - Case 5 - Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) - - End Select - - Return Retorno End Function @@ -1333,8 +1321,8 @@ Public Class Timbrado Clave = "12345678a" EmisorRFC = "EKU9003173C9" EmisorNombre = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer" UsuarioActual.Empresa.CodigoRegimenFiscal = "601" End If @@ -1831,7 +1819,7 @@ Public Class Timbrado Totales.TotalRetencionesIEPSSpecified = False End If - Dim ComPag = New Profact.TimbraCFDI40.Complementos.Pagos20.Pagos() + Dim ComPag As Profact.TimbraCFDI40.Complementos.Pagos20.Pagos = New Profact.TimbraCFDI40.Complementos.Pagos20.Pagos() ComPag.Totales = Totales ComPag.Pago = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPago(ObjCFDITimbre.ComplementoPagos20.ComplementoPagos.Count - 1) {} @@ -1988,7 +1976,7 @@ Public Class Timbrado ''DATOS GENERALES Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte() + Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte() ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac) ComCartaPorte.EntradaSalidaMercSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False @@ -2112,16 +2100,18 @@ Public Class Timbrado Dim ConfigVehicularSeguros As New ProfactCartaPorte.CartaPorteMercanciasAutotransporteSeguros ConfigVehicularSeguros.AseguraRespCivil = Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil ConfigVehicularSeguros.PolizaRespCivil = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil - ConfigVehicularSeguros.AseguraMedAmbiente = Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente - ConfigVehicularSeguros.PolizaMedAmbiente = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente - ConfigVehicularSeguros.AseguraCarga = Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga - ConfigVehicularSeguros.PolizaCarga = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga - + If Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente <> "" Then + ConfigVehicularSeguros.AseguraMedAmbiente = Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente + ConfigVehicularSeguros.PolizaMedAmbiente = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente + End If + If Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga <> "" Then + ConfigVehicularSeguros.AseguraCarga = Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga + ConfigVehicularSeguros.PolizaCarga = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga + End If If Carta.FiguraTransporte.AutoTransporte.PrimaSeguro > 0 Then ConfigVehicularSeguros.PrimaSeguro = Carta.FiguraTransporte.AutoTransporte.PrimaSeguro ConfigVehicularSeguros.PrimaSeguroSpecified = True End If - ComCartaPorte.Mercancias.Autotransporte.Seguros = ConfigVehicularSeguros If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then @@ -2186,7 +2176,7 @@ Public Class Timbrado #Region " Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then - Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() + Dim Nom As Nomina12.Nomina = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() 'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd") Nom.Version = ObjCFDITimbre.Nomina.Version Nom.TipoNomina = ObjCFDITimbre.Nomina.TipoNomina @@ -3095,8 +3085,8 @@ Public Class Timbrado EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False @@ -3318,8 +3308,8 @@ Public Class Timbrado EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 75996e92e..70a2d5346 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -184,12 +184,12 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} + Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString} CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) End If If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} + Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2").ToString, .Placa = drT("PlacaRemolque2").ToString} CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) End If @@ -301,12 +301,12 @@ Public Class Timbres .Embalaje = drr("ClaveEmbalaje").ToString, .DescripEmbalaje = drr("Embalaje").ToString, .ValorMercancia = drr("PU").ToString.ToDecimal, - .Moneda = IIf(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal + .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal .FraccionArrancelaria = "", .UUIDComercioExt = "" } - Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} + Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero} conceptoCarta.DetalleMercancia = DetalleMercancia Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} @@ -468,12 +468,12 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} + Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString} CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) End If If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} + Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2").ToString, .Placa = drT("PlacaRemolque2").ToString} CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) End If @@ -582,7 +582,7 @@ Public Class Timbres .UUIDComercioExt = "" } - Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} + Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero} conceptoCarta.DetalleMercancia = DetalleMercancia Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} diff --git a/App_Code/WS/WSSIGVentas.vb b/App_Code/WS/WSSIGVentas.vb index 413ecd075..981381e7c 100644 --- a/App_Code/WS/WSSIGVentas.vb +++ b/App_Code/WS/WSSIGVentas.vb @@ -75,7 +75,7 @@ Namespace SIG 'dr("CveComplementoPagoTimbre") = CveComplementoPagoTimbre dr("FolioTimbre") = Folio dr("CveComplementoPagoSinc") = CveComplementoPagoSinc - If Not Banco.BlockComplementodePago(dr("CveIE").ToString().ToEntero(), 1, CveComplementoPagoSinc) Then + If Not Banco.BlockComplementodePago(dr("CveIE").ToString().ToEntero(), True, CveComplementoPagoSinc) Then thencommit = False Exit For End If @@ -113,7 +113,7 @@ Namespace SIG Dim continuar As Boolean = True For Each dr As System.Data.DataRow In dt.Rows If continuar AndAlso dr("Sincronizado").ToString() <> "1" Then - If dr("SeTimbro").ToString() = 1 Then + If dr("SeTimbro").ToString() = "1" Then Dim CveComplementoPagoTimbre As Integer Try Using ArchivoW As New IO.StreamWriter(String.Format("{0}\{1}.xml", rutaxml, dr("FolioFiscalTimbre").ToString()), True, System.Text.Encoding.UTF8) @@ -127,10 +127,10 @@ Namespace SIG continuar = False End Try If continuar Then - CveComplementoPagoTimbre = objbancos.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, "Pag", dr("FolioTimbre"), Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1) + CveComplementoPagoTimbre = objbancos.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, "Pag", dr("FolioTimbre").ToString.ToEntero, Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1) continuar = CveComplementoPagoTimbre > 0 End If - If continuar Then continuar = objbancos.UpdateComplementoPago(CveComplementoPagoTimbre, dr("FolioFiscalTimbre").ToString(), "4.0", dr("CvePAC").ToString().ToEntero(), CveEmpresa) + If continuar Then continuar = objbancos.UpdateComplementoPago(CveComplementoPagoTimbre, dr("FolioFiscalTimbre").ToString(), dr("CvePAC").ToString().ToEntero(), "4.0", CveEmpresa) If continuar Then dr("Sincronizado") = 1 End If diff --git a/App_Code/WsRespaldos.vb b/App_Code/WsRespaldos.vb index 973c698f8..fc9968586 100644 --- a/App_Code/WsRespaldos.vb +++ b/App_Code/WsRespaldos.vb @@ -45,7 +45,7 @@ Public Class WsRespaldos Dim Lista As New List(Of String) Dim NO_SCAN As String() - NO_SCAN = EXCEP.Split(New Char() {","}) + NO_SCAN = EXCEP.Split(New Char() {","c}) Lista = EscanearDirectorio(PATH, New List(Of String), NO_SCAN) diff --git a/App_Code/WsSigfox.vb b/App_Code/WsSigfox.vb index bf1300792..43ae7646f 100644 --- a/App_Code/WsSigfox.vb +++ b/App_Code/WsSigfox.vb @@ -218,7 +218,7 @@ Namespace Sigfox Dim TipoDato As New JObject() Dim Titulo As String = "" For Each dato As XmlNode In node.ChildNodes - Dim arreglo = dato.InnerXml.Split(":") + Dim arreglo = dato.InnerXml.Split(":"c) If dato Is node.ChildNodes(0) AndAlso arreglo(0) = "Tipo de Dato" Then Titulo = String.Format("Tipo-{0}", arreglo(1)) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 7dcdac848..0f5df56a9 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -569,41 +569,30 @@ Namespace Extensiones Select Case pOpcion Case TipoMensaje.MsgInformacion Titulo = "Información" - Img = "I" - 'Img = "" - 'Botones = String.Format("", Plus, JSBtnAceptar) + Img = "I" Botones = "1" Case TipoMensaje.MsgConfirmacion Titulo = "Confirmación" Img = "C" - 'Img = "" - 'Botones = String.Format("", Plus, JSBtnAceptar) Botones = "2" Case TipoMensaje.MsgAdvertencia Titulo = "Advertencia" Img = "A" - 'Img = "" - 'Botones = String.Format("", Plus, JSBtnAceptar) Botones = "1" Case Else Titulo = "Error" Img = "E" - 'Img = "" - 'Botones = String.Format("", Plus, JSBtnAceptar) Botones = "1" End Select Try - - Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.CurrentHandler, Page) 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True) ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True) Pag = Nothing Catch ex As Exception - End Try - 'Alerta = Nothing + End Try End If End Sub @@ -629,29 +618,6 @@ Namespace Extensiones If Fecha <> "" Then Time = String.Format("{0}", Fecha) Return String.Format("
  • {0}{3}
  • ", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", "")) End Function - ' - 'Public Function addindicador(Obj As Object, color As String, icono As String, titulo As String, comentario As String, link As String) As String - ' Try - ' Dim htmlobj = DirectCast(Obj, HtmlGenericControl) - ' color = color.Replace("'", "\'") - ' icono = icono.Replace("'", "\'") - ' titulo = titulo.Replace("'", "\'") - ' comentario = comentario.Replace("'", "\'") - ' link = link.Replace("'", "\'") - ' Dim script As String = " addindicadortext('" & color & "','" & icono & "','" & titulo & "','" & comentario & "','" & link & "',$('#" & htmlobj.ClientID.ToString & "')); " - ' Return script - - ' Catch ex As Exception - ' Return "" - ' End Try - 'End Function - - ' - 'Public Sub updateindicador(Obj As Object, script As String) - ' Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.CurrentHandler, Page) - ' ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), script, True) - ' Pag = Nothing - 'End Sub #End Region @@ -1813,21 +1779,17 @@ Namespace Extensiones #End Region #Region "Excel PDF" - Public Sub GeneraChequePDF(pCveIE As Integer, tEmpresa As Empresa, Optional IDPoliza As Integer = -1, Optional MuestraAlert As Boolean = True) - - Dim missing As Object = System.Reflection.Missing.Value + Public Sub GeneraChequePDF(pCveIE As Integer, tEmpresa As Empresa, Optional IDPoliza As Integer = -1, Optional MuestraAlert As Boolean = True) + Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String Dim FechaExpedicion As Date = Now - Dim Importe As Double - Dim FormatoCheque As String = "" + Dim Importe As Double Dim tCveEmpresa As Integer = tEmpresa.CveEmpresa - Dim CveTipoTransaccion, CveProveedor, CvePersonal, CveCuentaDeposito As Integer + Dim CveTipoTransaccion, CveProveedor, CvePersonal As Integer Dim ObjIE As New ClsBancos() - Dim tIdPoliza As Integer - Dim DtMovimientosPoliza As DataTable = Nothing - Folio = "" - TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" - CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 + Dim tIdPoliza As Integer + + Folio = "" Ruta = tEmpresa.Ruta If ObjIE.GetBancosIE(pCveIE, tCveEmpresa) Then @@ -1838,9 +1800,8 @@ Namespace Extensiones Importe = ObjIE.Importe CveTipoTransaccion = ObjIE.CveTipoTransaccion Banco = ObjIE.Banco - NumCuenta = ObjIE.NumCuenta - FormatoCheque = String.Format("Cheques\{0}.xlsm", ObjIE.CveCuenta) - + NumCuenta = ObjIE.NumCuenta + TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) FechaExpedicion = ObjIE.FechaDocumento Observacion = ObjIE.Observaciones @@ -1849,165 +1810,17 @@ Namespace Extensiones AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") NotificarA = ObjIE.NotificarA tIdPoliza = ObjIE.IDPoliza - If ObjIE.Bancos_IEImpreso(True, pCveIE) Then End If - - End If End If ObjIE.Dispose() 'cuando es cheque - If Folio <> "" AndAlso CveTipoTransaccion = 1 Then - 'Try - - ' Dim TC As Double = 1 - ' Dim Excel As msExcel.Application = New msExcel.Application() - ' Dim VB_Module As VBComponent = Nothing - ' Excel.Visible = True - ' Excel.ScreenUpdating = True - ' Excel.DisplayAlerts = True - - ' If Not IO.File.Exists(String.Format("{0}Cheques\", Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Cheques\", Ruta)) - - ' If Not IO.File.Exists(Ruta & FormatoCheque) Then - ' IO.File.Copy(String.Format("{0}Empresas\Grales\Cheque.xlsm", ModExtensiones.DirectorioBaseEmpresas), Ruta & FormatoCheque, False) - ' End If - - ' Dim ArchivoBase As New System.IO.FileInfo(Ruta & FormatoCheque) - ' If Not IO.Directory.Exists(String.Format("{0}Formatos\", Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Formatos\", Ruta)) - ' ArchivoBase.CopyTo(String.Format("{0}Formatos\{1}.xlsm", Ruta, pCveIE), True) - ' Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\{1}.xlsm", Ruta, pCveIE)) - - - ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Libro.Activate() - - ' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) - ' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible - ' Hoja.Activate() - ' Try - - ' Hoja.Range("B1:B1").Value = If(tCveEmpresa.Contiene(48, 66), AbonoCuenta, "") - ' Hoja.Range("G1:G1").Value = FechaExpedicion.ToString("yyyy-MM-dd") - ' Hoja.Range("B3:B3").Value = PagueseA - ' Hoja.Range("G3:G3").Value = Importe.ToString("N2") - ' 'Generales - - ' Hoja.Range("B4:B4").Value = TextoImporte.ToUpper - ' Hoja.Range("C6:C6").Value = Folio - ' Hoja.Range("D1:D1").Value = Folio - ' Hoja.Range("B7:B7").Value = Observacion - ' 'Hoja.Range("C10:C10").Value = UsuarioRegistro - - - ' 'Movimientos del IE - ' If tIdPoliza > 0 Then - ' Dim ObjConta As New ClsContPAQi(tEmpresa) - ' If ObjConta.GetPoliza(tIdPoliza, -1, -1, -1, -1) Then - ' DtMovimientosPoliza = ObjConta.DtResultados - - ' End If - - ' ObjConta.Dispose() - ' End If - - ' If DtMovimientosPoliza IsNot Nothing AndAlso DtMovimientosPoliza.Rows.Count > 0 Then - ' VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent) - ' VB_Module.CodeModule.AddFromString(GetMacro) - - ' 'Hoja.Range("A8:A8").Value = "Cuenta" - ' 'Hoja.Range("C8:C8").Value = "Nombre" - ' 'Hoja.Range("E8:E8").Value = "Debe" - ' 'Hoja.Range("G8:G8").Value = "Haber" - - ' Dim CeldaI As Integer = 9 - ' Dim CeldaF As Integer = 9 - ' Dim TotalDebe, TotalHaber As Double - ' TotalDebe = DtMovimientosPoliza.SUM("Cargo") - ' TotalHaber = DtMovimientosPoliza.SUM("Abono") - - ' 'Conceptos - ' For Each Row As DataRow In DtMovimientosPoliza.Rows - ' Hoja.Range(String.Format("A{0}:A{0}", CeldaF)).Value = Row("CODIGO").ToString - ' Hoja.Range(String.Format("C{0}:C{0}", CeldaF)).Value = Row("Cuenta").ToString - ' Hoja.Range(String.Format("E{0}:E{0}", CeldaF)).Value = Row("Cargo").ToString.FormatoNumero - ' Hoja.Range(String.Format("G{0}:G{0}", CeldaF)).Value = Row("Abono").ToString.FormatoNumero - - ' 'Suma Totales - ' 'TotalDebe += Row("Cargo").ToString.ToDouble - ' 'TotalHaber += Row("Abono").ToString.ToDouble - - ' 'LIMITE DE CONCEPTOS - ' If CeldaF - CeldaI + 1 = 25 Then - ' Exit For - ' End If - ' CeldaF += 1 - ' 'If DtMovimientosPoliza.Rows.Count > 1 AndAlso CeldaF - CeldaI < DtMovimientosPoliza.Rows.Count - 1 Then - ' ' CeldaF = CeldaF + 1 - ' ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, - ' ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' ' Libro.Save() - ' ' Libro.Application.DisplayAlerts = False - ' ' Libro.Application.ScreenUpdating = False - ' 'End If - ' Next - - ' 'Totales - ' 'Hoja.Range(String.Format("E{0}:E{0}", CeldaF + 3)).Value = TotalDebe.ToString.FormatoNumero - ' 'Hoja.Range(String.Format("G{0}:G{0}", CeldaF + 3)).Value = TotalHaber.ToString.FormatoNumero - ' Hoja.Range("E39:E39").Value = TotalDebe.ToString.FormatoNumero - ' Hoja.Range("G39:G39").Value = TotalHaber.ToString.FormatoNumero - - ' End If - - ' If Not IO.Directory.Exists(String.Format("{0}PDF\", Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}PDF\", Ruta)) - - ' 'Exportar PDF - ' Dim pdfFileOut As String = String.Format("{0}PDF\Chq-{1}.pdf", Ruta, pCveIE) - ' Dim outputFileName As Object = pdfFileOut - ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF - ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing) - ' Catch ex As Exception - ' Dim Msgerr As String = "" - ' Msgerr.Alert(String.Format("Ocurrió un error {0}", ex.Message), TipoMensaje.MsgError) - ' End Try - - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja) - ' Hoja = Nothing - ' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges - ' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing) - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro) - ' Libro = Nothing - ' Excel.Quit() - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel) - ' Excel = Nothing - ' GC.Collect() - ' GC.WaitForPendingFinalizers() - - ' ArchivoTemp.Delete() - - ' If MuestraAlert Then - ' Dim Descargas As New StringBuilder() - ' Descargas.AppendFormat("
  • Cheque
  • ", tCveEmpresa, pCveIE, Now.Ticks) - ' Descargas.AppendFormat("
  • Listado
  • ", pCveIE) - ' If IDPoliza > 0 Then Descargas.AppendFormat("
  • Póliza
  • ", IDPoliza) - - ' Dim Msg As String = String.Format("
    El Documento se generó correctamente.


    Descargas:
      {0}
    ", Descargas.ToString) 'TipoMensaje.MsgInformacion - ' ' - ' Msg.Alert(Msg, TipoMensaje.MsgInformacion, String.Format("document.location.href=""{0}""", HttpContext.Current.Request.Url.AbsoluteUri)) - ' End If - - - 'Catch ex As Exception - - ' Dim Msg As String = "No se pudo generar el documento." - ' Msg.OnError(Msg, ex, "CveIE=" & pCveIE) - - 'End Try + If Folio <> "" AndAlso CveTipoTransaccion = 1 Then + Else Dim RFC As String = "" Dim Correo As String = "" @@ -2033,42 +1846,25 @@ Namespace Extensiones IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA - If CveProveedor > 0 Then - 'Dim CveUsuarioResponsable As Integer = 0 - + If CveProveedor > 0 Then + Dim Prov As New ClsCompProveedores If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, tCveEmpresa) Then If Prov.DtResultados.Rows.Count > 0 Then RFC = Prov.DtResultados.Rows(0)("RFC").ToString - Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString - ' CveUsuarioResponsable = Prov.DtResultados.Rows(0)("CveUsuarioResponsable").ToString.ToEntero - - - 'Banco = Prov.DtResultados.Rows(0)("BancNombre").ToString - 'NumCuenta = Prov.DtResultados.Rows(0)("BancCuenta").ToString - 'If NumCuenta = "" Then NumCuenta = Prov.DtResultados.Rows(0)("BancCIE").ToString - 'CLABE = Prov.DtResultados.Rows(0)("BancCLABE").ToString - 'If CLABE = "" Then CLABE = Prov.DtResultados.Rows(0)("BancReferencia").ToString - 'NoSucursal = Prov.DtResultados.Rows(0)("BancSucursal").ToString - - ' UsuarioResponsable = Prov.DtResultados.Rows(0)("NotificarA").ToString - - 'If CveUsuarioResponsable > 0 Then - ' Dim Usr As New ClsSisUsuarios - - ' If Usr.GetUsuarios(CveUsuarioResponsable) Then - ' UsuarioResponsable = Usr.DtResultados.FiltroPrimero(String.Format("CveUsuario = {0}", CveUsuarioResponsable))("Correo").ToString - ' End If - - ' Usr.Dispose() - - 'End If + Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString + 'Banco = Prov.DtResultados.Rows(0)("BancNombre").ToString + 'NumCuenta = Prov.DtResultados.Rows(0)("BancCuenta").ToString + 'If NumCuenta = "" Then NumCuenta = Prov.DtResultados.Rows(0)("BancCIE").ToString + 'CLABE = Prov.DtResultados.Rows(0)("BancCLABE").ToString + 'If CLABE = "" Then CLABE = Prov.DtResultados.Rows(0)("BancReferencia").ToString + 'NoSucursal = Prov.DtResultados.Rows(0)("BancSucursal").ToString + + ' UsuarioResponsable = Prov.DtResultados.Rows(0)("NotificarA").ToString + End If - - End If - Prov.Dispose() End If @@ -2081,135 +1877,16 @@ Namespace Extensiones NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString CLABE = RH.DtResultados.Rows(0)("CLABE").ToString End If - - End If - RH.Dispose() - End If End If End If - PreP.Dispose() - - 'Try - ' 'cuando es transferencia - ' Dim Excel As msExcel.Application = New msExcel.Application() - ' Dim VB_Module As VBComponent = Nothing - ' Excel.Visible = True - ' Excel.ScreenUpdating = True - ' Excel.DisplayAlerts = True - ' FormatoCheque = String.Format("Cheques\Transferencia-{0}.xlsm", ObjIE.CveCuenta) - - ' If Not IO.File.Exists(String.Format("{0}Cheques\", Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Cheques\", Ruta)) - - ' If Not IO.File.Exists(String.Format("{0}{1}", Ruta, FormatoCheque)) Then - ' IO.File.Copy(String.Format("{0}Empresas\Grales\Transferencia.xlsm", ModExtensiones.DirectorioBaseEmpresas), String.Format("{0}{1}", Ruta, FormatoCheque), False) - ' End If - - ' Dim ArchivoBase As New System.IO.FileInfo(String.Format("{0}{1}", Ruta, FormatoCheque)) - ' If Not IO.Directory.Exists(String.Format("{0}Formatos\", Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Formatos\", Ruta)) - ' ArchivoBase.CopyTo(String.Format("{0}Formatos\Transferencia-{1}.xlsm", Ruta, pCveIE), True) - ' Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia-{1}.xlsm", Ruta, pCveIE)) - - - ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Libro.Activate() - - ' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) - ' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible - ' Hoja.Activate() - ' Try - - ' If CveTipoTransaccion = 9 Then Hoja.Range("B1:B1").Value = String.Format("{0}{1}Pago Layout ", Hoja.Range("B1:B1").Value, vbLf) - ' Hoja.Range("G3:G3").Value = String.Format("Folio: {0}", Folio) - ' Hoja.Range("G3:G3").HorizontalAlignment = -4152 'xlRight - ' Hoja.Range("A3:A3").Value = FechaExpedicion.ToString("yyyy-MM-dd") - ' Hoja.Range("A5:A5").Value = PagueseA - ' Hoja.Range("A8:A8").Value = Importe.ToString("N2") - ' Hoja.Range("C8:C8").Value = TextoImporte.ToUpper - ' Hoja.Range("A10:A10").Value = Banco - ' 'Crediproveedor - ' If RefCrediproveedor <> "" Then - ' Hoja.Range("F10:F10").Value = RefCrediproveedor - ' Hoja.Range("F11:F11").Value = "Crediproveedor" - ' End If - ' Hoja.Range("A12:A12").Value = NumCuenta - ' Hoja.Range("D12:D12").Value = NoSucursal - ' Hoja.Range("F12:F12").Value = CLABE - ' Hoja.Range("A15:A15").Value = Observacion - ' Hoja.Range("A19:A19").Value = RFC - ' Hoja.Range("D19:D19").Value = IVA.FormatoNumero - ' Hoja.Range("A21:A21").Value = Correo - ' Hoja.Range("F21:F21").Value = Telefono - ' Hoja.Range("B24:B24").Value = NotificarA - ' Hoja.Range("A26:A26").Value = SubProyecto - ' Hoja.Range("A30:A30").Value = UsuarioRegistro - - ' 'Exportar PDF - ' Dim pdfFileOut As String = String.Format("{0}PDF\Transf-{1}.pdf", Ruta, pCveIE) - ' Dim outputFileName As Object = pdfFileOut - ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF - ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing) - ' Catch ex As Exception - ' Dim Msgerr As String = "" - ' Msgerr.Alert(String.Format("Ocurrió un error {0}", ex.Message), TipoMensaje.MsgError) - ' End Try - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja) - ' Hoja = Nothing - ' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges - ' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing) - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro) - ' Libro = Nothing - ' Excel.Quit() - ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel) - ' Excel = Nothing - ' GC.Collect() - ' GC.WaitForPendingFinalizers() - - ' ArchivoTemp.Delete() - - - ' If MuestraAlert Then - ' Dim Descargas As New StringBuilder() - ' Descargas.AppendFormat("
  • Transferencia
  • ", tCveEmpresa, pCveIE, Now.Ticks) - ' Descargas.AppendFormat("
  • Listado
  • ", pCveIE) - ' If IDPoliza > 0 Then Descargas.AppendFormat("
  • Póliza
  • ", IDPoliza) - ' Dim Msg As String = String.Format("
    El Documento se generó correctamente.


    Descargas:
      {0}
    ", Descargas.ToString) 'TipoMensaje.MsgInformacion - - ' Msg.Alert(Msg, TipoMensaje.MsgInformacion, String.Format("document.location.href=""{0}""", HttpContext.Current.Request.Url.AbsoluteUri)) - ' End If - - - - 'Catch ex As Exception - ' Dim Msg As String = "No se pudo generar el documento." - ' Msg.OnError(Msg, ex, "CveIE=" & pCveIE) - 'End Try - - - End If - - - - 'End If - - - ' RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?CveVenta=" & If(EsVistaPrevia, UsuarioActual.CveUsuario.ToString, Folio) & "&Ext=PDF', 700, 400, 'N', 'ImpVenta')") - - - End Sub - Private Function GetMacro() As String - Dim SB As New StringBuilder - SB.Append(" Sub AddRow(Row As String) " & vbLf) - SB.Append(" Rows(Row & "":"" & Row).Select " & vbLf) - SB.Append(" Selection.Copy " & vbLf) - SB.Append(" Selection.Insert Shift:=xlDown " & vbLf) - SB.Append(" End Sub ") - Return SB.ToString - End Function - - + PreP.Dispose() + End If + + End Sub + Public Sub ExportToExcel2(GridView As GridView, NombreArchivoXLSX As String) @@ -3416,17 +3093,6 @@ Namespace Extensiones End Function #Region "Contabilidad" - 'Public Function ObtenerCuentaDobleConta(IdCtaContable As Integer, CveEmpresa As Integer) As Integer - ' Dim Retorno As Integer = -1 - - ' Dim ObjContabilidad As New ClsContabilidad - ' If ObjContabilidad.GetCuentaDobleConta(IdCtaContable, CveEmpresa) Then - ' Retorno = ObjContabilidad.DtResultados(0)("CveCuenta").ToString.ToEntero - ' End If - ' ObjContabilidad.Dispose() - - ' Return Retorno - 'End Function Public Function ContabilizaMovimientoAlmacen(ByRef ObjConta As ClsContabilidad, Fecha As Date, Concepto As String, Modulo As String, CveMovimientoSalida As Integer, CveMovimientoEntrada As Integer, Importe As Decimal, CveUsuario As Integer, CveEmpresa As Integer, Contabilizable As Boolean) As Integer Dim Retorno As Integer = -1 diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb index ed4aa3d7d..7ca8b9f0e 100644 --- a/App_Code/wsSIG.vb +++ b/App_Code/wsSIG.vb @@ -548,7 +548,7 @@ Public Class wsSIG End Function - Public Function ProspectosGet2(CveProspecto As Integer, Nombres As Integer, CveEmpresa As Integer, CveVendedor As Integer) As DataTable + Public Function ProspectosGet2(CveProspecto As Integer, Nombres As String, CveEmpresa As Integer, CveVendedor As Integer) As DataTable Dim dt As DataTable = Nothing Dim Str As New StringBuilder diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 6dfb8875c..60ef44198 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -199,6 +199,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveCompra = dr("CveCompra").ToString.ToEntero cevent.SerieFolioCompra = dr("SerieFolioCompra").ToString + cevent.CveVenta = dr("CveVenta").ToString.ToEntero + cevent.SerieFolioVenta = dr("SerieFolioVenta").ToString + cevent.CveOS = dr("CveOS").ToString.ToEntero cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero @@ -206,6 +209,16 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString + cevent.CveActivoFijo = dr("CveActivoFijo").ToString.ToEntero + cevent.AFCodigo = dr("AFCodigo").ToString + + cevent.CveMovimiento = dr("CveMovimientoAlmacen").ToString.ToEntero + cevent.MovimientoFolio = dr("MovimientoFolio").ToString + + cevent.CveIE = dr("CveIE").ToString.ToEntero + cevent.FolioIE = dr("FolioIE").ToString + + '11/05/2018 - Evento Gasto Recurrente cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero If cevent.CveTipoEvento = 10 Then diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index e7e3a11f0..07a7adc94 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -47,17 +47,6 @@ Public Class E119 : Implements IHttpHandler End If End Get End Property - Public ReadOnly Property TokenAutorizacion As String - Get - Return "$2y$10$LGqtRWUloKQmAt.jcUldc.PmS5LJ6l.WU2w1G4PBOTLMVKZRNQFPS" - End Get - End Property - - Public ReadOnly Property URLBase As String - Get - Return "https://services.fidelityapps.mx/" - End Get - End Property #Region "V A L I D A - D A T O S" @@ -99,19 +88,31 @@ Public Class E119 : Implements IHttpHandler Dim retorno As String = "" Try Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) - 'OBTENER EXISTENCIAS - 'If Metodo = "BASF_POG40" Then - ' context.Response.ContentType = "application/json" - ' Dim Auth = ValidarSolicitud(context) - ' If Auth.IsSucces Then - ' retorno = ConsultaDatos(context) - ' Else - ' context.Response.StatusCode = Auth.StatusCode - ' retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) - ' End If + If Metodo = "BASF_POG40" Then + context.Response.ContentType = "application/json" + Dim Auth = ValidarSolicitud(context) - 'End If + If Auth.IsSucces Then + retorno = ConsultaDatos(context) + Else + context.Response.StatusCode = Auth.StatusCode + retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) + End If + + End If + + If Metodo = "ConsultarProductos" Then + context.Response.ContentType = "application/json" + Dim Auth = ValidarSolicitud(context) + + If Auth.IsSucces Then + retorno = ConsultaProductos(context) + Else + context.Response.StatusCode = Auth.StatusCode + retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) + End If + End If context.Response.Write(retorno) @@ -220,6 +221,41 @@ Public Class E119 : Implements IHttpHandler End If End Function + Private Function ConsultaProductos(ByVal context As HttpContext) As String + Dim Respuesta As New ResponseMsg + Dim RespuestaError As New ResponseMsgError + Dim TieneError As Boolean = False + + Dim Productos As JArray = Nothing + + Using ObjInventario As New ClsInventarios + If ObjInventario.GetJAM_APIs(1) AndAlso ObjInventario.DtResultados IsNot Nothing Then + Productos = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP()) + Else + RespuestaError.message = "no se pudo obtener los datos" + TieneError = True + End If + End Using + + Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "") + Msg.GuardaLogAD("LogE119") + + If TieneError Then + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject(RespuestaError) + Else + context.Response.StatusCode = 200 + Try + Respuesta.data = New JObject(New JProperty("Productos", Productos)) + Respuesta.message = "Los datos se obtuvieron correctamente" + Return JsonConvert.SerializeObject(Respuesta) + Catch ex As Exception + RespuestaError.message = "Ocurrió un error al generar la petición" + Return JsonConvert.SerializeObject(RespuestaError) + End Try + End If + End Function + Private Class ResponseMsg Sub New() status = "success" diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx index 063ecb33c..464c49e33 100644 --- a/Ashx/E140.ashx +++ b/Ashx/E140.ashx @@ -132,9 +132,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Dim CorreoSupervisor As String = dRow("Correo").ToString() Dim Sucursal As String = dRow("Sucursal").ToString Dim Vendedor As String = dRow("Nombre").ToString() - Dim CveSubProyecto As Integer = dRow("CveSubProyecto").ToString() - - + Dim CveSubProyecto As Integer = dRow("CveSubProyecto").ToString.ToEntero CorreoSupervisor = "oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx" Dim ObjGen = New ClsVentas diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 7428ce2a6..648919343 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -1236,8 +1236,7 @@ Public Class E141 : Implements IHttpHandler TmpDT.Columns.Add("TotalImporte", GetType(Decimal)) TmpDT.Columns.Add("Total", GetType(Decimal)) 'Para uso del módulo contable - TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer)) - TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer)) + TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer)) TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean)) TmpDT.Columns.Add("CveProyecto", GetType(Integer)) TmpDT.Columns.Add("Proyecto", GetType(String)) diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index 7a607aa4a..b4569400e 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -71,10 +71,10 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState RespuestaError.Message = "Ocurrió un error al obtener el cuerpo de los parametros" End If - If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then + If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha").ToString) Then Dim ObjContaAC As ClsContPAQi = Nothing - Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen") + Dim observaciones As String = If(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen") Dim IDPoliza As Integer = 0 Dim usuario As String = JsonRequest("usuario").ToString() @@ -311,7 +311,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Else context.Response.StatusCode = 200 Respuesta.Message = "La salida se registró correctamente" - Respuesta.Folio = folioSalida + Respuesta.Folio = FolioSalida.ToString retorno = JsonConvert.SerializeObject(Respuesta).ToString diff --git a/Ashx/E72.ashx b/Ashx/E72.ashx index 310c93b60..4068c10cd 100644 --- a/Ashx/E72.ashx +++ b/Ashx/E72.ashx @@ -131,7 +131,7 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState Return retorno End Function - Private Function CreaDT() + Private Function CreaDT() As DataTable Dim DtMovimientos As DataTable = New DataTable("Productos") With DtMovimientos.Columns .Add("Codigo", Type.GetType("System.String")) diff --git a/Ashx/MHRedes.ashx b/Ashx/MHRedes.ashx index ce76f6e63..3a4cb5172 100644 --- a/Ashx/MHRedes.ashx +++ b/Ashx/MHRedes.ashx @@ -9,86 +9,86 @@ Imports System.Text Public Class MobileHandler : Implements IHttpHandler Private Property Contexto As HttpContext - + Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Contexto = context - + If context.Request("Opcion") IsNot Nothing Then Dim Opcion As String = context.Request("Opcion") - + Select Case Opcion Case "ValidaUsuario" ValidaUsuario() Case "Simpatizantes" - If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then + If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then RepSimpatizantes(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41) End If Case "Metas" - If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then + If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then RepMetas(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41) End If Case "Actividades" - If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then + If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then RepActividadesRecientes(41) End If - + End Select End If End Sub - + Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False End Get End Property - + Private Sub ValidaUsuario() Dim ObjUsuario As New ClsSisUsuarios Dim User As Usuario - + Dim IP As String - + IP = clsUtilerias.GetIP4Address 'Request.ServerVariables("REMOTE_ADDR").ToString() If IP = "::1" Then IP = "127.0.0.1" - + End If Dim Json As New StringBuilder - + User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI) If User IsNot Nothing Then - + Dim Token As String = String.Format("{0}*{1}*{2}", Now.ToString, IP, User.CveUsuario) Token = Encripta(Token) json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token) Else json.Append("{ ""CveUsuario"" : ""-1"", ""Nombre"" : ""No valido"" } ") End If - + Contexto.Response.Write(json.ToString) End Sub - - + + Private Sub RepActividadesRecientes(CveEmpresa As Integer) Dim Json As String = "" Dim Ind As New ClsProspectos - + If Ind.GetProspectosSupervisor(CveEmpresa) Then - + Json = DataTableToJSON(Ind.DtResultados) - + End If Ind.Dispose() - + Contexto.Response.Write(Json) End Sub - + Private Sub RepSimpatizantes(Agrupador As Integer, CveEmpresa As Integer) Dim Json As String = "" Dim Ind As New ClsProspectos @@ -96,22 +96,22 @@ Public Class MobileHandler : Implements IHttpHandler If Ind.GetProspectosAgrupados2(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, Agrupador, CveEmpresa) Then Dim yValues As New ArrayList Dim xValues As New ArrayList - + 'cuando es por edades, ordena por la claverango Dim dt As DataTable = Ind.DtResultados.FiltraParametros("CveAgrupador > 0", If(Agrupador = 9, "CveRangoEdad", "Total Desc")) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Json = DataTableToJSON(Ind.DtResultados) End If End If - + Ind.Dispose() - + Contexto.Response.Write(Json) End Sub - - + + Private Sub RepMetas(Opcion As Integer, CveEmpresa As Integer) Dim ObjProspectos As New ClsProspectos Dim dt As DataTable @@ -122,20 +122,20 @@ Public Class MobileHandler : Implements IHttpHandler dt = dt.FiltraParametros("CveCoordinador > 0 AND CveAgrupador IS NULL") Else dt = dt.FiltraParametros("CveSupervisor > 0 AND CveCoordinador IS NULL") - + End If - + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Json = DataTableToJSON(dt) End If End If - + ObjProspectos.Dispose() Contexto.Response.Write(Json) - + End Sub - - - + + + End Class diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 17156c67c..988214be8 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -31,7 +31,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState pFechaF = context.Request("FechaF") End If - Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar, pFechaI, pFechaF) + Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar.ToString, pFechaI, pFechaF) End If Catch ex As Exception @@ -180,7 +180,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim DTRemisiones As DataTable = Nothing Dim ObjVentas As New ClsVentas - If ObjVentas.GetRemisionesSinFacturar(FechaI, FechaF, CveCliente, -1, 1, -1) Then + If ObjVentas.GetRemisionesSinFacturar(FechaI.ToShortDateString, FechaF.ToShortDateString, CveCliente, -1, 1, -1) Then DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0") End If ObjVentas.Dispose() @@ -388,7 +388,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.DtPromociones = ObjVentas.DtResultados.Copy() End If - If ObjVentas.GetRemisionesSinFacturar(FechaI, FechaF, CveCliente, -1, 1, -1) Then + If ObjVentas.GetRemisionesSinFacturar(FechaI.ToShortDateString, FechaF.ToShortDateString, CveCliente, -1, 1, -1) Then ObjFactura.DtRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0") End If @@ -400,7 +400,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.ObservacionesAlmacen = DatosRemisiones("Almacen").ToString() For Each Venta As JObject In DatosRemisiones("Ventas") - ObjFactura.RemisionesLista.Add(Venta("CveVenta")) + ObjFactura.RemisionesLista.Add(Venta("CveVenta").ToString.ToEntero) Next ObjFactura.Timbre = PreParaTimbre(ObjFactura) @@ -567,7 +567,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState TmpDT.Columns.Add("TotalImporte", GetType(Decimal)) TmpDT.Columns.Add("Total", GetType(Decimal)) 'Para uso del módulo contable - TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer)) + TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer)) TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean)) TmpDT.Columns.Add("CveProyecto", GetType(Integer)) TmpDT.Columns.Add("Proyecto", GetType(String)) @@ -613,7 +613,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState TmpDT.Columns.Add("CveTamaño", GetType(Integer)) Try For Each Dr As DataRow In DtRemisionesPS.Select() - Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Dr("Consec").ToString.ToEntero(), Dr("Cantidad").ToString.ToDouble(), Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString, + Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Dr("Consec").ToString.ToEntero(), Dr("Cantidad").ToString.ToDecimal(), Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString, Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal, Dr("CveSubProyecto").ToString.ToEntero, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString.ToEntero, RegeneraIEPS:=True) @@ -631,7 +631,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Return TmpDT End Function - Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, TmpDT As DataTable, Consec As Integer, Cantidad As Double, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String, + Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, TmpDT As DataTable, Consec As Integer, Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String, PU As Decimal, Descuento As Decimal, CveSubProyecto As Integer, Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, @@ -854,7 +854,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial) Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante) Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy")) - Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total) + Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.ToString) Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy")) Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio) End If diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx index 3a461a634..6f8b1e66e 100644 --- a/Ashx/SIGFacturacionCiclica.ashx +++ b/Ashx/SIGFacturacionCiclica.ashx @@ -291,7 +291,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}") - ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)) + ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)).ToDecimal ObjFactura.TipoDocto = "Ing" ObjFactura.RefDocto = "" ObjFactura.Folio = -1 diff --git a/Ashx/SIGGPS.ashx b/Ashx/SIGGPS.ashx index 3931b03a9..6a2c659f7 100644 --- a/Ashx/SIGGPS.ashx +++ b/Ashx/SIGGPS.ashx @@ -1,6 +1,6 @@ <%@ WebHandler Language="VB" Class="SIGGPS" %> 'Option Explicit On -'Option Strict On +Option Strict Off Imports System Imports System.Web diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx index 5119765e9..21d2372c7 100644 --- a/Ashx/SIGPolizaVirtual.ashx +++ b/Ashx/SIGPolizaVirtual.ashx @@ -851,11 +851,11 @@ Namespace Fluent random.NextBytes(DefaultNode) End Sub - - Function GetVersion(ByVal guid As Guid) As GuidVersion - Dim bytes = guid.ToByteArray - Return ((bytes(VersionByte) And &HFF) >> VersionByteShift) - End Function + ' + 'Function GetVersion(ByVal guid As Guid) As GuidVersion + ' Dim bytes = guid.ToByteArray + ' Return ((bytes(VersionByte) And &HFF) >> VersionByteShift) + 'End Function Function GetDateTimeOffset(ByVal guid As Guid) As DateTimeOffset Dim bytes As Byte() = guid.ToByteArray diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index d0d6e1e61..4c09b06b8 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -1,5 +1,5 @@ <%@ WebHandler Language="VB" Class="SIGWeb" %> - +Option Strict Off Imports System.Data Imports System.IO Imports Extensiones @@ -753,7 +753,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim ColumnaNombre As String = "NombreComercial" 'Abreviaturas. N. Nombre, NC. NombreComercial,... If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then - ColumnaNombre = IIf(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto")) + ColumnaNombre = If(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto")) End If Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero @@ -761,7 +761,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -810,7 +810,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim DtRetorno As DataTable = Nothing Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -853,7 +853,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Private Function getpsalmacen(ByVal context As HttpContext) As String Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer Dim retorno As String = "" Dim DtPSRetorno As DataTable = Nothing @@ -908,7 +908,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState ' EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO', ' EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -987,9 +987,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'APLICACION DE FILTROS DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) - If Estatus = 1 Then + If Estatus = "1" Then DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1)) - ElseIf Estatus = -1 Then + ElseIf Estatus = "-1" Then End If @@ -1314,7 +1314,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim DtPSRetorno As DataTable = Nothing Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -1340,9 +1340,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'APLICACION DE FILTROS DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) - If Estatus = 1 Then + If Estatus = "1" Then DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1)) - ElseIf Estatus = -1 Then + ElseIf Estatus = "-1" Then End If @@ -1407,7 +1407,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim DtRetorno As DataTable = Nothing Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -1530,7 +1530,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState System.IO.Directory.CreateDirectory(direct) End If Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}" - If uuid.Length Then + If uuid.Length > 0 Then fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}" End If System.IO.File.Move(urfile, fileurl) @@ -1583,7 +1583,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim DtRetorno As DataTable = Nothing Dim usuario As Usuario = UsuarioActual(context) - Dim CveEmpresa As String + Dim CveEmpresa As Integer If IsNothing(usuario) Then context.Response.Write("") Else @@ -1667,13 +1667,6 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim TieneError = False CveMovimiento.ToString.GuardaLog - - 'Dim ObjConta As ClsContPAQi = Nothing - 'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then - ' ObjConta = New ClsContPAQi(UsuarioActual.Empresa) - ' ObjConta.IniciaTransacSQL() - 'End If - 'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then ' TieneError = True 'End If diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index c8f9322a3..3e01ccf00 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -75,7 +75,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If context.Request("var") IsNot Nothing Then URLParametros = Parametros(context.Request("var")) - metodo = URLParametros("metodo") + metodo = URLParametros("metodo").ToString 'SI TRAE UN JSON COMO PARAMETRO ElseIf context.Request("metodo") IsNot Nothing Then metodo = context.Request("metodo").ToString() @@ -106,7 +106,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Public Sub timbrarNominab() - Dim cveEmpresa As String = "5" + Dim cveEmpresa As Integer = 5 Dim Dv As New DataView(DirectCast(currentcontext.Application("GlobalDTUsuarios"), DataTable), $"CveUsuario = 100 AND CveEmpresa ={cveEmpresa}", "", DataViewRowState.CurrentRows) @@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If GlobalDTUsuarios.Rows.Count > 0 Then Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0) Dim ObjUsuario As New ClsSisUsuarios - usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario"), dtrow("Contraseña"), IMEI, cveEmpresa) + usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa) ObjUsuario.Dispose() Dim ObjEmpresa As New ClsSisEmpresas() @@ -217,8 +217,8 @@ Public Class TareasProgramadas : Implements IHttpHandler Using GlobalDTUsuarios As DataTable = Dv.ToTable() If GlobalDTUsuarios.Rows.Count > 0 Then Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0) - username = dtrow("Usuario") - pass = dtrow("Contraseña") + username = dtrow("Usuario").ToString + pass = dtrow("Contraseña").ToString End If End Using End Using @@ -260,7 +260,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Public Function timbrarNomina() As String Dim retorno As String = "" - Dim cveEmpresa As String = URLParametros("CveEmpresa").ToString().ToEntero() + Dim cveEmpresa As Integer = URLParametros("CveEmpresa").ToString().ToEntero() Dim CvePeriodo As Integer = URLParametros("CvePeriodo").ToString().ToEntero() Dim CveNomina As Integer = URLParametros("CveNomina").ToString().ToEntero() @@ -906,7 +906,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Using ObjVentas As New ClsVentas 'VENDEDORES If ObjVentas.GetRepMetasVendedores(FechaEnvio, UsuarioActual.CveEmpresa, -1, -1, - -1, -1, -1,-1, + -1, -1, -1, -1, -1, -1, GrupoSuperior:=0) Then DtGrupoVendedores = ObjVentas.DtResultados.Copy End If @@ -1092,7 +1092,7 @@ Public Class TareasProgramadas : Implements IHttpHandler params.Add(New ReportParameter("pImg", "")) End If params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToString)) params.Add(New ReportParameter("SubProyecto", UsuarioEnviar.SubProyecto)) params.Add(New ReportParameter("Agente", UsuarioEnviar.Agente)) @@ -1118,7 +1118,7 @@ Public Class TareasProgramadas : Implements IHttpHandler params.Add(New ReportParameter("pImg", "")) End If params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToString)) params.Add(New ReportParameter("SubProyecto", "Todos")) params.Add(New ReportParameter("Agente", "Todos")) diff --git a/Bancos/ClientesAbonar.aspx.vb b/Bancos/ClientesAbonar.aspx.vb deleted file mode 100644 index 84c7e3940..000000000 --- a/Bancos/ClientesAbonar.aspx.vb +++ /dev/null @@ -1,2845 +0,0 @@ -Imports System.Data -Imports Extensiones - -Partial Class Ventas_ClientesAbonar - Inherits ClsPaginas - - -#Region "Propiedades" - Private ReadOnly Property CveCliente As Integer - Get - Return ViewState("CveCliente").ToString.ToEntero - End Get - End Property - Private Property CveMoneda As Integer - Get - Return ViewState("CveMoneda").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveMoneda") = value - End Set - End Property - Private Property CveMonedaPago As Integer - Get - Return ViewState("CveMonedaPago").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveMonedaPago") = value - End Set - End Property - Private Property CveMonedaFiltro As Integer - Get - Return IfNull(ViewState("CveMonedaFiltro"), "0").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveMonedaFiltro") = value - End Set - End Property - Private Property FechaIngreso As Date - Get - Return ViewState("FechaIngreso").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaIngreso") = value - End Set - End Property - Private Property CveSubProyecto As Integer - Get - Return ViewState("CveSubProyecto").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveSubProyecto") = value - End Set - End Property - Private Property CveClienteSucursal As Integer - Get - Return If(IsNothing(ViewState("CveClienteSucursal")), -1, ViewState("CveClienteSucursal").ToString.ToEntero) - End Get - Set(value As Integer) - ViewState("CveClienteSucursal") = value - End Set - End Property - Private Property DTFuenteRecaudacion As DataTable - Get - Return CType(ViewState("DTFuenteRecaudacion"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTFuenteRecaudacion") = value - End Set - End Property - Private Property DtIngresos As DataTable - Get - Return CType(ViewState("DtIngresos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtIngresos") = value - End Set - End Property - Private Property DtPrestamos As DataTable - Get - Return CType(ViewState("DtPrestamos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtPrestamos") = value - End Set - End Property - Private Property NombreComercial As String - Get - Return ViewState("NombreComercial").ToString - End Get - Set(value As String) - ViewState("NombreComercial") = value| - End Set - End Property - Private Property Mail As String - Get - If ViewState("Mail") Is Nothing Then - Return "" - Else - Return ViewState("Mail").ToString - End If - End Get - Set(value As String) - ViewState("Mail") = value - End Set - End Property - Private Property CFDIRelacionadoSustitucion As String - Get - If ViewState("CFDIRelacionadoSustitucion") Is Nothing Then - Return "-1" - Else - Return ViewState("CFDIRelacionadoSustitucion").ToString - End If - End Get - Set(value As String) - ViewState("CFDIRelacionadoSustitucion") = value - End Set - End Property - Private Property FechaCorteIE As DateTime - Get - Return ViewState("FechaCorteIE").ToString.ToDateTime - End Get - Set(value As DateTime) - ViewState("FechaCorteIE") = value - End Set - End Property - Private Property IDPoliza As Integer - Get - Return ViewState("IDPoliza").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("IDPoliza") = value - End Set - End Property - Private Property FolioIECancelado As String - Get - If ViewState("FolioIECancelado") Is Nothing Then - Return "-1" - Else - Return ViewState("FolioIECancelado").ToString - End If - End Get - Set(value As String) - ViewState("FolioIECancelado") = value - End Set - End Property - Private Property ComplementoSustitucionGenerado As Boolean - Get - Return CBool(ViewState("ComplementoSustitucionGenerado")) - End Get - Set(value As Boolean) - ViewState("ComplementoSustitucionGenerado") = value - End Set - End Property - Private Property Fecha As Date - Get - Return ViewState("Fecha").ToString.ToDate - End Get - Set(value As Date) - ViewState("Fecha") = value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CveMonedaPago = -1 - If Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToString.ToEntero > 0 Then - ViewState("CveCliente") = Request("CveCliente").ToString.ToEntero - 'ViewState("CveUsuario") = IfNultl(Request("CveUsuario"), "-1").ToStrirowComisionesng.ToEntero - ViewState("CveMonedaFiltro") = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero - ViewState("CveMoneda") = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero - ViewState("FechaI") = IfNull(Request("FechaI"), "-1").ToString.ToEntero - ViewState("FechaE") = IfNull(Request("FechaE"), "-1").ToString.ToEntero - ViewState("CveSubProyecto") = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero - ViewState("CveClienteSucursal") = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero - - DdlProveedorIntermediario.setEsWebService(True) - DdlProveedorIntermediario.Attributes.Add("data-metodo", "getproveedores") - DdlProveedorIntermediario.SelectedText = "Seleccione" - DdlProveedorIntermediario.SelectedValue = "-1" - - FechaCorteIE = DateTime.Now - - Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day) - Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate - - If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then - PorletIntermediario.Visible = True - End If - - If CargaCliente(CveCliente, CveMonedaFiltro) Then - - IdCuentaBancaria = 0 - - TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1},-1);", "TxtTotal", 0)) - 'TxtAnticipo.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1},-1);", "null", 0)) - - If CveMoneda > 0 Then LbTipoMoneda.Text = String.Format("Pago en {0}", GlobalDTMonedas.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)).Rows(0)("Moneda")) - - If CveMoneda = 2 Then - ChkPagarPesos.Visible = True - TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - DivTCDolaresDolares.Visible = True - TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") - ElseIf CveMoneda = 1 Then - ChkPagarDolares.Visible = True - TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - ElseIf CveMoneda = -1 Then - TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") - TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - - If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then - HlSaldarCuentasIncobrables.Visible = True - End If - - End If - - If CveMonedaFiltro = -1 Then - ChkPagarPesos.Visible = False - ChkPagarDolares.Visible = False - End If - - RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}") - End If - - RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy") - - - If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then - LnkAccionesModalSeleccionLayout.Visible = True - - End If - - End If - - If (CveMonedaFiltro = 2 And ChkPagarPesos.Checked) Then - RegistraScript("document.getElementById('DivTC').style.display = 'block';") - End If - - End Sub - - Private Sub CargaTipoTransaccion() - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ") - DdlTipoTransaccion.DataBind() - DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) - RecargaCuentasDepositos() - End Sub - - Private Sub CargaCuentas() - DdlCuenta.Items.Clear() - Dim CveTipoCuenta As Integer = 2 - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores - - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta) - - If ChkPagarPesos.Checked Then - dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) - RegistraScript("CambiaPesosDolares();") - ElseIf ChkPagarDolares.Checked Then - dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 2)) - RegistraScript("CambiaDolaresPesos();") - Else - If CveMonedaFiltro > 0 Then - dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMonedaFiltro)) - End If - End If - - DdlCuenta.DataSource = dt - DdlCuenta.DataBind() - DdlCuenta.Items.Insert(0, New ListItem("Seleccione cuenta", "-1")) - End Sub - - Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean - Dim Retorno As Boolean = False - Dim ObjCliente As New ClsClientes() - If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - Retorno = True - CargaCuentas() - CargaTipoTransaccion() - - TxtFechaDocumento.Text = Now.ToShortDateString.ToString - TxtAboneA.Enabled = False - LbEncabezado.Text = String.Format("{1}", CveCliente, ObjCliente.NombreComercial) - TxtAboneA.Text = ObjCliente.NombreComercial - NombreComercial = ObjCliente.NombreComercial - TxtImporte.Attributes.Add("disabled", "disabled") - If DdlTipoTransaccion.SelectedValue = "1" Then RFVFolio.Enabled = True Else RFVFolio.Enabled = False - Mail = String.Format("{0};{1}", ObjCliente.CobranzaCorreo, ObjCliente.NotificarA) - - If Request("FechaI") IsNot Nothing Then ViewState("FechaI") = Request("FechaI") Else ViewState("FechaI") = "-1" - If Request("FechaF") IsNot Nothing Then ViewState("FechaF") = Request("FechaF") Else ViewState("FechaF") = "-1" - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then - - divAnticipo.Visible = True - divPrestamo.Visible = True - - GvCxC.Columns(17).HeaderText = "Comisión
    Venta" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol1).FiltroPrimeroValor("Clasificacion").Substring(0, 10) - GvCxC.Columns(18).HeaderText = "Gastos
    Manejo" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol2).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(19).HeaderText = "Servicio
    Inspección" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol3).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(20).HeaderText = "Seguro" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol4).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(21).HeaderText = "Aduana
    Mex" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol5).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(22).HeaderText = "Diversos" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol6).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(23).HeaderText = "Aduana
    USA" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(24).HeaderText = "Material
    Empaque" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(25).HeaderText = "Semilla" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(26).HeaderText = "Total
    Gastos" - - DvLiquidacion1.Visible = True - DvLiquidacion2.Visible = True - - DtIngresos = CargaIngresos(2) - DtPrestamos = CargaPrestamos(1) - End If - - CargaDatos(tCveMoneda) - Else - Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) - End If - End If - ObjCliente.Dispose() - Return Retorno - End Function - - Private Sub CargaDatos(pCveMoneda As Integer) - Dim Mov As New ClsMovimientos - Dim FechaI As String = IfNull(Request("FechaI"), "-1") - Dim FechaF As String = IfNull(Request("FechaF"), "-1") - - Dim FechaCorte As Date = DateTime.Now.AddYears(1).ToShortDateString.ToString.ToDate - - Dim SumDescuentoProntoPago As Double = 0.0 - If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte) Then - Dim TmpCxCAux As DataTable - TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") - SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago") - - GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") - CveMoneda = pCveMoneda - - End If - Mov.Dispose() - GvCxC.DataBind() - - TxtImporte.Text = "" - TxtObservaciones.Text = "" - If SumDescuentoProntoPago > 0.0 Then - GvCxC.Columns(14).Visible = True 'MOSTRAR DESCUENTO PRONTO PAGO - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - GvCxC.Columns(15).Visible = True 'HABILITAR NC - End If - End If - - UPVentas.Update() - End Sub - - Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged - 'recargo la moneda con la que se va a pagar - Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) - Dim moneda As Integer = 0 - If DdlCuenta.SelectedValue > 0 Then - moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero - End If - - CveMonedaPago = moneda - - If dr IsNot Nothing Then - If ChkPagarPesos.Checked Then - CveMoneda = 2 - RegistraScript("document.getElementById('DivTC').style.display = 'block';") - RegistraScript("CambiaPesosDolares();") - TxtTC.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,1,{0});", moneda)) - ElseIf ChkPagarPesos.Checked = False Then - CveMoneda = dr("CveMoneda").ToString.ToEntero - RegistraScript("document.getElementById('DivTC').style.display = 'none';") - RegistraScript("CambiaDolaresPesos();") - TxtTC.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,1,{0});", moneda)) - End If - - If ChkPagarDolares.Checked Then - CveMoneda = 1 - TxtTCDolares.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,1,{0});", moneda)) - End If - ValidaCuentaDePagoFormaDePago() - End If - - CargaDatos(CveMoneda) - - - ' si no tiene CveMoneda, o es -1, cuando cambia de cuenta filtra las facturas - If IfNull(Request("CveMoneda"), "-1").ToString.ToEntero = -1 Then - CargaDatos(-1) - - moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero - If moneda = 1 Then - 'DivTC.Visible = True - DivTCDolares.Visible = False - TxtTC.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,-1,{0});", moneda)) - ElseIf moneda = 2 Then - 'DivTC.Visible = False - RegistraScript("document.getElementById('DivTC').style.display = 'none';") - DivTCDolares.Visible = True - TxtTCDolares.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,-1,{0});", moneda)) - End If - End If - - If HdnTipoTransaccion.Value = "Ing" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then - If UsuarioActual.CveEmpresa = 119 Then - Dim ObjFolios As New ClsGralFolios - If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then - Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'")) - If DT.Rows.Count > 0 Then - TxtFolio.Text = DT.Rows(0)("FActual").ToString.ToEntero - End If - ObjFolios.Dispose() - End If - Else - Dim Folio As Long - Dim Banco As New ClsBancos - Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero) - Banco.Dispose() - TxtFolio.Text = Folio.ToString - - End If - - Else - TxtFolio.Text = "" - - End If - - - End Sub - - Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged - Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue)) 'Egs o Ing - If dr IsNot Nothing Then - HdnTipoTransaccion.Value = dr("Tipo").ToString - End If - RecargaCuentasDepositos() - 'CargaCuentas() - ValidaCuentaDePagoFormaDePago() - End Sub - - Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - Dim moneda As Integer = 0 - If e.Row.RowIndex = 0 Then - e.Row.BackColor = Drawing.Color.LightGray - e.Row.FCDropDownList("DdlTG").Visible = False - e.Row.FCTextBox("TxtLiqCol1").Visible = False - e.Row.FCTextBox("TxtLiqCol2").Visible = False - e.Row.FCTextBox("TxtLiqCol3").Visible = False - e.Row.FCTextBox("TxtLiqCol4").Visible = False - e.Row.FCTextBox("TxtLiqCol5").Visible = False - e.Row.FCTextBox("TxtLiqCol6").Visible = False - e.Row.FCTextBox("TxtLiqCol7").Visible = False - e.Row.FCTextBox("TxtLiqCol8").Visible = False - e.Row.FCTextBox("TxtLiqCol9").Visible = False - e.Row.FCTextBox("TxtLiqColT").Visible = False - e.Row.FCTextBox("TxtAmort").Visible = False - e.Row.FCTextBox("TxtAmort2").Visible = False - e.Row.FCDropDownList("DdlAnti").Visible = False - e.Row.FCDropDownList("DdlAnti2").Visible = False - - End If - If e.Row.RowIndex = 1 Then - e.Row.Cells(0).Width = Unit.Pixel(25) - e.Row.Cells(1).Width = Unit.Pixel(90) - e.Row.Cells(2).Width = Unit.Pixel(70) - e.Row.Cells(3).Width = Unit.Pixel(70) - e.Row.Cells(6).Width = Unit.Pixel(50) - e.Row.Cells(7).Width = Unit.Pixel(70) - e.Row.Cells(8).Width = Unit.Pixel(50) - 'e.Row.Cells(9).Width = Unit.Pixel(90) - 'e.Row.Cells(10).Width = Unit.Pixel(80) - 'e.Row.Cells(11).Width = Unit.Pixel(60) - End If - - e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - - If e.Row.DBCampo("Saldo").ToDecimal < 0 Then e.Row.Cells(11).ForeColor = Drawing.Color.Red - If e.Row.DBCampo("DiasVencidos").ToDecimal > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red - If e.Row.DBCampo("Original").ToDecimal = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = "" - If e.Row.DBCampo("Abonado").ToDecimal = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = "" - If e.Row.DBCampo("Saldo").ToDecimal = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = "" - - Select Case RblTipoPago.SelectedValue - Case "1" - If DdlCuenta.SelectedValue > 0 Then - moneda = CveMonedaPago - ElseIf RblTipoPago.SelectedValue = "1" Then - e.Row.FCCheckBox("Chk").Enabled = False - e.Row.FCTextBox("TxtAbonar").Enabled = False - End If - Case "3" - moneda = CveMonedaPago - - End Select - - If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 Then - e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnSeleccionaNC({5},{6},{0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("ChkGenerarNC").ClientID, e.Row.DBCampo("CveVenta"))) - Else - e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4},{5});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta"))) - End If - - If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then - If e.Row.DBCampo("TipoDocto") = "Rem" Then - e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión - e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago" - End If - End If - - - If e.Row.DBCampo("CveVenta").ToEntero > 0 Then - e.Row.FCLiteral("LtlAux").Text = String.Format("Ir", e.Row.DBCampo("CveCliente").ToEntero, e.Row.DBCampo("CveVenta").ToEntero) - e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1,{2},{3});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), CveMonedaFiltro, moneda)) - - If UsuarioActual.Empresa.Funcionalidad(157).ToDecimal <> 0 Then - e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, -UsuarioActual.Empresa.Funcionalidad(157), UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal)) - e.Row.FCRangeValidator("RVComision").MinimumValue = -UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal - e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal - e.Row.FCRangeValidator("RVComision").Enabled = True - Else - e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},2,{2},{3});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), CveMonedaFiltro, moneda)) - e.Row.FCRangeValidator("RVComision").MinimumValue = 0.00 - e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Saldo") - End If - - If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 5 Then - e.Row.FCCheckBox("ChkGenerarNC").Visible = True - e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta"))) - End If - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then '' si es empresa agrícola - - e.Row.FCDropDownList("DdlTG").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) - e.Row.FCDropDownList("DdlTG").DataBind() - - e.Row.FCTextBox("TxtLiqCol1").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol2").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol3").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol4").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol5").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol6").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") - - e.Row.FCTextBox("TxtLiqColT").Attributes.Add("class", $"ClsSelLiqVentaTotal{e.Row.DBCampo("CveVenta")}") - e.Row.FCTextBox("TxtAmort").Attributes.Add("class", $"ClsSelLiqAnt") - e.Row.FCTextBox("TxtAmort2").Attributes.Add("class", $"ClsSelLiqAnt") - - e.Row.FCTextBox("TxtLiqCol1").Attributes.Add("onkeyup", $"SumaLiq (this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol3").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol4").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol5").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol6").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtAmort").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - e.Row.FCTextBox("TxtAmort2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") - - e.Row.FCDropDownList("DdlAnti").DataSource = DtIngresos - e.Row.FCDropDownList("DdlAnti").DataBind() - e.Row.FCDropDownList("DdlAnti").Items.Insert(0, New ListItem("-", "-1")) - - e.Row.FCDropDownList("DdlAnti2").DataSource = DtIngresos - e.Row.FCDropDownList("DdlAnti2").DataBind() - e.Row.FCDropDownList("DdlAnti2").Items.Insert(0, New ListItem("-", "-1")) - - End If - - Else - e.Row.FCTextBox("TxtAbonar").Visible = False - e.Row.FCTextBox("TxtComision").Visible = False - e.Row.FCCheckBox("Chk").Visible = False - End If - - If e.Row.DBCampo("CveVenta").ToEntero > 0 Then - If e.Row.DataKey("ClaveMetodoPagoSAT") = "PUE" Then - e.Row.FCLiteral("LtlComplemento").Text = "" - End If - Else - e.Row.FCLiteral("LtlComplemento").Visible = False - End If - - End If - End Sub - - Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click - - 'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - Dim files = Anexo.getfiles() - If files IsNot Nothing Then - If files.Archivos IsNot Nothing Then - If files.Archivos.Count = 0 Then - Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Else - Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Else - Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - - If RblTipoPago.SelectedValue = "1" Then - - Dim ValFechaDocumento As Boolean = False - Dim FoliosFechasValFechaDocumento As New StringBuilder - FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
    ") - - For Each gvRowVal As GridViewRow In GvCxC.Rows - - If gvRowVal.FCCheckBox("Chk").Checked Then - - Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate - Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate - - Dim AnioFactura As Integer = FechaFactura.Year - Dim MesFactura As Integer = FechaFactura.Month - - Dim AnioDocumento As Integer = FechaDocumento.Year - Dim MesDocumento As Integer = FechaDocumento.Month - - If UsuarioActual.Empresa.UsaAC = False Then - If AnioFactura > AnioDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
    ") - ValFechaDocumento = True - ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
    ") - ValFechaDocumento = True - End If - - End If - End If - Next - - If ValFechaDocumento Then - Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - - If Not TxtImporte.Text.ToDecimal > 0 Then - Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - If Not (TxtFolio.Text.Trim <> "" Or RblTipoPago.SelectedValue = "2" Or RblTipoPago.SelectedValue = "3") Then - Alert("Debe de llevar un Folio", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - If TxtPrestamoImporte.Text.ToDecimal <> 0 AndAlso DdlPrestamo.SelectedValue = "-1" Then - Alert("Debe seleccionar un préstamo al especificar un valor.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - 'valida que no exceda lo seleccionado. con el valor del ie - If (RblTipoPago.SelectedValue = "3" AndAlso HdnIngresoImporte.Value.ToDecimal < TxtTotal.Text.ToDecimal) Then - Alert("Importe excedido para la aplicación", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim Cuenta As String = "" - Dim CuentaDeposito As String = "" - - Dim seleccion As Integer = 0 - For Each gvr As GridViewRow In GvCxC.Rows - If gvr.FCCheckBox("Chk").Checked Then - seleccion += 1 - 'si hay liquidación- - If gvr.FCDropDownList("DdlAnti").SelectedValue = "-1" AndAlso gvr.FCTextBox("TxtAmort").Text.ToDecimal <> 0 Then - Alert("Importe de anticipo especificado y no seleccionado. F: " & gvr.DataKey("SerieFolio"), TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - Next - - If seleccion = 0 Then - Alert("No ha seleccionado ninguna factura para abonar.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim CvePrePoliza As Integer = 0 - Dim IDPoliza As Integer = 0 - Dim FolioPoliza As String = "" - Dim CveIE As Integer = -1 - Dim CveVentasPago As New List(Of Integer) - Dim SeriesPago As New List(Of String) - - Dim MsgError As String = "" - Dim NCGeneradas As New List(Of RespuestaNotaCredrito) - Dim ListaFacturasGenerarNC As New List(Of Modelos.Factura) - - Dim ImporteSeleccionado As Decimal = 0 - - '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR - Dim ErrorCancelarIE As Boolean = False - - - Dim ObjIE As New ClsBancos() - Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - Dim ObjVentasSaldos As New ClsVentas(ObjIE.IniciaTransacSQL) - Dim ObjEvento As New ClsOIEventos(ObjIE.IniciaTransacSQL) - Dim ObjConta As ClsContPAQi = Nothing - - Try - Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos - Dim filemove As String = "" - Dim Comprobante As String = "" - ComplementoSustitucionGenerado = False - - For Each fileItem As Archivo In filesgral - Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") - filemove = fileItem.filename - Next - - Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text) - - If DdlCuenta.SelectedValue > 0 Then - CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero - Else - CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero - End If - - CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - If RblTipoPago.SelectedValue = "1" Then - Dim CveCuentaDeposito As Integer = 0 - Dim TipoCambio As Decimal = 0 - - If DdlCuentaDeposito.Items.Count > 0 Then - CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero - End If - - If CveMoneda = 2 Then - If TxtTCDolares.Visible Then - TipoCambio = TxtTCDolares.Text.ToDecimal - Else - TipoCambio = If(CveMonedaFiltro = -1, TxtTCDolares.Text.ToDecimal, TxtTCDolaresDolares.Text.ToDecimal) 'GlobalTipoCambio(TxtFechaDocumento.Text).ToString.ToDecimal - End If - Else - If TxtTC.Visible Then - TipoCambio = TxtTC.Text.ToDecimal - End If - End If - - Dim CveProvIntermediario As Integer - If ChkProveedorIntermediario.Checked Then - CveProvIntermediario = If(DdlProveedorIntermediario.SelectedValue.ToEntero <= 0, -1, DdlProveedorIntermediario.SelectedValue.ToEntero) - End If - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveProveedorIntermediario:=CveProvIntermediario) - Else - If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc - CveIE = DdlIngreso.SelectedValue.ToEntero - If CveMonedaPago = 2 And Not ChkPagarPesos.Checked Then CveMoneda = 2 - If ChkPagarDolares.Checked Then CveMoneda = 2 - If ChkPagarPesos.Checked Then CveMoneda = 1 - End If - - End If - - If CveIE > 0 OrElse RblTipoPago.SelectedValue.Contiene("2", "3") Then - - 'Guardar archivo - If filemove <> "" Then - filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) - End If - - 'inserto los movimientos de la conta para abonar al saldo - If CvePrePoliza > 0 Then - - Dim CvePlantillaPoliza As Integer = 11 - Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " - Dim idCuentaContabilizacion As Long = 1 - Dim CveCuentaContabilizacion As Long = 1 - Dim dtConceptos As DataTable = Nothing - Dim tipoCambioPago As Decimal - Dim TipoCambioGeneral As Decimal = 1 - Dim CveSubProyectoContabilizar As Integer = -1 - Dim CveSubProyectoMaximo As Integer = -1 - Dim CuentasContablesInvalidas As New StringBuilder - Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) - Dim TipoCambioFluctuacion As Decimal = 1 - Dim FechaUltimaFluctuacion As Date = MinFecha - - Dim tFecha As Date = TxtFechaDocumento.Text.ToDate - Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) - - Dim ImportePrestamo As Decimal = 0 - Dim TCPrestamo As Decimal = 0 - - If CveSubProyectoMaximo <= 0 Then 'sino se seleccionó del combo, busca en el listado el primero - - For Each Gvr As GridViewRow In GvCxC.Rows - If Gvr.FCCheckBox("Chk").Checked Then - CveSubProyectoMaximo = Gvr.DataKey("CveSubProyecto").ToEntero - Exit For - End If - Next - End If - - If TxtPrestamoImporte.Text.ToDecimal <> 0 Then 'amortización del préstamo - ImportePrestamo = TxtPrestamoImporte.Text.ToDecimal - Dim tCveProv As Integer = DtPrestamos.FiltroPrimeroValor("CveProveedor", "CveIE=" & DdlPrestamo.SelectedValue).ToEntero - Dim tFechaIE As Date = DtPrestamos.FiltroPrimeroValor("FechaDocumento", "CveIE=" & DdlPrestamo.SelectedValue).ToDate - TCPrestamo = DtPrestamos.FiltroPrimeroValor("TipoCambio", "CveIE=" & DdlPrestamo.SelectedValue).ToDecimal - If CveMoneda = 1 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 57, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveProveedor:=tCveProv) Then - MsgError = "No se pudo insertar la póliza" - End If - Else - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If tFechaIE <= UltimaFluctuacion.FechaFluctuacion Then - FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion - TCPrestamo = UltimaFluctuacion.TCFluctuacion - End If - End If - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 349, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then - MsgError = "No se pudo insertar la póliza" - End If - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ((ImportePrestamo * TCPrestamo) - ImportePrestamo).RoundSQL, 350, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - - End If - - If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then - tipoCambioPago = If(TxtTCDolares.Visible, TxtTCDolares.Text.ToDecimal, TxtTCDolaresDolares.Text.ToDecimal) - Dim ImporteIntereses As Decimal = (TxtPrestamoIntereses.Text.ToDecimal * tipoCambioPago).RoundSQL - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - - 'inserto las ventas que voy a pagar - For Each gvr As GridViewRow In GvCxC.Rows - - If gvr.FCCheckBox("Chk").Checked Then - - Dim ObjFactura As Modelos.Factura = Nothing - Dim EsAnticipoEspecial As Boolean = False - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - ObjFactura = New Modelos.Factura(UsuarioActual, gvr.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - End If - - Dim VentaActual As New Venta(UsuarioActual) - VentaActual.CveVenta = gvr.DataKey("CveVenta").ToEntero - VentaActual.Fecha = gvr.DataKey("Fecha").ToDate - VentaActual.CveCliente = gvr.DataKey("CveCliente").ToEntero - VentaActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero - VentaActual.TipoDocto = gvr.DataKey("TipoDocto") - VentaActual.SerieFolio = gvr.DataKey("SerieFolio") - VentaActual.ClienteNombre = NombreComercial - VentaActual.TC = gvr.DataKey("TipoCambio").ToDecimal - VentaActual.Total = gvr.DataKey("Original").ToDecimal - VentaActual.IVA = gvr.DataKey("IVA").ToDecimal - VentaActual.IEPS = gvr.DataKey("IEPS").ToDecimal - VentaActual.RetIVA = gvr.DataKey("RetIVA").ToDecimal - VentaActual.RetISR = gvr.DataKey("RetISR").ToDecimal - - VentaActual.PorcentajeIVA = gvr.DataKey("PorcentajeIVA").ToDecimal - VentaActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero - - 'Importe de pago - Dim Pago As New VentaPago - Pago.Fecha = TxtFechaDocumento.Text.ToDate - Pago.CveIE = CveIE - Pago.CveMonedaPago = CveMoneda - Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal - Pago.ImportePagoVenta = gvr.FCTextBox("TxtAbonar").Text.ToDecimal - Pago.Referencia = TxtFolio.Text - - If RblTipoPago.SelectedValue = "3" Then - Pago.TipoPago = "I" - Pago.FechaDocumentoRelacionado = FechaIngreso - End If - - 'Tipos de cambio - If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos - Pago.TCPago = TxtTC.Text.ToDecimal - ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES - Pago.TCPago = IIf(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal) - ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - Pago.TCPago = TxtTCDolares.Text.ToDecimal - End If - tipoCambioPago = Pago.TCPago - - If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso MsgError = "" Then '' si es empresa agrícola - Dim FluctuacionAnticipo As Decimal = 0 - Dim ImporteLiq1 As Decimal = gvr.FCTextBox("TxtLiqCol1").Text.ToDecimal - Dim ImporteLiq2 As Decimal = gvr.FCTextBox("TxtLiqCol2").Text.ToDecimal - Dim ImporteLiq3 As Decimal = gvr.FCTextBox("TxtLiqCol3").Text.ToDecimal - Dim ImporteLiq4 As Decimal = gvr.FCTextBox("TxtLiqCol4").Text.ToDecimal - Dim ImporteLiq5 As Decimal = gvr.FCTextBox("TxtLiqCol5").Text.ToDecimal - Dim ImporteLiq6 As Decimal = gvr.FCTextBox("TxtLiqCol6").Text.ToDecimal - Dim ImporteLiq7 As Decimal = gvr.FCTextBox("TxtLiqCol7").Text.ToDecimal - Dim ImporteLiq8 As Decimal = gvr.FCTextBox("TxtLiqCol8").Text.ToDecimal - Dim ImporteLiq9 As Decimal = gvr.FCTextBox("TxtLiqCol9").Text.ToDecimal - - Dim CveClasificacionCol1 As Integer = 21514 'comisiones sobre venta - Dim CveClasificacionCol2 As Integer = 21916 ' manejo - Dim CveClasificacionCol3 As Integer = 21917 'servicios de inspección - Dim CveClasificacionCol4 As Integer = 21918 ' seguro liquidación - Dim CveClasificacionCol5 As Integer = 21561 ' gastos aduanales mex - Dim CveClasificacionCol6 As Integer = 21920 ' diveros - Dim CveClasificacionCol7 As Integer = 21919 'gastos aduanales usa - Dim CveClasificacionCol8 As Integer = 21211 'material Empaque - Dim CveClasificacionCol9 As Integer = 21207 'Semilla - - Dim CveSubProyectoLiquidacion As Integer = gvr.DataKey("CveSubProyecto").ToEntero - Dim CveConceptoLiquidacion As Integer = 51 - Dim ConceptoPartida As String = gvr.DataKey("SerieFolio") & " " & gvr.FCDropDownList("DdlTG").SelectedItem.Text - - If ImporteLiq1 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq1, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq1 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1, ImporteME:=If(CveMoneda > 1, ImporteLiq1, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq2 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq2, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq2 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2, ImporteME:=If(CveMoneda > 1, ImporteLiq2, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq3 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq3, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq3 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3, ImporteME:=If(CveMoneda > 1, ImporteLiq3, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq4 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq4, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq4 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4, ImporteME:=If(CveMoneda > 1, ImporteLiq4, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq5 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq5, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq5 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5, ImporteME:=If(CveMoneda > 1, ImporteLiq5, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq6 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq6, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq6 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6, ImporteME:=If(CveMoneda > 1, ImporteLiq6, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq7 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq7, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq7 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7, ImporteME:=If(CveMoneda > 1, ImporteLiq7, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq8 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq8, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq8 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol8, ImporteME:=If(CveMoneda > 1, ImporteLiq8, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If ImporteLiq9 <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq9, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq9 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol9, ImporteME:=If(CveMoneda > 1, ImporteLiq9, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" : Exit For - End If - End If - - If MsgError = "" AndAlso gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero > 0 Then - Dim TCP As Decimal = 0 - Dim FolioPago As String = " " - If DtIngresos IsNot Nothing Then - TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue)) - FolioPago = DtIngresos.FiltroPrimeroValor("Folio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)) - Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue)).ToDate - 'considera fluctuación - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If tTCPFecha <= UltimaFluctuacion.FechaFluctuacion Then - tTCPFecha = UltimaFluctuacion.FechaFluctuacion - TCP = UltimaFluctuacion.TCFluctuacion - End If - End If - End If - 'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo - FluctuacionAnticipo = ((TCP - tipoCambioPago) * gvr.FCTextBox("TxtAmort").Text.ToDecimal).RoundSQL - MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort").Text.ToDecimal, TCP, gvr.DataKey("CveVenta").ToEntero, gvr.DataKey("SerieFolio").ToString, FolioPago) - End If - - If MsgError = "" AndAlso gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero > 0 Then - Dim TCP As Decimal = 0 - Dim FolioPago As String = " " - If DtIngresos IsNot Nothing Then - TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)) - FolioPago = DtIngresos.FiltroPrimeroValor("Folio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)) - Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)).ToDate - 'considera fluctuación - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If tTCPFecha <= UltimaFluctuacion.FechaFluctuacion Then - tTCPFecha = UltimaFluctuacion.FechaFluctuacion - TCP = UltimaFluctuacion.TCFluctuacion - End If - End If - - End If - 'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo - FluctuacionAnticipo += ((TCP - tipoCambioPago) * gvr.FCTextBox("TxtAmort2").Text.ToDecimal).RoundSQL - MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort2").Text.ToDecimal, TCP, gvr.DataKey("CveVenta").ToEntero, gvr.DataKey("SerieFolio").ToString, FolioPago) - End If - - If ImportePrestamo <> 0 Then - If TCPrestamo > 0 Then - FluctuacionAnticipo += ((TCPrestamo - tipoCambioPago) * ImportePrestamo).RoundSQL - ImportePrestamo = 0 - End If - End If - Pago.ImporteFluctuacionAdicional = FluctuacionAnticipo - End If - - If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then - MsgError = "No se pudo insertar la póliza" - Exit For - End If - - ' Case 134 'Pago Intermediario - If RblTipoPago.SelectedValue = "2" Then - Dim ImporteMovimiento As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal - gvr.FCTextBox("TxtComision").Text.ToDecimal - Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - - 'PARA EMITIR COMPLEMENTO PAGO - CveVentasPago.Add(gvr.DataKey("CveVenta").ToEntero) - SeriesPago.Add(gvr.DataKey("SerieFolio")) - - - If gvr.FCCheckBox("ChkGenerarNC").Checked AndAlso ObjFactura IsNot Nothing Then - ObjFactura.DescuentoProntoPago = gvr.DataKey("DescuentoProntoPago").ToDecimal() - ListaFacturasGenerarNC.Add(ObjFactura) - End If - - End If - Next - - If RblTipoPago.SelectedValue = "1" AndAlso MsgError = "" Then - - CveSubProyectoContabilizar = CveSubProyectoMaximo - - If CveMoneda = 2 Then - 'If IdCuentaBancariaComplementaria > 0 Then - If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - tipoCambioPago = TxtTCDolares.Text.ToDecimal - ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then - tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - End If - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - - If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 204, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - - Else - If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - tipoCambioPago = TxtTCDolares.Text.ToDecimal - ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then - tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - End If - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - End If - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso MsgError = "" Then '' si es empresa agrícola - If TxtAnticipo.Text.ToDecimal <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtAnticipo.Text.ToDecimal, TxtFolio.Text, 66, TxtObservaciones.Text, Now, -1, -1, CveIE, -1, -1, CveSubProyecto, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtAnticipo.Text.ToDecimal, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=0, ImporteME:=If(CveMoneda > 1, TxtAnticipo.Text.ToDecimal, 0)) Then - MsgError = "No se pudo insertar la póliza" - End If - - If CveMoneda > 1 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtAnticipo.Text.ToDecimal, TxtFolio.Text, 226, TxtObservaciones.Text, Now, -1, -1, CveIE, -1, -1, CveSubProyecto, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=((TxtAnticipo.Text.ToDecimal * tipoCambioPago) - TxtAnticipo.Text.ToDecimal).RoundSQL, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=0, ImporteME:=If(CveMoneda > 1, TxtAnticipo.Text.ToDecimal, 0)) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - - End If - - End If - - If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo simplificar los movimientos" - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - End If - - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then - If ObjMov.ValorPolizaDescuadre > 0 Then - MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia - End If - End If - - 'Conta ContPAQ - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - IDPoliza = ObjMov.ContaIdPoliza - FolioPoliza = ObjMov.ContaFolio - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico" - End If - Else - Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas)) - End If - End If - Else - MsgError = "No se pudo insertar la póliza" - End If - Else - MsgError = "No se insertó el encabezado" - End If - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso MsgError = "" Then - If MsgError = "" Then - If ListaFacturasGenerarNC.Count > 0 Then - - For Each Fac As Modelos.Factura In ListaFacturasGenerarNC - Dim ListaNC As New List(Of Modelos.Factura) - ListaNC.Add(Fac) - Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC) - - If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then - NCGeneradas.Add(Resp) - Else - MsgError = "No se pudo generar la nota de crédito" - Exit For - End If - Next - - If MsgError = "" Then - If NCGeneradas.Count <> ListaFacturasGenerarNC.Count Then - MsgError = "No se generaron las notas de crédito seleccionadas" - End If - End If - - End If - End If - End If - - Dim ErrorAC As Boolean = False - - If MsgError = "" Then - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then - Dim Fecha As Date = TxtFechaDocumento.Text.Trim.ToDate - ObjConta = New ClsContPAQi(UsuarioActual.Empresa) - ObjConta.IniciaTransacSQL() - Dim Facturas As New StringBuilder - - IDPoliza = ObjConta.AddPoliza(1, String.Format("Recaudado: {0}, {1}", TxtAboneA.Text, TxtObservaciones.Text), TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, UsuarioActual.CveUsuario, Fecha) - FolioPoliza = ObjConta.Folio.ToString - - - Dim ConceptoRenglon As String - If IDPoliza > 0 Then - Dim PorcentajePago As Double = 1 - Dim Total As Double - Dim ObjVentas As New ClsVentas - Dim ImporteOP = 0.0 - Dim IdCuentaOP = -1 - - For Each gvr As GridViewRow In GvCxC.Rows - If gvr.FCCheckBox("Chk").Checked Then - If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1 - - If ObjVentas.GetPresupuestosVentas(gvr.DataKey("CveVenta").ToEntero) Then - For Each drt As DataRow In ObjVentas.DtResultados.Rows - Total = drt("TotalPresupuesto").ToString.ToDecimal * PorcentajePago - ConceptoRenglon = String.Format("{0} {1}", gvr.DataKey("SerieFolio"), drt("FuenteRecaudacionRubroIngreso").ToString) - If Total > 0 Then - If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, False, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For : Exit For - - If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaRecaudado").ToString.ToEntero, True, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For : Exit For - End If - - Next - If ErrorAC Then Exit For - - Facturas.AppendFormat(" {0}", gvr.DataKey("SerieFolio")) - End If - - End If - Next - ObjVentas.Dispose() - - 'AFECTAR MATRIZ EGRESOS - ConceptoRenglon = String.Format("Recaudado: {0} - F.{1}", TxtAboneA.Text, Facturas.ToString) - If ObjConta.AddMovimiento(IDPoliza, IdCuentaBancaria, False, TxtImporte.Text.ToDecimal, "", ConceptoRenglon, 0, Fecha, "") Then - If TxtImporte.Text.ToDecimal - ImporteOP > 0 Then - If Not ObjConta.AddMovimiento(IDPoliza, ViewState("CtaCliente").ToString.ToEntero, True, TxtImporte.Text.ToDecimal - ImporteOP, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True - End If - Else - ErrorAC = True - End If - - Else - ErrorAC = True - End If - - If Not ErrorAC Then - ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) - End If - - If Not ErrorAC Then - ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) - End If - - End If - End If - - If ErrorAC Then - MsgError = "Error al Agregar la Póliza de Armonización Contable" - End If - - Catch ex As Exception - MsgError = "Ocurrió un error al guardar el movimiento" - OnError("Ocurrió un error al guardar el movimiento", ex) - End Try - - If MsgError = "" Then - ObjIE.Commit() - If ObjConta IsNot Nothing Then ObjConta.Commit() - - Dim StrMsg As New StringBuilder - StrMsg.AppendFormat("Abono Registrado Correctamente. Folio {1}
    ", CveIE, ObjIE.Folio) - - If IDPoliza > 0 Then StrMsg.AppendFormat("Poliza: {1}
    ", IDPoliza, FolioPoliza) - - Dim TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago) - - For Each RespuestaNotaCredito In NCGeneradas - If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then - Try - Dim ObjTimbradoNC As New Timbrado - Dim TimbroNC = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC) - If Not TimbroNC Then - Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError) - End If - ObjTimbradoNC = Nothing - Catch ex As Exception - OnError("Ocurrió un error al timbrar la NC.", ex) - End Try - StrMsg.AppendFormat("Nota de crédito generada correctamente.

    Folio: {1}
    ", RespuestaNotaCredito.Respuesta.CveVenta, RespuestaNotaCredito.Respuesta.SerieFolio) - End If - Next - Alert($"{StrMsg.ToString}

    {TextoComplementoPago}", TipoMensaje.MsgInformacion, If(ChkSeguirRegistrando.Checked, "location.href =""#""", "location.href =""/Bancos/RepCxCCliente.aspx""")) - - Else - If ObjConta IsNot Nothing Then ObjConta.RollBack() - ObjIE.RollBack() - Alert(MsgError, TipoMensaje.MsgAdvertencia) - End If - - ObjIE.Dispose() - ObjVentasSaldos.Dispose() - ObjMov.Dispose() - If ObjConta IsNot Nothing Then ObjConta.Dispose() - ObjEvento.Dispose() - - UPVentas.Update() - - If MsgError = "" Then - LimpiaCampos() - End If - - End Sub - - Private Function RegistraAmortizacionAnticipo(ByRef ObjMov As ClsContabilidad, CvePrePoliza As Integer, CveIE As Integer, Importe As Decimal, tipoCambioPago As Decimal, CveVenta As Integer, ReferenciaVenta As String, ReferenciaPago As String) As String - Dim MsgError As String = "" - If CveMonedaPago = 2 Then - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, ReferenciaVenta, 92, ReferenciaVenta, TxtFechaDocumento.Text, 0, -1, CveIE, CveCliente:=CveCliente, ImporteMX:=Importe, CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, Importe / TxtTC.Text.ToDecimal, Importe), ReferenciaVenta, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioPago}", "")), TxtFechaDocumento.Text, 0, -1, CveIE, CveCliente:=ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (Importe * tipoCambioPago) - Importe, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - - Else - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, ReferenciaVenta, 92, ReferenciaVenta, TxtFechaDocumento.Text, 0, -1, CveIE, CveCliente:=ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, Importe * tipoCambioPago, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - MsgError = "No se pudo insertar la póliza" - End If - End If - - Return MsgError - - End Function - -#Region " N O T A - D E - C R E D I T O" - Private Class RespuestaNotaCredrito - Public Property ObjFacturaNC As Modelos.Factura - Public Property Respuesta As Modelos.Factura.MMensajeFactura - End Class - - Private Function GenerarNC(SqlTransaccion As SqlClient.SqlTransaction, ObjConta As ClsContPAQi, ListaVentasGenerarNC As List(Of Modelos.Factura)) As RespuestaNotaCredrito - Dim Retorno As New RespuestaNotaCredrito() - Try - - Dim ObjFacturaDevolucion = New Modelos.Factura(UsuarioActual) - ObjFacturaDevolucion.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML - ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario - ObjFacturaDevolucion.UsuarioCreo = UsuarioActual.Usuario - - Dim CveSubProyecto As Integer = Me.CveSubProyecto - Dim CveMoneda As Integer = Me.CveMoneda - Dim CveCliente As Integer = Me.CveCliente - - If CveSubProyecto <= 0 Then - CveSubProyecto = ListaVentasGenerarNC(0).CveSubProyecto - End If - - If CveMoneda <= 0 Then - CveMoneda = ListaVentasGenerarNC(0).CveMoneda - End If - - If CveCliente <= 0 Then - CveCliente = ListaVentasGenerarNC(0).CveCliente - End If - - Dim Folio As Integer = -1 - Dim Serie As String = "-1" - - ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa - ObjFacturaDevolucion.TipoCambio = If(Me.CveMoneda = 1, 1, GlobalTipoCambio(Now).FormatoNumero(4).ToDecimal()) - ObjFacturaDevolucion.ConvertirPesos = False - ObjFacturaDevolucion.CveMoneda = CveMoneda - ObjFacturaDevolucion.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda}") - ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {CveMoneda}") - ObjFacturaDevolucion.Serie = Serie - ObjFacturaDevolucion.Folio = Folio - ObjFacturaDevolucion.Fecha = Now - ObjFacturaDevolucion.CvePrePoliza = -1 - ObjFacturaDevolucion.CveMetodoPago = 0 - ObjFacturaDevolucion.CondicionesPago = 0 ' 0 - Contado, 1 - Credito (CHECAR) - ObjFacturaDevolucion.FormaPago = 0 - - ObjFacturaDevolucion.TipoDocto = "Egs" - ObjFacturaDevolucion.Fecha = Now - - ObjFacturaDevolucion.Version = "4.0" - - ObjFacturaDevolucion.CveMetodoPago33 = 1 - ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición" - ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" - - Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue) - Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago")) - - ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString - ObjFacturaDevolucion.FormaPago33 = dra("FormaPagoSAT").ToString - ObjFacturaDevolucion.FormaPagoSAT33 = dra("ClaveFormaPagoSAT").ToString - - ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto - ObjFacturaDevolucion.SetSubProyecto() - - ObjFacturaDevolucion.CveCliente = CveCliente - ObjFacturaDevolucion.SetCliente() - - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(ObjFacturaDevolucion.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - - ObjFacturaDevolucion.CveUsoCFDI = 2 - ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", 2)) - ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2)) - - ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC() - - CargaImpuestos(ObjFacturaDevolucion, ListaVentasGenerarNC, ObjCliente.DesglosaIEPS, ObjCliente.RetIVA, ObjCliente.RetISR) - - End If - End If - - If ObjCliente.GetSucursales(CveCliente) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFacturaDevolucion.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero()) - Else - ObjFacturaDevolucion.CveClienteSucursal = -1 - End If - End If - ObjCliente.Dispose() - - ObjFacturaDevolucion.CveTipoRelacion = 1 - ObjFacturaDevolucion.TipoRelacion = "01" - ObjFacturaDevolucion.DtVentasRelacionadas = New DataTable - ObjFacturaDevolucion.DtVentasRelacionadas.Columns.Add("CveVenta", GetType(Integer)) - - Dim Fol As New List(Of String) - For Each Fac In ListaVentasGenerarNC - Fol.Add(Fac.FolioFiscal) - - Dim RowVenta As DataRow = ObjFacturaDevolucion.DtVentasRelacionadas.NewRow - RowVenta("CveVenta") = Fac.CveVenta - - ObjFacturaDevolucion.DtVentasRelacionadas.Rows.Add(RowVenta) - Next - - ObjFacturaDevolucion.UUIDRelacionados = Fol - - Select Case ObjFacturaDevolucion.TipoDocto - Case "Ing" - ObjFacturaDevolucion.TipoDocumento = "Factura" - Case "REM" - ObjFacturaDevolucion.TipoDocumento = "Remision" - Case "Cot" - ObjFacturaDevolucion.TipoDocumento = "Cotizacion" - Case "Egs" - ObjFacturaDevolucion.TipoDocumento = "Nota de Crédito" - Case "Dev" - ObjFacturaDevolucion.TipoDocumento = "Nota de Devolución" - Case Else - ObjFacturaDevolucion.TipoDocumento = "" - End Select - - ObjFacturaDevolucion.FechaPago = Now - - ObjFacturaDevolucion.CveCorte = -1 - 'ObjFacturaDevolucion.CveMesa = -1 - ObjFacturaDevolucion.NumeroPersonas = 0 - ObjFacturaDevolucion.CveContrato = -1 - ObjFacturaDevolucion.DescripcionContrato = "" - ObjFacturaDevolucion.CveClienteSucursal = -1 - ObjFacturaDevolucion.Entrega = "" - ObjFacturaDevolucion.CveAlmacen = -1 - - Dim DtVentasNC = InicializaDTVentasNC() - - Dim TotalImporte As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("TotalImporte") - Dim ImporteIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteIVA") - Dim ImporteRetIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteRetIVA") - Dim ImporteRetISR As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteRetISR") - Dim ImporteIEPS As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteIEPS") - Dim Descuento As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("Descuento") - Dim Amortizacion As Decimal = 0 - - Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + Descuento + Amortizacion) - - 'DETALLES - ObjFacturaDevolucion.SubTotal = TotalImporte - ObjFacturaDevolucion.Descuento = Descuento - ObjFacturaDevolucion.Amortizacion = Amortizacion - ObjFacturaDevolucion.IVA = ImporteIVA - ObjFacturaDevolucion.RetIVA = ImporteRetIVA - ObjFacturaDevolucion.RetISR = ImporteRetISR - ObjFacturaDevolucion.IEPS = ImporteIEPS - ObjFacturaDevolucion.Total = Total - ObjFacturaDevolucion.TotalOtrosConceptos = 0 - - For Each Fac In ListaVentasGenerarNC - Dim Drt = DtVentasNC.NewRow - Drt("CveVenta") = Fac.CveVenta - Drt("Importe") = Fac.DescuentoProntoPago - Drt("FolioFiscal") = Fac.FolioFiscal - DtVentasNC.Rows.Add(Drt) - Next - - DtVentasNC.AcceptChanges() - - ObjFacturaDevolucion.DtVentasNC = DtVentasNC - - ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC) - - Try - Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion, ObjContPaqTransac:=ObjConta) - Retorno.Respuesta = Resp - Catch ex As Exception - OnError("Ocurrió un error al guardar la NC de pronto pago", ex) - Retorno.Respuesta = Nothing - End Try - Retorno.ObjFacturaNC = ObjFacturaDevolucion - - Catch ex As Exception - OnError("Ocurrió un error al generar la NC de pronto pago", ex) - Retorno = Nothing - End Try - - Return Retorno - - End Function - - Private Function PreParaTimbre(Obj As Modelos.Factura, ListaVentasGenerarNC As List(Of Modelos.Factura)) As CFDITimbre - Dim Timbre As New CFDITimbre - Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) - Timbre.Comprobante.Folio = Obj.Folio.ToString() - Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 - Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - Timbre.Comprobante.SubTotal = Obj.SubTotal - Timbre.Comprobante.Descuentos = Obj.Descuento - Timbre.Comprobante.Moneda = Obj.MonedaSAT - Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString()) - Timbre.Comprobante.Total = Obj.Total - - Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP - If Timbre.Comprobante.LugarExpedicion = "" Then - Dim aa As String = "no se guardo lugar de expedicion" - aa.GuardaLog() - End If - - Timbre.Comprobante.Confirmacion = "" - - If Obj.FacturarSucursal Then - Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC - Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre - Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP - Else - Timbre.Receptor.RFC = Obj.Cliente.RFC - Timbre.Receptor.Nombre = Obj.Cliente.Nombre - Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP - End If - - Timbre.Receptor.RegimenFiscalReceptor = Obj.Cliente.CodigoRegimenFiscal - - Timbre.Receptor.ResidenciaFiscal = "" - Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI - - If ListaVentasGenerarNC IsNot Nothing Then - Timbre.CFDIRelacionados.UUID.Clear() - - Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {Obj.CveTipoRelacion}") - - Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() - Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - - For Each Fac In ListaVentasGenerarNC - Timbre.CFDIRelacionados.UUID.Add(Fac.FolioFiscal) - Next - End If - - Dim totSubTotal As Decimal = If(UsuarioActual.Empresa.CvePAC = 3, Obj.DtDetalle.SUMD("Total"), Obj.SubTotal) 'Obj.SubTotal - Dim totIVA As Decimal = Obj.IVA - Dim totRetIVA As Decimal = Obj.RetIVA - Dim totRetISR As Decimal = Obj.RetISR - - Dim i As Integer = 1 - - 'detalles - Dim tPS As String = "" - - For Each drr As DataRow In Obj.DtDetalle.Rows - If drr("PS").ToString().Length = 1 Then - tPS = drr("Obs").ToString() - Else - If drr("PS").ToString().Length = 0 Then - tPS = "" - Else - tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) - End If - End If - - tPS = tPS.Replace("|", " ") - - If tPS.Length >= 1000 Then - Dim tPSRecortado = tPS.Remove(999, tPS.Length - 999) - tPS = tPSRecortado - End If - - 'condicionante, especial - If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto - - Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal, - .Descripcion = tPS, - .ValorUnitario = drr("PU").ToString().ToDecimal, - .Importe = If(UsuarioActual.Empresa.CvePAC = 3, drr("Total").ToString().ToDecimal.RoundSQL(2), drr("TotalImporte").ToString().ToDecimal), - .Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2), - .Unidad = drr("UM").ToString(), - .ClaveUnidad = drr("SATClaveUM").ToString(), - .ClaveProdServ = drr("SATClaveProdServ").ToString(), - .Noidentificacion = drr("Noidentificacion").ToString(), - .CuentaPredial = drr("CuentaPredial").ToString(), - .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString().ToDecimal, - .ObjetoImpuesto = drr("CodigoObjetoImpuesto").ToString()} - 'verifica suma subtotales - If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales - concepto.Importe = totSubTotal - End If - totSubTotal = totSubTotal - concepto.Importe - - 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura - ' If drr("ImporteIVA").ToString().ToDouble > 0 Then - - 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero - If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(6), .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal}) - End If - - If drr("ImporteIEPS").ToString().ToDouble > 0 Then - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal}) - End If - - If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal}) - End If - - If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal}) - End If - - Timbre.Conceptos.Add(concepto) - i += 1 - Next - - Return Timbre - End Function - - - Private Sub AgregaTempDTNC(ByRef TmpDT As DataTable, CvePS As Integer, PS As String, Codigo As String, CodigoPS As String, CveTipoPS As Integer, CveTipoInvPS As Integer, CveUM As Integer, UM As String, - CveClasificacion As Integer, Clasificacion As String, CveProyecto As Integer, CveSubProyecto As Integer, - Obs As String, Cantidad As Double, PU As Double, PorcentajeIVA As Double, ImporteIVA As Double, PorcentajeRetIVA As Double, ImporteRetIVA As Double, - PorcentajeRetISR As Double, ImporteRetISR As Double, PorcentajeIEPS As Double, ImporteIEPS As Double, TipoDescuento As Integer, Descuento As Double, - Total As Double, Serie As String, TiempoEntrega As String, CvePresupuestoIngreso As Integer, EntregaDirecta As Integer, SATClaveProdServ As String, - SATClaveUM As String, CveContratoDetalle As Integer, CveVentaDetalle As Integer, CveMovimientoDetallePedido As Integer, CveOrdenCompraDetalle As Integer, - CveVentaDetalleRemision As Integer, CveVentaDetalleCotizacion As Integer) - - Dim Row As DataRow = Nothing - Row = TmpDT.NewRow() - - Row("Consec") = TmpDT.Rows.Count + 1 - Row("Orden") = TmpDT.Rows.Count + 1 - - Row("CvePS") = CvePS - Row("PS") = PS - Row("Codigo") = Codigo - Row("CodigoPS") = CodigoPS - Row("CveTipoPS") = CveTipoPS - Row("CveTipoInvPS") = CveTipoInvPS - - Row("CveUM") = CveUM - Row("UM") = UM - - Row("CveClasificacion") = CveClasificacion - Row("Clasificacion") = Clasificacion - Row("CveProyecto") = CveProyecto - Row("Proyecto") = "" - Row("CveSubProyecto") = CveSubProyecto - Row("SubProyecto") = "" - - Row("Obs") = Obs - Row("Cantidad") = Cantidad - Row("PU") = Math.Round(PU, 6) - Row("PorcentajeIVA") = PorcentajeIVA - Row("IVA") = PorcentajeIVA - Row("ImporteIVA") = Math.Round(ImporteIVA, 2) - Row("PorcentajeRetIVA") = PorcentajeRetIVA - Row("ImporteRetIVA") = Math.Round(ImporteRetIVA, 2) - Row("PorcentajeRetISR") = PorcentajeRetISR - Row("ImporteRetISR") = Math.Round(ImporteRetISR, 2) - Row("PorcentajeIEPS") = PorcentajeIEPS - Row("ImporteIEPS") = Math.Round(ImporteIEPS, 2) - Row("IEPS") = Math.Round(ImporteIEPS, 2) - Row("TipoDescuento") = TipoDescuento - Row("Descuento") = Math.Round(Descuento, 2) - Row("Total") = Math.Round(Total, 2) - Row("TotalImporte") = Math.Round(Total, 2) - - Row("Serie") = Serie - Row("TiempoEntrega") = TiempoEntrega - Row("CvePresupuestoIngreso") = CvePresupuestoIngreso - Row("EntregaDirecta") = EntregaDirecta - Row("SATClaveProdServ") = SATClaveProdServ - Row("SATClaveUM") = SATClaveUM - - 'Contratos - Row("CveContratoDetalle") = CveContratoDetalle - Row("CveVentaDetalle") = CveVentaDetalle - Row("CveMovimientoDetallePedido") = CveMovimientoDetallePedido - Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle - Row("CveVentaDetalleRemision") = CveVentaDetalleRemision - Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion - Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") - If DrPS IsNot Nothing Then - Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto") - End If - TmpDT.Rows.Add(Row) - End Sub - - Private Sub CargaImpuestos(ByRef ObjFacturaDevolucion As Modelos.Factura, ListaVentasGenerarNC As List(Of Modelos.Factura), ClienteDesglosaIEPS As Boolean, ClienteRetIVA As Decimal, ClienteRetISR As Decimal) - Dim DtImpuestos As New DataTable - DtImpuestos.Columns.Add("ImportePU", GetType(Decimal)) - DtImpuestos.Columns.Add("ImporteTotal", GetType(Decimal)) - DtImpuestos.Columns.Add("PorcentajeIVA", GetType(Decimal)) - DtImpuestos.Columns.Add("ImporteIVA", GetType(Decimal)) - DtImpuestos.Columns.Add("PorcentajeRetIVA", GetType(Decimal)) - DtImpuestos.Columns.Add("ImporteRetIVA", GetType(Decimal)) - DtImpuestos.Columns.Add("PorcentajeRetISR", GetType(Decimal)) - DtImpuestos.Columns.Add("ImporteRetISR", GetType(Decimal)) - DtImpuestos.Columns.Add("PorcentajeIEPS", GetType(Decimal)) - DtImpuestos.Columns.Add("ImporteIEPS", GetType(Decimal)) - DtImpuestos.Columns.Add("CveSubProyecto", GetType(Integer)) - DtImpuestos.AcceptChanges() - Dim AcumuladoNC As Decimal = 0 - - For Each Fac In ListaVentasGenerarNC - DtImpuestos.Merge(CargaDtImpuestosNC(Fac.CveVenta, Fac.DescuentoProntoPago), True, MissingSchemaAction.Ignore) - Next - - DtImpuestos = CargaTotalesImpuestos(DtImpuestos) - - Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0) - - Dim Cantidad As Decimal = 1 - Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero() - Dim CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero - Dim SubProyecto = DrSubProyecto("SubProyecto").ToString - Dim Proyecto = DrSubProyecto("Proyecto").ToString - - Dim CveSATNC As Integer - Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) - Dim NCBonificacion As Integer = 0 - If ArrayNC.Length > 6 Then 'CONCEPTO DE PRONTO PAGO - CveSATNC = ArrayNC(6).ToEntero() - End If - Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("") - - For Each Dr As DataRow In DtImpuestos.Rows - AgregaTempDTNC(ObjFacturaDevolucion.DtDetalle, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero, - DrPS("CveUM").ToString.ToEntero, DrPS("UnidadMedida").ToString, DrPS("CveClasificacion").ToString.ToEntero, DrPS("Clasificacion").ToString, CveProyecto, CveSubProyecto, - "", Cantidad, Dr("ImportePU").ToString.ToDecimal, Dr("PorcentajeIVA").ToString.ToDecimal, Dr("ImporteIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("ImporteRetIVA").ToString.ToDecimal, - Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("ImporteRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("ImporteIEPS").ToString.ToDecimal, -1, 0.0, Dr("ImporteTotal").ToString.ToDecimal, "", "", -1, -1, - DrPS("SATClavePS").ToString, DrPS("SATClaveUnidadMedida").ToString, -1, -1, -1, -1, -1, -1) - Next - - End Sub - - Private Function CargaDtImpuestosNC(CveVentaNC As Integer, Importe As Decimal) As DataTable - Dim Total As Decimal = 0, SubTotal As Decimal = 0, Saldo As Decimal = 0 - - Dim TmpDT As DataTable = Nothing - Dim ObjVentas As New ClsVentas - - If ObjVentas.GetVentaDetalle(CveVentaNC) Then - TmpDT = ObjVentas.DtResultados - TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) - TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) - End If - - If ObjVentas.GetVenta(CveVentaNC, UsuarioActual.CveEmpresa) Then - If ObjVentas.DtResultados.Rows.Count > 0 Then - Total = ObjVentas.DtResultados()(0)("Total").ToString.ToDecimal - SubTotal = ObjVentas.DtResultados()(0)("SubTotal").ToString.ToDecimal - End If - End If - ObjVentas.Dispose() - - Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy - DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal)) - DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal)) - DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal)) - DtImpuestosLocal.Columns.Add("ImporteRetIVA", GetType(Decimal)) - DtImpuestosLocal.Columns.Add("ImporteRetISR", GetType(Decimal)) - DtImpuestosLocal.Columns.Add("ImporteIEPS", GetType(Decimal)) - - Dim ImporteReferencia As Decimal = Total - Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100 - Dim FiltroStr As String = "" - Dim ImporteTotalConcepto As Decimal = 0 - For Each Dr As DataRow In DtImpuestosLocal.Rows - FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto")) - ImporteTotalConcepto = Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr)) - - Dr("ImportePU") = ImporteTotalConcepto.RoundSQL(6) - Dr("ImporteTotal") = ImporteTotalConcepto.RoundSQL(2) - - Dr("ImporteIVA") = (ImporteTotalConcepto * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2) - Dr("ImporteRetIVA") = (ImporteTotalConcepto * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2) - Dr("ImporteRetISR") = (ImporteTotalConcepto * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2) - Dr("ImporteIEPS") = (ImporteTotalConcepto * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2) - - 'Dr("ImporteIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIVA", FiltroStr), 2) - 'Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", FiltroStr), 2) - 'Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", FiltroStr), 2) - 'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2) - - '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal) - Next - 'codigo para ajuste de centavo, si el importe total no cuadra con los totales - Dim difTmp As Decimal = Importe - (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR")) - If Math.Abs(difTmp) >= 0.01 Then - 'asusto la diferencia en el último concepto - Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString.ToDecimal + difTmp - DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado - DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado - End If - 'CARGA FACTURA A LA CUAL SE APLICA LA NC - 'CargaNCDT(CveVentaNC, Importe.ToDecimal) - Return DtImpuestosLocal - End Function - - Private Function CargaTotalesImpuestos(DtImpuestos As DataTable) As DataTable - Dim query = From dr In DtImpuestos - Group By PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal, - PorcentajeRetIVA = dr("PorcentajeRetIVA").ToString.ToDecimal, - PorcentajeRetISR = dr("PorcentajeRetISR").ToString.ToDecimal, - PorcentajeIEPS = dr("PorcentajeIEPS").ToString.ToDecimal - Into x = Group - Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString.ToDecimal), - ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString.ToDecimal), - ImporteIVA = x.Sum(Function(s) Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA, - ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetIVA, - ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetISR, - ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString.ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeIEPS, - PorcentajeIVA = PorcentajeIVA, - PorcentajeRetIVA = PorcentajeRetIVA, - PorcentajeRetISR = PorcentajeRetISR, - PorcentajeIEPS = PorcentajeIEPS - - Return query.QueryToDataTable(False) - End Function - - Protected Function CreaDTDetalleNC() As DataTable - Dim TmpDT = New DataTable - TmpDT.Columns.Add("CveVenta", GetType(Integer)) - TmpDT.Columns.Add("Consec", GetType(Integer)) - TmpDT.Columns.Add("Cantidad", GetType(Decimal)) - TmpDT.Columns.Add("Codigo", GetType(String)) - TmpDT.Columns.Add("CveUM", GetType(Integer)) - TmpDT.Columns.Add("UM", GetType(String)) - TmpDT.Columns.Add("SATClaveUM", GetType(String)) - TmpDT.Columns.Add("CveClasificacion", GetType(Integer)) - TmpDT.Columns.Add("Clasificacion", GetType(String)) - TmpDT.Columns.Add("CvePS", GetType(Integer)) - TmpDT.Columns.Add("PS", GetType(String)) - TmpDT.Columns.Add("CodigoPS", GetType(String)) - TmpDT.Columns.Add("SATClaveProdServ", GetType(String)) - TmpDT.Columns.Add("NoIdentificacion", GetType(String)) - TmpDT.Columns.Add("CveTipoPS", GetType(Integer)) - TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer)) - TmpDT.Columns.Add("Serie", GetType(String)) - TmpDT.Columns.Add("CuentaPredial", GetType(String)) - TmpDT.Columns.Add("Obs", GetType(String)) - TmpDT.Columns.Add("TiempoEntrega", GetType(String)) - TmpDT.Columns.Add("PU", GetType(Decimal)) - TmpDT.Columns.Add("IVA", GetType(Decimal)) - TmpDT.Columns.Add("ImporteIVA", GetType(Decimal)) - TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal)) - TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal)) - TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal)) - TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal)) - TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal)) - TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal)) - TmpDT.Columns.Add("IEPS", GetType(Decimal)) - TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal)) - TmpDT.Columns.Add("Descuento", GetType(Decimal)) - TmpDT.Columns.Add("TipoDescuento", GetType(Integer)) - TmpDT.Columns.Add("TotalImporte", GetType(Decimal)) - TmpDT.Columns.Add("Total", GetType(Decimal)) - 'Para uso del módulo contable - TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer)) - TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean)) - TmpDT.Columns.Add("CveProyecto", GetType(Integer)) - TmpDT.Columns.Add("Proyecto", GetType(String)) - TmpDT.Columns.Add("CveSubProyecto", GetType(Integer)) - TmpDT.Columns.Add("SubProyecto", GetType(String)) - TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer)) - 'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto - TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer)) - TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer)) - 'Contratos - TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer)) - 'Remisiones a Facturas - TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer)) - TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer)) - TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer)) - 'Pedido2 a Facturas - TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer)) - TmpDT.Columns.Add("Origen", GetType(Integer)) - 'Ordenes Servicio - TmpDT.Columns.Add("CveOS", GetType(Integer)) - TmpDT.Columns.Add("CveOSDetalle", GetType(Integer)) - TmpDT.Columns.Add("SeFacturara", GetType(Integer)) - TmpDT.Columns.Add("Folio", GetType(Integer)) - TmpDT.Columns.Add("Estatus", GetType(String)) - 'Ordenamiento - TmpDT.Columns.Add("Orden", GetType(Integer)) - TmpDT.Columns.Add("TipoDocto", GetType(String)) - 'OC - TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer)) - TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) - TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) - TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) - TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal)) - TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal)) - TmpDT.Columns.Add("CantidadInventario", GetType(Decimal)) - TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String)) - TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String)) - TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String)) - TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String)) - TmpDT.Columns.Add("CveTamaño", GetType(Integer)) - TmpDT.Columns.Add("EsCargo", GetType(Boolean)) - TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String)) - - Return TmpDT - End Function - Private Function InicializaDTVentasNC() As DataTable - Dim DtVentasNC = New DataTable - DtVentasNC.Columns.Add("CveVenta", GetType(Integer)) - DtVentasNC.Columns.Add("Importe", GetType(Decimal)) - DtVentasNC.Columns.Add("FolioFiscal", GetType(String)) - DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TC", .DataType = GetType(Decimal), .DefaultValue = 1}) - DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TCCambioValuacion", .DataType = GetType(Decimal), .DefaultValue = 1}) - DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "CveEstatusFactura", .DataType = GetType(Integer), .DefaultValue = -1}) - - Return DtVentasNC - End Function -#End Region - - - Private Sub LimpiaCampos() - TxtFolio.Text = "" - TxtObservaciones.Text = "" - TxtImporte.Text = "" - TxtTotal.Text = "" - TxtFechaDocumento.Text = Now.ToShortDateString - DdlCuenta.SelectedValue = "-1" - DdlTipoTransaccion.SelectedValue = "-1" - - CFDIRelacionadoSustitucion = "-1" - FechaCorteIE = DateTime.Now.ToDate - IDPoliza = -1 - FolioIECancelado = "" - - Anexo.Text = "" - - If UsuarioActual.Empresa.UsaAC Then - TxtOtrosImportes.Text = "" - UpDatos.Update() - CargaDatos(-1) - Else - UpDatos.Update() - CargaDatos(If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, -1)) - End If - - End Sub - - Private Sub RblTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoPago.SelectedIndexChanged - Select Case RblTipoPago.SelectedValue - Case "1" - DdlProveedorPagoInt.Items.Clear() - DivDatosBancarios.Visible = True - TxtFolio.Enabled = True - divAbonese.Visible = True - divIntermediario.Visible = False - PanelIngresos.Visible = False - Case "3" - ' Ingresos por comprobar - DdlProveedorPagoInt.Items.Clear() - DivDatosBancarios.Visible = False - PanelIngresos.Visible = True - TxtFolio.Enabled = True - divAbonese.Visible = True - divIntermediario.Visible = False - 'filtro primero por los de la moneda - CargaIngresos(CveMonedaFiltro) - - If ChkPagarDolares.Checked Then - CveMonedaPago = 2 - CveMoneda = 1 - TxtTCDolares.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,1,{0});", 2)) - Else - CveMonedaPago = 1 - End If - CargaDatos(CveMoneda) - Case Else - - divAbonese.Visible = False - Dim ObjProveedores As New ClsCompProveedores - ObjProveedores.GetProveedorProsepago(UsuarioActual.CveEmpresa) - - divIntermediario.Visible = True - DdlProveedorPagoInt.DataSource = ObjProveedores.DtResultados - ObjProveedores.Dispose() - DdlProveedorPagoInt.DataBind() - - DivDatosBancarios.Visible = False - TxtFolio.Enabled = False - PanelIngresos.Visible = False - - End Select - - CargaDatos(CveMoneda) - UpDatos.Update() - End Sub - - Private Function CargaIngresos(tCveMoneda As Integer) As DataTable - Dim dtt As DataTable = Nothing - Dim Deudores As New ClsMovimientos - If Deudores.GetIngresosSaldosDetalle(CveCliente, tCveMoneda, UsuarioActual.CveEmpresa) Then - DdlIngreso.DataSource = Deudores.DtResultados.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0") - dtt = Deudores.DtResultados.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0") - End If - Deudores.Dispose() - - DdlIngreso.DataBind() - DdlIngreso.Items.Insert(0, New ListItem("-", "-1")) - Return dtt - End Function - - Private Function CargaPrestamos(tCveMoneda As Integer) As DataTable - Dim dtt As DataTable = Nothing - Dim Deudores As New ClsMovimientos - If Deudores.GetDocumentosxPagarDetalle(CveCliente, tCveMoneda, 2, UsuarioActual.CveEmpresa) Then - DdlPrestamo.DataSource = Deudores.DtResultados '.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0") - dtt = Deudores.DtResultados - End If - Deudores.Dispose() - - DdlPrestamo.DataBind() - DdlPrestamo.Items.Insert(0, New ListItem("-", "-1")) - Return dtt - End Function - - Protected Sub ChkAjusteOI_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ChkAjusteOI.CheckedChanged - - If ChkAjusteOI.Checked Then - TxtOtrosImportes.Visible = True - TxtTotal.Visible = True - GvCxC.Columns(13).Visible = True - Else - TxtOtrosImportes.Visible = False - TxtTotal.Visible = False - GvCxC.Columns(13).Visible = False - TxtOtrosImportes.Text = "" - TxtTotal.Text = "" - RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") - End If - - UpDatos.Update() - UPVentas.Update() - End Sub - -#Region " PAGAR CON PESOS " - Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs) - If ChkPagarPesos.Checked Then - DivTCDolaresDolares.Visible = False - RegistraScript("$get('DivTC').style.display = 'block';") - CargaCuentas() - If RblTipoPago.SelectedValue = "3" Then - CargaIngresos(1) - End If - TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - Else - DivTCDolaresDolares.Visible = True - 'RegistraScript("document.getElementById('DivTC').style.display = 'none';") - CargaCuentas() - TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - UpDatos.Update() - - CargaDatos(2) - RegistraScript("CambiaPesosDolares();") - End Sub -#End Region - -#Region "PAGAR CON DOLARES" - Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs) - If ChkPagarDolares.Checked Then - DivTCDolares.Visible = True - CargaCuentas() - If RblTipoPago.SelectedValue = "3" Then - CargaIngresos(2) - RegistraScript("CambiaDolaresPesos();") - End If - TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") - TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - Else - DivTCDolares.Visible = False - CargaCuentas() - TxtFechaDocumento.Attributes.Remove("onchange") - End If - UpDatos.Update() - - CargaDatos(1) - RegistraScript("CambiaDolaresPesos();") - End Sub -#End Region - -#Region " CUENTAS DEPOSITOS" - Private Sub CargaCuentasDepositos() - DdlCuentaDeposito.Items.Clear() - If DdlTipoTransaccion.SelectedValue > 0 Then ' transferencias y layout - trCuentaDeposito.Visible = False - - Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) - - If dtc IsNot Nothing Then - If DdlTipoTransaccion.SelectedValue = "9" Then - - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - - If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - Else - BtnIEGuardar.Enabled = False - Alert("El Cliente no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) - End If - Else - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") - If dtc.Rows.Count >= 1 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - End If - End If - - End If - DdlCuentaDeposito.DataBind() - Else - trCuentaDeposito.Visible = False - DdlCuentaDeposito.Items.Clear() - End If - - UpCuentaDeposito.Update() - UpDatos.Update() - - End Sub - - Private Sub RecargaCuentasDepositos() - - Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue)) 'Egs o Ing - If dr IsNot Nothing Then - HdnTipoTransaccion.Value = dr("Tipo").ToString - HdnTipoTransaccionAbreviatura.Value = dr("Abreviatura").ToString - End If - CargaCuentasDepositos() - End Sub - Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) - - If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then - If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then - TrReferenciaCIE.Visible = True - TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString - Else - TrReferenciaCIE.Visible = False - End If - End If - - UpCuentaDeposito.Update() - End Sub -#End Region - -#Region " COMPLEMENTOS PAGO " - Private Function EmitirComplementoPago(CveIE As Integer, CveVentas As List(Of Integer), Series As List(Of String)) As String - - If Not UsuarioActual.Empresa.FacturaProduccion Then - Return "" - End If - - If Not ChkComplementoPago.Checked Then - Return "" - End If - - Dim Retorno As New StringBuilder - - 'For i = 0 To CveVentas.Count - 1 - Dim ObjBancos As New ClsBancos - - If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then - If Not ObjBancos.DtResultados.Rows.Count > 0 Then - ObjBancos.Dispose() - Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia) - Return "" - End If - End If - - ObjBancos.IniciaTransacSQL() - - If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=False) Then - ObjBancos.Commit() - ComplementoSustitucionGenerado = True - - PDFReciboDePagos(-1, -1, ObjBancos.CveComplementoPago, False) - - 'Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml" - 'Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf" - Retorno.AppendFormat(" Complemento de pago {0}
    ", ObjBancos.ComplementoSerieFolio) - Retorno.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) - Retorno.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) - - Dim ResultadoMail As Integer - Dim ObjMail As New ClsSisMail() - Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = $"{UsuarioActual.Empresa.Ruta}\XML\Pag\{ObjBancos.ComplementoSerieFolio}.xml"}) - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = $"{UsuarioActual.Empresa.Ruta}\PDF\Pag\{ObjBancos.ComplementoSerieFolio}.pdf"}) - - 'Dim Mail As String = "demo@adsistemas.mx" - Dim Asunto As String = "Envío de complemento de pago" - Dim Cuerpo As String = "Complemento de Pago" - - If ObjMail.SendMail(UsuarioActual.Empresa, Mail, Asunto, Cuerpo, "", LSRutasMail) Then - ResultadoMail = 1 - Else - ResultadoMail = 3 - Alert("No se pudo enviar el correo", TipoMensaje.MsgAdvertencia) - End If - Else - ComplementoSustitucionGenerado = False - Retorno.AppendFormat($" Complemento de pago NO generado . {ObjBancos.Mensaje}") - ObjBancos.RollBack() - End If - - ObjBancos.Dispose() - - ' Next - - Return Retorno.ToString - End Function - - -#End Region - -#Region "SALDAR CUENTAS" - - - Private Sub BtnSaldarCuentasIncobrables_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasIncobrables.Click - Dim ObjConta As New ClsContabilidad - ObjConta.IniciaTransacSQL() - Dim CvePrePoliza As Integer = 0 - Dim MsgError As String = "" - - 'Dim ObjIE As New ClsBancos - Dim FechaUltimaFluctuacion As Date = MinFecha - Dim TipoCambioFluctuacion As Decimal = 1 - - Dim tFecha As Date = TxtFechaIncobrable.Text.ToDate - Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) - - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion <= tFecha Then - FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion - TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion - End If - End If - - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ClientesAbonar/SaldarI", 47, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, TxtObsSaldarIncobrable.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - - For Each gr As GridViewRow In GvCxC.Rows - If gr.FCCheckBox("Chk").Checked Then - Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal - Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal - Dim RETIVA As Decimal = gr.DataKey("RetIVA").ToDecimal - Dim SubTotal As Decimal = PorcentajePago * (gr.DataKey("SubTotal").ToDecimal.RoundSQL - gr.DataKey("Descuento").ToDecimal.RoundSQL).RoundSQL - Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL - Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal.RoundSQL - Dim TCVenta As Decimal = gr.DataKey("TipoCambio").ToDecimal - Dim FechaVenta As Date = gr.DataKey("Fecha").ToDate - Dim tCveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero - Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaIncobrable.Text.ToDate).FormatoNumero(4) - Dim CveConceptoDeduccion As Integer = DdlTipoDeduccion.SelectedValue.ToEntero - - - 'si la fecha del documento es anterior a su ultima fluctuación. toma el Tc de la fluctuacion - If tCveMoneda = 2 Then - If FechaVenta < FechaUltimaFluctuacion Then - TCVenta = TipoCambioFluctuacion - End If - End If - - - 'condicionante - Dim ClienteMovto As Boolean = True - Dim SubtotalMovto As Boolean = False - Dim CveConceptoCliente As Integer = 2 - Dim ImpuestosMovto As Boolean = False - - Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero - Dim ConceptoPartida As String = TxtObsSaldarIncobrable.Text.Trim & " " & gr.DataKey("SerieFolio").ToString - - 'If CveConceptoDeduccion = 255 Then 0 = UsuarioActual.Empresa.Funcionalidad(266).ToEntero - 'If CveConceptoDeduccion = 179 Then 0 = UsuarioActual.Empresa.Funcionalidad(559).ToEntero - 'If CveConceptoDeduccion = 263 Then 0 = UsuarioActual.Empresa.Funcionalidad(537).ToEntero - 'If CveConceptoDeduccion = 252 Then 0 = UsuarioActual.Empresa.Funcionalidad(581).ToEntero - 'If CveConceptoDeduccion = 78 Then 0 = UsuarioActual.Empresa.IdCuentaOtrosIngresos - - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then - - ClienteMovto = False : Saldo = Saldo * -1 - ImpuestosMovto = True : IVA = IVA * -1 - - 'RETIVA = RETIVA * -1 - - RETIVA = ((SubTotal * RETIVA / gr.DataKey("SubTotal").ToDecimal.RoundSQL) * -1).RoundSQL(2) - - CveConceptoCliente = 1 - 'falta cuenta incobrable - End If - - Dim UsaComplementaria As Boolean = True - If MsgError = "" Then - - Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(6, tCveMoneda, True, 1) - 'normal - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, gr.DataKey("SerieFolio").ToString, ConPreP.CveConcepto, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, Saldo), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - - If UsaComplementaria AndAlso tCveMoneda = 2 Then - 'complementaria - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, ConPreP.CveConceptoComplementario, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo).RoundSQL, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - End If - - 'fluctuación. - If tCveMoneda = 2 Then - Dim ImporteFluctuacion As Decimal = 0 - ImporteFluctuacion = Saldo * (TCPago - TCVenta) - - If CveSubProyecto <= 0 Then - MsgError = $"No se pudo obtener el sub proyecto de la venta {gr.DataKey("SerieFolio").ToString}" - End If - - If TCPago > TCVenta Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - End If - - 'cuando hay pago en dólares, se ajusta el concepto de subtotal, - SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta) - - End If - - - If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=gr.DataKey("PorcentajeIVA").ToDecimal, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - - If (RETIVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And RETIVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, RETIVA, gr.DataKey("SerieFolio").ToString, 8, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, RETIVA, RETIVA * TCVenta), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - - If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, 0, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - - 'al gasto,Subtotal - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, gr.DataKey("SerieFolio").ToString, CveConceptoDeduccion, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCuentaContableNoDeducible, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then - If ObjConta.ValorPolizaDescuadre > 0 Then - MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia - GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - Exit For - End If - End If - - End If - End If - Next - - If MsgError = "" Then - 'ObjConta.RollBack() - ObjConta.Commit() - CargaDatos(CveMonedaFiltro) - RegistraScript("$('#ModalSaldarCuentaIncobrable').modal('hide')") - Alert(String.Format("Los movimientos se saldaron correctamente.
    Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) - - Else - ObjConta.RollBack() - Alert(MsgError, TipoMensaje.MsgError) - End If - - BtnSaldarCuentasIncobrables.Visible = False - ObjConta.Dispose() - End Sub - - - Private Sub ValidaCuentaDePagoFormaDePago() - - If Not (DdlTipoTransaccion.SelectedValue.ToEntero > 0 And DdlCuenta.SelectedValue.ToEntero > 0) Then - Exit Sub - End If - - Dim DTTipoTransacciones As DataTable = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion={DdlTipoTransaccion.SelectedValue}") - Dim DTCuentas As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta={DdlCuenta.SelectedValue}") - - Dim ClaveFormaPagoSAT As String = "" - Dim Cuentapago As String = "" - Dim CuentaBeneficiario As String = "" - - - If DTTipoTransacciones.Rows.Count > 0 Then - ClaveFormaPagoSAT = DTTipoTransacciones.Rows(0)("ClaveFormaPagoSAT").ToString - Else - Alert("La forma de pago no tiene una forma de pago SAT", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - If DTCuentas.Rows.Count > 0 Then - CuentaBeneficiario = DTCuentas.Rows(0)("NumCuenta").ToString - Else - Alert("No se pudo encontrar la cuenta", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - - Dim Mensaje As String = "" - Cuentapago = "" - - - Select Case ClaveFormaPagoSAT.ToString - Case "01" - ' no tiene restricciones - Case "02" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(11, 18) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - Case "03" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(10, 16, 18) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 18)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - Case "04" - - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(16) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - - Case "05" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(10, 11, 15, 16, 18, 50) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - Case "06" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(10) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - CuentaBeneficiario = "" - Case "28" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(16) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - Case "29" - If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(15, 16) Then - Mensaje = "La cuenta ordenante no cumple con el formato esperado." - End If - - If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then - Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado." - End If - - Case Else - - - - End Select - - LblValidaCeuntaTipoTransaccion.Text = Mensaje - - If Not Mensaje.Length = 0 Then - 'Alert(Mensaje, TipoMensaje.MsgAdvertencia) - LblValidaCeuntaTipoTransaccion.Visible = True - Else - LblValidaCeuntaTipoTransaccion.Visible = False - End If - - UpGuardar.Update() - - End Sub - -#End Region - - Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) - CambiaTipoMoneda() - End Sub - Private Sub CambiaTipoMoneda() - Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.Day - 1, TxtFechaDocumento.Text.ToDate.Day) - Fecha = (dia.ToString + "/" + TxtFechaDocumento.Text.ToDate.Month.ToString + "/" + TxtFechaDocumento.Text.ToDate.Year.ToString).ToDate - - If TxtTC.Visible Then - TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - - If DivTCDolares.Visible Then - TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - - If DivTCDolaresDolares.Visible Then - TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - - Dim moneda As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero - If CveMonedaFiltro = -1 Then - RegistraScript(String.Format("FnCambia(0,0,0,0,-1,{0});", moneda)) - Else - RegistraScript(String.Format("FnCambia(0,0,0,0,1,{0});", moneda)) - End If - - UpDatos.Update() - End Sub - - Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged - 'saco la moneda de la selección - HdnIngresoImporte.Value = 0 - If DdlIngreso.SelectedValue.ToEntero > 0 Then - Dim Banco As New ClsBancos - - If Banco.GetBancosIE(DdlIngreso.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - CveMonedaPago = Banco.CveMoneda - Dim Deudores As New ClsMovimientos - If Deudores.GetIngresosSaldosDetalle(CveCliente, -1, UsuarioActual.CveEmpresa) Then - HdnIngresoImporte.Value = Deudores.DtResultados.FiltroPrimeroValor("Saldo", String.Format("CveIE = {0}", DdlIngreso.SelectedValue)) - TxtTCDolares.Text = Deudores.DtResultados.FiltroPrimeroValor("TipoCambio", String.Format("CveIE = {0}", DdlIngreso.SelectedValue)) - FechaIngreso = Deudores.DtResultados.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE = {0}", DdlIngreso.SelectedValue)) - End If - Deudores.Dispose() - End If - IdCuentaBancariaComplementaria = 0 - Banco.Dispose() - Else - CveMonedaPago = -1 - End If - - - If CveMonedaPago = 1 Then - 'DivTC.Visible = True - DivTCDolares.Visible = False - TxtTC.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,-1,{0});", CveMonedaPago)) - ElseIf CveMonedaPago = 2 Then - 'DivTC.Visible = False - RegistraScript("document.getElementById('DivTC').style.display = 'none';") - DivTCDolares.Visible = True - TxtTCDolares.Attributes.Add("onkeyup", String.Format("FnCambia(0,0,0,0,-1,{0});", CveMonedaPago)) - End If - - CargaDatos(CveMoneda) - - End Sub - - Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString - Calendario.EndDate = DateTime.Now - - End Sub - - -#Region "LIQUIDACION" - - Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs) - Dim a As String = "se recarga para que no pierda sesión el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás - End Sub - - Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs) - ActivaDesactivaLiquidacion() - End Sub - - Private Sub ActivaDesactivaLiquidacion() - - If ChkLiquidacion.Checked Then - TimTiempo.Enabled = True 'para que no me saque - GvCxC.Columns(4).Visible = False - GvCxC.Columns(5).Visible = False - GvCxC.Columns(6).Visible = False - GvCxC.Columns(7).Visible = False - - '16-24 - GvCxC.Columns(16).Visible = True - GvCxC.Columns(17).Visible = True - GvCxC.Columns(18).Visible = True - GvCxC.Columns(19).Visible = True - GvCxC.Columns(20).Visible = True - GvCxC.Columns(21).Visible = True - GvCxC.Columns(22).Visible = True - GvCxC.Columns(23).Visible = True - GvCxC.Columns(24).Visible = True - GvCxC.Columns(25).Visible = True - GvCxC.Columns(26).Visible = True - GvCxC.Columns(27).Visible = True 'anticipos - GvCxC.Columns(28).Visible = True 'anticipos2 - - GvCxC.Columns(29).Visible = False - GvCxC.Columns(30).Visible = False - - - Else - TimTiempo.Enabled = False - GvCxC.Columns(4).Visible = True - GvCxC.Columns(5).Visible = True - GvCxC.Columns(6).Visible = True - GvCxC.Columns(7).Visible = True - - GvCxC.Columns(16).Visible = False - GvCxC.Columns(17).Visible = False - GvCxC.Columns(18).Visible = False - GvCxC.Columns(19).Visible = False - GvCxC.Columns(20).Visible = False - GvCxC.Columns(21).Visible = False - GvCxC.Columns(22).Visible = False - GvCxC.Columns(23).Visible = False - GvCxC.Columns(24).Visible = False - GvCxC.Columns(25).Visible = False - GvCxC.Columns(26).Visible = False - GvCxC.Columns(27).Visible = False 'anticipos - GvCxC.Columns(28).Visible = False 'anticipos2 - - GvCxC.Columns(29).Visible = True - GvCxC.Columns(30).Visible = True - - End If - - UPVentas.Update() - End Sub - -#End Region - - - - Protected Sub LnkAccionesModalSeleccionLayout_Click(sender As Object, e As EventArgs) - - TxtModalLayoutExcel.Text = "[]" - UpModalSeleccionLayout.Update() - RegistraScript("$('#ModalSeleccionLayout').modal('show');") - - End Sub - - - Protected Sub LnkSeleccionLayout_Click(sender As Object, e As EventArgs) - - Dim ProcesoOK As Boolean = True - Dim CountRegistros As Integer = 0 - Dim TotalSeleccion As Decimal = 0D - - Dim SBNoEncontradosEnLista As New StringBuilder - Dim SBPagoMayorASaldo As New StringBuilder - - If TxtModalLayoutExcel.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtModalLayoutExcel.getfiles().Archivos(0) - Dim Directorio As String = Server.MapPath("~") & file.path - Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - - Dim DTExcel As New DataTable - Dim ErrorArchivo = False - Dim ErrorExcel = False - - DTExcel = ReadExcelFile(Directorio + file.filename, True) - - If Not DTExcel.Columns(0).ColumnName.ToUpper = "FOLIO" Then - Alert("El nombre de la primera columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - If Not DTExcel.Columns(1).ColumnName.ToUpper = "IMPORTE PAGO" Then - Alert("El nombre de la segunda columna debe ser 'Importe Pago'.Favor de corregirlo." & DTExcel.Columns(1).ColumnName, TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then - ChkLiquidacion.Checked = True - ActivaDesactivaLiquidacion() - End If - - For Each Drow As DataRow In DTExcel.Rows - - Dim SerieFolioBusqueda As String = Drow("Folio").ToString.Trim.ToUpper - Dim ImportePago As Decimal = Drow("Importe Pago").ToString.ToDecimal.RoundSQL(2) - Dim SerieFolioEncontrado As Boolean = False - - If ImportePago >= 0 Then - - For Each GvRow As GridViewRow In GvCxC.Rows - - Dim SerieFolioGv As String = GvRow.DataKey("SerieFolio").Trim.ToUpper - - If SerieFolioBusqueda = SerieFolioGv Then - SerieFolioEncontrado = True - Dim SaldoGV As Decimal = GvRow.DataKey("Saldo").ToDecimal - If ImportePago = 0 Then ImportePago = SaldoGV 'si no se especifica cantidad toma la totalidad del saldo - Dim Diferencia As Decimal = SaldoGV - ImportePago - - If Diferencia < 0 Then - - If Math.Abs(Diferencia) > 0.01 Then - SBPagoMayorASaldo.AppendLine($"Factura: {SerieFolioBusqueda} Importe de pago {ImportePago.ToString("###,###,###.00")} es mayor al saldo {SaldoGV.ToString("###,###,###.00")}
    ") - ProcesoOK = False - Exit For - Else - ImportePago = SaldoGV - End If - End If - - GvRow.FCCheckBox("Chk").Checked = True - GvRow.FCTextBox("TxtAbonar").Text = ImportePago.ToString("###,###,###.00") - - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then - - GvRow.FCDropDownList("DdlTG").SelectedTextExist(Drow("Tipo").ToString) - GvRow.FCTextBox("TxtLiqCol1").Text = Drow("Comisión").ToString - GvRow.FCTextBox("TxtLiqCol2").Text = Drow("Gastos").ToString - GvRow.FCTextBox("TxtLiqCol3").Text = Drow("Inspeccion").ToString - GvRow.FCTextBox("TxtLiqCol4").Text = Drow("Seguro").ToString - GvRow.FCTextBox("TxtLiqCol5").Text = Drow("AduanaMex").ToString - GvRow.FCTextBox("TxtLiqCol6").Text = Drow("Diversos").ToString - GvRow.FCTextBox("TxtLiqCol7").Text = Drow("AduanaUSA").ToString - GvRow.FCTextBox("TxtLiqCol8").Text = Drow("MaterialEmpaque").ToString - GvRow.FCTextBox("TxtLiqCol9").Text = Drow("Semilla").ToString - - GvRow.FCDropDownList("DdlAnti").SelectedTextLikeIfExist(Drow("FolioAnticipo1").ToString) - GvRow.FCTextBox("TxtAmort").Text = Drow("ImporteAnticipo1").ToString - GvRow.FCDropDownList("DdlAnti2").SelectedTextLikeIfExist(Drow("FolioAnticipo2").ToString) - GvRow.FCTextBox("TxtAmort2").Text = Drow("ImporteAnticipo2").ToString - - End If - - TotalSeleccion = TotalSeleccion + ImportePago - CountRegistros = CountRegistros + 1 - - Exit For - End If - Next - - If Not SerieFolioEncontrado Then - SBNoEncontradosEnLista.AppendLine($"{SerieFolioBusqueda}
    ") - End If - End If - Next - - Else - Alert("Se debe seleccionar un archivo", TipoMensaje.MsgError) - End If - - If ProcesoOK Then - - Alert($"Facturas seleccionadas: {CountRegistros}
    {SBNoEncontradosEnLista.ToString}") - RegistraScript("$('#ModalSeleccionLayout').modal('hide');") - TxtImporte.Text = TotalSeleccion.ToString("###,###,###.00") - - UPVentas.Update() - UpDatos.Update() - Else - - If SBPagoMAyorASaldo.ToString.Length > 0 Then - Alert($"Facturas con pagos mayores a saldo:
    {SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia) - End If - - End If - - - End Sub - - 'Public Sub SelectedTextLikeIfExist(ByRef Rbl As RadioButtonList, Value As String) - ' Try - - ' For Each item As ListItem In Rbl.Items - ' If item.Value.Contains(Value) Then - ' item.Selected = True - ' End If - ' Next - ' Catch ex As Exception - - ' End Try - 'End Sub - - Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs) - - Dim Directorio As String = "" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\LayoutPagoCliente.xlsx" - If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\LayoutPagoClienteLiquidacion.xlsx" - End If - - If Not (Directorio = "") Then - - Dim Archivo As New IO.FileInfo(Directorio) - If Archivo.Exists Then - Response.Clear() - Response.ClearHeaders() - Response.ClearContent() - Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) - Response.AddHeader("Content-Length", Archivo.Length.ToString()) - Response.ContentType = "text/plain" - Response.Flush() - Response.TransmitFile(Archivo.FullName) - Response.End() - End If - End If - - End Sub -End Class diff --git a/Bancos/Creditos.aspx b/Bancos/Creditos.aspx index 1b6d54886..d854ff5ba 100644 --- a/Bancos/Creditos.aspx +++ b/Bancos/Creditos.aspx @@ -14,6 +14,9 @@
  • Aplicar Saldo
  • +
  • + Aplicar Depósito +
  • @@ -66,7 +69,7 @@
    -
    +
    @@ -466,7 +469,7 @@
    -
    +
    @@ -527,7 +530,7 @@
    -
    +
    @@ -601,7 +604,7 @@
    -
    +
    @@ -654,7 +657,7 @@
    -
    +
    @@ -742,7 +745,7 @@
    -
    +
    @@ -853,7 +856,7 @@
    -
    +
    @@ -933,7 +936,7 @@
    -
    +
    @@ -984,7 +987,7 @@
    -
    +
    @@ -1032,7 +1035,7 @@ <%--ACCIONES--%>
    -
    +
    @@ -1079,7 +1082,7 @@
    -
    +
    diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb index eeaedfe75..e7a644c22 100644 --- a/Bancos/Creditos.aspx.vb +++ b/Bancos/Creditos.aspx.vb @@ -312,7 +312,7 @@ Partial Class Bancos_Creditos 'CARGA CREDITO DETALLE If ObjCreditos.GetCreditosDetalle(dr("CveCredito").ToString.ToEntero, -1) Then If ObjCreditos.DtResultados.Rows.Count = 1 Then - Dim DT = ObjCreditos.DtResultados.Rows(0) + Dim DT As DataRow = ObjCreditos.DtResultados.Rows(0) If DT("Estatus").ToString.Contiene("1", "101", "102") Then trPagar.Visible = True @@ -320,11 +320,11 @@ Partial Class Bancos_Creditos End If If CveTipoCredito = 2 Then - Dim TotalCredi = 0 + Dim TotalCredi As Decimal = 0 'TxtCSPeriodos.Text = ObjCreditos.DtResultados.Rows.Count.ToString 'TxtCSFechaInicio.Text = ObjCreditos.DtResultados.FiltraParametros("Periodo = 1").Rows(0)("Fecha").ToString - For index = 1 To ObjCreditos.DtResultados.Rows.Count + For index As Integer = 1 To ObjCreditos.DtResultados.Rows.Count TotalCredi += ObjCreditos.DtResultados.Rows(index - 1)("Capital").ToString.ToEntero Next TxtCSTotalCredito.Text = TotalCredi.ToString.FormatoNumero @@ -671,33 +671,33 @@ Partial Class Bancos_Creditos Dim ObjCredito As New ClsBancos Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL()) - Dim ErrorCredito = False + Dim ErrorCredito As Boolean = False Dim Folio As String = "" Dim CvePrePoliza As Integer = 0 If CveCredito = -1 Then - Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero + Dim TipoCreditoTemp As Integer = DdlTipoCredito.SelectedValue.ToEntero 'Credito Revolvente -- ADD IE - If TipoCreditoTemp = 2 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then - Folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString - If Folio <> "" Then - CvePrePoliza = ObjMov.AddPrePolizas("Creditos", 2, 0, 0, 1, TxtFechaDeposito.Text.ToDate, TxtCSReferencia.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'If TipoCreditoTemp = 2 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then + ' Folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString + ' If Folio <> "" Then + ' CvePrePoliza = ObjMov.AddPrePolizas("Creditos", 2, 0, 0, 1, TxtFechaDeposito.Text.ToDate, TxtCSReferencia.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIE < 0 Then - ErrorCredito = True - End If - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then - ' ErrorCredito = True - 'End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then - ErrorCredito = True - End If - Else - ErrorCredito = True - End If - End If + ' CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + ' If CveIE < 0 Then + ' ErrorCredito = True + ' End If + ' 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then + ' ' ErrorCredito = True + ' 'End If + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then + ' ErrorCredito = True + ' End If + ' Else + ' ErrorCredito = True + ' End If + 'End If 'Credito Generico If Not ErrorCredito Then @@ -707,13 +707,13 @@ Partial Class Bancos_Creditos CveProveedor = HdnCveProveedor.Value.ToEntero End If - CveIE = ObjCredito.AddBancos_IE(DdlCuentaCredito.SelectedValue.ToString.ToEntero, 2, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIE < 0 Then - ErrorCredito = True - End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "Crédito") Then - ErrorCredito = True - End If + 'CveIE = ObjCredito.AddBancos_IE(DdlCuentaCredito.SelectedValue.ToString.ToEntero, 2, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'If CveIE < 0 Then + ' ErrorCredito = True + 'End If + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "Crédito") Then + ' ErrorCredito = True + 'End If If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), @@ -755,10 +755,10 @@ Partial Class Bancos_Creditos Dim ObjCredito As New ClsBancos ObjCredito.IniciaTransacSQL() - Dim ErrorCredito = False + Dim ErrorCredito As Boolean = False If CveCredito > 0 Then - Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero + Dim TipoCreditoTemp As Integer = DdlTipoCredito.SelectedValue.ToEntero If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), @@ -783,7 +783,7 @@ Partial Class Bancos_Creditos End Sub Private Sub GuardaCreditoComplejo() - Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble + Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia) @@ -795,12 +795,12 @@ Partial Class Bancos_Creditos Dim ObjCredito As New ClsBancos Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL()) - Dim ErrorCredito = False - Dim folio = "" - Dim CveIE = -1 - Dim CvePrePoliza = 0 + Dim ErrorCredito As Boolean = False + Dim folio As String = "" + Dim CveIE As Integer = -1 + Dim CvePrePoliza As Integer = 0 Dim CveMoneda As Integer = 1 - Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate) + Dim FechaVencimiento As Date = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate) FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0) 'If (DdlTipoCredito.SelectedValue.ToEntero = 3 Or DdlTipoCredito.SelectedValue.ToEntero = 5) AndAlso HdnCveAF.Value.ToEntero > -1 Then @@ -830,7 +830,7 @@ Partial Class Bancos_Creditos CveCredito = ObjCredito.AddCreditos(DdlTipoCredito.SelectedValue.ToEntero, TxtReferencia.Text, TxtObservaciones.Text, -1, -1, -1, DdlTipoMoneda.SelectedValue.ToEntero, TxtFechaInicio.Text.ToString.ToDate, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, TxtIVA.Text.ToDouble / 100, TxtPlazo.Text.Trim.ToEntero, CveIE, TxtVehiculoValor.Text.ToString.ToDouble, TxtComisionValor.Text.ToString.ToDouble, TxtSeguroMensual.Text.ToString.ToDouble, TxtOtrosGastosValor.Text.ToString.ToDouble, - DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False), + DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False), CreditoAnticipo:=TxtVehiculoAnticipo.Text.ToDouble, ComisionAnticipo:=TxtComisionAnticipo.Text.ToDouble, SeguroAnticipo:=TxtSeguroAnticipo.Text.ToDouble, OtrosGastosAnticipo:=TxtOtrosGastosAnticipo.Text.ToDouble, FondoGarantia:=TxtFondoGarantia.Text.ToDouble, SeguroValor:=TxtSeguroValor.Text.ToDouble, TipoInteres:=ChkTipoInteres.Checked) If CveCredito > 0 Then For Each gvr As GridViewRow In GvTA.Rows @@ -923,8 +923,8 @@ Partial Class Bancos_Creditos End Sub Private Sub UpdateCreditoComplejo() - Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble - Dim TotalAnticipoVinculado = 0.0 + Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble + Dim TotalAnticipoVinculado As Double = 0.0 If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia) @@ -956,10 +956,10 @@ Partial Class Bancos_Creditos Dim ObjCredito As New ClsBancos ObjCredito.IniciaTransacSQL() - Dim ErrorCredito = False + Dim ErrorCredito As Boolean = False 'Dim CveIE = -1 Dim CveMoneda As Integer = 1 - Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate) + Dim FechaVencimiento As Date = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate) FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0) If CveCredito > 0 Then @@ -1049,7 +1049,7 @@ Partial Class Bancos_Creditos Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim Cred As New ClsBancos - If Cred.RemoveCreditos(CveCredito) Then + If Cred.RemoveCreditos(CveCredito, UsuarioActual.CveEmpresa) Then Alert("Movimiento Eliminado", TipoMensaje.MsgInformacion) End If Cred.Dispose() @@ -1099,7 +1099,7 @@ Partial Class Bancos_Creditos Dim Tasa As Double = 0 If TxtMensualidad.Text.ToDouble <= 0 Then - Dim Mensualidad = Pmt((TxtTasa.Text.ToDouble / 100) / 12, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1 + Dim Mensualidad As Double = Pmt((TxtTasa.Text.ToDouble / 100) / 12, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1 TxtMensualidad.Text = Mensualidad.ToString.FormatoNumero End If @@ -1120,7 +1120,7 @@ Partial Class Bancos_Creditos Dim MensajeImportesIncorrectos As Boolean = False - For i = 1 To TxtPlazo.Text.ToEntero + For i As Integer = 1 To TxtPlazo.Text.ToEntero Row = DTAmortizacion.NewRow() 'Datos en comun @@ -1267,7 +1267,7 @@ Partial Class Bancos_Creditos ObjAF.Dispose() - Dim Repetido = False + Dim Repetido As Boolean = False 'Valida si ya esta vinculado el AF For Each dr As DataRow In DtAF.Rows @@ -1364,7 +1364,7 @@ Partial Class Bancos_Creditos DtIE = ObjBancosIE.DtResultados.Clone End If - Dim RowIE = ObjBancosIE.DtResultados.Rows(0) + Dim RowIE As DataRow = ObjBancosIE.DtResultados.Rows(0) LtBancoIE.Text = RowIE("Banco").ToString LtCuentaIE.Text = RowIE("NumCuenta").ToString @@ -1391,10 +1391,10 @@ Partial Class Bancos_Creditos End If ObjBancosIE.Dispose() - Dim Repetido = False + Dim Repetido As Boolean = False - Dim TotalAnticipoVinculado = 0.0 - Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble + Dim TotalAnticipoVinculado As Double = 0.0 + Dim TotalAnticipo As Double = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (0,1) OR Estatus is null").Rows TotalAnticipoVinculado += dr("Importe").ToString.ToDouble @@ -1512,7 +1512,7 @@ Partial Class Bancos_Creditos End If End Sub Protected Sub BtnAplicarGarantia_Click(sender As Object, e As EventArgs) - Dim ImporteVinculado = 0.0 + Dim ImporteVinculado As Double = 0.0 For Each Gvr As GridViewRow In GvAplicarGarantia.Rows If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then @@ -1527,7 +1527,7 @@ Partial Class Bancos_Creditos Dim ObjBancos As New ClsBancos ObjBancos.IniciaTransacSQL() - Dim TieneError = False + Dim TieneError As Boolean = False For Each Gvr As GridViewRow In GvAplicarGarantia.Rows If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then @@ -1562,24 +1562,24 @@ Partial Class Bancos_Creditos Dim ObjContabilidad As New ClsContabilidad() Dim ObjProveedor As New ClsCompProveedores(ObjContabilidad.IniciaTransacSQL()) Dim ObjBancos As New ClsBancos(ObjContabilidad.IniciaTransacSQL()) - Dim ErrorPrePoliza = False - Dim CvePrePoliza = 0 + Dim ErrorPrePoliza As Boolean = False + Dim CvePrePoliza As Integer = 0 'GENERA PREPOLIZA - Dim importeMovimiento = 0.0D - Dim ConceptoContable = 0 - Dim TipoMovimiento = False - Dim Concepto = "" - Dim Referencia = $"Crédito: {TxtReferencia.Text}" - Dim FechaMovimiento = Now.ToDate + Dim importeMovimiento As Decimal = 0.0D + Dim ConceptoContable As Integer = 0 + Dim TipoMovimiento As Boolean = False + Dim Concepto As String = "" + Dim Referencia As String = $"Crédito: {TxtReferencia.Text}" + Dim FechaMovimiento As Date = Now.ToDate Dim MsgError As String = "" CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal - Dim CveProveedor = -1 - Dim CveCreditoPrePoliza = -1 + Dim ImporteDocXPagar As Decimal = TxtTotalCredito.Text.ToDecimal + Dim CveProveedor As Integer = -1 + Dim CveCreditoPrePoliza As Integer = -1 If CvePrePoliza > 0 Then importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal 'importe financiado diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb index 973e2d3af..815b6f688 100644 --- a/Bancos/CreditosPagoMultiple.aspx.vb +++ b/Bancos/CreditosPagoMultiple.aspx.vb @@ -186,9 +186,8 @@ Partial Class Bancos_CreditosPagoMultiple Dim Total As Decimal = 0 For Each gvr As GridViewRow In GvV.Rows If gvr.FCCheckBox("Chk").Checked Then - Total += gvr.DataKey("Total").ToDouble + Total += gvr.DataKey("Total").ToDecimal End If - Next If Total <= 0 Then @@ -244,8 +243,7 @@ Partial Class Bancos_CreditosPagoMultiple If CvePrePoliza > 0 Then 'inserto el moviminto de banco - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor) Then - + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, CveConceptoContable, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor) Then For Each gvr As GridViewRow In GvV.Rows If gvr.FCCheckBox("Chk").Checked Then @@ -261,13 +259,13 @@ Partial Class Bancos_CreditosPagoMultiple Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then - If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, gvr.DataKey("Total").ToDecimal - IVA - CIF, CveConceptoCompra, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then MsgError = "Detalle" End If 'intereses pagados - If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, CIF, 46, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then MsgError = "Detalle" End If diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx index dc51da521..a046b1e1a 100644 --- a/Bancos/CuentasBancariasDetalle.aspx +++ b/Bancos/CuentasBancariasDetalle.aspx @@ -80,6 +80,13 @@ + + + Cuenta Padre: + + + + Usa Tarjeta: diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 2eb2d4ff1..490c0b79c 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -2,18 +2,22 @@ Option Strict On Imports Extensiones -Imports System.Runtime.InteropServices -Imports System.IO Imports System.Data - +'Imports DocumentFormat.OpenXml.Office.CustomUI + Partial Class Bancos_CuentasBancariasDetalle - Inherits ClsPaginas - - 'Configuración + Inherits ClsPaginas + + 'Configuración #Region "P R O P I E D A D E S" Private ReadOnly Property CveCuenta As Integer - Get + Get + + If ViewState("CveCuenta") Is Nothing Then + ViewState("CveCuenta") = -1 + End If Return ViewState("CveCuenta").ToString.ToEntero + End Get End Property Private Property DTUsuarios As DataTable @@ -23,14 +27,15 @@ Partial Class Bancos_CuentasBancariasDetalle Set(value As DataTable) ViewState("DTUsuarios") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CargarTipoCuenta() CargarBanco() CargarMoneda() + CargaCuentasPadre() ViewState("DTUsuarios") = Nothing Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"}) @@ -68,9 +73,36 @@ Partial Class Bancos_CuentasBancariasDetalle ActivarRegistroAutomatico() End If - End Sub - - + End Sub + + Private Sub CargaCuentasPadre() + + Dim DTCuentasPadre As New DataTable + + DdlCuentaPadre.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros($" CveCuenta <> {CveCuenta} ", "", {"CveCuenta", "NumCuentaMoneda"}) + + 'Dim ObjBancos As New ClsBancos + 'If ObjBancos.GetBancosCuentas(-1, UsuarioActual.CveEmpresa) Then + ' DTCuentasPadre = ObjBancos.DtResultados.FiltraParametros("", "", {"CveCuenta", "TipoCuenta", "Banco", "NumCuenta", "CLABE", "Moneda", "FInicial", "Estatus", "Fecha", "Usuario"}) + + ' If CveCuenta > 0 Then + ' DTCuentasPadre = DTCuentasPadre.FiltraParametros($" CveCuenta <> {CveCuenta} ") + ' End If + + ' DdlCuentaPadre.DataSource = DTCuentasPadre + + 'Else + ' DdlCuentaPadre.DataSource = Nothing + 'End If + + 'ObjBancos.Dispose() + + DdlCuentaPadre.DataBind() + DdlCuentaPadre.Items.Insert(0, New ListItem("Sin Selección", "-1")) + + End Sub + + #Region " CARGA VALORES INICIALES " Private Sub SetValues() ViewState("Orden") = "" @@ -186,9 +218,10 @@ Partial Class Bancos_CuentasBancariasDetalle ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal - ChkUsaTarjeta_CheckedChanged(Nothing, Nothing) + DdlCuentaPadre.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaPadre) + trFinicial.Visible = False trLimiteCredito.Visible = True TxtLimiteCredito.Text = ObjCuentasBancariasDetalle.LimiteCredito.ToString @@ -256,7 +289,7 @@ Partial Class Bancos_CuentasBancariasDetalle If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, - TieneTerminal:=ChkTieneTerminal.Checked) Then + TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta Else ErrorUsuarios = True @@ -289,7 +322,7 @@ Partial Class Bancos_CuentasBancariasDetalle Else If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, - ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then + ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then 'CargaDatos() GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then @@ -488,12 +521,18 @@ Partial Class Bancos_CuentasBancariasDetalle Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString Dim Button = DirectCast(sender, Button) - Select Case CuentaContable - Case "CuentaContable" - AgregarCuentaContable(Button, DDlCuentaContable) - Case "CuentaContableComplementaria" - AgregarCuentaContable(Button, DdlCuentaContableComplementaria) - End Select + Try + Select Case CuentaContable + Case "CuentaContable" + AgregarCuentaContable(Button, DDlCuentaContable) + Case "CuentaContableComplementaria" + AgregarCuentaContable(Button, DdlCuentaContableComplementaria) + End Select + Catch ex As Exception + + End Try + + End Sub Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index afe41b658..555cba4c2 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -322,13 +322,13 @@ Partial Class Bancos_DepositoTerminal e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe"))) If UsuarioActual.Empresa.Funcionalidad(157).ToDecimal <> 0 Then - e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, -UsuarioActual.Empresa.Funcionalidad(157), UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal)) - e.Row.FCRangeValidator("RVComision").MinimumValue = -UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal - e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal + e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString, UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal)) + e.Row.FCRangeValidator("RVComision").MinimumValue = (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString + e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157) e.Row.FCRangeValidator("RVComision").Enabled = True Else e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},2);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe"))) - e.Row.FCRangeValidator("RVComision").MinimumValue = 0.00 + e.Row.FCRangeValidator("RVComision").MinimumValue = "0.00" e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Importe") End If diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 1969d5f53..0c7bb3ea1 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -299,7 +299,7 @@
    - + @@ -339,9 +339,7 @@ - - - +
    diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index af77dc10e..7d6dee36a 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -75,8 +75,11 @@ Partial Class Bancos_DepositosCaja DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlPersonal.DataBind() + Dim ClavesProvs As String = UsuarioActual.Empresa.Funcionalidad(206) + If ClavesProvs = "" Then ClavesProvs = "0" ' para que no marque error + 'intermediario - DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343)) + DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", ClavesProvs)) DdlProveedorIntermediario.DataBind() DdlClasificacionIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) @@ -111,10 +114,10 @@ Partial Class Bancos_DepositosCaja GvFacturas.DataSource = ObjBancos.DtResultados If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - - lblValorTotal.Text = ObjBancos.DtResultados.SUM("Importe").ToString("###,###,###.00") - RegistraScript($" ValorTotalSeleccionado = {ObjBancos.DtResultados.SUM("Importe")};") - + If ObjBancos.DtResultados IsNot Nothing AndAlso ObjBancos.DtResultados.Rows.Count > 0 Then + lblValorTotal.Text = ObjBancos.DtResultados.SUM("Importe").ToString("###,###,###.00") + RegistraScript($" ValorTotalSeleccionado = {ObjBancos.DtResultados.SUM("Importe")};") + End If End If ObjBancos.Dispose() @@ -226,22 +229,21 @@ Partial Class Bancos_DepositosCaja CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero - - If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then - OcurrioError = True - End If - - If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then - OcurrioError = True - End If - - + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera + If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then + OcurrioError = True + End If + If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then + OcurrioError = True + End If + End If + If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then OcurrioError = True End If If IVA <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then + If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then OcurrioError = True End If End If @@ -280,7 +282,7 @@ Partial Class Bancos_DepositosCaja documentos += String.Format("Depósito: {1}    
    ", CveIEOrigen, FolioIE) - If ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte * TipoCambio, 30, "Depósito Bancario", "Depósito Bancario", CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then + If Not OcurrioError AndAlso ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte * TipoCambio, 30, "Depósito Bancario", "Depósito Bancario", CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then If ChkFaltante.Checked Then CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero @@ -292,7 +294,7 @@ Partial Class Bancos_DepositosCaja End If End If - If ChkDescuento.Checked Then + If Not OcurrioError AndAlso ChkDescuento.Checked Then CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero @@ -300,7 +302,6 @@ Partial Class Bancos_DepositosCaja OcurrioError = True End If End If - Else OcurrioError = True End If @@ -328,7 +329,7 @@ Partial Class Bancos_DepositosCaja CveIEDestino = ObjBancos.AddBancos_IE(CveCuentaBancaria, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, Importe * TipoCambio, 30, SerieFolio, String.Format("Depósito Bancario: {0}", SerieFolio), CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino) Then + If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, Importe * TipoCambio, 30, SerieFolio, String.Format("Depósito Bancario: {0}", SerieFolio), CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino) Then OcurrioError = True Exit For End If @@ -338,18 +339,15 @@ Partial Class Bancos_DepositosCaja OcurrioError = True Exit For End If - End If - Next - Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") documentos += String.Format("
    Imprimir {1}

    ", StrEncript, "Depósito Bancario") End If - If Not OcurrioError AndAlso ObjConta.ValidacionPrePolizaCuadre(NuevaCvePrePoliza, 1) Then + If Not OcurrioError AndAlso ObjConta.ValidacionesPrePoliza(NuevaCvePrePoliza, UsuarioActual, Opcion:=1) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Bancos/DepositoCaja | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{NuevaCvePrePoliza}", "LogPrePolizas") OcurrioError = True diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index a0e936ae5..18763f816 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -219,8 +219,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } protected void CargaDevolucionesProveedor(int CveProveedor) { - ClsMovimientos ObjMov = new ClsMovimientos(); - ClsCompProveedores clsCompProveedores = new ClsCompProveedores(); + ClsMovimientos ObjMov = new ClsMovimientos(); if (ObjMov.GetEgresosSinComprobar("-1", "-1", CveProveedor, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa)) { @@ -228,8 +227,7 @@ public partial class Bancos_Devoluciones : ClsPaginas GvDevoluciones.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 AND CveConceptoContable in (10,48,338)", "", columnas); GvDevoluciones.DataBind(); } - ObjMov.Dispose(); - clsCompProveedores.Dispose(); + ObjMov.Dispose(); UpDevoluciones.Update(); } #endregion @@ -249,7 +247,7 @@ public partial class Bancos_Devoluciones : ClsPaginas case "3": if (ObjMov.GetEgresosSinComprobar("-1", "-1", -1, CvePersonal, -1, -1, -1, 1, -1, UsuarioActual.CveEmpresa)) { - string[] columnas = new string[7] { "CveIE", "IEDevolucion", "Saldo", "Importe", "Pagado", "Folio", "FechaDocumento" }; + string[] columnas = new string[10] { "CveIE", "IEDevolucion", "Saldo", "Importe", "Pagado", "Folio", "FechaDocumento", "Abreviatura", "CveMoneda", "TipoCambio" }; GvDevoluciones.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", columnas); GvDevoluciones.DataBind(); } @@ -257,7 +255,7 @@ public partial class Bancos_Devoluciones : ClsPaginas case "4": if (ObjMov.GetPrestamosPersonalXSaldar(CvePersonal, -1, UsuarioActual.CveEmpresa)) { - string[] columnas = new string[7] { "CveIE", "IEDevolucion", "Saldo", "Importe", "Pagado", "Folio", "FechaDocumento" }; + string[] columnas = new string[10] { "CveIE", "IEDevolucion", "Saldo", "Importe", "Pagado", "Folio", "FechaDocumento", "Abreviatura", "CveMoneda", "TipoCambio" }; GvDevoluciones.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", columnas); GvDevoluciones.DataBind(); } @@ -335,9 +333,6 @@ public partial class Bancos_Devoluciones : ClsPaginas } //terminan validaciones - - - List filesgral = Anexo.getfiles().Archivos; string filemove = ""; string Comprobante = ""; @@ -347,8 +342,6 @@ public partial class Bancos_Devoluciones : ClsPaginas filemove = fileItem.filename; } - - ClsBancos ObjIE = new ClsBancos(); ClsContabilidad ObjMov = new ClsContabilidad(ObjIE.IniciaTransacSQL()); ClsCompras ObjComp = new ClsCompras(ObjIE.IniciaTransacSQL()); @@ -622,9 +615,9 @@ public partial class Bancos_Devoluciones : ClsPaginas archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero())); } - if (IDPoliza > 0) + if (CvePrePoliza > 0) { - Msg.AppendFormat(@"

    Ver Póliza", IDPoliza); + Msg.AppendFormat(@"

    Ver Póliza", CvePrePoliza); } ObjIE.Commit(); @@ -633,7 +626,6 @@ public partial class Bancos_Devoluciones : ClsPaginas filemove.FilesMove(CveIE.ToString(), String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } - if (!Msg.ToString().Equals("")) { string AccionJS = String.Format(@"document.location.href=""{0}"";", HttpContext.Current.Request.Url.PathAndQuery); @@ -661,20 +653,22 @@ public partial class Bancos_Devoluciones : ClsPaginas { ClsNominas onom = new ClsNominas(); - onom.GetConceptos(UsuarioActual.CveEmpresa); - DataTable dt = onom.DtResultados.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'"); - DdlConcepto.Items.Clear(); - - DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); - - DataRow drow = dt.NewRow(); - drow["CveConcepto"] = "-1"; - drow["Concepto"] = "Seleccione"; - dt.Rows.InsertAt(drow, 0); - DdlConcepto.DataSource = dt; - DdlConcepto.SelectedValueExist("-1"); - DdlConcepto.DataBind(); + if (onom.GetConceptos(UsuarioActual.CveEmpresa)) + { + DataTable dt = onom.DtResultados.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'"); + DdlConcepto.Items.Clear(); + DdlConcepto.DataSource = dt.FiltraParametros("Tipo ='D'"); + + DataRow drow = dt.NewRow(); + drow["CveConcepto"] = "-1"; + drow["Concepto"] = "Seleccione"; + dt.Rows.InsertAt(drow, 0); + DdlConcepto.DataSource = dt; + DdlConcepto.SelectedValueExist("-1"); + + //DdlConcepto.Items.Insert(0, new ListItem("Seleccione", "-1")); + } onom.Dispose(); - //DdlConcepto.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlConcepto.DataBind(); } } \ No newline at end of file diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index 583d93be8..e675c9d97 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -260,7 +260,7 @@

    @@ -363,7 +363,7 @@

    @@ -475,7 +475,7 @@
    @@ -586,7 +586,7 @@
    @@ -640,7 +640,7 @@
    @@ -691,7 +691,7 @@
    @@ -850,7 +850,7 @@
    @@ -897,7 +897,7 @@
    diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 8eb7c37e8..7a0eca2ca 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -869,7 +869,6 @@ Partial Class Bancos_FluctuacionCambiaria Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos") If cb.Checked Then Total = gvr.DataKey("Fluctuacion").ToDecimal - ' Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto) 'MOVIMIENTO DE FLUCTUACION diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 6e850972f..d9a7799a7 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -770,10 +770,7 @@ - --%> - - - + --%> Fecha Aplicación @@ -792,7 +789,7 @@ --%> - + @@ -802,6 +799,12 @@ + + + Deducciones Pago: + + + @@ -1038,6 +1041,13 @@
    +
    + +
    diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 1cee1f5be..972139eaa 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -727,6 +727,7 @@ Partial Class Bancos_IE 'ImgAddObs.Attributes.Add("onclick", "javascript:PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ") HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveIE=" & CveIE & "&TB_iframe=true&height=370&width=600;" + LtlTareaNueva.Text = String.Format(" Tarea", CveIE) CargaOCRelacionadas() @@ -793,6 +794,11 @@ Partial Class Bancos_IE DvFolioACCondiciones.Visible = True End If + + If UsuarioActual.CveEmpresa.Contiene(13, 1) Then + TRImporteDeduccionesPago.Visible = True + End If + End If End Sub @@ -857,7 +863,7 @@ Partial Class Bancos_IE LblCuenta.Text = ObjIE.BancoNumCuentaMoneda ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero - HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza")) + HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza")) HpLPrePoliza.Visible = True TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString TxtFolio.Text = ObjIE.Folio @@ -884,6 +890,8 @@ Partial Class Bancos_IE LblEstatusIE.Visible = True LblEstatusIE.Text = ObjIE.EstatusIE.ToString + LblImporteDeduccionesPago.Text = ObjIE.DtResultados.Rows(0)("ImporteDeduccionesPago").ToString.ToDecimal.ToString("###,###,###.00") + If ObjIE.CveTipoTransaccion.Contiene(3, 4) Then 'cuando es cheque recibido LnkChqDevuelto.Visible = True End If @@ -1025,6 +1033,8 @@ Partial Class Bancos_IE If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True End If + Else + If UsuarioActual.TienePermisoProceso(80) AndAlso ObjIE.CveTipoCuenta = 1 Then LnkDesconciliar.Visible = True End If If UsuarioActual.TienePermisoProceso(85) AndAlso Not ObjIE.FueConciliado Then LnkCancelar.Visible = True @@ -1517,7 +1527,6 @@ Partial Class Bancos_IE Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero) Banco.Dispose() TxtFolio.Text = Folio.ToString - Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If drI IsNot Nothing Then @@ -1525,11 +1534,12 @@ Partial Class Bancos_IE Else CargaNotas(-1) End If - - Else TxtFolio.Text = "" End If + If UsuarioActual.CveEmpresa = 140 AndAlso Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "INGPC" Then + CargaFolioAdicional() + End If Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then @@ -1671,7 +1681,6 @@ Partial Class Bancos_IE End If - UpDatos.Update() End Sub #End Region @@ -1708,7 +1717,6 @@ Partial Class Bancos_IE If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1") LtlTitulo.Text = "Egreso Por Comprobar" - RBL.Items.Remove(RBL.Items.FindByValue("C")) ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "DEV" Then dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ") @@ -1761,591 +1769,11 @@ Partial Class Bancos_IE #End Region - '#Region "VIATICOS" - - ' Private Function TimbrarNomina12(CvePersonal As Integer) As String - - ' Dim Retorno As String = "" - ' UsuarioActual.Empresa.CvePAC = 2 - ' Dim sw As New Diagnostics.Stopwatch - ' sw.Start() - ' Select Case UsuarioActual.Empresa.CvePAC - ' Case 1 - ' 'Retorno = TimbrarBIInformNomina12(CveNomina, CvePersonal, CvePeriodo) - ' Case 2, 4 - ' Dim cfdi As CFDITimbre = PreTimbrar(CvePersonal) - ' If cfdi Is Nothing Then - ' sw.Stop() - ' Return "No tiene asignado un folio de viaticos" - ' End If - ' If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then - ' Dim ObjTimbrado As New Timbrado - ' Dim ObjFactura As New Modelos.Factura - ' ObjFactura.TipoDocto = "Viaticos" - ' ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero - ' ObjFactura.Serie = cfdi.Comprobante.Serie - ' ObjFactura.Timbre = cfdi - ' If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then - ' Retorno = ObjTimbrado.MensajeErrorCFDI - ' End If - - ' 'Retorno = TimbrarFacturaRealVirtual(cfdi, UsuarioActual) - ' If Retorno <> "" Then - ' Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" - ' Else - ' 'Genero la addenda Ford - ' ' GeneraPDFNuevo(String.Format("{0}XML\Nomina\{1}.xml", Ruta, NominaFolio), CvePersonal, CvePeriodo) - ' End If - ' Else - ' Retorno = $"No se pudo generar el pretimbre:
    {cfdi.Mensaje}" - ' End If - ' End Select - ' sw.Stop() - ' GuardaLogTimbrado(sw.ElapsedMilliseconds.ToString, UsuarioActual.Empresa.CvePAC, "Nomina") - - ' Return Retorno - - ' End Function - - - - - ' Private Function PreTimbrar(CvePersonal As Integer) As CFDITimbre - ' Dim cfdi As New CFDITimbre - ' Dim ObjFolio As New ClsGralFolios - ' If ObjFolio.GetFolios("VIA", UsuarioActual.CveEmpresa) Then - ' If ObjFolio.DtResultados.Rows.Count > 0 Then - ' Folio = ObjFolio.DtResultados.Rows(0)("FActual").ToString - ' Else - ' ObjFolio.Dispose() - ' Return Nothing - ' End If - ' End If - ' ObjFolio.Dispose() - - ' Dim objPersonal As New ClsRH - ' objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) - - ' Dim AntiguedadSemanas As Integer = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero - - ' cfdi.Nomina = New CFDINomina - ' cfdi.Nomina.Version = "1.2" - ' cfdi.Nomina.TipoNomina = "E" - ' cfdi.Nomina.FechaPago = TxtFechaDocumento.Text.ToDate - ' cfdi.Nomina.FechaInicio = TxtFechaDocumento.Text - ' cfdi.Nomina.FechaFin = TxtFechaDocumento.Text - ' cfdi.Nomina.NumDiasPagados = 1 - ' cfdi.Emisor.Nombre = UsuarioActual.Empresa.Empresa - ' cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC - ' cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString() - ' cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal - - ' 'aplica persona fisica debe de tener CURP - ' If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615") Then - ' cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP - ' End If - - - ' cfdi.Receptor.UsoCFDI = "P01" - ' cfdi.Receptor.RFC = objPersonal.RFC - ' cfdi.Receptor.Nombre = objPersonal.NombreCompleto - - ' Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos) - ' ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "003", - ' .Clave = "003", - ' .Concepto = "Viáticos (entregados al trabajador).", - ' .Importe = TxtImporte.Text.ToString.ToDecimal - ' } - ' ) - ' If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos - - ' cfdi.Comprobante.Version = "3.3" - ' cfdi.Comprobante.Serie = "VIA" - ' cfdi.Comprobante.Folio = Folio - ' cfdi.Comprobante.Fecha = Now - ' cfdi.Comprobante.Subtotal = TxtImporte.Text.ToDecimal - ' cfdi.Comprobante.Descuentos = 0 - ' cfdi.Comprobante.Total = TxtImporte.Text.ToDecimal - ' cfdi.Comprobante.MotivoDescuento = "" - ' cfdi.Comprobante.Moneda = "MXN" - ' cfdi.Comprobante.TipoComprobante = "N" - ' cfdi.Comprobante.TipoDocto = "Egs" - ' cfdi.Comprobante.MetodoPago = "PUE" - ' cfdi.Comprobante.CondicionesdePago = "" - ' cfdi.Comprobante.FormadePago = "99" - ' cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString - ' cfdi.Comprobante.NumCuentaPago = "" - - - ' cfdi.Nomina.Receptor.CURP = objPersonal.CURP - ' cfdi.Nomina.Receptor.NSS = objPersonal.NumeroSS - ' cfdi.Nomina.Receptor.FechaInicioContrato = objPersonal.FechaInicioContrato.ToShortDateString - ' cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W" - ' cfdi.Nomina.Receptor.TipoContrato = objPersonal.CodigoTipoContrato - ' cfdi.Nomina.Receptor.CodigoTipoJornada = objPersonal.ClaveTipoJornada - ' cfdi.Nomina.Receptor.CodigoRegimenContratacion = If(objPersonal.CveRegimenContratacion = "", "99", objPersonal.CveRegimenContratacion) - ' cfdi.Nomina.Receptor.CodigoEmpleado = objPersonal.Codigo - ' cfdi.Nomina.Receptor.Departamento = objPersonal.Departamento - ' cfdi.Nomina.Receptor.Puesto = objPersonal.Puesto - ' cfdi.Nomina.Receptor.CodigoRiesgoPuesto = If(objPersonal.CveSATRiesgoPuesto.ToString = "0", "99", objPersonal.CveSATRiesgoPuesto.ToString) - ' cfdi.Nomina.Receptor.TipoPeriodo = objPersonal.TipoPeriodoPago - ' cfdi.Nomina.Receptor.CodigoBanco = objPersonal.ClaveBanco - ' cfdi.Nomina.Receptor.NumeroCuenta = objPersonal.BancoNumCuenta - ' cfdi.Nomina.Receptor.SDI = objPersonal.SDI.ToDecimal - ' cfdi.Nomina.Receptor.SBC = objPersonal.SDI.ToDecimal - - ' cfdi.Nomina.Receptor.Sindicalizado = "" - ' cfdi.Nomina.Receptor.CodigoEntidadFederativa = objPersonal.ClaveEstado - - - ' cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToDecimal}) - - ' objPersonal.Dispose() - ' Return cfdi - ' End Function - - ' 'Private Function TimbrarBIInformNomina12(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer) As String - - ' ' If UsuarioActual.CveEmpresa = 8 Then - ' ' UsuarioActual.Empresa.FacturaProduccion = True - ' ' End If - ' ' 'UsuarioActual.Empresa.FacturaProduccion = False - - ' ' Dim MsgError As String = String.Empty - - ' ' Dim CFDi As New ClbNegBICFDv3_2.ClsNegEDI - ' ' CFDi.ObjCompNomina12 = New ClbNegBICFDv3_2.ClsNegComplementoNomina12() - ' ' 'CFDi.ObjCompNomina = New ClbNegBICFDv3_2.ClsNegCompNomina - - ' ' Dim objPersonal As New ClsRH - ' ' 'Dim objNomina As New ClsNominas - ' ' objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) - ' ' 'objNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa) - - - ' ' Dim Total As Decimal = 0 - ' ' Dim SubTotal As Decimal = 0 - ' ' Dim Descuentos As Decimal = 0 - ' ' Dim RetISR As Decimal = 0 - ' ' Dim TotalExcento As Decimal = 0 - ' ' Dim TotalGravado As Decimal = 0 - ' ' Dim TotalPercepciones As Decimal = 0 - ' ' Dim TotalDeducciones As Decimal = 0 - ' ' Dim TotalOtrosPagos As Decimal = 0 - - ' ' Dim Serie As String = "" - ' ' Dim Folio As String = "" - ' ' Dim NominaFolio As String = Serie & "-" & Folio - ' ' Dim RFC As String = objPersonal.RFC.Trim - ' ' Dim Nombre As String = objPersonal.NombreCompleto.Trim - ' ' Dim Direccion As String = String.Format("{0} {1} {2}", objPersonal.Calle.Trim, objPersonal.NumExt.Trim, objPersonal.NumInt.Trim).Trim - ' ' Dim Ciudad As String = objPersonal.Ciudad.Trim - ' ' Dim Estado As String = objPersonal.Estado.Trim - ' ' Dim CP As String = objPersonal.CP.Trim - - - - ' ' 'Dim TipoContrato As String = GlobalDTTiposContrato.FiltraParametros("CveTipoContrato = " + objPersonal.CveTipoContrato.ToString)(0)("TipoContrato").ToString - ' ' 'Dim TipoPeriodo As String = GlobalDTTipoPeriodo.FiltraParametros("CveTipoPeriodo = " + objPersonal.CveTipoPeriodo.ToString)(0)("TipoPeriodo").ToString - ' ' Dim AntiguedadSemanas As Integer = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero - ' ' Dim FormatoReciboCFDi As String = objPersonal.FormatoReciboCFDi - - ' ' Dim FechaInicio, FechaFin, FechaPago As Date - ' ' Dim DiasPagados As Integer = 0 - ' ' Dim Msg As String = String.Empty - ' ' Dim DiasIncapacitados As Integer = 0 - ' ' Dim DrPeriodo As DataRow = Nothing - - ' ' Dim ObjFolio As New ClsGralFolios - ' ' If ObjFolio.GetFolios("VIA", UsuarioActual.CveEmpresa) Then - ' ' If ObjFolio.DtResultados.Rows.Count > 0 Then - ' ' Folio = ObjFolio.DtResultados.Rows(0)("FActual").ToString - ' ' End If - ' ' End If - - - ' ' 'If objNomina.GetPeriodos(-1, -1, -1, -1, CvePeriodo) Then - ' ' ' If objNomina.DtResultados.Rows().Count > 0 Then - ' ' ' DrPeriodo = objNomina.DtResultados.Rows(0) - ' ' ' End If - ' ' 'End If - ' ' 'Dim DrPeriodo As DataRow = GlobalDTNominasPeriodos(-1, CvePeriodo, -1).FiltroPrimero("") - ' ' If DrPeriodo IsNot Nothing Then - ' ' FechaInicio = DrPeriodo("FechaInicio").ToString.ToDate - ' ' FechaFin = DrPeriodo("FechaFin").ToString.ToDate - ' ' FechaPago = DrPeriodo("FechaPago").ToString.ToDate - ' ' If objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then - - ' ' Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero - ' ' Dim Vacaciones As Integer = objPersonal.DtResultados.SUM("AplicaVacacion").ToEntero - ' ' DiasIncapacitados = objPersonal.DtResultados.SUM("AplicaIncapacidad").ToEntero - ' ' DiasPagados = Asistencias - Vacaciones - ' ' If DiasPagados < 0 Then DiasPagados = 0 - - ' ' End If - - ' ' End If - - ' ' Dim DtPercepciones As Data.DataTable = Nothing - ' ' Dim DtDeducciones As Data.DataTable = Nothing - ' ' Dim DtOtrosPagos As Data.DataTable = Nothing - ' ' 'If objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - ' ' ' If objNomina.DtResultados.Rows.Count > 0 Then - ' ' ' DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ") - ' ' ' DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ") - ' ' ' TotalPercepciones = DtPercepciones.SUM("Importe") - ' ' ' TotalDeducciones = DtDeducciones.SUM("Importe") - ' ' ' Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal) - ' ' ' End If - ' ' 'End If - - ' ' 'Tipo Nomina O de Ordinaria o E de extraordinaria - ' ' 'Dim FechaPago As Date = Now - ' ' Dim TotalSueldos As Decimal = 0 - ' ' Dim TotalIndemnizacion As Decimal = 0 - ' ' Dim TotalJubilacion As Decimal = 0 - ' ' Msg = CFDi.ObjCompNomina12.Cargar("O", FechaPago, FechaInicio, FechaFin, DiasPagados, TotalPercepciones, TotalDeducciones, 0) - - - - ' ' If Msg = String.Empty Then - ' ' If DtPercepciones IsNot Nothing Then - ' ' If DtPercepciones.Rows.Count > 0 Then - ' ' TotalSueldos = DtPercepciones.SUM("Importe", "SATCveConcepto = '001'") - ' ' TotalIndemnizacion = DtPercepciones.SUM("Importe", "SATCveConcepto IN ('022','023','025')") ' https://www.ccpm.org.mx/avisos/nuevo-complemento-de-nomina-version-1.2-puntos-finos-diciembre-2016.pdf - ' ' TotalJubilacion = DtPercepciones.SUM("Importe", "SATCveConcepto IN ('039','044')") 'https://www.ccpm.org.mx/avisos/nuevo-complemento-de-nomina-version-1.2-puntos-finos-diciembre-2016.pdf - ' ' Msg = CFDi.ObjCompNomina12.CargarPercepciones(TotalSueldos, TotalIndemnizacion, TotalJubilacion, DtPercepciones.SUM("ImporteGravado").ToDecimal, DtPercepciones.SUM("ImporteExento").ToDecimal) - ' ' End If - ' ' For Each Row As DataRow In DtPercepciones.Rows - ' ' If Row("Importe").ToString.ToDecimal > 0 Then - ' ' If Row("CveSATConcepto").ToString = "" Then - ' ' Msg = String.Format("Concepto No registrado ({0})", Row("Concepto").ToString) - ' ' Else - ' ' Msg = CFDi.ObjCompNomina12.AgregarPercepcion(Row("SATCveConcepto").ToString, Row("Codigo").ToString, Row("Concepto").ToString, Row("ImporteGravado").ToString.ToDecimal, Row("ImporteExento").ToString.ToDecimal) - ' ' TotalExcento = TotalExcento + Row("ImporteExento").ToString.ToDecimal - ' ' TotalGravado = TotalGravado + Row("ImporteGravado").ToString.ToDecimal - ' ' SubTotal = SubTotal + Row("Importe").ToString.ToDecimal - ' ' End If - - ' ' If Msg <> String.Empty Then - ' ' Me.OnError("El SAT regresó el siguiente mensaje: " & Msg & ". Objeto: Percepcion", New Exception) - ' ' Exit For - ' ' End If - ' ' End If - ' ' 'RMF, falta poner el numero de horas pagadas - ' ' If Row("CveSATConcepto").ToString.ToEntero = 19 Then 'cuando son horas extras - - ' ' 'Obtengo el desglose de horas extras - - ' ' If objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - - ' ' Dim dr As DataRow = objNomina.DtResultados.FiltroPrimero("") - ' ' If dr IsNot Nothing Then - - ' ' If dr("HorasDobles").ToString.ToDouble > 0 Then CFDi.ObjCompNomina12.AgregarHorasExtra(dr("DiasHorasDobles").ToString.ToEntero, ClbNegBICFDv3_2.TipoHoras.Dobles, dr("HorasDobles").ToString.ToEntero, Row("Importe").ToString.ToDecimal) - ' ' If dr("HorasTriples").ToString.ToDouble > 0 Then CFDi.ObjCompNomina12.AgregarHorasExtra(dr("DiasHorasTriples").ToString.ToEntero, ClbNegBICFDv3_2.TipoHoras.Triples, dr("HorasTriples").ToString.ToEntero, Row("Importe").ToString.ToDecimal) - - - ' ' End If - - - ' ' End If - - ' ' End If - ' ' Next - ' ' If Msg = "" Then - ' ' CFDi.ObjCompNomina12.ObjPercepciones.TotalExento = TotalExcento - ' ' CFDi.ObjCompNomina12.ObjPercepciones.TotalGravado = TotalGravado - ' ' End If - - ' ' End If - - ' ' 'cargo las incapacidades - ' ' If DiasIncapacitados > 0 Then - - ' ' If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - - ' ' CFDi.ObjCompNomina12.CargarIncapacidades() - ' ' For Each dr As DataRow In objNomina.DtResultados.Rows - ' ' CFDi.ObjCompNomina12.AgregarIncapacidad(dr("Dias").ToString.ToDecimal, dr("ClaveTipoIncapacidad").ToString.ToEntero, dr("Descuento").ToString.ToDecimal) - ' ' Next - - ' ' End If - - ' ' End If - - - - ' ' TotalExcento = 0 - ' ' TotalGravado = 0 - - ' ' If Msg = String.Empty Then - ' ' If DtDeducciones IsNot Nothing Then - ' ' If DtDeducciones.Rows.Count > 0 Then - ' ' Total = CType((Total - DtDeducciones.SUM("Importe")), Decimal) - ' ' CFDi.ObjCompNomina12.CargarDeducciones(CType(DtDeducciones.SUM("ImporteGravado"), Decimal), CType(DtDeducciones.SUM("ImporteExento"), Decimal)) - ' ' End If - ' ' For Each Row As DataRow In DtDeducciones.Rows - - ' ' If Row("Importe").ToString.ToDecimal > 0 Then - ' ' If Row("CveSATConcepto").ToString = "" Then - ' ' Msg = String.Format("Concepto No registrado ({0})", Row("Concepto").ToString) - ' ' Else - - ' ' Msg = CFDi.ObjCompNomina12.AgregarDeduccion(Row("SATCveConcepto").ToString, Row("Codigo").ToString, Row("Concepto").ToString, 0) - ' ' TotalExcento = TotalExcento + Row("ImporteExento").ToString.ToDecimal - ' ' TotalGravado = TotalGravado + Row("ImporteGravado").ToString.ToDecimal - - ' ' If Row("CveSATConcepto").ToString.ToEntero = 3 Then - ' ' RetISR = RetISR + Row("Importe").ToString.ToDecimal - ' ' Else - ' ' Descuentos = Descuentos + Row("Importe").ToString.ToDecimal - ' ' End If - ' ' End If - - ' ' If Msg <> String.Empty Then - ' ' Me.OnError("El SAT regresó el siguiente mensaje: " & Msg & ". Objeto: Deduccion", New Exception) - ' ' Exit For - ' ' End If - ' ' End If - ' ' Next - ' ' If Msg = "" Then - ' ' If CFDi.ObjCompNomina12.ObjDeducciones IsNot Nothing Then - ' ' CFDi.ObjCompNomina12.ObjDeducciones.TotalOtrasDeducciones = Descuentos - ' ' CFDi.ObjCompNomina12.ObjDeducciones.TotalImpuestosRetenidos = RetISR - ' ' End If - - ' ' End If - ' ' End If - - ' ' If Msg = String.Empty Then - ' ' If DtOtrosPagos IsNot Nothing Then - ' ' If DtOtrosPagos.Rows.Count > 0 Then - ' ' Total = CType((Total - DtOtrosPagos.SUM("Importe")), Decimal) - ' ' CFDi.ObjCompNomina12.CargarOtrosPagos() - ' ' End If - - ' ' For Each Row As DataRow In DtOtrosPagos.Rows - ' ' If Row("Importe").ToString.ToDecimal > 0 Then - ' ' If Row("CveSATConcepto").ToString = "" Then - ' ' Msg = String.Format("Concepto No registrado ({0})", Row("Concepto").ToString) - ' ' Else - ' ' Msg = CFDi.ObjCompNomina12.AgregarOtroPago(Row("SATCveConcepto").ToString, Row("Codigo").ToString, Row("Concepto").ToString, 0) - ' ' 'Msg = CFDi.ObjCompNomina12.CargarSubsidioAlEmpleo(0) - ' ' 'Msg = CFDi.ObjCompNomina12.CargarCompensacionSaldosAFavor(0, 0, 0) - ' ' End If - - ' ' If Msg <> String.Empty Then - ' ' Me.OnError("El SAT regresó el siguiente mensaje: " & Msg & ". Objeto: Otros Pagos", New Exception) - ' ' Exit For - ' ' End If - ' ' End If - ' ' Next - - ' ' End If - - ' ' If Msg = String.Empty Then - ' ' Dim x As Integer = 0 - - ' ' Dim Moneda As String = "MXN" - ' ' Dim LugarExp As String = String.Format("{0}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8} ", SucCalle, SucNoExt, SucNoInt, SucColonia, SucLocalidad, SucMunicipio, SucEstado, SucPais, SucCP) - ' ' Dim FechaFactura As DateTime = Now - ' ' 'Nodo Comprobante - - ' ' Dim TipoComprobante As ClbNegBICFDv3_2.TipoDeComprobante = ClbNegBICFDv3_2.TipoDeComprobante.egreso - ' ' Msg = CFDi.comprobantecfd(0, 0, Serie, Folio, FechaFactura, "PAGO EN UNA SOLA EXHIBICION", "CONTADO", SubTotal, Descuentos, "Deducciones nómina", "1", Moneda, Total, objPersonal.MetodoPagoSAT, ClbNegBICFDv3_2.TipoDeComprobante.egreso, LugarExp, "", "", "", New Date(1900, 1, 1), 0) - - ' ' If Msg = String.Empty Then - ' ' 'Nodo emisor - ' ' Msg = CFDi.ObjCompNomina12.CargarEmisor("", objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString(), UsuarioActual.Empresa.RFC) - ' ' 'If Msg = String.Empty Then Msg = CFDi.EmisorRegimen(UsuarioActual.Empresa.CodigoRegimenFiscal) - ' ' If Msg = String.Empty Then - ' ' 'Nodo Entidad SNCF - ' ' If 1 = 2 Then 'cuando es gobierno - ' ' Msg = CFDi.ObjCompNomina12.CargarEntidadSNCF("", 0) - ' ' End If - - ' ' If Msg = String.Empty Then - ' ' 'Nodo Receptor - ' ' Msg = CFDi.ObjCompNomina12.CargarReceptor(objPersonal.CURP, objPersonal.NumeroSS, objPersonal.FechaInicioContrato, AntiguedadSemanas, objPersonal.TipoContrato, "", objPersonal.ClaveTipoJornada, objPersonal.CveRegimenContratacion, objPersonal.Codigo.ToString, - ' ' objPersonal.Departamento, objPersonal.Puesto, objPersonal.CveRiesgoPuesto, objPersonal.TipoPeriodo, objPersonal.ClaveBanco, objPersonal.BancoNumCuenta, Total, objPersonal.SDI.ToString.ToDecimal, objPersonal.ClaveEstado) - ' ' If Msg = String.Empty Then - ' ' 'Nodo SubContratacion - ' ' If 1 = 2 Then Msg = CFDi.ObjCompNomina12.AgregarSubContratacion("", 0) - ' ' If Msg = String.Empty Then - - ' ' CFDi.LstCompNomina12.Add(CFDi.ObjCompNomina12) - - ' ' Dim HasErrorConceptos As Boolean = False - ' ' 'Dim Importe As Decimal = 0 - - - ' ' Msg = CFDi.ConceptosCfd(1, "ACT", "", "Pago de nómina", SubTotal, SubTotal) - - ' ' 'Timbrado - - ' ' 'Web Services de producción: http://biinform.com.mx/srvCFDi/service1.asmx - ' ' 'Web Services de pruebasd: http://biinform.com.mx/srvCFDiPrueba/service1.asmx - - - ' ' Dim WS As String = String.Empty - ' ' If UsuarioActual.Empresa.FacturaProduccion Then - ' ' WS = "http://portalbiinform.com.mx/srvCFDiPrueba/service1.asmx" - ' ' Else - ' ' WS = "http://portalbiinform.com.mx/srvCFDiPrueba/service1.asmx" - ' ' End If - - ' ' If Not System.IO.Directory.Exists(Ruta & "XML\") Then System.IO.Directory.CreateDirectory(Ruta & "XML\") - ' ' If Not System.IO.Directory.Exists(Ruta & "XML\Nomina\") Then System.IO.Directory.CreateDirectory(Ruta & "XML\Nomina\") - - ' ' 'Generar Timbre - ' ' 'If UsuarioActual.Empresa.FacturaProduccion Then - ' ' If 1 = 2 Then - ' ' CFDi.Generar(String.Format("{0}Certificados\{1}", Ruta, UsuarioActual.Empresa.ArchivoPfx), - ' ' UsuarioActual.Empresa.ContraseñaKey, - ' ' String.Format("{0}Certificados\{1}", Ruta, UsuarioActual.Empresa.ArchivoCer), - ' ' String.Format("{0}XML\Nomina\{1}.xml", Ruta, NominaFolio), - ' ' String.Format("{0}Certificados\", Ruta), - ' ' UsuarioActual.Empresa.BIUsuario, - ' ' UsuarioActual.Empresa.BIContraseña, - ' ' WS, - ' ' True) - ' ' Else - ' ' If Not System.IO.Directory.Exists(Ruta & "XML\Nomina\Demo\") Then System.IO.Directory.CreateDirectory(Ruta & "XML\Nomina\Demo\") - ' ' 'RutaPruebas & "XML\Demo\" & NominaFolio & ".xml", - ' ' CFDi.Generar(String.Format("{0}Certificados\aaa010101aaa__csd_01.pfx", RutaPruebas), - ' ' "12345678a", - ' ' String.Format("{0}Certificados\aaa010101aaa__csd_01.cer", RutaPruebas), - ' ' String.Format("{0}XML\Nomina\Demo\{1}.xml", Ruta, NominaFolio), - ' ' String.Format("{0}Certificados\", RutaPruebas), - ' ' "prueba", - ' ' "123", - ' ' WS, - ' ' True) - ' ' End If - - - ' ' If CFDi.MsgError <> String.Empty Then - - ' ' 'OnError("Ocurrió un error al generar el timbre: " & CFDi.MsgError, New Exception) - - ' ' Dim params As New ActualizaTimbre - ' ' params.Estatus = False - ' ' params.CveNomina = CveNomina - ' ' params.CvePAC = 1 - - ' ' 'Dim Hilo As New System.Threading.Thread(AddressOf ActualizaTimbrado) - ' ' 'Hilo.Start(params) - ' ' BtnAutorizar.Enabled = False - ' ' MsgError = "Nombre: " & Nombre & ". Error: " & CFDi.MsgError - ' ' Else - ' ' 'Actualiza Estatus Timbrado - ' ' Dim params As New ActualizaTimbre - ' ' params.Estatus = True - ' ' params.CveNomina = CveNomina - ' ' params.CvePAC = 1 - - ' ' 'Dim Hilo As New System.Threading.Thread(AddressOf ActualizaTimbrado) - ' ' 'Hilo.Start(params) - - ' ' Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() - ' ' Dim FechaCertificacion As DateTime - ' ' Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String - - ' ' FolioFiscal = CFDi.Timbrado.UUDI 'XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText - ' ' NoSerieCertificado = CFDi.Timbrado.NoCertificadoSAT - ' ' FechaCertificacion = CFDi.Timbrado.FechaTimbrado - ' ' SelloCFDi = CFDi.Timbrado.SelloCFD - ' ' SelloSAT = CFDi.Timbrado.SelloSAT - ' ' NoSerieCertificadoContribuyente = CFDi.Timbrado.NoCertificado - ' ' ViewState("FolioFiscal") = FolioFiscal - - ' ' 'Actualiza Estatus Factura - ' ' CveNominaT = CveNomina - - ' ' Dim Rastro As String = String.Format("Nomina: CvePeriodo:{0}, CvePersonal:{1}, UUID: {2}, RFC:{3}", CvePeriodo, CvePersonal, FolioFiscal, objPersonal.RFC) - ' ' Rastro.GuardaLog() - - ' ' If FolioFiscal <> "" Then - - ' ' 'If UsuarioActual.Empresa.FacturaProduccion Then - ' ' ' Dim ObjNomina2 As New ClsNominas() - ' ' ' ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, "", ("01/01/2000").ToDate, CveNomina, SubTotal, Descuentos, RetISR, Total, DiasPagados) - ' ' ' ObjNomina2.Dispose() - ' ' 'End If - ' ' Rastro = "--Estatus" & Rastro - ' ' Rastro.GuardaLog() - ' ' 'Dim Hilo1 As New System.Threading.Thread(AddressOf ActualizaEstatus) - ' ' 'Hilo1.Start(3) - ' ' End If - - - ' ' Dim RutaCBB As String = String.Empty - ' ' If Not System.IO.Directory.Exists(Ruta & "CBB\") Then System.IO.Directory.CreateDirectory(Ruta & "CBB\") - ' ' If Not System.IO.Directory.Exists(Ruta & "CBB\Nomina\") Then System.IO.Directory.CreateDirectory(Ruta & "CBB\Nomina\") - - ' ' If UsuarioActual.Empresa.FacturaProduccion Then - ' ' RutaCBB = Ruta & "CBB\Nomina\" & NominaFolio & ".jpg" - ' ' Else - ' ' If Not System.IO.Directory.Exists(Ruta & "CBB\Nomina\Demo\") Then System.IO.Directory.CreateDirectory(Ruta & "CBB\Nomina\Demo\") - ' ' RutaCBB = Ruta & "CBB\Nomina\Demo\" & NominaFolio & ".jpg" - ' ' End If - ' ' CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFC, Total, FolioFiscal, RutaCBB) - - - ' ' 'GeneraPDF(FechaFactura, FolioFiscal, NoSerieCertificado, FechaCertificacion, NoSerieCertificadoContribuyente, TmpDT, SelloCFDi, SelloSAT, RutaCBB, VentaFolio, Ruta & "XML\" & VentaFolio & ".xml", False, CFDi.CadenaOriginal) - ' ' 'GeneraPDF(CveNomina, CvePersonal, CvePeriodo, FechaFactura, FolioFiscal, NoSerieCertificado, FechaCertificacion, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT, RutaCBB, Ruta & "Nomina\XML\" & NominaFolio & ".xml", False, CFDi.Timbrado.CadenaOriginal, FormatoReciboCFDi) - ' ' GeneraPDFNuevo(String.Format("{0}XML\Nomina\{1}.xml", Ruta, NominaFolio), CvePersonal, CvePeriodo) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorRegimen", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorRegimen", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorDomicilioExpedidoEn", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorDomicilioExpedidoEn", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorDomicilioFiscalCfd", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorDomicilioFiscalCfd", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorCfd", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: EmisorCfd", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre) - ' ' End If - ' ' Else - ' ' 'Me.OnError(String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre), New Exception) - ' ' MsgError = String.Format("El SAT regresó el siguiente mensaje: {0} Nombre: {1}. Objeto: Comprobante", Msg, Nombre) - ' ' End If - ' ' objPersonal.Dispose() - ' ' objNomina.Dispose() - - ' ' Return MsgError - ' 'End Function - - - '#End Region #Region " GUARDAR - ACTUALIZAR " Private Function ValidaGuardar() As Boolean - Dim EsValido = True - Dim PagueseA = "" + Dim EsValido As Boolean = True + Dim PagueseA As String = "" If HdnCveCliente.Value.ToEntero > 0 Then PagueseA = DdlCliente.SelectedText.ToString() ElseIf HdnCveProveedor.Value.ToEntero > 0 Then @@ -2377,7 +1805,7 @@ Partial Class Bancos_IE Dim Dep As New ClsGenerales If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then - Dim Row = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero)) + Dim Row As DataRow = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero)) If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia) EsValido = False @@ -2446,8 +1874,6 @@ Partial Class Bancos_IE If CveIE = -1 Then - - Dim CveCuentaDeposito As Integer = 0 If DdlCuentaDeposito.Items.Count > 0 Then CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero @@ -2462,8 +1888,6 @@ Partial Class Bancos_IE Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next - - '*****-_- INICIA: CONFIGURACION REGISTRO -_-***** If CvePersonal > 0 Then If Opcion IsNot Nothing AndAlso Opcion.Contiene("EGSSINFACT") And DDlCheques.SelectedValue.ToEntero > 0 Then @@ -2602,7 +2026,6 @@ Partial Class Bancos_IE '*****-_- TERMINA: CONFIGURACION REGISTRO -_-***** - Dim FolioFijo As Integer = 0 Dim tCveMoneda As Integer = CveMoneda Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal @@ -2611,7 +2034,7 @@ Partial Class Bancos_IE tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL tImporteMonedaME = TxtImporte.Text.ToDecimal End If - Dim PagueseA = "" + Dim PagueseA As String = "" If HdnCveCliente.Value.ToEntero > 0 Then PagueseA = DdlCliente.SelectedText.ToString() @@ -2706,7 +2129,7 @@ Partial Class Bancos_IE ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), 66, Ref, Conc, CveIE:=CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera) If TxtIvaIxC.Text.ToDouble > 0 Then - Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) + Dim PorcentajeIVA As Decimal = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) 'Iva ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, -TxtIvaIxC.Text.ToDecimal, 61, Ref, Conc, CveIE:=CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) End If @@ -2798,8 +2221,6 @@ Partial Class Bancos_IE importeMX = importeMovimiento End If - - Case 50 If RBL.SelectedValue = "DP" AndAlso CveProveedor > 0 Then importeMovimiento = TxtImporte.Text.ToDecimal @@ -2815,7 +2236,7 @@ Partial Class Bancos_IE If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then Dim CveConIVA As Integer = 61 If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299 - Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) + Dim PorcentajeIVA As Decimal = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, TxtIvaIxC.Text.ToDecimal, CveConIVA, Concepto, Concepto, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If @@ -2827,9 +2248,7 @@ Partial Class Bancos_IE If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, (importeMovimiento * TC - importeMovimiento).RoundSQL, 226, Concepto, Concepto, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=importeMovimiento, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If - End If - End If Case 30 @@ -2857,18 +2276,16 @@ Partial Class Bancos_IE MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If - Next - End If Case "DevDinV" - Dim ImporteAplicar = 0.0D - Dim ImporteAplicarMN = 0.0D - Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = ObjIE.Folio - Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" + Dim ImporteAplicar As Decimal = 0.0D + Dim ImporteAplicarMN As Decimal = 0.0D + Dim ImporteAplicarME As Decimal = 0.0D + Dim ReferenciaAplicar As String = ObjIE.Folio + Dim ConceptoAplicar As String = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" ImporteAplicar = TxtImporte.Text.ToDecimal ImporteAplicarME = ImporteAplicar @@ -2926,9 +2343,9 @@ Partial Class Bancos_IE 'IMPUESTOS If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin, UsuarioActual.CveEmpresa) Then - Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6) - Dim CveConceptoContableAplicar = -1 - Dim TipoMovtoAplicar = False + Dim PorcentajePagoDevDin As Decimal = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6) + Dim CveConceptoContableAplicar As Integer = -1 + Dim TipoMovtoAplicar As Boolean = False For Each Dr As DataRow In ObjMov.DtResultados.FiltraParametros("CveConceptoContable IN (13,8,9,38)").Rows Dim PorcentajeImpuesto As Decimal = Dr("PorcentajeImpuesto").ToString.ToDecimal() @@ -2962,13 +2379,13 @@ Partial Class Bancos_IE End If Case "DevDinC" - Dim ImporteAplicar = 0.0D - Dim ImporteAplicarMN = 0.0D - Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = ObjIE.Folio + Dim ImporteAplicar As Decimal = 0.0D + Dim ImporteAplicarMN As Decimal = 0.0D + Dim ImporteAplicarME As Decimal = 0.0D + Dim ReferenciaAplicar As String = ObjIE.Folio Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero - Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" + Dim ConceptoAplicar As String = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" ImporteAplicar = TxtImporte.Text.ToDecimal ImporteAplicarME = ImporteAplicar @@ -3085,17 +2502,13 @@ Partial Class Bancos_IE MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" Exit Select End If - End If - - - End If 'IMPUESTOS - Dim PorcentajePagoDevDin = (ImporteAplicar / ImporteAplicar).RoundSQL(6) - Dim CveConceptoContableAplciar = -1 + Dim PorcentajePagoDevDin As Decimal = (ImporteAplicar / ImporteAplicar).RoundSQL(6) + Dim CveConceptoContableAplciar As Integer = -1 'Dim TipoMovtoAplicar = False @@ -3382,7 +2795,7 @@ Partial Class Bancos_IE 'BANCOS COMPLEMENTARIA If tCveMoneda > 1 And UsaComplementariaBancos Then Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal - Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL() + Dim ImporteAplicarMN As Decimal = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL() If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, ImporteAplicarMN, 204, Ref, Conc, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=tImporteMonedaME, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" End If @@ -3490,7 +2903,7 @@ Partial Class Bancos_IE 'End If If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then ' MsgError = ObjMov.MensajePolizaDescuadre GuardaLogAD($"Bancos/IE | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") @@ -3572,12 +2985,12 @@ Partial Class Bancos_IE Alert("El Documento se guardo correctamente", TipoMensaje.MsgInformacion, "document.location.href=""../Inicio.aspx""") Else If ChkAplicaViatico.Checked Then - Dim SerieFolio = $"VIA-{Folio}" + Dim SerieFolio As String = $"VIA-{Folio}" Msg.Clear() Msg.AppendFormat("", Encripta(String.Format("OP=DesXmlVIA&SERIEFOLIO={0}&TIPO={1}", SerieFolio, "Viaticos"))) End If - Dim AccionJS = "" + Dim AccionJS As String = "" If Opcion = "DevDinV" Then AccionJS = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";" @@ -3811,9 +3224,8 @@ Partial Class Bancos_IE ' 'MOVIMIENTOS CHEQUE ' 'If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then ' ' Dim Textov33 As String = "" - ' ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' ' ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - ' ' End If ' ' strBody.AppendFormat("
    ") ' ' strBody.AppendFormat(" ") @@ -3930,10 +3342,10 @@ Partial Class Bancos_IE Exit Sub End If - Dim ErrorCancelar = False - Dim MensajeError = "" - Dim IdPolizaNueva = -1 - Dim FolioPolizaNueva = -1 + Dim ErrorCancelar As Boolean = False + Dim MensajeError As String = "" + Dim IdPolizaNueva As Integer = -1 + Dim FolioPolizaNueva As Integer = -1 Dim MensajeLog As String = "" Dim Banc As New ClsBancos @@ -4107,7 +3519,7 @@ Partial Class Bancos_IE ErrorCancelar = True MensajeError = "Error al cancelar complemento de pago" Else - Dim FolioCancelado = $"{TxtFolio.Text}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}" + Dim FolioCancelado As String = $"{TxtFolio.Text}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}" If Not Banc.UpdateFolioCancelado(CveIE.ToEntero, Folio:=FolioCancelado) Then ErrorCancelar = True MensajeError = "Error al actualizar complemento de pago" @@ -4231,126 +3643,6 @@ Partial Class Bancos_IE ObjConta.Dispose() End Sub - 'Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs) - ' RegistraScript("$('#DivChqDevueltoIE').modal('hide');") - - ' ChequeDevuelto() - - - 'End Sub - - 'Private Sub ChequeDevuelto() - ' If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then - ' Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar") - ' Exit Sub - ' End If - - ' If ChkConciliado.Checked Then - ' Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) - ' Exit Sub - ' End If - - ' Dim Banc As New ClsBancos - ' Banc.IniciaTransacSQL() - ' Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) - - ' Dim ObjAC As ClsContPAQi = Nothing - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then - ' ObjAC = New ClsContPAQi(UsuarioActual.Empresa) - ' ObjAC.IniciaTransacSQL() - ' End If - - - ' Dim ErrorCancelar = False - ' Dim IdPolizaNueva = -1 - ' Dim FolioPolizaNueva = -1 - - ' If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then - - ' If ObjAC Is Nothing Then - ' ErrorCancelar = True - ' End If - - ' If Not ErrorCancelar Then - ' Dim dt As DataTable - ' If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then - ' dt = ObjAC.DtResultados - - ' ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) - - ' IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cheque Devuelto: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDevuelto.Text.ToDate) - - ' If IdPolizaNueva > 0 Then - ' FolioPolizaNueva = ObjAC.Folio - - ' 'CREA POLIZA NEGATIVA - ' For Each dr As DataRow In dt.Rows - ' If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDevuelto.Text.ToDate, "") Then - ' ErrorCancelar = True : Exit For - ' End If - ' Next - - ' 'AJUSTA POLIZA - ' If Not ErrorCancelar Then - ' If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then - ' ErrorCancelar = True - ' End If - ' End If - - ' 'genera nuevo IE contrario - ' If Not ErrorCancelar Then - ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then - ' ErrorCancelar = True - ' End If - ' End If - - ' Else - ' ErrorCancelar = True - ' End If - - - ' End If - ' End If - - ' Else - - ' 'siempre se hace una cancelación - ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then - ' ErrorCancelar = True - ' End If - - ' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - - ' IDPoliza = ObjConta.ContaIdPoliza - ' Else - ' ErrorCancelar = True - ' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - ' End If - ' End If - - ' End If - - - ' If Not ErrorCancelar Then - ' If ObjAC IsNot Nothing Then ObjAC.Commit() - ' Banc.Commit() - ' Dim Msg As New StringBuilder - ' Msg.Append("El movimiento bancario quedó devuelto exitosamente.") - - ' If IdPolizaNueva > 0 Then Msg.AppendFormat("

    Ver Póliza de cancelación", IdPolizaNueva) - ' Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") - ' Else - ' If ObjAC IsNot Nothing Then ObjAC.RollBack() - ' Banc.RollBack() - ' Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError) - ' End If - - ' If ObjAC IsNot Nothing Then ObjAC.Dispose() - ' Banc.Dispose() - - 'End Sub - Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click If CveIECancelado > 0 Then Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia) @@ -4438,6 +3730,19 @@ Partial Class Bancos_IE End Sub + Private Sub CargaFolioAdicional() + If UsuarioActual.CveEmpresa = 140 Then ' cuando es egreso por comrpobar + Dim ObjFolios As New ClsGralFolios + If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'")) + If DT.Rows.Count > 0 Then + TxtFolio.Text = "DPA-" & DT.Rows(0)("FActual").ToString + End If + ObjFolios.Dispose() + End If + End If + End Sub + #Region " IMPRIMIR " Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click If CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa) @@ -5661,10 +4966,7 @@ Partial Class Bancos_IE End If End If - Banco.IniciaTransacSQL() - - If Banco.GeneraTimbrePago(CveIE, -1, UsuarioActual) Then If Banco.Mensaje = "" Then Banco.Commit() @@ -5675,7 +4977,6 @@ Partial Class Bancos_IE Str.AppendFormat("{1}   {2}
    ", CveIE, Folio, DdlCliente.SelectedText.ToString()) MandaCorreo(Banco.ComplementoSerieFolio, CorreoCobranzaCliente) End If - Else Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", Folio, Banco.Mensaje) Banco.RollBack() @@ -6378,11 +5679,25 @@ Partial Class Bancos_IE End If - - - - - End Sub + + Protected Sub LnkDesconciliar_Click(sender As Object, e As EventArgs) + Dim ObjIE As New ClsBancos() + ObjIE.IniciaTransacSQL() + Dim OcurrioError As Boolean = False + + If Not ObjIE.UpdateBancos_IEConciliado(False, MinFecha, 0, -1, UsuarioActual.CveUsuario, CveIE) Then + OcurrioError = True + End If + If OcurrioError Then + ObjIE.RollBack() + Alert("No se pudo realizar la desconciliación ", TipoMensaje.MsgAdvertencia) + Else + ObjIE.Commit() + Alert("Los movimientos se desconciliarion correctamente.", TipoMensaje.MsgInformacion) + End If + + ObjIE.Dispose() + End Sub End Class \ No newline at end of file diff --git a/Bancos/OtrosIE.aspx.vb b/Bancos/OtrosIE.aspx.vb index 60cbe0e6a..263f9eff2 100644 --- a/Bancos/OtrosIE.aspx.vb +++ b/Bancos/OtrosIE.aspx.vb @@ -213,18 +213,18 @@ Partial Class Bancos_OtrosIE Cuenta = DRt("ConceptoContable").ToString 'SACO LA CLAVE DE LA CUENTA BANCARIA SELECCIONADO - If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables - Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) - If DRr IsNot Nothing Then - CodigoCuenta = DRr("CuentaFormato").ToString() - EsComodin = 1 - Else - Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - GvMov.DataBind() - UPMovs.Update() - Exit Sub - End If - End If + 'If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables + 'Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) + 'If DRr IsNot Nothing Then + ' CodigoCuenta = DRr("CuentaFormato").ToString() + ' EsComodin = 1 + 'Else + ' Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) + ' GvMov.DataBind() + ' UPMovs.Update() + ' Exit Sub + ' End If + 'End If Dim DR As DataRow = DTMovimientos.NewRow DR("IdCuenta") = 0 @@ -348,10 +348,10 @@ Partial Class Bancos_OtrosIE For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("TipoMovto").ToDouble > 0 Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal TipoMovto = True Else - Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal TipoMovto = False End If If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then @@ -362,7 +362,7 @@ Partial Class Bancos_OtrosIE End If If MsgError = "" Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCTextBox("TxtConcepto").Text, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, 0, -1, CveIE, + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then Else @@ -382,17 +382,15 @@ Partial Class Bancos_OtrosIE CveConcepto = 12 ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then CveConcepto = 13 - End If - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 30, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConcepto, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, 30, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, CveConcepto, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then End If Else MsgError = "No se pudo insertar el detalle de la póliza2" End If - End If @@ -463,27 +461,15 @@ Partial Class Bancos_OtrosIE 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria If DdlCuenta.SelectedValue.ToEntero > 0 Then - Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue) - If DR IsNot Nothing Then - TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("IdCtaContable").ToString).ToString - UPPDocumento.Update() - End If + 'Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue) + 'If DR IsNot Nothing Then + ' TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("Id0CtaContable").ToString).ToString + ' UPPDocumento.Update() + 'End If End If End Sub - Private Function IdCuentaBancos(CveCuenta As Integer) As Integer - Dim Retorno As Integer = 0 - 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria - If CveCuenta > 0 Then - Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta) - If drr IsNot Nothing Then - Retorno = drr("IdCtaContable").ToString.ToEntero - End If - End If - Return Retorno - End Function - Private Sub CargaCuentasDepositos(CveProveedor As Integer, CveCliente As Integer, CvePersonal As Integer, CveColectiva As Integer) DdlCuentaDeposito.Items.Clear() If DdlTipoTransaccion.SelectedValue = "2" Then @@ -641,12 +627,12 @@ Partial Class Bancos_OtrosIE Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1) If CveProveedor > 0 Then - Dim ObjCuentasBancos As New ClsGenerales + 'Dim ObjCuentasBancos As New ClsGenerales - If ObjCuentasBancos.GetCuentasDepositos() Then - GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados - End If - ObjCuentasBancos.Dispose() + 'If ObjCuentasBancos.GetCuentasDepositos() Then + ' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) = ObjCuentasBancos.DtResultados + 'End If + 'ObjCuentasBancos.Dispose() End If End Sub End Class diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 9189f9129..0330a0c2e 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -249,8 +249,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - // DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo - if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0) + // DEUDORES - DEUDORES COMPLEMENTARIAI + if (UsaComplementaria) { // DEUDOR COMPLEMENTARIA if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), 256, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 578ba7cf2..5288e77e4 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -2678,9 +2678,9 @@ Partial Class Bancos_PagoElectronico ' 'MOVIMIENTOS CHEQUE ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then ' Dim Textov33 As String = "" - ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - ' End If + ' strBody.AppendFormat("
    ") ' strBody.AppendFormat("
    ") diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 2aaa62828..96344b11f 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -3264,9 +3264,9 @@ Partial Class Bancos_PagoElectronicoGrupos ' 'MOVIMIENTOS CHEQUE ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then ' Dim Textov33 As String = "" - ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - ' End If + ' strBody.AppendFormat("
    ") ' strBody.AppendFormat("
    ") diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 0b2fbc06f..b1ff1319a 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -203,8 +203,6 @@ Partial Class Bancos_PolizaCheque Private Sub CargaPlantillas(TipoPlantilla As Integer) - - DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) DdlPlantilla.DataBind() @@ -247,7 +245,7 @@ Partial Class Bancos_PolizaCheque Private Sub CargaFolio() If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion() If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then - If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "") = "Ing" Then + If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "").ToString = "Ing" Then Dim ObjFolios As New ClsGralFolios If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'")) @@ -263,9 +261,7 @@ Partial Class Bancos_PolizaCheque Banco.Dispose() TxtFolio.Text = Folio.ToString End If - End If - - + End If Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero @@ -368,10 +364,10 @@ Partial Class Bancos_PolizaCheque For Each drt As DataRow In Dt.Rows Cuenta = drt("ConceptoContable").ToString - IdCuenta = 0 - CveCuenta = 0 - CodigoCuenta = "" - NombreCuenta = "" + IdCuenta = drt("IdCtaContable").ToString.ToEntero + CveCuenta = drt("CveCuenta").ToString.ToEntero + CodigoCuenta = drt("Codigo").ToString + NombreCuenta = drt("Nombre").ToString If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) @@ -435,15 +431,15 @@ Partial Class Bancos_PolizaCheque Dim dr As DataRow = DtMovimientos.NewRow If drt("CveNomina").ToString.ToEntero > 0 Then - Dim drr As DataRow = Nothing ' DtCuentasContables.FiltroPrimero(String.Format("Id={0}", If(ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa), ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero, -1))) + Dim drr As DataRow = Nothing ' DtCuentasContables.FiltroPrimero(String.Format("Id={0}", If(ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa), ObjConta.DtResultados.Rows(0)("Id0CtaContable").ToString.ToEntero, -1))) TipoMovto = 0 CveConcepto = 31 IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1) CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") - Concepto = drt("NombreCompleto") + Concepto = drt("NombreCompleto").ToString dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2) - TotalProceso += drt("Total").ToString.ToDecimal.FormatoNumero(2) + TotalProceso += drt("Total").ToString.ToDecimal Else TipoMovto = 1 CveConcepto = 30 Concepto = "Pago Nómina" @@ -510,8 +506,8 @@ Partial Class Bancos_PolizaCheque 'Encabezado Dim Identificador As String = "1" - Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count, 7, "0") - Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0") + Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count.ToString, 7, "0"c) + Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0"c) Dim RegistrosInc As String = "0000000" Dim ImporteRegistrosInc As String = "000000000000000" Dim ContratoPagel As String = "000000000000" @@ -527,7 +523,7 @@ Partial Class Bancos_PolizaCheque 'Detalle For Each dr As DataRow In DtMovimientos.FiltraParametros("CvePersonal > 0").Rows - TextoCompleto += GeneraLineaLayout(dr("CvePersonal"), dr("Cargo"), dr("Concepto"), ObjPersonal) + vbNewLine + TextoCompleto += GeneraLineaLayout(dr("CvePersonal").ToString.ToEntero, dr("Cargo").ToString, dr("Concepto").ToString, ObjPersonal) + vbNewLine Next 'CreaArchivo() @@ -547,7 +543,7 @@ Partial Class Bancos_PolizaCheque Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3) Dim PlazaDestino As String = "000" Dim NumeroCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("CuentaBancaria").ToString, 16) - Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0") + Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0"c) Dim EstadoPago As String = "0000000" Dim DescripcionPago As String = GeneraCampo(Concepto, 80) Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40) @@ -721,8 +717,6 @@ Partial Class Bancos_PolizaCheque CveProveedorSeleccionado = DdlProveedores.txtValue.Value.ToEntero End If - - If DdlCuenta.SelectedValue.ToEntero <= 0 Then If UsuarioActual.CveEmpresa <> 126 Then Alert("Seleccione la Cuenta Bancaria", TipoMensaje.MsgAdvertencia) @@ -730,15 +724,12 @@ Partial Class Bancos_PolizaCheque Exit Sub End If End If - - For Each Gvr As GridViewRow In GvMov.Rows TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal Next - For Each Gvr As GridViewRow In GvMov.Rows If Gvr.DataKey("CveConcepto").ToEntero = 30 Then @@ -753,8 +744,7 @@ Partial Class Bancos_PolizaCheque If Not ValidaConcepto30 Then Alert("El importe no coincide con el concepto de bancos.", TipoMensaje.MsgAdvertencia) Exit Sub - End If - + End If Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos Dim filemove As String = "" @@ -767,14 +757,10 @@ Partial Class Bancos_PolizaCheque If TotalCargos = TotalAbonos Then Dim ObjIE As New ClsBancos() - Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) + Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) Dim IDPoliza As Integer = 0 Dim CveIE As Integer Dim MsgError As String = "" - Dim idCuentaContabilizacion As Long = 1 - - If MsgError = "" Then @@ -791,28 +777,26 @@ Partial Class Bancos_PolizaCheque CveMoneda = dr("CveMoneda").ToString.ToEntero End If - Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1) + Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal, 1D) Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza) CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PaguesA, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE > 0 Then 'inserto los movimientos de la conta para abonar al saldo - - If CvePrePoliza > 0 Then Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " - Dim Importe As Double = 0 + Dim Importe As Decimal = 0 Dim TipoMovto As Boolean = False 'inserto las compras que voy a pagar For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("TipoMovto").ToDouble > 0 Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal TipoMovto = True Else - Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal TipoMovto = False End If @@ -834,11 +818,11 @@ Partial Class Bancos_PolizaCheque ElseIf CveMoneda > 1 Then Importe = Importe * TC End If - + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, Referencia, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then MsgError = "no se pudo insertar el detalle de la póliza2" - End If - + End If + If gvr.DataKey("CveConcepto").ToEntero = 30 Then If CveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then 'Agregamos complementaria @@ -847,31 +831,18 @@ Partial Class Bancos_PolizaCheque End If End If End If - End If End If - - Next If TxtAjuste.Text.ToDecimal <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtAjuste.Text.ToDecimal, TxtAjuste.Text.ToDecimal, 44, "", TxtObservaciones.Text, CveIE:=CveIE, TipoCambio:=TC) Then MsgError = "no se pudo insertar el detalle de la póliza2" End If - End If - - - If CvePeriodo > 0 Then - If Not ObjNom.UpdatePagoNomina(CvePeriodo, CveIE, CvePrePoliza, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo actualizar el periodo de la nómina" - End If - - End If - + End If Else MsgError = "No se pudo insertar la póliza" End If - Else MsgError = "No se insertó el encabezado" End If @@ -881,7 +852,7 @@ Partial Class Bancos_PolizaCheque End Try If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"PolizaCheque/Guardar Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If @@ -933,21 +904,17 @@ Partial Class Bancos_PolizaCheque Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "window.location.reload();") Else Alert(MsgError.ToString, TipoMensaje.MsgError) - ObjIE.RollBack() - + ObjIE.RollBack() End If Else Alert("Debe de llevar un importe", TipoMensaje.MsgAdvertencia) - End If - - + End If End If ObjIE.Dispose() - ObjMov.Dispose() - ObjNom.Dispose() + ObjMov.Dispose() Else Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 3a5a0685d..80d0624c6 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -300,7 +300,7 @@
    - @@ -371,7 +371,7 @@
    - diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index f42d31759..2a93043a1 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -222,7 +222,7 @@
    - @@ -293,7 +293,7 @@
    - diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index faac3c5d6..ffc69a6d8 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -134,15 +134,6 @@ Partial Class Bancos_PopIEVentas End Set End Property - Private Property MovimientoPagar As IEMovimiento - Get - Return CType(ViewState("MovimientoPagar"), IEMovimiento) - End Get - Set(value As IEMovimiento) - ViewState("MovimientoPagar") = value - End Set - End Property - Private Property VentaActual As Venta Get Return CType(ViewState("VentaActual"), Venta) @@ -316,7 +307,6 @@ Partial Class Bancos_PopIEVentas CveMoneda = 0 CveMonedaFiltros = 0 CveVenta = -1 - MovimientoPagar = Nothing ArrIE = New ArrayList() ArrIEFuncionariosEmpleados = New ArrayList() RFCCliente = "-1" @@ -498,17 +488,17 @@ Partial Class Bancos_PopIEVentas End If End If - MovimientoPagar = New IEMovimiento - MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal - MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal - MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal - MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal - MovimientoPagar.Total = dr("Total").ToString.ToDecimal - MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal - MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal - MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal + 'MovimientoPagar = New IEMovimiento + 'MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal + 'MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal + 'MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal + 'MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal + 'MovimientoPagar.Total = dr("Total").ToString.ToDecimal + 'MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal + 'MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal + 'MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal - Dim VentaActual As New Venta(UsuarioActual) + VentaActual = New Venta(UsuarioActual) VentaActual.CveVenta = pCveVenta VentaActual.Fecha = dr("Fecha").ToString.ToDate VentaActual.CveCliente = dr("CveCliente").ToString.ToEntero @@ -517,7 +507,7 @@ Partial Class Bancos_PopIEVentas VentaActual.SerieFolio = dr("SerieFolio").ToString VentaActual.ClienteNombre = NombreCliente VentaActual.TC = dr("TipoCambio").ToString.ToDecimal - VentaActual.Total = dr("Original").ToString.ToDecimal + VentaActual.Total = dr("Total").ToString.ToDecimal VentaActual.IVA = dr("IVA").ToString.ToDecimal VentaActual.IEPS = dr("IEPS").ToString.ToDecimal VentaActual.RetIVA = dr("RetIVA").ToString.ToDecimal @@ -1144,40 +1134,29 @@ Partial Class Bancos_PopIEVentas Dim MsgError As String = "" Dim CveConceptoPrePoliza As Integer = -1 - Dim CveConceptoPrePoliza2 As Integer = -1 - Dim CvePersonal As Integer = -1 Dim Inserta As Boolean = True Dim ImportePagado As Decimal = 0 - Dim TipoMovimiento As Boolean = False - Dim PorcentajePago As Decimal = 0 - Dim CveProveedor2 As Integer = -1 Dim Fecha As Date = TxtFechaDocumento.Text.Trim.ToDate - Dim CompraSaldo As Decimal = 0 If Not EmpresaPrueba Then CveIE = -1 Select Case RBLContado.SelectedValue Case "1" ' Bancos ImportePagado = If(DdlOtrosPagos.SelectedValue.ToEntero = 2, TxtTotal.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal) 'TxtImporte.Text.Trim.ToDecimal Fecha = TxtFechaDocumento.Text.Trim.ToDate - TipoMovimiento = True Case "2" 'FyE ImportePagado = TxtImporte.Text.Trim.ToDecimal Fecha = TxtFechaDocumento.Text.Trim.ToDate CveConceptoPrePoliza = 29 CveIE = -1 - TipoMovimiento = True Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString - CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero + 'CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero Case "3" 'Ingresos X Comprobar ImportePagado = TxtImporte.Text.Trim.ToDecimal Case "4" 'Deudores Diversos ImportePagado = TxtImporte.Text.Trim.ToDecimal - CveConceptoPrePoliza = 17 - CveConceptoPrePoliza2 = 37 CveIE = -1 Case "5" 'Compras ImportePagado = TxtImporte.Text.Trim.ToDecimal - CveProveedor2 = CveCliente CveIE = -1 Case Else ImportePagado = 0 @@ -1224,15 +1203,15 @@ Partial Class Bancos_PopIEVentas 'SE AGREGA DETALLE DE UNA VENTA If CveVenta > 0 Then - If MovimientoPagar IsNot Nothing Then + If VentaActual IsNot Nothing Then Dim tipoCambioPago As Decimal = 1 Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder Dim tFecha As Date = TxtFechaDocumento.Text.ToDate Dim Pago As New VentaPago Pago.Fecha = TxtFechaDocumento.Text.ToDate Pago.CveMonedaPago = CveMoneda + Pago.Referencia = VentaActual.SerieFolio If DdlOtrosPagos.SelectedValue = "2" Then ImportePagado = TxtImporte.Text.Trim.ToDecimal.RoundSQL - TxtComision.Text.ToDecimal Else @@ -1259,6 +1238,7 @@ Partial Class Bancos_PopIEVentas If CveIE > 0 Then If CveVenta > 0 Then Pago.ImportePago = ImportePagado + Pago.ImportePagoVenta = ImportePagado Pago.CveIE = CveIE Pago.TipoPago = "B" @@ -1273,19 +1253,19 @@ Partial Class Bancos_PopIEVentas Case "3" 'Ingresos x Comprobar If CveVenta > 0 Then CveConceptoPrePoliza = 2 - CveConceptoPrePoliza2 = 92 CveCliente = DdlIngreso.SelectedValue.ToEntero CveIE = -1 ImportePagado = TxtImporte.Text.Trim.ToDecimal Pago.ImportePago = ImportePagado Pago.TipoPago = "I" - Pago.FechaDocumentoRelacionado = Now 'FechaIngreso + For Each rw As GridViewRow In GvIngresos.Rows If rw.FCCheckBox("Chk").Checked Then CveIE = rw.DataKey("CveIE").ToEntero Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal + Pago.FechaDocumentoRelacionado = rw.DataKey("Fecha").ToDate If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal @@ -1301,8 +1281,7 @@ Partial Class Bancos_PopIEVentas If CveVenta > 0 Then ImportePagado = TxtImporte.Text.Trim.ToDecimal CveConceptoPrePoliza = 2 - CveConceptoPrePoliza2 = 43 - CveProveedor2 = DdlDeudor.SelectedValue.ToEntero + 'CveProveedor2 = DdlDeudor.SelectedValue.ToEntero CveIE = -1 If DdlDeudor.SelectedValue.ToEntero <= 0 Then Alert("Debe especificar el deudor.", TipoMensaje.MsgAdvertencia) @@ -1341,25 +1320,11 @@ Partial Class Bancos_PopIEVentas If MsgError = "" Then - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then + If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then If ObjMov.ValorPolizaDescuadre > 0 Then MsgError = ObjMov.MensajePolizaDescuadre End If End If - - ''Conta ContPAQ - 'If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - - ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - ' IdPoliza = ObjMov.ContaIdPoliza - ' ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) - ' Else - ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - ' End If - - 'End If - - Else MsgError = "No se pudo insertar la poliza detalle" End If @@ -1379,15 +1344,10 @@ Partial Class Bancos_PopIEVentas StrMsg.Append("El Documento se guardó correctamente.
    ") 'Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa) - '07-05-2018 - Timbra Complemento de pago Dim TextoComplementoPago As String = "" - If UsuarioActual.CveEmpresa = 119 Then - - StrMsg.AppendFormat("Folio {0}
    ", ObjIE.Folio) - - End If + StrMsg.AppendFormat("Folio {0}
    ", ObjIE.Folio) If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then Dim SeriesPago As New List(Of String) @@ -1395,9 +1355,7 @@ Partial Class Bancos_PopIEVentas Dim CveVentas As New List(Of Integer) CveVentas.Add(CveVenta) - TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago) - StrMsg.Append($"
    {TextoComplementoPago}") End If @@ -1419,8 +1377,6 @@ Partial Class Bancos_PopIEVentas ObjMov.Dispose() ObjCliente.Dispose() - 'CargaVenta(CveVenta) - 'UpDatosVenta.Update() End Sub Private Sub LimpiarTodo() diff --git a/Bancos/PopUpBuscarIE.aspx.vb b/Bancos/PopUpBuscarIE.aspx.vb index 90953e356..52515e79c 100644 --- a/Bancos/PopUpBuscarIE.aspx.vb +++ b/Bancos/PopUpBuscarIE.aspx.vb @@ -74,7 +74,7 @@ Partial Class Bancos_PopUpBuscarIE Dim ObjBancosIE As New ClsBancos If ObjBancosIE.GetBancosRepIE(-1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, - MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then + MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados) Else Alert("Ocurrió un error al consultar bancos", TipoMensaje.MsgError) diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index a72cf7068..ab7330f98 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -329,9 +329,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas //CONTABILIZA if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - //if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0) - //{ + { if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) { IDPoliza = ObjMov.ContaIdPoliza; @@ -367,14 +365,6 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas { archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero())); } - - //if (archivo.Length > 0) - //{ - // if (archivo.Exists) - // { - // Msg.AppendFormat(@"

    {1} ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem)); - // } - //} ObjIE.Commit(); @@ -617,9 +607,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas //CONTABILIZA if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - //if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0) - //{ + { if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) { IDPoliza = ObjMov.ContaIdPoliza; @@ -627,19 +615,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas else { Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - //} - //else - //{ - // if (IDCtaContablePrestamo < 1) - // { - // Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Acreedor es invalida", TipoMensaje.MsgAdvertencia); - // } - // if (IDCtaContableBancosPrestamo < 1) - // { - // Alert("No se puede contabilizar la Prepoliza debido a que la cuenta bancaria es invalida", TipoMensaje.MsgAdvertencia); - // } - //} + } } if (MsgError.Equals("")) diff --git a/Bancos/ProductosFinancieros.aspx b/Bancos/ProductosFinancieros.aspx index a1d9317e9..48312c21d 100644 --- a/Bancos/ProductosFinancieros.aspx +++ b/Bancos/ProductosFinancieros.aspx @@ -41,7 +41,7 @@
    - +
    diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb index fe23aa5fe..0be160c8b 100644 --- a/Bancos/ProductosFinancieros.aspx.vb +++ b/Bancos/ProductosFinancieros.aspx.vb @@ -296,14 +296,14 @@ Partial Class Bancos_ProductosFinancieros 'Variables de controles Dim Importe As Double = TxtImporte.Text.ToDouble Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero() - Dim Fecha = TxtFecha.Text.ToDate + Dim Fecha As Date = TxtFecha.Text.ToDate 'Variables de error - Dim ErrorTransaccion = False - Dim ErrorAC = False + Dim ErrorTransaccion As Boolean = False + Dim ErrorAC As Boolean = False - Dim CvePrePoliza = -1 - Dim IdPoliza = -1 + Dim CvePrePoliza As Integer = -1 + Dim IdPoliza As Integer = -1 Dim FolioPoliza As Integer = -1 Dim CveIE As Integer = -1 @@ -313,18 +313,18 @@ Partial Class Bancos_ProductosFinancieros End If 'OBTIENE LA CUENTA CONTABLE DEL BANCO - Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"}) - Dim CtaCuenta = -1 + Dim DtCuentas As DataTable = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"}) + Dim CtaCuenta As Integer = -1 If DtCuentas.Rows.Count = 1 Then - CtaCuenta = DtCuentas.Rows(0)("IdCtaContable").ToString.ToEntero + CtaCuenta = DtCuentas.Rows(0)("Id0CtaContable").ToString.ToEntero Else ErrorTransaccion = True End If If CveIE > 0 OrElse (DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0) Then - Dim CvePlantilaPoliza = DdlTipoMovimiento.SelectedValue.ToString.ToEntero + Dim CvePlantilaPoliza As Integer = DdlTipoMovimiento.SelectedValue.ToString.ToEntero Dim idCuentaContabilizacion As Long = 1 Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " Dim CuentasContablesInvalidas As New StringBuilder @@ -332,7 +332,7 @@ Partial Class Bancos_ProductosFinancieros If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantilaPoliza) Then For Each Row As DataRow In ObjMov.DtResultados.Rows - Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero + Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) Dim importeMovimiento As Decimal = 0 Dim FechaMovimiento As Date = Now @@ -363,7 +363,7 @@ Partial Class Bancos_ProductosFinancieros Next - If Not ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then + If Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then ErrorTransaccion = True End If diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index d097419c2..9d42267a6 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -346,11 +346,13 @@
    - +
    + +
    @@ -368,108 +370,131 @@ - - - - - - - - - - - Factura - - - - - <%----%> - - Aplica NC - - - - - - - - - - - Descripción - -   - - - - - Fecha Compra - - - - - - Vencimiento - - - - - - Días Vencidos - -   - - - - Monto Compra - -   - - - - Abonado - -   - - - - Saldo - -   - - - - Abonar - - - - <%-- --%> - - - - Comisión - - - - - - - - Auxiliar - - - - - - - - - + + + + <%-- 0 --%> + + + + + + + <%-- 1 --%> + + Factura + + + + + <%-- 2 --%> + + Aplica NC + + + + + <%-- 3 --%> + + + + + + <%-- 4 --%> + + Descripción + +   + + + + + <%-- 5 --%> + + Fecha Compra + + + + + <%-- 6 --%> + + Vencimiento + + + + + <%-- 7 --%> + + Días Vencidos + +   + + + + <%-- 8 --%> + + Monto Compra + +   + + + + <%-- 9 --%> + + Abonado + +   + + + + <%-- 10 --%> + + Saldo + +   + + + + <%-- 11 --%> + + % Desc. + + + + + + + <%-- 12 --%> + + Abonar + + + + + + <%-- 13 --%> + + Comisión + + + + + + + <%-- 14 --%> + + Auxiliar + + + + + + + + + @@ -700,5 +725,63 @@ } } + function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk,Text,Tipo) { + + let idTxtDescuento = TxtDescuento.id + let idTxtAbonar = TxtAbonar.id + + let descuentoValue = $("#" + idTxtDescuento).val().trim(); + let descuentoParts = descuentoValue.split('+'); + let abonarConDescuento = 0.0; + + + if (descuentoParts.length === 1) { + + + if (isNaN(parseFloat(descuentoParts[0])) || descuentoParts[0] == "0") { + $("#" + idTxtAbonar).val(saldo.toFixed(2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + + } else { + let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); + abonarConDescuento = saldo - descuento; + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2),2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + } + + } else if (descuentoParts.length === 2) { + + if (isNaN(parseFloat(descuentoParts[0]))) { + $("#" + idTxtAbonar).val(""); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + return; + } + + let descuento1 = saldo * (parseFloat(descuentoParts[0]) / 100); + + if (isNaN(parseFloat(descuentoParts[1]))) { + + let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); + abonarConDescuento = saldo - descuento; + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + return; + } + + let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); + abonarConDescuento = saldo - descuento; + + let abonarConDescuento2 = abonarConDescuento - (abonarConDescuento * (parseFloat(descuentoParts[1]) / 100)); + + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento2.toFixed(2), 2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + + + } else { + $("#" + idTxtAbonar).val(""); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + } + } + diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 60c465d59..7fc7abe47 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -4,7 +4,6 @@ Option Strict On Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms - Partial Class Bancos_ProveedoresAbonar Inherits ClsPaginas @@ -135,7 +134,6 @@ Partial Class Bancos_ProveedoresAbonar ViewState("CveProveedorSucursal") = value End Set End Property - Private Property PermiteModificarImporte As Boolean Get Return CType(ViewState("PermiteModificarImporte").ToString, Boolean) @@ -144,11 +142,6 @@ Partial Class Bancos_ProveedoresAbonar ViewState("PermiteModificarImporte") = value End Set End Property - Private ReadOnly Property IdCtaContComplementaria As Integer - Get - Return ViewState("IdCtaContComplementaria").ToString.ToEntero - End Get - End Property Private Property ComprobanteIE As String Get Return ViewState("ComprobanteIE").ToString @@ -321,6 +314,11 @@ Partial Class Bancos_ProveedoresAbonar LnkExcelSolicitud.Visible = True End If + If UsuarioActual.TienePermisoProceso(361) Then + 'GvCxP.Columns(11).Visible = True + chkaplicaDescuento.Visible = True + End If + End If End Sub @@ -506,6 +504,8 @@ Partial Class Bancos_ProveedoresAbonar e.Row.FCLiteral("LtlAux").Text = String.Format("Ir", e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveCompra")) e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1,'{2}',1);{3}", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), "El Importe no debe de exceder el saldo", FiltroInv)) + + If Not PermiteModificarImporte Then e.Row.FCTextBox("TxtAbonar").Enabled = False If e.Row.DBCampo("CveCompraNC").ToEntero > 0 Then e.Row.FCHyperLink("HplNC").Visible = True @@ -539,6 +539,10 @@ Partial Class Bancos_ProveedoresAbonar e.Row.FCCheckBox("Chk").Enabled = False End If + e.Row.FCTextBox("TxtDescuento").Attributes.Add("onkeyup", $"calculaDescuentoEscalonado({e.Row.DBCampo("Saldo")},{e.Row.FCTextBox("TxtDescuento").ClientID},{e.Row.FCTextBox("TxtAbonar").ClientID},{e.Row.FCCheckBox("Chk").ClientID},'El Importe no debe de exceder el saldo',1)") + Else + e.Row.FCTextBox("TxtDescuento").Visible = False + End If End If End Sub @@ -745,12 +749,10 @@ Partial Class Bancos_ProveedoresAbonar If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL) - If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then - MsgError = "Error al actualziar Cuanta Referencia y Concepto Deposito." + MsgError = "Error al actualizar cuenta Referencia y Concepto Deposito." End If End If - End If 'guardo el archivo @@ -834,6 +836,11 @@ Partial Class Bancos_ProveedoresAbonar Pago.ImportePago = tImporteMN If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then + Dim ObjCredito As New ClsBancos + If ObjCredito.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) Then + CveProveedor = ObjCredito.DtResultados.FiltroPrimeroValor("CveProveedor", "").ToEntero + End If + ObjCredito.Dispose() Dim Importe42 As Decimal = Pago.ImportePago tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42) @@ -846,8 +853,8 @@ Partial Class Bancos_ProveedoresAbonar Dim ImporteME As Decimal = 0 If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then - ImporteME = tImporteMN - tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL + ImporteME = tImporteMN + tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL End If If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then @@ -859,41 +866,7 @@ Partial Class Bancos_ProveedoresAbonar MsgError = "No se pudo insertar la póliza" End If End If - - 'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - ' 'fluctuación. - ' Dim TCPago = TxtTCDolares.Text.ToDecimal - - ' Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal) - - ' Dim DtPrePoliza As DataTable = Nothing - ' If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then - ' DtPrePoliza = ObjMov.DtResultados.Copy - ' End If - - ' Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0") - ' Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1") - ' Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1") - - ' DtPrePoliza.Dispose() - - ' ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria) - - ' If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then - ' 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA - ' If ImporteFluctuacion > 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then - ' MsgError = "Ocurrio un error al saldar el movimiento" - ' End If - ' ElseIf ImporteFluctuacion < 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then - ' MsgError = "Ocurrio un error al saldar el movimiento" - ' End If - ' End If - ' End If - 'End If - - End If + End If If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then If ObjMov.ValorPolizaDescuadre > 0 Then @@ -1394,12 +1367,12 @@ Partial Class Bancos_ProveedoresAbonar DdlProsepago.Visible = False TxtOtrosImportes.Visible = True TxtTotal.Visible = True - GvCxP.Columns(12).Visible = True + GvCxP.Columns(13).Visible = True Else DdlProsepago.Visible = False TxtOtrosImportes.Visible = False TxtTotal.Visible = False - GvCxP.Columns(12).Visible = False + GvCxP.Columns(13).Visible = False TxtOtrosImportes.Text = "" TxtTotal.Text = "" RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") @@ -1654,7 +1627,7 @@ Partial Class Bancos_ProveedoresAbonar params.Add(New ReportParameter("Importe", $"${StrImporte}")) params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text)) params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text)) - Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = "" + Dim Transferencia As String = "", Banco As String = "", CLABE As String = "", Cuenta As String = "", Correo As String = "" If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No" If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) @@ -1690,5 +1663,12 @@ Partial Class Bancos_ProveedoresAbonar End Sub + + Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs) + + GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked + UPCompras.Update() + + End Sub End Class diff --git a/Bancos/Reembolsos.aspx b/Bancos/Reembolsos.aspx index 680105dca..52d8d61d9 100644 --- a/Bancos/Reembolsos.aspx +++ b/Bancos/Reembolsos.aspx @@ -481,7 +481,7 @@ - + @@ -565,13 +565,7 @@ - - - IdCtaContProveedores - - - - + diff --git a/Bancos/Reembolsos.aspx.vb b/Bancos/Reembolsos.aspx.vb index 8ff5bedad..abdcb9314 100644 --- a/Bancos/Reembolsos.aspx.vb +++ b/Bancos/Reembolsos.aspx.vb @@ -26,14 +26,6 @@ Partial Class Bancos_Reembolsos ViewState("CveMoneda") = value End Set End Property - Private Property IdCuentaBancaria As Integer - Get - Return ViewState("IdCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("IdCuentaBancaria") = value - End Set - End Property Private Property Beneficiario As String Get Return ViewState("Beneficiario").ToString @@ -262,7 +254,6 @@ Partial Class Bancos_Reembolsos If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero - IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero End If If HdnTipoTransaccion.Value = "Egs" Then @@ -394,7 +385,6 @@ Partial Class Bancos_Reembolsos If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero - IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero End If ''AC - Poliza Vieja @@ -606,7 +596,7 @@ Partial Class Bancos_Reembolsos 'AFECTAR MATRIZ EGRESOS Total = gvr.FCTextBox("TxtAbonar").Text.ToDouble - If Not ObjAC.AddMovimiento(IDPolizaNueva, gvr.DataKey("IdCtaContProveedores").ToEntero, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For + If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For Else ErrorAC = True @@ -651,7 +641,7 @@ Partial Class Bancos_Reembolsos 'registro el movimiento en bancos y su comprobacion If GeneroCheque Then If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBeneficiario, False, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True - If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBancaria, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True + If Not ObjAC.AddMovimiento(IDPolizaVieja, 0, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True End If End If @@ -667,7 +657,7 @@ Partial Class Bancos_Reembolsos 'Poliza NUEVA If Not ErrorAC And IDPolizaNueva > 0 Then ConceptoRenglon = String.Format("Comprobación: {0}", Beneficiario) - If Not ObjAC.AddMovimiento(IDPolizaNueva, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True + If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True End If If Not ErrorAC And IDPolizaNueva > 0 Then @@ -775,7 +765,6 @@ Partial Class Bancos_Reembolsos If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero - IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero End If Else CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDouble, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -901,7 +890,7 @@ Partial Class Bancos_Reembolsos Next ConceptoRenglon = String.Format("Pagado: {0}", TxtAboneA.Text) - If Not ObjAC.AddMovimiento(IDPoliza, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then + If Not ObjAC.AddMovimiento(IDPoliza, 0, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True End If @@ -1142,11 +1131,6 @@ Partial Class Bancos_Reembolsos 'recargo la moneda con la que se va a pagar 'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue) - 'If dr IsNot Nothing Then - ' CveMoneda = dr("CveMoneda").ToString.ToEntero - ' IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - 'End If - 'If HdnTipoTransaccion.Value = "Egs" Then ' Dim Folio As Long ' Dim Banco As New ClsBancos diff --git a/Bancos/RegistroPagoIntermediario.aspx.vb b/Bancos/RegistroPagoIntermediario.aspx.vb index 150429bea..939ade0a5 100644 --- a/Bancos/RegistroPagoIntermediario.aspx.vb +++ b/Bancos/RegistroPagoIntermediario.aspx.vb @@ -177,7 +177,7 @@ Partial Class Bancos_PagosIntermediarios MsgError = "No se pudo insertar la póliza" End If - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then MsgError = "La suma de los importes no coinciden" End If diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index 15e89aa8f..c977428fc 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -102,7 +102,7 @@ Partial Class Bancos_RepCxCCliente End If End If - Dim CveSubProyecto As Integer = IIf(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1) + Dim CveSubProyecto As Integer = If(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1) If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red '"/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}&CveUsuario={6}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"), e.Row.DBCampo("CveUsuario") e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveCliente={0}&FechaI={1}&FechaF={2}&CveMoneda={3}&CveUsuario={4}&CveSubProyecto={5}&CveClienteSucursal={6}", e.Row.DBCampo("CveCliente"), e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveMoneda"), UsuarioActual.CveUsuario, CveSubProyecto, e.Row.DBCampo("CveClienteSucursal")) diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 1dbe8f95b..fbf30577c 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -300,7 +300,6 @@ Partial Class Bancos_RepEgresosSinComprobante Try For Each gr As GridViewRow In GvPersonal.Rows If gr.FCCheckBox("Chk").Checked Then - Dim IdCtaContPersonal As Integer = 0 Dim CveConceptoContable As Integer Dim TipoMovtoOtIngresos As Boolean = True Dim TipoMovtoConcepto As Boolean = False diff --git a/Bancos/RepIE.aspx b/Bancos/RepIE.aspx index d44810e5d..2b183db4a 100644 --- a/Bancos/RepIE.aspx +++ b/Bancos/RepIE.aspx @@ -272,12 +272,18 @@
    + +
    U. Registro
    - Abono en Cuenta: - + + +
    - +
    + Abono en Cuenta: + +
    Totalizar: diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 91c02b7ff..15ad4ecba 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -97,6 +97,8 @@ Partial Class Bancos_RepIE CargaMoneda() CargaTipoTransaccion("-1") CargaUsuarioConcilio() + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"}) + DdlUsuarioRegistro.databind txtFechaI.Text = Now.ToShortDateString DivDdlTarjeta.Visible = False @@ -139,9 +141,9 @@ Partial Class Bancos_RepIE FechaConciliadoI = If(IsDate(TxtFechaConciliadoI.Text.Trim()), TxtFechaConciliadoI.Text.ToDate, MinFecha) FechaConciliadoF = If(IsDate(TxtFechaConciliadoF.Text.Trim()), TxtFechaConciliadoF.Text.ToDate, MaxFecha) - Dim Importe = If(TxtImporteFiltro.Text = "", -1, TxtImporteFiltro.Text.ToDouble) - Dim Tipo = If(DdlTipo.SelectedItem.ToString = "Todos", "-1", DdlTipo.SelectedItem.ToString) - Dim Cuenta = If(DdlCuenta.SelectedValue.ToEntero = 0, -1, DdlCuenta.SelectedValue.ToEntero) + Dim Importe As Double = If(TxtImporteFiltro.Text = "", -1, TxtImporteFiltro.Text.ToDouble) + Dim Tipo As String = If(DdlTipo.SelectedItem.ToString = "Todos", "-1", DdlTipo.SelectedItem.ToString) + Dim Cuenta As Integer = If(DdlCuenta.SelectedValue.ToEntero = 0, -1, DdlCuenta.SelectedValue.ToEntero) If TxtPagueseA.Text <> "" Then PagueseA = String.Format("%{0}%", TxtPagueseA.Text) Else PagueseA = "-1" If TxtFolio.Text.Trim = "" Then Folio = "-1" Else Folio = String.Format("%{0}%", TxtFolio.Text.Trim) @@ -151,13 +153,13 @@ Partial Class Bancos_RepIE If ObjBancosIE.GetBancosRepIE(-1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero, If(ChkEsAbonoEnCuenta.Checked.ToEntero = 0, -1, 1), DdlConciliado.SelectedValue.ToEntero, DdlEstatusIE.SelectedValue.ToEntero, FechaI, FechaF, FechaAplicacionI, FechaAplicacionF, - FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then + FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, DdlUsuarioregistro.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjBancosIE.DtResultados DtDatos = ObjBancosIE.DtResultados End If If ChkTotalizar.Checked Then - Dim SaldoDolares = DtDatos.SUM("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now) + Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now).ToDecimal SaldoTotal.Text = DtDatos.SUM("ImporteMN").ToString.FormatoNumero '(DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero LtlSaldo.Text = DtDatos.SUM("Importe", "CveMoneda = 1").ToString.FormatoNumero LtlSaldoDolares.Text = DtDatos.SUM("Importe", "CveMoneda = 2").ToString.FormatoNumero @@ -198,7 +200,7 @@ Partial Class Bancos_RepIE ObjIE.IniciaTransacSQL() Dim OcurrioError As Boolean = False - Dim ErrorFecha = False + Dim ErrorFecha As Boolean = False Dim Fecha As Date Dim FolioError As String = "" Dim OtrosIngresos As Double = 0 @@ -264,8 +266,8 @@ Partial Class Bancos_RepIE Dim DtConciliaciones As DataTable Dim ObjBancos As New ClsBancos - Dim FechaI = txtFechaI.Text.ToDate - Dim FechaF = txtFechaF.Text.ToDate + Dim FechaI As Date = txtFechaI.Text.ToDate + Dim FechaF As Date = txtFechaF.Text.ToDate If ObjBancos.GetConciliacionesReporte(DdlCuenta.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CveEmpresa) Then DtConciliaciones = ObjBancos.DtResultados @@ -336,7 +338,7 @@ Partial Class Bancos_RepIE End If If TipoPagina = "Conciliaciones" Then - Dim TipoTrasaccion = If(e.Row.DBCampo("CveTipoTransaccion").ToEntero = 2 Or e.Row.DBCampo("CveTipoTransaccion").ToEntero = 8, True, False) + Dim TipoTrasaccion As Boolean = If(e.Row.DBCampo("CveTipoTransaccion").ToEntero = 2 Or e.Row.DBCampo("CveTipoTransaccion").ToEntero = 8, True, False) 'si no esta contabilizada le habilita la opcion, una vez contabilizada no se permite ajustar los movimientos Dim StrTxtObr As String = If(AceptaOtrosIngresos AndAlso e.Row.DBCampo("IdPoliza").ToEntero <= 0, e.Row.FCTextBox("TxtOtIng").ClientID, "null") e.Row.Cells(12).Visible = True diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 07f3fd648..1b4313d6a 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -329,11 +329,11 @@ Partial Class Bancos_RepProgramarRecursos If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1" If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" - If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text Else FechaIV = MinFecha - If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text Else FechaFV = MaxFecha + If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text.ToDate Else FechaIV = MinFecha + If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text.ToDate Else FechaFV = MaxFecha If DdlCodigoProgramacion.SelectedValue <> "-1" Then CodigoProg = DdlCodigoProgramacion.SelectedValue Else CodigoProg = "-1" - If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then + If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then DtDatos = Mov.DtResultados @@ -856,12 +856,17 @@ Partial Class Bancos_RepProgramarRecursos Programo = If(DdlUsuarioProgramo.SelectedValue = "-1", "", $" Autorizado Por: {DdlUsuarioProgramo.SelectedItem.Text}") End If + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0))) + params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0"))) params.Add(New ReportParameter("usuarioProgramo", UsuarioProgramo)) - params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue)) - params.Add(New ReportParameter("LogoUrl", String.Format("{0}/Empresas/{1}/Logo.png", Request.Url.AbsoluteUri.Replace(Request.Url.AbsolutePath, ""), UsuarioActual.CveEmpresa))) + params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue)) + + 'params.Add(New ReportParameter("LogoUrl", String.Format("{0}/Empresas/{1}/Logo.png", Request.Url.AbsoluteUri.Replace(Request.Url.AbsolutePath, ""), UsuarioActual.CveEmpresa))) + params.Add(New ReportParameter("LogoUrl", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString)) params.Add(New ReportParameter("AgrupadoPor", $"{Programo}{Proveedor}{Clasificacion}{AplicaNC}{TipoProv}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Moneda}{Registro}{Responsable}{Estatus}{Proyecto}{SubProyecto}{Comprobacion}")) @@ -918,7 +923,7 @@ Partial Class Bancos_RepProgramarRecursos End Sub Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged - If DdlUsuarioProgramo.SelectedValue > 0 Then + If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then Dim ObjMovimientos As New ClsMovimientos If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb index b4494650f..210523456 100644 --- a/Bancos/RepProveedoresPagos.aspx.vb +++ b/Bancos/RepProveedoresPagos.aspx.vb @@ -308,7 +308,7 @@ Partial Class Bancos_RepProveedoresPagos params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}")) - params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0))) + params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0"))) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato) @@ -320,7 +320,7 @@ Partial Class Bancos_RepProveedoresPagos End Sub Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged - If DdlUsuarioProgramo.SelectedValue > 0 Then + If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then Dim ObjMovimientos As New ClsMovimientos If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados diff --git a/Bancos/Transferencias.aspx b/Bancos/Transferencias.aspx index 701a2ed2c..d48cdc4c6 100644 --- a/Bancos/Transferencias.aspx +++ b/Bancos/Transferencias.aspx @@ -181,19 +181,19 @@
    - + - - + + - + - + - + diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index 2f3745c8a..3c9cabdea 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -1,6 +1,8 @@ Imports System.IO Imports Extensiones Imports System.Data +Imports System.Data.SqlClient +Imports System.ComponentModel.Design Partial Class Bancos_Transferencias Inherits ClsPaginas @@ -188,7 +190,7 @@ Partial Class Bancos_Transferencias Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click 'VALIDACIONES - Dim SumaImportesTarjeta As Decimal + Dim SumaImportesTarjeta As Decimal = 0D If GvTC.Visible Then For Each row As GridViewRow In GvTC.Rows SumaImportesTarjeta += row.FCTextBox("TxtAbono").Text.ToDecimal @@ -217,9 +219,9 @@ Partial Class Bancos_Transferencias Dim MsgError As String = "" - Dim ImporteDestino As Double = TxtImporte.Text.Trim.ToDouble - Dim ImporteMXOrigen As Double = TxtImporte.Text.Trim.ToDouble - Dim ImporteMXDestino As Double = TxtImporte.Text.Trim.ToDouble + Dim ImporteDestino As Decimal = TxtImporte.Text.Trim.ToDecimal + Dim ImporteMXOrigen As Decimal = TxtImporte.Text.Trim.ToDecimal + Dim ImporteMXDestino As Decimal = TxtImporte.Text.Trim.ToDecimal Dim ObjIE As New ClsBancos() Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) @@ -257,17 +259,17 @@ Partial Class Bancos_Transferencias If CveMonedaOrigen = 1 AndAlso CveMonedaDestino <> 1 Then 'pesos a otra moneda se divide - ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble / TxtTipoCambio.Text.ToDouble, 2) - ImporteMXDestino = TxtImporte.Text.Trim.ToDouble + ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal / TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXDestino = TxtImporte.Text.Trim.ToDecimal ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino = 1 Then 'de otra moneda a pesos se multiplica - ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) + ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino <> 1 Then - ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) + ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) End If If CveMonedaOrigen = 2 AndAlso CveMonedaDestino = 2 Then @@ -303,7 +305,11 @@ Partial Class Bancos_Transferencias End If CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + If Not chkMovimientoTarjeta.Checked Then + CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + End If + End If @@ -313,7 +319,7 @@ Partial Class Bancos_Transferencias CveIEDevolucion = DdlCajaChica.SelectedValue.ToEntero() End If - If (CveIE > 0 AndAlso CveIEDestino > 0) Then + If (CveIE > 0 AndAlso CveIEDestino > 0 Or CveIE > 0 AndAlso chkMovimientoTarjeta.Checked AndAlso SumaImportesTarjeta <> 0) Then If filemove <> "" Then filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) @@ -333,18 +339,18 @@ Partial Class Bancos_Transferencias Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, - TxtImporte.Text.ToDouble, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), 30, + TxtImporte.Text.ToDecimal, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDecimal, ImporteMXOrigen), 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE, - ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0), + ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDecimal * TC, 0), CveIEDevolucion:=CveIEDevolucion) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'Agregamos complementaria If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, - 0, (TxtImporte.Text.ToDouble * TC - TxtImporte.Text.ToDouble).RoundSQL, 204, + 0, (TxtImporte.Text.ToDecimal * TC - TxtImporte.Text.ToDecimal).RoundSQL, 204, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE, - ImporteME:=TxtImporte.Text.ToDouble, + ImporteME:=TxtImporte.Text.ToDecimal, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If @@ -354,13 +360,29 @@ Partial Class Bancos_Transferencias 'Agregamos los Movimientos de Acreedor cuando es tarjeta If GvTC.Visible Then + AlertaGlobal.Append("

    Recepción:
    ") + For Each row As GridViewRow In GvTC.Rows - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, row.FCTextBox("TxtAbono").Text.ToDouble, 41, + FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL()) + + If FolioDestino.Trim.Length = 0 Then + MsgError = "Ocurrio un error al obtener el folio destino." + Exit For + End If + + CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIEDestino) Then + MsgError = "Ocurrio un error al ingresar la prepoliza" + Exit For + Else + AlertaGlobal.AppendFormat("{1}
    ", CveIEDestino, FolioDestino) + 'FolioDestino = (FolioDestino.ToLong + 1).ToString End If + Next 'Agregamos la contraria a bancos cuando es cuenta @@ -387,7 +409,7 @@ Partial Class Bancos_Transferencias If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then MsgError = ObjMov.MensajePolizaDescuadre GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") @@ -405,7 +427,7 @@ Partial Class Bancos_Transferencias 'Conta ContPAQ If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then + If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text.ToDate) Then If ObjMov.ContaIdPoliza > 0 Then AlertaGlobal.AppendFormat("

    Ver Póliza", ObjMov.ContaIdPoliza) End If @@ -418,7 +440,12 @@ Partial Class Bancos_Transferencias AlertaGlobal.AppendFormat("

    Movimiento: {1}", CveIE, FolioOrigen) End If If CveIEDestino > 0 AndAlso CveIE <> CveIEDestino Then - AlertaGlobal.AppendFormat("

    Recepción: {1}", CveIEDestino, FolioDestino) + + If Not chkMovimientoTarjeta.Checked Then + AlertaGlobal.AppendFormat("

    Recepción: {1}", CveIEDestino, FolioDestino) + End If + + End If Else MsgError = "no se pudo insertar el detalle de la póliza2" @@ -576,7 +603,7 @@ Partial Class Bancos_Transferencias Private Sub MandaCorreo() 'Dim ArrayAttachment As New List(Of String) Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto") <> "" Then + If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto").ToString <> "" Then ' ArrayAttachment.Add(ViewState("Adjunto").ToString) ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ViewState("Adjunto").ToString}) End If @@ -591,19 +618,34 @@ Partial Class Bancos_Transferencias TxtFolio.Text = GetFolio(CveCuenta, CveTipoTransaccion) End Sub - Private Function GetFolio(CveCuenta As Integer, CveTipoTransaccion As Integer) As String + Private Function GetFolio(CveCuenta As Integer, CveTipoTransaccion As Integer, Optional ByRef TransaccioSQL As SqlTransaction = Nothing) As String + Dim Folio As String - Dim Banco As New ClsBancos + Dim Banco As ClsBancos + + If TransaccioSQL Is Nothing Then + Banco = New ClsBancos + Else + Banco = New ClsBancos(TransaccioSQL) + End If + Folio = Banco.GetNextFolio(CveCuenta, CveTipoTransaccion).ToString - Banco.Dispose() + + If TransaccioSQL Is Nothing Then + Banco.Dispose() + End If + + Return Folio + End Function Private Sub chkMovimientoTarjeta_CheckedChanged(sender As Object, e As EventArgs) Handles chkMovimientoTarjeta.CheckedChanged + If chkMovimientoTarjeta.Checked Then - If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then - CargaGridTarjetas() - End If + 'If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then + CargaGridTarjetas() + 'End If Else GvTC.Visible = False UpGvTC.Update() diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx index 0ad2b82df..1c2590f53 100644 --- a/CGame/CatHuerta.aspx +++ b/CGame/CatHuerta.aspx @@ -71,7 +71,7 @@ - + @@ -81,7 +81,7 @@ - + @@ -91,7 +91,7 @@ - + @@ -116,13 +116,13 @@ - - + + - + - + @@ -162,7 +162,7 @@
    -
    +
    diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index 249a0a419..4a287efb1 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -1029,7 +1029,16 @@
  • +
  • + + +
  • + <%--
    diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index ceb7351e6..0962862e8 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -346,6 +346,7 @@ public partial class CRM_Acercamiento : ClsPaginas } CargaCheckLis(); + LtlTareaNueva.Text = String.Format(" Tarea", CveAcercamiento); } CargarPS(); //BtnGuardarAcercamiento.Visible = true; diff --git a/CRM/CatMetas.aspx.vb b/CRM/CatMetas.aspx.vb index 6696eacc3..0c7e96214 100644 --- a/CRM/CatMetas.aspx.vb +++ b/CRM/CatMetas.aspx.vb @@ -1,6 +1,4 @@ -Imports System.Data -Imports Extensiones - +Imports Extensiones Partial Class CRM_CatMetas Inherits ClsPaginas @@ -116,22 +114,17 @@ Partial Class CRM_CatMetas Dim ObjCRM As New ClsCRM Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CveMeta = GvRow.DataKey("CveMeta") - + CveMeta = GvRow.DataKey("CveMeta").ToEntero If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then CargadatosGvMeta() - Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion) Else Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError) End If ObjCRM.Dispose() - CargadatosGvMeta() - CveMeta = -1 - End Sub Public Sub Edit_ClickMeta(sender As Object, e As EventArgs) @@ -141,20 +134,14 @@ Partial Class CRM_CatMetas LtlTituloModalMeta.Text = "Editar Meta" BtnAgregarMetaModal.Text = "Actualizar" Actualizar = True - - CveMeta = GvRow.DataKey("CveMeta") - - + CveMeta = GvRow.DataKey("CveMeta").ToEntero DdlVendedor.Items.Clear() DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1) DdlVendedor.DataBind() DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero) - txtFechaI.Text = GvRow.DataKey("FechaI") txtFechaF.Text = GvRow.DataKey("FechaF") - - TxtNumMeta.Text = GvRow.DataKey("NumMeta").ToEntero - + TxtNumMeta.Text = GvRow.DataKey("NumMeta") TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00") UpModalMeta.Update() diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index 49c73ae37..5a1c61648 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -11,6 +11,7 @@ using iTextSharp.text.pdf; using iTextSharp.text; using ADSNetLibrary.SIGAPI.Models.CRM.Request; using ADSNetLibrary.SIGAPI.Services.CRM; +using System.Activities.Statements; public partial class CRM_RepAcercamientosProcesos : ClsPaginas { @@ -336,20 +337,34 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas private PdfPTable crearHeader() { - //Imagen de la empresa - iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png"); - pic.ScalePercent(20f); - BaseColor bordesBlancos = new BaseColor(255, 255, 255); PdfPTable tableHeader = new PdfPTable(7); tableHeader.WidthPercentage = 100f; - PdfPCell imageCell = new PdfPCell(pic); - imageCell.UseVariableBorders = true; - imageCell.BorderColor = bordesBlancos; - imageCell.Colspan = 2; - imageCell.Rowspan = 2; - tableHeader.AddCell(imageCell); + + if (File.Exists(($"{UsuarioActual.Empresa.Ruta}/Logo.png"))) { + iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png"); + pic.ScalePercent(20f); + + PdfPCell imageCell = new PdfPCell(pic); + imageCell.UseVariableBorders = true; + imageCell.BorderColor = bordesBlancos; + imageCell.Colspan = 2; + imageCell.Rowspan = 2; + tableHeader.AddCell(imageCell); + } + else + { + PdfPCell imageCell = new PdfPCell(); + imageCell.UseVariableBorders = true; + imageCell.BorderColor = bordesBlancos; + imageCell.Colspan = 2; + imageCell.Rowspan = 2; + tableHeader.AddCell(imageCell); + } + //Imagen de la empresa + + PdfPCell empresaCell = new PdfPCell(new Phrase(UsuarioActual.Empresa.Empresa)); empresaCell.UseVariableBorders = true; diff --git a/Compras/CatEstatusFactura.aspx.vb b/Compras/CatEstatusFactura.aspx.vb index def133ac0..12668a36e 100644 --- a/Compras/CatEstatusFactura.aspx.vb +++ b/Compras/CatEstatusFactura.aspx.vb @@ -36,7 +36,7 @@ Partial Class Compras_CatEstatusFactura Alert("El Nuevo Estatus de Factura se guardó correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjEstatusFactura.UpdateEstatusFactura(TxtEstatus.Text, ChkEstatus.Checked, HdnID.Value) Then + If ObjEstatusFactura.UpdateEstatusFactura(TxtEstatus.Text, ChkEstatus.Checked, HdnID.Value.ToEntero) Then GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados Alert("El Nuevo Estatus de Factura se Actualizó correctamente.", TipoMensaje.MsgInformacion) TxtClave.Text = "" diff --git a/Compras/CatPaqueteriasGuiasTipo.aspx.vb b/Compras/CatPaqueteriasGuiasTipo.aspx.vb index b606e5df0..5437ff7c9 100644 --- a/Compras/CatPaqueteriasGuiasTipo.aspx.vb +++ b/Compras/CatPaqueteriasGuiasTipo.aspx.vb @@ -63,7 +63,7 @@ Partial Class Comp_CatPaqueteriasGuiasTipo Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar TxtPaqueteria.Text = GvRow.DataKey("PaqueteriaGuiaTipo") - CvePaqueteriaGuiaTipo = GvRow.DataKey("CvePaqueteriaGuiaTipo") + CvePaqueteriaGuiaTipo = GvRow.DataKey("CvePaqueteriaGuiaTipo").toentero UpModalTiposD.Update() RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7960d2da9..7a342327b 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -38,22 +38,21 @@
  • Costo Indirecto/Importaciones
  • - +
  • - +
  • - - +
  • Descontabilizar @@ -69,7 +68,7 @@
  • Pagar
  • - +
  • <%----%> @@ -77,9 +76,7 @@
  • - - - +
  • @@ -322,7 +319,7 @@
    Descripción:
    - +
    @@ -2562,7 +2559,7 @@

    - +

    @@ -3152,7 +3149,7 @@
    - +
    @@ -6479,11 +6476,11 @@ }); - //Cancelar Compra + <%-- //Cancelar Compra function ShowDivCancelarCompra() { $('#<%= TxtFechaCancelacion.ClientID%>').val($get("TxtFecha").value); $('#DivCancelarCompra').modal(); - } + }--%> function HideDivCancelarCompra() { $('#DivCancelarCompra').modal('hide'); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4e68296a1..16b31667c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10,13 +10,12 @@ Imports System.Threading.Tasks Imports Newtonsoft.Json Imports Extensiones Imports MoreLinq +Imports Profact.TimbraCFDI40 Partial Class Compras_Compras Inherits ClsPaginas - - #Region "Propiedades" 'Local @@ -255,6 +254,7 @@ Partial Class Compras_Compras Return ViewState("NombreProveedor").ToString End Get End Property + Private Property IdPoliza As Integer Get Return ViewState("IdPoliza").ToString.ToEntero @@ -693,9 +693,8 @@ Partial Class Compras_Compras Private Property Fecha As String Private Property SubTotal As Decimal Private Property Total As Decimal = 0 - - - + Private Property RetISRResico As Boolean = False + Private Property RetIVAFlete As Boolean = False Private Property Descuentos As Decimal = 0 Private Property Amortizaciones As Decimal = 0 Private Property EmisorRFC As String @@ -810,12 +809,22 @@ Partial Class Compras_Compras End Set End Property - Private Property RFCProv As String + Private Property RFCProveedor As String Get - Return IfNull(ViewState("RFCProv"), "").ToString + Return IfNull(ViewState("RFCProveedor"), "").ToString End Get Set(value As String) - ViewState("RFCProv") = value + ViewState("RFCProveedor") = value + End Set + End Property + + + Private Property CveRegimenFiscalProveedor As Integer + Get + Return IfNull(ViewState("CveRegimenFiscalProveedor"), -1).ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveRegimenFiscalProveedor") = value End Set End Property @@ -1069,6 +1078,18 @@ Partial Class Compras_Compras End Set End Property + Public Property FechaCancelacionMovimiento As Date + Get + If ViewState("FechaCancelacionMovimiento") Is Nothing Then + ViewState("FechaCancelacionMovimiento") = MinFecha + End If + Return ViewState("FechaCancelacionMovimiento").ToString.ToDateTime + End Get + Set(value As Date) + ViewState("FechaCancelacionMovimiento") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") @@ -1078,7 +1099,7 @@ Partial Class Compras_Compras Modalidad = "" Version = "4.0" CveMetodoPago = -1 - RFCProv = "" + RFCProveedor = "" CargaDdlTipoGasto() CreaTmpAcarreos() EsContado = False @@ -1165,6 +1186,9 @@ Partial Class Compras_Compras 'LbTotalPorDevengar.Attributes.Add("OnInnerTextChanged", "TotalDevendar();") 'Mensaje temporalca + If UsuarioActual.Empresa.Funcionalidad(155) <> "" Then liFletesImportaciones.Visible = True ' FNC Importaciones + If UsuarioActual.Empresa.Funcionalidad(158) <> "" Then liFletesImportaciones.Visible = True ' FNC Indirectos + RBLPago.Visible = True If UsuarioActual.Empresa.UsaAC Then RBLPago.Items.RemoveAt(2) 'Elimina Reembolso cuando es AC @@ -1197,7 +1221,7 @@ Partial Class Compras_Compras DdlSubProyecto.AutoPostBack = True GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing - Dim extrafiltro = "Estatus=1 AND " + Dim extrafiltro As String = "Estatus=1 AND " If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then extrafiltro = "" End If @@ -1386,8 +1410,6 @@ Partial Class Compras_Compras BtnGuardar.ToolTip = "Obliga a seleccionar una Orden de compra para su registro." End If - - 'Valida Proceso 119 para ROL Administrador de obra - Bloquea Contado If UsuarioActual.TienePermisoProceso(119) Then RBLPago.Items(1).Enabled = False @@ -1421,8 +1443,6 @@ Partial Class Compras_Compras End If CargaFletes() - - If UsuarioActual.Empresa.CvePlataforma = 2 Then TabActivosFijos.Visible = False VerRefacturacion.Visible = False @@ -1568,9 +1588,7 @@ Partial Class Compras_Compras Dim RFC As String = "" If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador - ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero Dim XMLDoc As New XmlDocument @@ -1600,8 +1618,6 @@ Partial Class Compras_Compras If UsuarioActual.CveEmpresa < 2 Then Valida.EsValida = 1 End If - - EnListadoEFOS = Valida.EnListaEFOS If EnListadoEFOS Then @@ -1631,10 +1647,8 @@ Partial Class Compras_Compras Else Alert("Los servicios de validacion de facturas del SAT, no están activados.", TipoMensaje.ToastError, "", 0) End If - UpPSS.Update() - If Validada And Not EnListadoEFOS Then Try XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "")) @@ -1650,23 +1664,19 @@ Partial Class Compras_Compras CreaDTConceptos() CargaComprobanteXML(XMLDoc) - If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then + If NuevaValidacionXML = 1 OrElse (Version = "3.3" OrElse Version = "4.0") Then Dim Xml As String Dim nodo As XmlNode = XMLDoc.DocumentElement - Dim Version = ValorXML(nodo, "version") - - + Dim Version As String = ValorXML(nodo, "version") Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) - If Version = "3.2" Then Prefijo = "cfd" cfdVer = "http://www.sat.gob.mx/cfd/2" ElseIf Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" - Else ' se considera que es la version 4.0 cfdVer = "http://www.sat.gob.mx/cfd/4" End If @@ -1691,10 +1701,8 @@ Partial Class Compras_Compras Xml = Xml.Replace("
    ", "") 'salto de linea html Xml = Xml.Replace("<br>", "") Xml = Xml.Replace("<", "") - Xml = Xml.Replace("&", "") 'adicional, si hay otros - If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then TmpDT = ObjeFacturas.DtResultados TmpDT.Columns.Add("CveSATPSActualizado") @@ -1712,10 +1720,14 @@ Partial Class Compras_Compras ProductosCodigoSATNoPermitidos.AppendFormat("{0}
    ", drr("PS")) Next + If TmpDT.MAX("RetISRPorcentaje").ToDecimal = 0.0125 Then RetISRResico = True + If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True + If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:

    {0}", ProductosCodigoSATNoPermitidos.ToString) Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) - BtnGuardar.Enabled = False + If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.CveUsuario <> 1721 Then BtnGuardar.Enabled = False '' solo se activa para el usuario Sara.JAM + BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante." End If End If @@ -1757,7 +1769,7 @@ Partial Class Compras_Compras CargaPSAlias() RFC = dr("RFCDe").ToString - RFCProv = RFC + RFCProveedor = RFC TxtFecha.Text = dr("FechaFactura").ToString.ToDate.ToShortDateString TxtSerie.Text = dr("Serie").ToString TxtFolio.Text = dr("Folio").ToString @@ -1823,30 +1835,21 @@ Partial Class Compras_Compras TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) End If TmpDT.AcceptChanges() - ValidacionesTotalesXml() - Else - 'PRUEBA 'http://rm/Compras/Compras.aspx?CveFactura=122518 Emp: 48 'tTotal = Math.Round(SubTotal2 + IVA - RetencionIVA - RetencionISR + IEPS + OtrosImpuestos, 2) HdnCompraSaldo.Value = Total.ToString CompraSaldo = Total - Dim AjustaUltimoConcepto = False + Dim AjustaUltimoConcepto As Boolean = False 'AGREGA IEPS COMO CONCEPTO If TrasladoIEPS > 0 And UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then AgregarConceptoIEPS(TrasladoIEPS, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero) ' TrasladoIEPS = 0 End If - - 'AGREGA IEPS COMO IMPORTE GENERAL - 'If TrasladoIEPS > 0 And Not UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then - ' IEPS = TrasladoIEPS - 'End If - 'en otro impuesto lo esta registrando en ajuste en automatico If OtrosImpuestos > 0 Then AjustaUltimoConcepto = True @@ -1862,12 +1865,9 @@ Partial Class Compras_Compras End If Dim SubTotalReal As Decimal = 0 - SubTotalReal = Math.Round(Total + RetencionISR + RetencionIVA - IVA + Descuentos - TrasladoIEPS, 2) ' NO se incluye otros impuestos para ajustar esa cifra - Dim DiferenciaTotales As Decimal = SubTotalReal - Math.Round(SubTotalConceptos, 2) - If DiferenciaTotales <> 0 Then 'Verificamos IEPS y Otros Impuestos 'restricccion general, que si el subtotal de los conceptos no cuadra con Total + RetISR + RetIVA - IVA <> SubTotalConeptos, ajuste al final @@ -1892,12 +1892,9 @@ Partial Class Compras_Compras Row.FCLinkButton("imgE").Visible = False Row.FCLinkButton("imgD").Visible = False Next - End If - End If TrasladoIEPS = 0 : OtrosImpuestos = 0 : SubTotal2 = SubTotal - Else PnlAjusteProductos.Visible = True Dim Porcentaje As Double = If(SubTotalConceptos > 0, Math.Round((SubTotalConceptos - SubTotalReal) / SubTotalConceptos * 100, 2), 0) @@ -1912,8 +1909,6 @@ Partial Class Compras_Compras Next End If End If - - 'Si no hay diferencias pero tenemos descuento, se ofrece la opcion para ajustar el gasto If Descuentos > 0 Then @@ -1933,7 +1928,6 @@ Partial Class Compras_Compras Row.FCLinkButton("imgD").Visible = False Next End If - End If SubTotal2 = SubTotalReal - Descuentos @@ -1946,7 +1940,6 @@ Partial Class Compras_Compras Alert(Msg, TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False End If - 'AJUSTAMOS SUBTOTAL EN CASO DE SER DIFERENTE AL SUBTOTAL2 DEL XML (TOTAL - IVA) If SubTotal2 <> SubTotal Then SubTotal = SubTotalConceptos @@ -1978,16 +1971,10 @@ Partial Class Compras_Compras If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True HFDiferenciaCompra.Value = TxtTotal.Text - - 'LblRetIVA.Text = TmpDT.MAX("PorcentajeRetIVA").ToString '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%" - 'LblRetISR.Text = TmpDT.MAX("PorcentajeRetISR").ToString '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3) - 'ASIGNA VALORES ORIGINALES PARA GUARDAR AsignaValoresOriginales(SubTotal, SubTotal2, IVA, RetencionIVA, RetencionISR, Total) End If - - TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda)) @@ -2003,7 +1990,6 @@ Partial Class Compras_Compras LblMoneda.Text = Moneda LblMoneda.ForeColor = Drawing.Color.Red End If - End If If DdlMoneda.SelectedValue.ToEntero > 1 Then @@ -2017,7 +2003,6 @@ Partial Class Compras_Compras Else TxtFecha.Attributes.Add("onblur", "CambiaFechaTC();") End If - End If If TipoCambio > 0 And DdlMoneda.SelectedValue.ToEntero > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4")) @@ -2031,14 +2016,11 @@ Partial Class Compras_Compras Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If - End If - Else Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If - 'GvPS.DataSource = 'DTConceptos 'GvPS.DataBind() End If @@ -2072,8 +2054,7 @@ Partial Class Compras_Compras If Cambio Then DdlRetIVAConcepto.Items.Clear() - - If RFCProv.Length = 13 Then ' personal fisica + If RFCProveedor.Length = 13 Then ' personal fisica If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) End If @@ -2083,14 +2064,20 @@ Partial Class Compras_Compras End If If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) - DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + If UsuarioActual.CveEmpresa <> 119 Then + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) - DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5")) - DdlRetIVAConcepto.Items.Add(New ListItem("General", "6")) + + End If + If RetIVAFlete Then + DdlRetIVAConcepto.SelectedValueExist(2) End If - ElseIf RFCProv.Length = 12 Then ' persona moral + ElseIf RFCProveedor.Length = 12 Then ' persona moral If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) End If @@ -2099,17 +2086,24 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) - DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If UsuarioActual.CveEmpresa <> 119 Then + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + End If + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) - DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5")) - DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) + End If + If RetIVAFlete Then + + DdlRetIVAConcepto.SelectedValueExist(3) + End If + End If End If UpPS.Update() - End Sub Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1) If TrRetISR.Visible Then @@ -2120,22 +2114,23 @@ Partial Class Compras_Compras If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End If If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End If - If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros - DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If UsuarioActual.CveEmpresa <> 119 Then + DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) + DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) + End If End If - - + If RetISRResico Then + DdlRetISRConcepto.Items.Insert(0, New ListItem("Resico", "3")) + DdlRetISRConcepto.SelectedValueExist(3) + End If End If UpPS.Update() End Sub @@ -2147,14 +2142,14 @@ Partial Class Compras_Compras End If Dim Msg As String = "" - Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2) - Dim DescuentosTemp = TmpDT.SUM("Descuento") - Dim Subtotal2Temp = TmpDT.SUM("Total") - Dim IVATemp = TmpDT.SUM("IVA") - Dim IEPSTemp = TmpDT.SUM("IEPSPS") - Dim RetIVATemp = TmpDT.SUM("RetIVA") - Dim RetISRTemp = TmpDT.SUM("RetISR") - Dim TotalTemp As Decimal = (Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones).ToDecimal + Dim SubtotalTemp As Decimal = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUMD("Descuento") + Math.Round(TmpDT.SUMD("Amortizacion")), 2) + Dim DescuentosTemp As Decimal = TmpDT.SUMD("Descuento") + Dim Subtotal2Temp As Decimal = TmpDT.SUMD("Total") + Dim IVATemp As Decimal = TmpDT.SUMD("IVA") + Dim IEPSTemp As Decimal = TmpDT.SUMD("IEPSPS") + Dim RetIVATemp As Decimal = TmpDT.SUMD("RetIVA") + Dim RetISRTemp As Decimal = TmpDT.SUMD("RetISR") + Dim TotalTemp As Decimal = (Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones) If Math.Abs(Math.Round(DescuentosTemp, 6) - Math.Round(Descuentos, 6)) > 0.01 Then @@ -2499,9 +2494,12 @@ Partial Class Compras_Compras 'primero se asigna la moneda, para que dentro del proveedor carge los anticipos solo de esa moneda DdlProveedor.Visible = False HplProveedor.Visible = True + If dr("CveRetIVAConcepto").ToString.Contiene("2", "3") Then RetIVAFlete = True + If dr("CveRetISRConcepto").ToString.Contiene("3") Then RetISRResico = True CargaProveedor(CveProveedor, "-1") DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString) + DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString) CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1) CveRetISRConceptoOriginal = If(dr("CveRetISRConcepto").ToString.ToEntero > 0, dr("CveRetISRConcepto").ToString.ToEntero, -1) @@ -2514,7 +2512,7 @@ Partial Class Compras_Compras TrRembolsoUpdate.Visible = True TrRembolsoNumero.Visible = True - Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") + Dim DtPersonal As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlRembolsoPersonal.DataSource = DtPersonal DdlRembolsoPersonal.Items.Insert(0, New ListItem("Sin Seleccionar", "-1")) DdlRembolsoPersonal.DataBind() @@ -2544,7 +2542,7 @@ Partial Class Compras_Compras VisualizaEstatusCompraSaldo(dr("TipoDocto").ToString, dr("Saldo").ToString.ToDecimal, dr("Total").ToString.ToDecimal) If dr("IdPoliza").ToString.ToEntero > 0 Then HplCompraContabilizada.Text = "Si" - HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) + If UsuarioActual.Empresa.TipoContabilidad = 2 Then HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) LblCompraEstatus.ForeColor = Drawing.Color.Navy trContabilizada.Visible = True If UsuarioActual.TienePermisoProceso(107) Then BtnDescontabilizar.Visible = True @@ -2794,8 +2792,6 @@ Partial Class Compras_Compras If DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then DdlRetISRConcepto.Enabled = True End If - - End If BtnGuardar.Visible = False @@ -2811,7 +2807,6 @@ Partial Class Compras_Compras TxtOtrosImpuestos.ReadOnly = True TxtTotal.ReadOnly = True - 'CargaLeyendasFiscales ViewState("CompraFolio") = TxtFolio.Text.Trim @@ -2832,11 +2827,10 @@ Partial Class Compras_Compras End If End If - 'VINCULACIÓN OC - NUEVA DICIEMBRE 2015 If dr("OCVinculada").ToString() <> "" Then Dim DtOCs As New DataTable - Dim OCS = "", CveOCS = "" + Dim OCS As String = "", CveOCS As String = "" DtOCs.Columns.Add("FolioOC", GetType(Integer)) DtOCs.Columns.Add("CveOrdenCompra", GetType(Integer)) @@ -2844,7 +2838,7 @@ Partial Class Compras_Compras For Each drt As DataRow In TmpDT.Rows If drt("FolioOC").ToString <> "" Then - Dim DrOC = DtOCs.NewRow + Dim DrOC As DataRow = DtOCs.NewRow DrOC("FolioOC") = drt("FolioOC").ToString DrOC("CveOrdenCompra") = drt("CveOrdenCompra").ToString DtOCs.Rows.Add(DrOC) @@ -3056,7 +3050,7 @@ Partial Class Compras_Compras End Sub Private Sub CargarAlmacen() - Dim DtAlmacenes = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") + Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") If DdlTipoCompra.SelectedValue = "10" Then ddlAlmacenAdd.DataSource = DtAlmacenes.FiltraParametros("Modalidad = 0") @@ -3232,7 +3226,6 @@ Partial Class Compras_Compras CveTipoConcepto = ObjProveedor.CveTipoProveedor ViewState("NombreProveedor") = ObjProveedor.RazonSocial - HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString If ObjProveedor.EditarFolioDuplicado Then @@ -3287,10 +3280,9 @@ Partial Class Compras_Compras ViewState("CveProveedor") = ObjProveedor.CveProveedor HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString - RFCProv = ObjProveedor.RFC - CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) - CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + RFCProveedor = ObjProveedor.RFC + CveRegimenFiscalProveedor = ObjProveedor.CveRegimenFiscal If CveFactura > 0 Then If RetIVAOriginal > 0 Then @@ -3299,34 +3291,31 @@ Partial Class Compras_Compras If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales End If - - If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes - - If RFCProv.Length = 13 Then + If RetIVAFlete Then '4 Fletes + If RFCProveedor.Length = 13 Then DdlRetIVAConcepto.SelectedValueExist("2") Else DdlRetIVAConcepto.SelectedValueExist("3") End If End If - End If If RetISROriginal > 0 Then - Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales DdlRetISRConcepto.SelectedValueExist("1") End If 'permitido en un margen de 1% a 2% - If (CalRetISRPor).RoundSQL(4) = 0.0125 OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza + If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza DdlRetISRConcepto.SelectedValueExist("3") End If - End If - End If + CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + LbAgregar.Enabled = True UpPSS.Update() UpPS.Update() @@ -3370,8 +3359,6 @@ Partial Class Compras_Compras End If - - Else Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) End If @@ -3456,17 +3443,12 @@ Partial Class Compras_Compras End If Next Next - - DdlPSAlias2.DataSource = DTTemp DdlPSAlias2.DataBind() - Else DdlPSAlias2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DdlPSAlias2.DataBind() End If - - End If End Sub @@ -3513,7 +3495,7 @@ Partial Class Compras_Compras Dim tPSDescripcion As String = "-" Dim PSS As String = "" Dim Obs As String = "" - Dim SubTotalTemp = 0.0D + Dim SubTotalTemp As Decimal = 0.0D Dim IVA As Decimal = 0 Dim IEPS As Decimal = 0 Dim RetISR As Decimal = 0 @@ -3522,15 +3504,15 @@ Partial Class Compras_Compras Dim PorcentajeIEPS As Decimal = 0 Dim PorcentajeRetISR As Decimal = 0 Dim PorcentajeRetIVA As Decimal = 0 - Dim DtTemporalGuardados = New DataTable + Dim DtTemporalGuardados As DataTable = New DataTable DtTemporalGuardados.Columns.Add("Contador", GetType(Integer)) DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer)) 'GLOBALS - Dim DtUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).AsEnumerable - Dim DtUMAlias = GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa).AsEnumerable - Dim DtPS = GlobalDTPS(UsuarioActual.CveEmpresa).AsEnumerable - Dim DtPSAlias = GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa).AsEnumerable + Dim DtUM As EnumerableRowCollection(Of DataRow) = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).AsEnumerable + Dim DtUMAlias As EnumerableRowCollection(Of DataRow) = GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa).AsEnumerable + Dim DtPS As EnumerableRowCollection(Of DataRow) = GlobalDTPS(UsuarioActual.CveEmpresa).AsEnumerable + Dim DtPSAlias As EnumerableRowCollection(Of DataRow) = GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa).AsEnumerable Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim nodo As XmlNode = XMLDoc.DocumentElement @@ -3677,7 +3659,7 @@ Partial Class Compras_Compras If Version = "3.3" Or Version = "4.0" Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then 'OBTENER TRASLADOS POR DETALLES - Dim ContadorTraslado = 0 + Dim ContadorTraslado As Integer = 0 Dim nodosConceptosTraslado As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces) For Each nodeTraslado As XmlNode In nodosConceptosTraslado @@ -3716,7 +3698,7 @@ Partial Class Compras_Compras Next 'OBTENER RETENCIONES POR DETALLES - Dim ContadorRetenciones = 0 + Dim ContadorRetenciones As Integer = 0 Dim nodosConceptosRetenciones As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces) For Each nodeRetencion As XmlNode In nodosConceptosRetenciones @@ -3731,10 +3713,12 @@ Partial Class Compras_Compras Dr("Tipo") = 2 DtTemporalGuardados.Rows.Add(Dr) DtTemporalGuardados.AcceptChanges() + If PorcentajeRetISR = 0.0125 Then RetISRResico = True Exit For ElseIf ValorXML(nodeRetencion, "Impuesto") = "002" Then RetIVA = ValorXML(nodeRetencion, "Importe").Trim.ToDecimal PorcentajeRetIVA = ValorXML(nodeRetencion, "TasaOCuota").Trim.ToDecimal + If PorcentajeRetIVA = 0.04 Then RetIVAFlete = True Dim Dr As DataRow Dr = DtTemporalGuardados.NewRow() Dr("Contador") = ContadorRetenciones @@ -3755,7 +3739,7 @@ Partial Class Compras_Compras If Version = "3.2" Then Try If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then - Dim ContadorTraslado = 0 + Dim ContadorTraslado As Integer = 0 Dim nodosConceptosTraslado As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces) For Each nodeTraslado As XmlNode In nodosConceptosTraslado @@ -4164,8 +4148,8 @@ Partial Class Compras_Compras End If End If - Dim TotalPorDevengar = Math.Round(TxtTotal.Text.ToDouble, 2) - Dim TotalDetalle = 0.0 + Dim TotalPorDevengar As Decimal = Math.Round(TxtTotal.Text.ToDecimal, 2) + Dim TotalDetalle As Decimal = 0 Dim RequiereCentroCosto As Boolean = False 'If Not (UsuarioActual.Empresa.Funcionalidad(102) = "") Then @@ -4293,7 +4277,7 @@ Partial Class Compras_Compras 'OBJETOS PROVISIONALES Dim UM As New ClsUnidadesMedida Dim PSS As New ClsProductosServicios - Dim Correcto = True + Dim Correcto As Boolean = True For Each Row As DataRow In TmpDT.Rows @@ -4394,9 +4378,6 @@ Partial Class Compras_Compras '------------------TERMINA VALIDACIONES------------------ - - - 'si hay necesidad de actualizar el globaldtps If RegeneraPS Then 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) @@ -4462,12 +4443,12 @@ Partial Class Compras_Compras Dim ErrorMovtosIE As Boolean = False Dim ErrorMovInv As Boolean Dim ErrorMovDev As Boolean = False - Dim ErrorOC = False + Dim ErrorOC As Boolean = False Dim TieneError As Boolean = False Dim ErrorAC As Boolean = False Dim ErrorAF As Boolean = False Dim ErrorReembolso As Boolean = False - Dim ErrorBitacora = False + Dim ErrorBitacora As Boolean = False Dim ErrorAddAcarreos As Boolean = False Dim ErrorCreditosCompra As Boolean = False Dim ErrorOtrosGastos As Boolean = False @@ -4480,11 +4461,10 @@ Partial Class Compras_Compras Dim PolizaFolio As Integer = 0 Dim CvePrePoliza As Integer Dim ImporteCompra As Decimal = TxtTotal.Text.ToDecimal - Dim MultiplicadorNC = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) + Dim MultiplicadorNC As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) Dim CveMovimientoInventario As Integer = -1 Dim IVA As Decimal = 1.16D Dim ListaMovimientosAlmacen As New List(Of Integer) - Dim Devolucion As MMensajeDevolucion = Nothing Dim ErrorCreditoCapitalIntres As Boolean = False @@ -4493,7 +4473,7 @@ Partial Class Compras_Compras If ChkProgramarPago.Checked Then CveEstatusFactura = 2 End If - Dim EntregaDirecta = False + Dim EntregaDirecta As Boolean = False Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim) Dim EsImportacion As Boolean = chkImportacion.Checked 'funcion para empresas llanteras @@ -4566,7 +4546,7 @@ Partial Class Compras_Compras If Not ErrorMovtosIE Then 'REEMBOLSOS NO USA AC - Dim NumeroReembolso = "-1" + Dim NumeroReembolso As String = "-1" If TxtNumeroReembolso IsNot Nothing And RBLPago.SelectedValue = "3" Then NumeroReembolso = TxtNumeroReembolso.Text @@ -4598,7 +4578,7 @@ Partial Class Compras_Compras 'METODO DE PREPOLIZA DE ALMACEN If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then - Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal + Dim ImporteAlmacen As Decimal = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If ImporteAlmacen > 0 Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If (CveImportacion > 0 Or CveFlete > 0) Then @@ -4645,10 +4625,9 @@ Partial Class Compras_Compras If (tNoDeducible > 0) Then tNoDeducible = If(TmpDT.MIN("NoDeducible") = "False", 2, 1) End If - - If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.Todecimal, TxtDescuento.Text.Todecimal, - LblAmortizacion.Text.Todecimal, TxtIVA.Text.Todecimal, TxtRetIVA.Text.Todecimal, TxtRetISR.Text.Todecimal, TxtIEPS.Text.Todecimal, TxtOtrosImpuestos.Text.Todecimal, - TxtRedondeo.Text.Todecimal, TxtTotal.Text.Todecimal, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura, + If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDecimal, TxtDescuento.Text.ToDecimal, + LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal, TxtRetISR.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtOtrosImpuestos.Text.ToDecimal, + TxtRedondeo.Text.ToDecimal, TxtTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen, CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=tNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, @@ -4665,8 +4644,8 @@ Partial Class Compras_Compras End If Dim ErrorDetalles As Boolean = False ' Dim IDPoliza As Integer - Dim IDPolizaComprometido = 0 - Dim ErrorComprometido = False + Dim IDPolizaComprometido As Integer = 0 + Dim ErrorComprometido As Boolean = False Dim CompraActual As New Compra CompraActual.CveCompra = ObjCompras.CveCompra @@ -4783,13 +4762,6 @@ Partial Class Compras_Compras 'INVENTARIOS EN AC Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) - Dim CtaAlmacen As Integer - If ContadorInventario > 0 Then - Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero)) - If drr IsNot Nothing Then - CtaAlmacen = drr("IdCtaContable").ToString.ToEntero - End If - End If Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal Dim ipresup As Integer = 0 @@ -4898,12 +4870,13 @@ Partial Class Compras_Compras End If If ContadorInventario > 0 Then - CuentaMatrizAlmacen = CtaAlmacen + + ' CuentaMatrizAlmacen = CtaAlmacen ElseIf grp.CveActivoFijo > 0 Then - Dim CtaAF = -1 - Dim AF = "" - Dim CuentaInicial = -1 + Dim CtaAF As Integer = -1 + Dim AF As String = "" + Dim CuentaInicial As Integer = -1 If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then CtaAF = ObjAF.Cuenta @@ -4926,7 +4899,7 @@ Partial Class Compras_Compras If drCuenta IsNot Nothing Then ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nula") CuentaAbono = drCuenta("Id").ToString.ToEntero - Dim FolioAF = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString + Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono) ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario) @@ -5042,7 +5015,7 @@ Partial Class Compras_Compras End If ''EMPIEZA: INSERTA DETALLES DE LA COMPRA - Dim indiceTR = 0 + Dim indiceTR As Integer = 0 Dim Cont As Integer = 0 For Each Row As DataRow In TmpDT.Rows Dim TipoRecepcion As Integer = -1 @@ -5056,8 +5029,8 @@ Partial Class Compras_Compras End If End If - Dim CvePersonal = -1 - Dim Referencia = "" + Dim CvePersonal As Integer = -1 + Dim Referencia As String = "" If GvPersonal.Rows.Count > Cont Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero @@ -5066,10 +5039,10 @@ Partial Class Compras_Compras Cont = Cont + 1 'Si es AF-INSUMO se guarda CveAF en CompraDetalle - Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1) + Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1) 'Si es AF-COMPRA se guarda CveAF en la Columna CveAFCompra - Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1) + Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1) 'AGREGA COMPRA DETALLE If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, @@ -5089,7 +5062,6 @@ Partial Class Compras_Compras If Row("EntregaDirecta").ToString.ToEntero > 0 Then EntregaDirecta = True End If - Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0) TmpDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle @@ -5104,7 +5076,7 @@ Partial Class Compras_Compras 'Vincula Vales If IdVale.Count > 0 Then - For Each cve In IdVale + For Each cve As Integer In IdVale If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then ErrorAF = True Exit For @@ -5198,12 +5170,12 @@ Partial Class Compras_Compras x = x + 1 Next - Dim cvemovimientosalida = 0 - Dim cvemovimientoentrada = 0 - Dim cvemovimientosalidagasto = 0 - Dim folio = 0 + Dim cvemovimientosalida As Integer = 0 + Dim cvemovimientoentrada As Integer = 0 + Dim cvemovimientosalidagasto As Integer = 0 + Dim folio As Integer = 0 Dim fecha As Date = TxtFecha.Text.ToDate - Dim indice = 0 + Dim indice As Integer = 0 Dim importeconcepto As Decimal = 0 Dim listalmacenes = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList @@ -5285,8 +5257,8 @@ Partial Class Compras_Compras Next Dim i As Integer = 0 - Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList - Dim indice = 0 + Dim ListAlmacenes As List(Of Integer) = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList + Dim indice As Integer = 0 Dim ImporteConcepto As Decimal = 0 Dim tCveFolioGarantia As Integer = -1 Dim CveConceptoMovimiento As Integer = 2 @@ -5501,7 +5473,7 @@ Partial Class Compras_Compras Dim CveCreditoDetalleTemp As Integer = GvRow.DataKey("CveCreditoDetalle").ToEntero Dim CveCreditoTemp As Integer = GvRow.DataKey("CveCredito").ToEntero - Dim EstusTemp = GvRow.DataKey("Estatus").ToEntero + Dim EstusTemp As Integer = GvRow.DataKey("Estatus").ToEntero ' Dim ImporteOpcionCompra As Decimal = GvRow.DataKey("ImporteOpcionCompra").ToDecimal Dim Marcador As Decimal = GvRow.DataKey("Marcador").ToEntero Dim CreditoEstatus As Integer = -1 @@ -5579,12 +5551,10 @@ Partial Class Compras_Compras Dim tipoCambioActual As Decimal Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " Dim idCuentaContabilizacion As Long = 1 - Dim CveCuentaContabilizacion As Long = 1 Dim FechaMovimiento As Date = TxtFecha.Text.ToDate Dim DT As DataTable = Nothing Dim CuentasContablesInvalidas As New StringBuilder Dim ConceptoPersonal As String = "" - Dim IdCtaIVAXAcreditar As Integer = 0 Dim GuardoConcepto18 As Boolean = False 'Bancos (30) @@ -5744,6 +5714,9 @@ Partial Class Compras_Compras End Select End If + + + importeMovimiento = importePagoProv If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then importeMovimiento = importeMovimiento / TipoCambioCompra @@ -5771,58 +5744,58 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If - 'daskldaskldmaskldanmlksd - If importeMovimiento <> 0 Then - For Each gvRowCredito As GridViewRow In GvCreditos.Rows - Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal)) - Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario + 'If importeMovimiento <> 0 Then + For Each gvRowCredito As GridViewRow In GvCreditos.Rows - Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero + Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal)) + Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario - Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal - Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero - Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero - Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero + Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero - If ImportePagoCredito > 0 Then - Dim Pago As New CompraPago - Pago.ImportePago = ImportePagoCredito - Pago.CveIE = CveIECredito - Pago.CveMonedaPago = 1 - Pago.CveCompraAmortizacion = -1 - Pago.CveProveedor = CveProveedor - Pago.CveCreditoDetalle = CveCreditoDetalleTemp - Pago.TipoPago = "Egsc" + Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal + Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero + Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero + Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero - If OtrosGastosIngresosCredito <> 0 Then - Pago.OtroGastoIngreso = OtrosGastosIngresosCredito + If ImportePagoCredito > 0 Then + Dim Pago As New CompraPago + Pago.ImportePago = ImportePagoCredito + Pago.CveIE = CveIECredito + Pago.CveMonedaPago = 1 + Pago.CveCompraAmortizacion = -1 + Pago.CveProveedor = CveProveedor + Pago.CveCreditoDetalle = CveCreditoDetalleTemp + Pago.TipoPago = "Egsc" + + If OtrosGastosIngresosCredito <> 0 Then + Pago.OtroGastoIngreso = OtrosGastosIngresosCredito + End If + + ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + + If ErrorCreditosCompra Then + Exit For + End If + + Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total + + If ImporteDifCredito > 0 Then + + ' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual + Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True End If - ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) - - If ErrorCreditosCompra Then - Exit For - End If - - Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total - - If ImporteDifCredito > 0 Then - - ' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual - Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - End If - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True End If End If - Next - End If + End If + Next + 'End If End If importeMovimiento = 0 : importeMN = 0 If TipoCambioCompra > 1 AndAlso DdlMoneda.SelectedValue.ToEntero <> 1 Then Concepto += $" TC{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}" @@ -5879,7 +5852,14 @@ Partial Class Compras_Compras PorcentajeImpuesto = PorcentajeIVA If chkImportacion.Checked Then - ConceptoContable = 287 + If UsuarioActual.CveEmpresa = 119 Then 'solo si tene rfc Generico extranjero es considerado en importación + If RFCProveedor = "XEXX010101000" Then + ConceptoContable = 287 + End If + Else + ConceptoContable = 287 + End If + End If 'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito @@ -6031,7 +6011,7 @@ Partial Class Compras_Compras importeMovimiento = 0 'COSTO ALMACEN - Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) + Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa) If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN @@ -6103,9 +6083,9 @@ Partial Class Compras_Compras importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And (ISNULL(CveTipoPS,0) = 2 Or (ISNULL(CveTipoPS,0) = 1 And ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - Dim ConceptoContabilizacion = 205 - Dim ConceptoContabilizacionME = -1 - Dim ConceptoContabilizacionMEComp = -1 + Dim ConceptoContabilizacion As Integer = 205 + Dim ConceptoContabilizacionME As Integer = -1 + Dim ConceptoContabilizacionMEComp As Integer = -1 If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then ConceptoContabilizacion = CveConceptoContableAlmacen @@ -6146,7 +6126,7 @@ Partial Class Compras_Compras 'If importeMovimiento <> 0 Then Select Case ConceptoContabilizacion Case 176 - Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D + Dim SumatoriaOCINV As Decimal = 0.0D, Importe176 As Decimal = 0.0D, ImporteME176 As Decimal = 0.0D, ImporteMN176 As Decimal = 0.0D, Importe228 As Decimal = 0.0D, ImporteME228 As Decimal = 0.0D, ImporteMN228 As Decimal = 0.0D, Importe229 As Decimal = 0.0D, ImporteME229 As Decimal = 0.0D, ImporteMN229 As Decimal = 0.0D, ImporteCI176 As Decimal = 0.0D Dim SumatoriaInventario As Decimal = 0 Dim TCO As Decimal = 1 For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows @@ -6205,7 +6185,7 @@ Partial Class Compras_Compras ' se abona el costo, cambiamos su naturaleza 'SumatoriaOCINV = -SumatoriaOCINV - Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero + Dim CveClasificacionCostoOC As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero If CveSubProyecto69 <= 0 Then @@ -6277,7 +6257,7 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'no es necesario, ya se está interpretandoe l usado como producto - Dim ConceptoContabilizacionNC = 225 + Dim ConceptoContabilizacionNC As Integer = 225 Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim CveMovimientoDevolucion As Integer = -1 @@ -6324,10 +6304,10 @@ Partial Class Compras_Compras Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) - importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL + importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL ImporteTransito += importeMNTemp 'se registra por cada compra relacionada - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -6342,18 +6322,18 @@ Partial Class Compras_Compras 'la diferencia se va aplicar sobre los If diferenciaTransito <> 0 Then - Dim tCveCon As Integer = 65 - If diferenciaTransito < 0 Then - tCveCon = 64 - End If - diferenciaTransito = Math.Abs(diferenciaTransito) + Dim tCveCon As Integer = 65 + If diferenciaTransito < 0 Then + tCveCon = 64 + End If + diferenciaTransito = Math.Abs(diferenciaTransito) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(tCveCon = 64, True, False), diferenciaTransito, diferenciaTransito, tCveCon, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=1, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then ErrorPrepoliza = True End If End If - Else - Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion + Else + Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion If TotalRealDevolucion <> 0 Then If Math.Abs(DiferenciaDevolucion) > 0 Then @@ -6430,7 +6410,7 @@ Partial Class Compras_Compras DT = DT.FiltraParametros("ISNULL(CveTipoPS,0) <> 2") End If - Dim DTDistinct = DT.Copy + Dim DTDistinct As DataTable = DT.Copy If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then For Each drowdis As DataRow In DTDistinct.Rows If drowdis("CveTipoGasto").ToString = "" Then @@ -6624,7 +6604,7 @@ Partial Class Compras_Compras 'AMORTIZACIÓN EN EL REGISTRO For Each Gvr As GridViewRow In GvFacturaNC.Rows If Gvr.FCCheckBox("ChkFacturaNC").Checked Then - Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal + Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim Pago As New CompraPago Pago.ImportePago = importeMovimientoNC @@ -6665,8 +6645,8 @@ Partial Class Compras_Compras For Each Gvr As GridViewRow In GvFacturaNC.Rows If Gvr.FCCheckBox("ChkFacturaNC").Checked Then 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) - Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal - Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador + Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal + Dim importeMNNC As Decimal = importeMovimientoNC * tipoCambioActual * Multiplicador If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, importeMNNC, 272, Referencia, Concepto, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, importeMNNC, 60, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -6707,7 +6687,7 @@ Partial Class Compras_Compras If ArrAnticipos.Count > 0 Then - Dim PorcentajeImpuestoAnticipo = PorcentajeIVA + Dim PorcentajeImpuestoAnticipo As Decimal = PorcentajeIVA For Each Ant As Compras_Compras.Anticipos In ArrAnticipos @@ -6740,9 +6720,9 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then - Dim importeMovimientoNC = Ant.Importe - Dim importeMNNC = 0.0D - Dim TipoCambioNC = Ant.TCCompra + Dim importeMovimientoNC As Decimal = Ant.Importe + Dim importeMNNC As Decimal = 0.0D + Dim TipoCambioNC As Decimal = Ant.TCCompra importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 60, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then @@ -6793,9 +6773,9 @@ Partial Class Compras_Compras End If ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then - Dim importeMovimientoNC = Ant.Importe - Dim importeMNNC = 0.0D - Dim TipoCambioNC = Ant.TCCompra + Dim importeMovimientoNC As Decimal = Ant.Importe + Dim importeMNNC As Decimal = 0.0D + Dim TipoCambioNC As Decimal = Ant.TCCompra importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 265, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then @@ -7071,7 +7051,7 @@ Partial Class Compras_Compras End If 'CREDITO COMPRA - Dim CvePrePolizaCredito = 0 + Dim CvePrePolizaCredito As Integer = 0 If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then @@ -7094,8 +7074,8 @@ Partial Class Compras_Compras If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then ErrorCreditosCompra = True End If Else @@ -7209,7 +7189,6 @@ Partial Class Compras_Compras ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) End If - End If 'AJUSTA POLIZA @@ -7221,13 +7200,13 @@ Partial Class Compras_Compras If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros Msg.AppendFormat("

    Ver Póliza   ", CvePrePoliza) - Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) + Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) Msg.Append($" Imprimir ") End If If CveMovimientoInventario > 0 Then - Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) + Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) Msg.AppendFormat("
    Ver Movimiento de Almacen", CveMovimientoInventario) Msg.AppendFormat("
    Imprimir Entrada Almacen", TempParametros) End If @@ -8205,10 +8184,10 @@ Partial Class Compras_Compras Dim Retorno As Boolean = True Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero - Dim MultiplicadorNC = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) + Dim MultiplicadorNC As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) - Dim ErrorAC = False - Dim IDPolizaComprometido = 0 + Dim ErrorAC As Boolean = False + Dim IDPolizaComprometido As Integer = 0 If ChkProgramarPago.Checked AndAlso CveEstatusFactura = 1 Then CveEstatusFactura = 2 @@ -8555,7 +8534,7 @@ Partial Class Compras_Compras If Not ErrorAC Then Dim Cont As Integer = 0 - Dim indiceTR = 0 + Dim indiceTR As Integer = 0 For Each Row As DataRow In TmpDT.Rows 'actualizar las clasificaciones, que se hallan hecho @@ -8797,7 +8776,7 @@ Partial Class Compras_Compras Private Function ActualizarPrePoliza(ObjConta As ClsContabilidad, ObjCompra As ClsCompras) As Boolean - Dim Retorno = True, ErrorPrepoliza = False + Dim Retorno As Boolean = True, ErrorPrepoliza As Boolean = False Dim CvePlantillaPrePoliza As Integer If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then CvePlantillaPrePoliza = 60 @@ -8860,7 +8839,7 @@ Partial Class Compras_Compras If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then For Each Row As DataRow In ObjConta.DtResultados.Rows - Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero + Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) Dim importeMovimiento As Decimal = 0 Dim importeMN As Decimal = 0 @@ -8918,7 +8897,7 @@ Partial Class Compras_Compras 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR - Dim CveConceptoContableAlmacen = 0 + Dim CveConceptoContableAlmacen As Integer = 0 If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero @@ -8959,7 +8938,7 @@ Partial Class Compras_Compras 'LIMPIA importeMovimiento = 0 'COSTO ALMACEN - Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) + Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa) If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN @@ -8982,7 +8961,6 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If - End If Next End If @@ -9002,7 +8980,6 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If End If - End If 'NC CON PRODUCTOS - CUENTA PUENTE @@ -9041,13 +9018,10 @@ Partial Class Compras_Compras End If End If - - Dim DTDistinct = DT.Copy - + Dim DTDistinct As DataTable = DT.Copy If DdlTipoCompra.SelectedValue.ToEntero = 10 Then DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"}) Else - If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) Else @@ -9055,7 +9029,6 @@ Partial Class Compras_Compras End If End If - If DTDistinct.Rows.Count > 0 Then For Each Row2 As DataRow In DTDistinct.Rows @@ -9069,8 +9042,6 @@ Partial Class Compras_Compras If DdlTipoCompra.SelectedValue.ToEntero = 10 Then importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal End If - - importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'AGREGA MOVIMIENTO @@ -9096,7 +9067,7 @@ Partial Class Compras_Compras If DtPrePolizas IsNot Nothing Then For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows - If ObjConta.ValidacionPrePolizaCuadre(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), 4) Then + If ObjConta.ValidacionesPrePoliza(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), UsuarioActual, Opcion:=4, AutoConta:=False) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorPrepoliza = True Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) @@ -9209,10 +9180,6 @@ Partial Class Compras_Compras _TipoComprobante = ValorXML(nodo, "tipoDeComprobante") TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal - - - - If Version = "3.3" Or Version = "4.0" Then Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago"))) If drm IsNot Nothing Then @@ -9239,7 +9206,6 @@ Partial Class Compras_Compras namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal") - If _TipoComprobante.ToUpper = "E" And (Version = "3.3" Or Version = "4.0") Then Dim UUIDS As String = "" @@ -9253,7 +9219,6 @@ Partial Class Compras_Compras Next End If UUIDSList = UUIDSLista - End If Dim node As XmlNode @@ -9292,7 +9257,6 @@ Partial Class Compras_Compras TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal If Version = "3.3" OrElse Version = "4.0" Then - For Each retencion As XmlNode In nodeRetenciones If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal If retencion.Attributes("Impuesto").Value = "001" Then RetencionISR += retencion.Attributes("Importe").Value.ToDecimal @@ -9300,7 +9264,6 @@ Partial Class Compras_Compras GvOC1.Columns(6).Visible = True GvOC2.Columns(4).Visible = True Else - For Each retencion As XmlNode In nodeRetenciones If retencion.Attributes("impuesto").Value = "IVA" Then RetencionIVA += retencion.Attributes("importe").Value.ToDecimal If retencion.Attributes("impuesto").Value = "ISR" Then RetencionISR += retencion.Attributes("importe").Value.ToDecimal @@ -9315,14 +9278,12 @@ Partial Class Compras_Compras If Version = "3.3" OrElse Version = "4.0" Then For Each traslado As XmlNode In nodeTraslados - If traslado.Attributes("Importe") IsNot Nothing Then If traslado.Attributes("Impuesto").Value = "002" Then TrasladoIVA += traslado.Attributes("Importe").Value.ToDecimal If traslado.Attributes("Impuesto").Value = "003" Then TrasladoIEPS += traslado.Attributes("Importe").Value.ToDecimal End If Next Else - For Each traslado As XmlNode In nodeTraslados If traslado.Attributes("Importe") IsNot Nothing Then If traslado.Attributes("impuesto").Value = "IVA" Then TrasladoIVA += traslado.Attributes("importe").Value.ToDecimal @@ -9331,7 +9292,6 @@ Partial Class Compras_Compras End If Next End If - SumaTotalTraslados += TrasladoIVA SumaTotalTraslados += TrasladoIEPS End If @@ -9789,7 +9749,6 @@ Partial Class Compras_Compras TmpDT.Columns.Add("OtrosGastos", GetType(Decimal)) TmpDT.Columns.Add("Total", GetType(Decimal)) TmpDT.Columns.Add("AsientoContableCompras", GetType(Integer)) - TmpDT.Columns.Add("IdCtaContCompras", GetType(Integer)) TmpDT.Columns.Add("Proyecto", GetType(String)) TmpDT.Columns.Add("CveProyecto", GetType(Integer)) TmpDT.Columns.Add("CveSubProyecto", GetType(Integer)) @@ -10911,7 +10870,7 @@ Partial Class Compras_Compras ObjAF.Dispose() End Sub Protected Sub DdlTipoMantemiento_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim dr = TmpDT.Rows(CType(CType(sender, DropDownList).NamingContainer, GridViewRow).RowIndex) + Dim dr As DataRow = TmpDT.Rows(CType(CType(sender, DropDownList).NamingContainer, GridViewRow).RowIndex) dr("AFTipoMantenimiento") = CType(CType(sender, DropDownList).NamingContainer, GridViewRow).FCDropDownList("DdlTipoMantemiento").SelectedValue.ToEntero @@ -11010,7 +10969,7 @@ Partial Class Compras_Compras If TxtAjustePorcentaje.Text.ToDecimal <> 0 Then For Each Dr As DataRow In TmpDT.Rows 'Dr("PU") = Dr("PU").ToString.ToDecimal * ((100 - TxtAjustePorcentaje.Text.ToDecimal) / 100) - Dim TotalAnterior = Dr("Total").ToString.ToDecimal + Dim TotalAnterior As Decimal = Dr("Total").ToString.ToDecimal Dr("Total") = Dr("Total").ToString.ToDecimal * ((100 - TxtAjustePorcentaje.Text.ToDecimal) / 100) Dr("Descuento") = TotalAnterior - Dr("Total").ToString.ToDecimal Next @@ -11905,20 +11864,19 @@ Partial Class Compras_Compras ObjConta.Dispose() End Sub Protected Sub LBContabilizarAC_Click(sender As Object, e As EventArgs) - Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() Dim ObjCompras As New ClsCompras Dim ObjProveedores As New ClsCompProveedores(ObjCompras.IniciaTransacSQL()) Dim ObjAF As New ClsAF(ObjCompras.IniciaTransacSQL()) - Dim ErrorAC = False - Dim IDPolizaComprometido = If(TxtOC.Text.Length > 0, 1, 0) + Dim ErrorAC As Boolean = False + Dim IDPolizaComprometido As Integer = If(TxtOC.Text.Length > 0, 1, 0) ''EMPIEZA: SI USA AC If UsuarioActual.Empresa.UsaAC Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() - 'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA If IdPoliza > 0 Then ObjContaAC.RemoveAllMovimientos(IdPoliza) @@ -12074,9 +12032,9 @@ Partial Class Compras_Compras ElseIf grp.CveActivoFijo > 0 Then - Dim CtaAF = -1 - Dim AF = "" - Dim CuentaInicial = -1 + Dim CtaAF As Integer = -1 + Dim AF As String = "" + Dim CuentaInicial As Integer = -1 If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then CtaAF = ObjAF.Cuenta @@ -12098,7 +12056,7 @@ Partial Class Compras_Compras If drCuenta IsNot Nothing Then CuentaAbono = drCuenta("Id").ToString.ToEntero - Dim FolioAF = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString + Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono) ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario) @@ -12193,11 +12151,7 @@ Partial Class Compras_Compras End If End If - If ErrorAC Then - - - Alert("Ocurrió un error al contabilizar la compra. Comuniquese con soporte.", TipoMensaje.MsgError) ObjContaAC.RollBack() ObjCompras.RollBack() @@ -12226,7 +12180,7 @@ Partial Class Compras_Compras Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() - Dim ErrorCompra = False + Dim ErrorCompra As Boolean = False 'Elimina la poliza If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then @@ -12347,7 +12301,7 @@ Partial Class Compras_Compras End Sub Private Sub CargaConsignaciones2() Dim ObjInventarios As New ClsInventarios - Dim TieneError = False + Dim TieneError As Boolean = False CveConsignacion = -1 @@ -12374,7 +12328,7 @@ Partial Class Compras_Compras End Sub Protected Sub BtnVinculaConsignacion_Click(sender As Object, e As EventArgs) Dim ObjInventarios As New ClsInventarios - Dim TieneError = False + Dim TieneError As Boolean = False CveConsignacion = -1 @@ -12442,10 +12396,10 @@ Partial Class Compras_Compras Exit Sub End If - Dim Row = DtConsignaciones.Rows(Ddl.SelectedValue.ToEntero - 1) + Dim Row As DataRow = DtConsignaciones.Rows(Ddl.SelectedValue.ToEntero - 1) 'VALIDAMOS CANTIDAD - Dim Cantidad = Row("Cantidad").ToString.ToDecimal + Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal For Each gvr1 As GridViewRow In GvInv.Rows If gvr1.FCHiddenField("HdnNoConsignacion").Value.ToString = Ddl.SelectedValue Then Cantidad = Cantidad - gvr1.DataKey("Cantidad").ToString.ToDecimal @@ -12848,17 +12802,12 @@ Partial Class Compras_Compras Else GvOC1.Columns(0).Visible = False End If - - - - GvOC1.DataBind() ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT) GvOC2.DataSource = TmpDT GvOC2.DataBind() - UpGvOC1.Update() NCDevolucion = True @@ -12909,7 +12858,6 @@ Partial Class Compras_Compras Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged SubTotalRefacturacion = 0.0D - If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue)) If dr IsNot Nothing Then @@ -12918,9 +12866,6 @@ Partial Class Compras_Compras ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False) SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal End If - - - End If End Sub @@ -12960,8 +12905,8 @@ Partial Class Compras_Compras Private Function GuardaRefacturacion(ByRef ObjCompra As ClsCompras, ByRef ObjEventos As ClsOIEventos, CvePrePoliza As Integer) As Boolean Dim dr As DataRow = Nothing - Dim ErrorBitacora = False - Dim IdPolizaAnterior = -1 + Dim ErrorBitacora As Boolean = False + Dim IdPolizaAnterior As Integer = -1 Dim TotalRefact As Decimal = 0 'GUARDA ADJUNTOS Y LIGA EN BITACORA (RELACION DE FACTURA NUEVA Y VIEJA) @@ -12990,11 +12935,11 @@ Partial Class Compras_Compras Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean Dim dr As DataRow = Nothing - Dim ErrorBitacora = False - Dim Archivo = "" - Dim Folio = "" - Dim Extension = "" - Dim Ruta = "" + Dim ErrorBitacora As Boolean = False + Dim Archivo As String = "" + Dim Folio As String = "" + Dim Extension As String = "" + Dim Ruta As String = "" 'CARGA COMPRA REFACTURADA If CveCompra > 0 AndAlso ObjCompra.GetCompras(CveCompraRefacturacion, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then @@ -13159,8 +13104,6 @@ Partial Class Compras_Compras End If End If ObjComprasComprobacion.Dispose() - - Dim ObjCompras As New ClsCompras Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL()) Dim ObjInventario As New ClsInventarios(ObjCompras.IniciaTransacSQL()) @@ -13171,12 +13114,14 @@ Partial Class Compras_Compras ObjAC.IniciaTransacSQL() End If - Dim ErrorCancelar = False - Dim IdPolizaNueva = -1 - Dim FolioPolizaNueva = -1 - Dim CvePrePolizaNueva = -1 + Dim ErrorCancelar As Boolean = False + Dim IdPolizaNueva As Integer = -1 + Dim FolioPolizaNueva As Integer = -1 + Dim CvePrePolizaNueva As Integer = -1 Try + Dim ConceptoPoliza As String = String.Format("Cancelación: {0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim) + CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) 'DEVOLUCIÓN AUTOMATICA If CheckDevAuto.Checked Then @@ -13188,7 +13133,6 @@ Partial Class Compras_Compras Dim TmpDT As DataTable = Nothing Dim TipoCambioGuardar As Decimal = 1 - If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then If ObjCompras.DtResultados.Rows.Count > 0 Then TmpDT = ObjCompras.DtResultados.Copy() @@ -13206,23 +13150,15 @@ Partial Class Compras_Compras End If TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio) - 'For Each dtMovs As DataRow In TmpDT.Rows - ' If TmpDT.Rows.Count > 0 Then - ' tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero - ' Exit For - ' End If - 'Next - - Dim DtMovimientos = tbmovs.FiltraParametros("Origen = 1", DistinctColumns:={"CveMovimiento", "CveConcepto", "CveAlmacen", "Origen"}) + Dim DtMovimientos As DataTable = tbmovs.FiltraParametros("Origen = 1", DistinctColumns:={"CveMovimiento", "CveConcepto", "CveAlmacen", "Origen"}) For Each RowMovto As DataRow In DtMovimientos.Rows Dim CveMovimientoEntrada As Integer = -1 - Dim Folio As Integer Dim CveAlmacen As Integer = RowMovto("CveAlmacen").ToString().ToEntero() Dim CveConceptoDevolucion As Integer = -1 - Dim CveConcetoEntrada = RowMovto("CveConcepto").ToString().ToEntero() + Dim CveConcetoEntrada As Integer = RowMovto("CveConcepto").ToString().ToEntero() Dim CveMovimientoReferencia As Integer = RowMovto("CveMovimiento").ToString().ToEntero() Select Case CveConcetoEntrada @@ -13257,9 +13193,7 @@ Partial Class Compras_Compras End If If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Dim DtPrePolizaAlmacen = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}") - - CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", DtPrePolizaAlmacen.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, DtPrePolizaAlmacen.Rows(0)("Cargos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("Abonos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", DtPrePolizaAlmacen.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim DtPrePolizaAlmacen As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}") If CvePrePolizaNueva > 0 Then Dim tTotal As Decimal = 0 @@ -13337,7 +13271,6 @@ Partial Class Compras_Compras 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) 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, @@ -13362,15 +13295,18 @@ Partial Class Compras_Compras 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/Cancelar3", 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, + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("ImporteMN").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString, dr("Concepto").ToString, CveIE:=dr("CveIE").ToString.ToEntero, - CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero, + CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, + CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero, CveMovimientoAlmacen:=dr("CveMovimientoAlmacen").ToString.ToEntero, CveActivoFijo:=dr("CveActivoFijo").ToString.ToEntero, CveCreditoDetalle:=dr("CveCreditoDetalle").ToString.ToEntero, - ImporteME:=dr("Importe").ToString.ToDecimal * -1, + ImporteME:=dr("ImporteME").ToString.ToDecimal * -1, + TipoCambio:=dr("TC").ToString.ToDecimal, + TipoCambioPago:=dr("TCPago").ToString.ToDecimal, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then @@ -13433,7 +13369,7 @@ Partial Class Compras_Compras Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click Dim IvaOriginal As Double = TxtIVA.Text.ToDouble - Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString + Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString Select Case CuentaContable Case "Compras" StringProrrateo = UsuarioActual.Empresa.Funcionalidad(117) @@ -13582,7 +13518,7 @@ Partial Class Compras_Compras CargaOC() End Sub Private Sub CargaOC() - Dim EntregaDirecta = 0 + Dim EntregaDirecta As Integer = 0 DivOCSolicitudAnticipo.Visible = False DivOCSolicitudAnticipoModal.Visible = False @@ -13596,8 +13532,7 @@ Partial Class Compras_Compras GvOC1.Columns(1).Visible = True End If - Dim CvesOC = "" - + Dim CvesOC As String = "" If PopUpOC Then CvesOC = HdnVCveOC.Value @@ -13619,7 +13554,7 @@ Partial Class Compras_Compras End If Next Else - Dim TextoErrorOC = "" + Dim TextoErrorOC As String = "" Dim ArrayCveOC As String() = TxtOC.Text.Split(New Char() {","c}) For i As Integer = 0 To ArrayCveOC.Count - 1 If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, CveProveedor, ArrayCveOC(i).ToEntero, -1, -1, UsuarioActual.CveEmpresa, -1) Then @@ -13676,7 +13611,7 @@ Partial Class Compras_Compras If TxtOC.Text <> "" Then 'VARIABLES - Dim TextoObservaciones = "" + Dim TextoObservaciones As String = "" LtOCPromocion.Text = "" IvaAcumulado = 0 DTOCTemp = New DataTable @@ -13691,7 +13626,7 @@ Partial Class Compras_Compras 'CARGAMOS LOS DATOS DE LAS OC Dim ObjOC As New ClsOC Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c}) - Dim FoliosOCAnticipo = "", FoliosOCAnticipoIE = "" + Dim FoliosOCAnticipo As String = "", FoliosOCAnticipoIE As String = "" Dim StrPromos As New StringBuilder For Each CveOCItem As String In ArrayCveOC.Distinct @@ -13724,9 +13659,9 @@ Partial Class Compras_Compras End If 'PROMOCIONES - Dim Promocion = ObjOC.DtResultados.Rows(0)("Promocion").ToString + Dim Promocion As String = ObjOC.DtResultados.Rows(0)("Promocion").ToString If Not String.IsNullOrEmpty(Promocion) Then - Dim FolioOC = ObjOC.DtResultados.Rows(0)("FolioOC").ToString + Dim FolioOC As String = ObjOC.DtResultados.Rows(0)("FolioOC").ToString StrPromos.Append($"OC #{FolioOC} {Promocion}
    ") StrPromos.AppendLine() End If @@ -13743,7 +13678,7 @@ Partial Class Compras_Compras 'MOVIMIENTOS DE ALMACÉN Dim ObjInventarios As New ClsInventarios - Dim FoliosOCAlmacen = "" + Dim FoliosOCAlmacen As String = "" For Each CveOCItem As String In ArrayCveOC.Distinct If ObjInventarios.GetMovimientosOC(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -13846,7 +13781,7 @@ Partial Class Compras_Compras CargaTotalesOC() 'Diferencia permitida $ entre OC y Compra - Dim DiferenciaPermitida = 1 + Dim DiferenciaPermitida As Decimal = 1 'VINCULACION TOTAL If CargaInicial And DivTipoCambioOC.Visible = False Then @@ -13915,17 +13850,15 @@ Partial Class Compras_Compras Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - Dim JSCambiaScript = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")}', {e.Row.DBCampo("Cantidad").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});" + Dim JSCambiaScript As String = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")}', {e.Row.DBCampo("Cantidad").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});" e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadPendienteVincular")}, this);{JSCambiaScript}") e.Row.FCTextBox("TxtPU").Attributes.Add("onkeyup", JSCambiaScript) e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});") e.Row.FCTextBox("TxtPU").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});") - RegistraScript(JSCambiaScript) - If e.Row.DataKey("FolioREQ").ToString.Trim.Length > 0 Then Dim LblOC As Label = e.Row.FCLabel("LblOC") LblOC.Attributes.Add("data-toggle", "tooltip") @@ -13933,8 +13866,6 @@ Partial Class Compras_Compras LblOC.Attributes.Add("title", "REQ: " & e.Row.DataKey("FolioREQ").ToString) End If - - If e.Row.DBCampo("CveTipoPS").ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then Select Case e.Row.DBCampo("EstatusInventario").ToEntero Case 1 @@ -13971,14 +13902,14 @@ Partial Class Compras_Compras Private Sub CargaTotalesOC() - Dim TotalOC = 0.0D + Dim TotalOC As Decimal = 0.0D For Each gvr As GridViewRow In GvOC1.Rows TotalOC += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal Next 'SUBTOTAL OC - LbSubTotalOC1Mod.Text = (TotalOC + DTOCGV.SUM("Descuento")).FormatoNumero - LbSubTotalOC1.Text = (TotalOC + DTOCGV.SUM("Descuento")).FormatoNumero + LbSubTotalOC1Mod.Text = (TotalOC + DTOCGV.SUM("Descuento")).FormatoNumero() + LbSubTotalOC1.Text = (TotalOC + DTOCGV.SUM("Descuento")).FormatoNumero() 'SUBTOTAL2 OC LbSubTotal2OC1Mod.Text = TotalOC.FormatoNumero @@ -14085,14 +14016,14 @@ Partial Class Compras_Compras ' End If 'End If - Dim SubTotalGV = 0.0D + Dim SubTotalGV As Decimal = 0.0D Dim Amortizacion As Decimal = TmpDT.SUMD("Total") If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then Amortizacion = TmpDT.SUMD("ImporteSinImpuestos") End If Dim SubTotalCompra As Decimal = Amortizacion - Dim DiferenciaPermitida = 1 - Dim Cont = 0 + Dim DiferenciaPermitida As Decimal = 1 + Dim Cont As Integer = 0 'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("") For Each gvr As GridViewRow In GvOC1.Rows SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal @@ -14162,15 +14093,15 @@ Partial Class Compras_Compras End If 'PSCodigo DE XML IP - Dim DtTemporalXML = TmpDT.Copy - Dim IndexTmpOriginal = 0 + Dim DtTemporalXML As DataTable = TmpDT.Copy + Dim IndexTmpOriginal As Integer = 0 'Borramos el TmpDT CreaDTCompras() 'Iteramos el GridView de la OC Dim dr As DataRow - Dim Index = 0 + Dim Index As Integer = 0 Dim MensajeCostoCero As New StringBuilder Dim TotalRows As Integer = 0 For Each gvr As GridViewRow In GvOC1.Rows @@ -14230,7 +14161,7 @@ Partial Class Compras_Compras Dim CveSATPSActualizado As Boolean = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero <> dr("CveSATPS").ToString.ToEntero '[IPP] PROVISIONAL PARA TIPO GASTO If GlobalDTTiposGastos(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTTiposGastos(UsuarioActual.CveEmpresa).Rows.Count = 1 Then - Dim DrTipoGasto = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("") + Dim DrTipoGasto As DataRow = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("") If DrTipoGasto IsNot Nothing Then CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero TipoGasto = DrTipoGasto("TipoGasto").ToString @@ -14493,7 +14424,7 @@ Partial Class Compras_Compras '[IPP] PROVISIONAL PARA TIPO GASTO If GlobalDTTiposGastos(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTTiposGastos(UsuarioActual.CveEmpresa).Rows.Count = 1 Then - Dim DrTipoGasto = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("") + Dim DrTipoGasto As DataRow = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("") If DrTipoGasto IsNot Nothing Then CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero TipoGasto = DrTipoGasto("TipoGasto").ToString @@ -14501,7 +14432,7 @@ Partial Class Compras_Compras End If 'AGREGA PS - Dim IndexVinculacionOC = AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto) + Dim IndexVinculacionOC As Integer = AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto) 'CARGA PE TmpDT.Rows(IndexVinculacionOC)("CvePresupuestoEgreso") = dr("CvePresupuestoEgreso").ToString.ToEntero @@ -14569,14 +14500,14 @@ Partial Class Compras_Compras CargaVinculacionOC() End Sub Protected Sub BtnDividirCompra_Click(sender As Object, e As EventArgs) - Dim Cantidad = CType(CType(sender, Button).NamingContainer, GridViewRow).FCTextBox("TxtDividir").Text.ToDecimal + Dim Cantidad As Decimal = CType(CType(sender, Button).NamingContainer, GridViewRow).FCTextBox("TxtDividir").Text.ToDecimal If Cantidad < 0.1 Then Exit Sub End If - Dim dr = TmpDT.Rows(CType(CType(sender, Button).NamingContainer, GridViewRow).RowIndex) - Dim drNuevo = TmpDT.NewRow + Dim dr As DataRow = TmpDT.Rows(CType(CType(sender, Button).NamingContainer, GridViewRow).RowIndex) + Dim drNuevo As DataRow = TmpDT.NewRow drNuevo.ItemArray = dr.ItemArray drNuevo("Cantidad") = Cantidad @@ -14802,7 +14733,7 @@ Partial Class Compras_Compras 'Si los costosindirectos no suman el total exacto del flete ajustamos el ultimo concepto If CostoIndirectoTotal <> TotalFlete AndAlso IndiceActualizar >= 0 Then - Dim Diferencia = TotalFlete - CostoIndirectoTotal + Dim Diferencia As Decimal = TotalFlete - CostoIndirectoTotal TmpDT.Rows(IndiceActualizar)("CostoIndirectoAlmacen") = TmpDT.Rows(IndiceActualizar)("CostoIndirectoAlmacen").ToString.ToDouble + Diferencia TmpDT.Rows(IndiceActualizar)("OtrosGastos") = TmpDT.Rows(IndiceActualizar)("OtrosGastos").ToString.ToDouble + Diferencia End If @@ -14902,10 +14833,8 @@ Partial Class Compras_Compras Next UpGVServicios.Update() - If Not TotalFlete > 0 Then Exit Sub - 'Asignamos los costos indirectos y los indices For Each Drt As DataRow In TmpDT.Rows If ListaConsecutivas.Contains(Drt("Consec").ToString) Then @@ -14920,7 +14849,7 @@ Partial Class Compras_Compras 'Si los costosindirectos no suman el total exacto del flete ajustamos el ultimo concepto If CostoIndirectoTotal <> TotalFlete AndAlso IndiceActualizar >= 0 Then - Dim Diferencia = TotalFlete - CostoIndirectoTotal + Dim Diferencia As Decimal = TotalFlete - CostoIndirectoTotal TmpDT.Rows(IndiceActualizar)("CostoIndirectoAlmacen") = TmpDT.Rows(IndiceActualizar)("CostoIndirectoAlmacen").ToString.ToDouble + Diferencia TmpDT.Rows(IndiceActualizar)("OtrosGastos") = TmpDT.Rows(IndiceActualizar)("OtrosGastos").ToString.ToDouble + Diferencia End If @@ -15015,11 +14944,6 @@ Partial Class Compras_Compras GVServicios.Visible = False End If - If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then - 'liServicios.Visible = True - liFletesImportaciones.Visible = True - End If - End Sub Public Function AplicarCostoIndirecto(ObjInv As ClsInventarios, ObjCompras As ClsCompras) As Boolean @@ -15032,7 +14956,7 @@ Partial Class Compras_Compras If GvFacturas.Visible AndAlso GvFacturas.Rows.Count > 0 Then - Dim IdCompras = New List(Of Integer) + Dim IdCompras As New List(Of Integer) Dim TotalServicios As Decimal = 0 TotalServicios = TxtSubTotal.Text.ToString.ToDecimal @@ -15060,7 +14984,7 @@ Partial Class Compras_Compras 'If total > 0 Then If dtTemporal IsNot Nothing Then - Dim TotalFacturas = dtTemporal.SUM("Total").ToString.ToDecimal + Dim TotalFacturas As Decimal = dtTemporal.SUM("Total").ToString.ToDecimal For Each row As DataRow In dtTemporal.Rows Dim prorrateo As Decimal prorrateo = (row("PU").ToString.ToDecimal * TotalServicios) / TotalFacturas @@ -15097,7 +15021,7 @@ Partial Class Compras_Compras If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then If ObjInv.GetMovimientosDetalle(-1, UsuarioActual.CveEmpresa, CveCompra) Then Dtcompra = ObjInv.DtResultados - Dim TotalProductos = Dtcompra.SUM("Total").ToString.ToDecimal + Dim TotalProductos As Decimal = Dtcompra.SUM("Total").ToString.ToDecimal If TotalProductos > 0 Then For Each row As DataRow In Dtcompra.Rows Dim prorrateo As Decimal @@ -15465,7 +15389,7 @@ Partial Class Compras_Compras End Sub Private Sub CargaSerie() - Dim AplicaCaducidad = False + Dim AplicaCaducidad As Boolean = False If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0) IsNot Nothing Then AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0)("AplicaCaducidad").ToString = "True", True, False) End If @@ -15491,7 +15415,7 @@ Partial Class Compras_Compras End If 'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD - Dim Contador = 0 + Dim Contador As Integer = 0 For Each Gvr As GridViewRow In GvInv.Rows Gvr.FCTextBox("TbCantidad").Enabled = False If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then @@ -15516,8 +15440,8 @@ Partial Class Compras_Compras End Sub Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) - Dim SerieLote = TxtSerieLote.Text.Replace(" ", String.Empty) - Dim AplicaCaducidad = False + Dim SerieLote As String = TxtSerieLote.Text.Replace(" ", String.Empty) + Dim AplicaCaducidad As Boolean = False Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS") If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True" @@ -15527,7 +15451,7 @@ Partial Class Compras_Compras Exit Sub End If - Dim Row = DtDatosDetalle.NewRow + Dim Row As DataRow = DtDatosDetalle.NewRow Row("CvePS") = CvePSSerieLote Row("CveUM") = CveUMSerieLote Row("PU") = PUSerieLote @@ -15542,7 +15466,7 @@ Partial Class Compras_Compras End Sub Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs) - Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) + Dim Argumentos As String() = CType(sender, Button).CommandArgument.Split("°"c) LbProducto.Text = Argumentos(3) LbCantidadSerie.Text = Argumentos(4) @@ -15587,12 +15511,12 @@ Partial Class Compras_Compras DivTC.Visible = False LblTC.Visible = True End If - Else - If UsuarioActual.CveEmpresa.Contiene({4, 7, 11, 12, 145}) Then - RegistraScript("$('#ModalPesos').modal('show');") - TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero + If CveMoneda > 1 AndAlso TipoCambio > 1 Then + RegistraScript("$('#ModalPesos').modal('show');") + TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero + End If End If TipoCambio = 1 @@ -15602,7 +15526,6 @@ Partial Class Compras_Compras TxtFecha.Attributes.Add("onblur", "CambiaFecha()") End If End If - CargaCuentas() End Sub Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs) @@ -15613,7 +15536,7 @@ Partial Class Compras_Compras #Region " CONVERTIR PESOS " Protected Sub BtnConvertirPesos_Click(sender As Object, e As EventArgs) - Dim TipoCambioTemp = TxtConvertirPesos.Text.ToDouble + Dim TipoCambioTemp As Double = TxtConvertirPesos.Text.ToDouble If TipoCambioTemp <= 0 Then Exit Sub @@ -15628,7 +15551,7 @@ Partial Class Compras_Compras Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp - Dim Total = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal + Dim Total As Decimal = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal Dr("Total") = Total Next @@ -15712,7 +15635,7 @@ Partial Class Compras_Compras End If 'RETENCIONES - Dim Retenciones = 0D + Dim Retenciones As Decimal = 0D Retenciones = RetIVA.ToDecimal Retenciones += RetISR.ToDecimal @@ -15807,7 +15730,7 @@ Partial Class Compras_Compras End Sub Private Function ValidaTotalesGuardar() As Boolean - Dim EsValido = True + Dim EsValido As Boolean = True 'VALIDA IMPORTES 'VALIDA TOTAL CON LOS IMPORTES TOTALES @@ -15840,7 +15763,7 @@ Partial Class Compras_Compras TempRetISR = TxtRetISR.Text.ToDouble TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) DifTotales = TxtTotal.Text.ToDouble - TempTotal - Dim DiferenciaPermitida = 0.6 + Dim DiferenciaPermitida As Decimal = 0.6D If Math.Abs(DifTotales) > DiferenciaPermitida Then Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) @@ -15852,7 +15775,7 @@ Partial Class Compras_Compras SubTotal2Original = TxtSubTotal2.Text.ToDouble End If - Dim DiferenciaSubtotales = 0.0D + Dim DiferenciaSubtotales As Decimal = 0.0D If CveCompra > 0 Or CveFactura > 0 Or OCVinculada Then If SubTotalOriginal = Nothing Then @@ -15933,22 +15856,22 @@ Partial Class Compras_Compras Private Sub CargaFletes() - If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then - Exit Sub - End If + 'If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then + ' Exit Sub + 'End If - HLModalFletes.Visible = True + 'HLModalFletes.Visible = True - Dim ObjVentas As New ClsVentas + 'Dim ObjVentas As New ClsVentas - If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then - GVFletes.DataSource = ObjVentas.DtResultados - GVFletes.DataBind() - End If + 'If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then + ' GVFletes.DataSource = ObjVentas.DtResultados + ' GVFletes.DataBind() + 'End If - UpFletes.Update() + 'UpFletes.Update() - ObjVentas.Dispose() + 'ObjVentas.Dispose() End Sub @@ -16229,16 +16152,11 @@ Partial Class Compras_Compras End If Next Next - - DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp) - Else DdlPS.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)) End If - - DdlPS.ddl.DataBind() DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) End If @@ -16249,15 +16167,13 @@ Partial Class Compras_Compras End Sub Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) - - If Modalidad <> "U" Or Not CveFactura > 0 Then DdlPSChange() End If If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing - Dim extrafiltro = "Estatus=1 AND " + Dim extrafiltro As String = "Estatus=1 AND " If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then extrafiltro = "" End If @@ -16387,7 +16303,7 @@ Partial Class Compras_Compras CargaSubProyecto() End Sub Private Sub CargaSubProyecto() - Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1) + Dim CveProyecto As Integer = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1) DdlSubProyecto.Items.Clear() 'SI NO SE VE EL PROYECTO NO FILTRAR POR PROYECTO @@ -16492,7 +16408,7 @@ Partial Class Compras_Compras dttemp.Columns.Add("Cantidad", GetType(Decimal)) dttemp.Columns.Add("PU", GetType(Decimal)) - Dim DrPS = dttemp.NewRow + Dim DrPS As DataRow = dttemp.NewRow DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero DrPS("Cantidad") = TxtCantidad.Text.Trim.ToDecimal @@ -16514,7 +16430,7 @@ Partial Class Compras_Compras Dim dttemp As New DataTable dttemp.Columns.Add("CveSubProyecto", GetType(Integer)) dttemp.Columns.Add("CvePS", GetType(Integer)) - Dim DrPS = dttemp.NewRow + Dim DrPS As DataRow = dttemp.NewRow DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero dttemp.Rows.Add(DrPS) @@ -16560,8 +16476,8 @@ Partial Class Compras_Compras Select Case Modalidad Case "A" 'ADD - Dim SATClavePS = -1 - Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") + Dim SATClavePS As Integer = -1 + Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PSRow IsNot Nothing Then SATClavePS = PSRow("SATClavePS").ToString.ToEntero End If @@ -16654,8 +16570,8 @@ Partial Class Compras_Compras Row = TmpDT.NewRow() Dim Retorno As Integer = 0 - Dim CveContrato = -1 - Dim CveSubProyecto = -1 + Dim CveContrato As Integer = -1 + Dim CveSubProyecto As Integer = -1 Dim Valores As String() ''CONTRATOS @@ -16715,8 +16631,6 @@ Partial Class Compras_Compras End If End If End If - - Try If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) CveTipoPS = 2 @@ -16725,7 +16639,7 @@ Partial Class Compras_Compras End Try - Dim DecimalesPermitidos = 6 + Dim DecimalesPermitidos As Integer = 6 Row("CveConcepto") = TmpDT.Rows.Count + 1 Row("Cantidad") = Math.Round(Cantidad, DecimalesPermitidos) @@ -16870,7 +16784,7 @@ Partial Class Compras_Compras 'BANDERA - Dim AplicaCalculaTotales = False + Dim AplicaCalculaTotales As Boolean = False 'DATOS GENERALES DrPS("Obs") = TxtObsPS.Text.Trim @@ -16881,10 +16795,10 @@ Partial Class Compras_Compras DrPS("CveContratoDetalle") = CveContratoDetalle 'IMPORTES - [CANTIDAD Y PRECIO] - Dim Cantidad = DrPS("Cantidad").ToString.ToDouble - Dim PU = DrPS("PU").ToString.ToDouble - Dim Descuento = DrPS("Descuento").ToString.ToDouble - Dim Total = (Cantidad * PU) - Descuento + Dim Cantidad As Double = DrPS("Cantidad").ToString.ToDouble + Dim PU As Double = DrPS("PU").ToString.ToDouble + Dim Descuento As Double = DrPS("Descuento").ToString.ToDouble + Dim Total As Double = (Cantidad * PU) - Descuento DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked Dim ActualizarIva As Boolean = False @@ -16909,7 +16823,7 @@ Partial Class Compras_Compras 'PS - CLASIFICACION If DdlPS.SelectedValue.ToEntero > 0 Then - Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") + Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PSRow IsNot Nothing Then Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero If PSRow("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) @@ -16951,11 +16865,11 @@ Partial Class Compras_Compras 'IMPUESTOS: SI ES COMPRA, FACUTRA O CON OC, NO MODIFICA IMPUESTOS!! 'Dim IVA = (TxtIVAModal.Text.ToDouble / 100) - Dim IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) - Dim RetISR = (TxtRetISRModal.Text.ToDecimal / 100) - Dim RetIVA = (TxtRetIVAModal.Text.ToDecimal / 100) - Dim IEPSPS = (TxtIEPSModal.Text.ToDecimal / 100) - Dim IEPSPSIVA = 0 + Dim IVA As Decimal = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) + Dim RetISR As Decimal = (TxtRetISRModal.Text.ToDecimal / 100) + Dim RetIVA As Decimal = (TxtRetIVAModal.Text.ToDecimal / 100) + Dim IEPSPS As Decimal = (TxtIEPSModal.Text.ToDecimal / 100) + Dim IEPSPSIVA As Decimal = 0 'I f Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then 'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total @@ -17038,7 +16952,7 @@ Partial Class Compras_Compras Exit Sub End If - Dim ErrorPS = False + Dim ErrorPS As Boolean = False 'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion 'Solo cuando el PS ya esta registrado @@ -17056,7 +16970,7 @@ Partial Class Compras_Compras End If If Not ErrorPS Then - Dim index = 0 + Dim index As Integer = 0 For Each Dr As DataRow In TmpDT.Rows If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then 'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero @@ -17209,7 +17123,7 @@ Partial Class Compras_Compras #Region " PS ALIAS " Protected Sub DdlPSAlias_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSAlias2.selectedindexchange If Not DdlPSAlias2.SelectedValue = "" Then - Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSAlias2.SelectedValue.ToEntero).FiltroPrimero("") + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSAlias2.SelectedValue.ToEntero).FiltroPrimero("") If DrPS IsNot Nothing Then DdlUnidadAlias.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSAlias2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) DdlUnidadAlias.DataBind() @@ -17239,7 +17153,7 @@ Partial Class Compras_Compras Dim dttemp As New DataTable dttemp.Columns.Add("CveSubProyecto", GetType(Integer)) dttemp.Columns.Add("CvePS", GetType(Integer)) - Dim DrPS = dttemp.NewRow + Dim DrPS As DataRow = dttemp.NewRow DrPS("CveSubProyecto") = CveSubProyecto DrPS("CvePS") = CvePS dttemp.Rows.Add(DrPS) @@ -17331,11 +17245,11 @@ Partial Class Compras_Compras Dim ObjUM As New ClsUnidadesMedida Dim ObjPS As New ClsProductosServicios(ObjUM.IniciaTransacSQL()) - Dim TieneError = False - Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) - Dim CveUM = -1 - Dim UM = "" - Dim Equivalencia = 0.0 + Dim TieneError As Boolean = False + Dim DtEquivalencia As DataTable = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) + Dim CveUM As Integer = -1 + Dim UM As String = "" + Dim Equivalencia As Decimal = 0 Select Case HdnUMAliasModalidad.Value.ToEntero @@ -17357,14 +17271,14 @@ Partial Class Compras_Compras 'UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1") CveUM = DdlUMAlias.SelectedValue.ToEntero UM = TxtUMAlias.Text.Trim - Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble + Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal Case 2 Case 3 'AGREGA EQUIVALENCIA CveUM = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1").ToEntero UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1") - Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble + Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal If Not TieneError Then If Not ObjPS.AddPSEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CveUM").ToString.ToEntero, TxtUMEquivalenciaCantidad.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then TieneError = True @@ -17374,7 +17288,7 @@ Partial Class Compras_Compras CveUM = ObjUM.AddUnidadMedida(TxtUMAlias.Text.Trim, TxtUMAbreviatura.Text.Trim, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(HdnUMAliasCveSATUM.Value.ToEntero > 0, HdnUMAliasCveSATUM.Value.ToEntero, -1)) UM = TxtUMAlias.Text.Trim - Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble + Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal If Not CveUM > 0 Then TieneError = True @@ -17406,10 +17320,10 @@ Partial Class Compras_Compras Alert("Unidad de medida actualizada correctamente.", TipoMensaje.MsgInformacion) 'ACTUALIZA DIRECTO DT - Dim Dr = TmpDT.Rows(HdnUMAliasInd.Value.ToEntero) - Dim CvePSModificado = Dr("CvePS").ToString.ToEntero - Dim CveUMModificada = Dr("CveUM").ToString.ToEntero - Dim UMModificada = Dr("UM").ToString + Dim Dr As DataRow = TmpDT.Rows(HdnUMAliasInd.Value.ToEntero) + Dim CvePSModificado As Integer = Dr("CvePS").ToString.ToEntero + Dim CveUMModificada As Integer = Dr("CveUM").ToString.ToEntero + Dim UMModificada As String = Dr("UM").ToString For Each DrUM As DataRow In TmpDT.Rows If DrUM("CveUM").ToString.ToEntero = CveUMModificada And DrUM("UM").ToString = UMModificada Then @@ -17440,9 +17354,9 @@ Partial Class Compras_Compras ObjPS.Dispose() End Sub Protected Sub LBAplicarEquivalencia_Click(sender As Object, e As EventArgs) - Dim Dr = TmpDT.Rows(CType(CType(sender, LinkButton).NamingContainer, GridViewRow).RowIndex) - Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) - Dim Equivalencia = DtEquivalencia.FiltroPrimeroValor("Cantidad", $"CveUM = {Dr("CveUM")}").ToDouble + Dim Dr As DataRow = TmpDT.Rows(CType(CType(sender, LinkButton).NamingContainer, GridViewRow).RowIndex) + Dim DtEquivalencia As DataTable = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) + Dim Equivalencia As Double = DtEquivalencia.FiltroPrimeroValor("Cantidad", $"CveUM = {Dr("CveUM")}").ToDouble If Equivalencia > 0 Then Dr("CveUM") = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1") @@ -17692,14 +17606,14 @@ Partial Class Compras_Compras Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False) - Dim SaldoAnticipo = 0.0 + Dim SaldoAnticipo As Decimal = 0 Dim CveCompras As String = "" If ChkNCInvNC.Checked Then If Not ShowAllPendientes Then For Each gvr As GridViewRow In GvFacturaNC.Rows If gvr.FCCheckBox("ChkFacturaNC") IsNot Nothing AndAlso gvr.FCCheckBox("ChkFacturaNC").Checked Then - SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDouble + SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDecimal If CveCompras <> "" Then CveCompras = $"{CveCompras},{gvr.DataKey("CveCompra").ToString}" Else @@ -17711,7 +17625,7 @@ Partial Class Compras_Compras Else For Each gvr As GridViewRow In GVAnticipos.Rows If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then - SaldoAnticipo += gvr.FCTextBox("TxtAnticipo").Text.ToDouble + SaldoAnticipo += gvr.FCTextBox("TxtAnticipo").Text.ToDecimal End If Next @@ -17782,8 +17696,8 @@ Partial Class Compras_Compras Exit Sub End If - Dim Contador = 0 - Dim CveCompraNC = -1 + Dim Contador As Integer = 0 + Dim CveCompraNC As Integer = -1 For Each gvr As GridViewRow In GVAnticipos.Rows If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then Contador += 1 @@ -17916,7 +17830,7 @@ Partial Class Compras_Compras Dim ObjCompra As New ClsCompras Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL) - Dim Estatus = ActualizarPrePoliza(ObjContabilidad, ObjCompra) + Dim Estatus As Boolean = ActualizarPrePoliza(ObjContabilidad, ObjCompra) If Estatus Then ObjCompra.Commit() @@ -17940,12 +17854,12 @@ Partial Class Compras_Compras End If ObjInventarios.Dispose() - Dim DtTemporal = TmpDT.Copy + Dim DtTemporal As DataTable = TmpDT.Copy DtTemporal.Columns.Add("ImporteEnAlmacen", GetType(Decimal)) Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() - Dim TieneError = True + Dim TieneError As Boolean = True 'ELIMINA DETALLES DE [AF - INV - GASTO] If ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then @@ -17961,15 +17875,15 @@ Partial Class Compras_Compras 'CONFIGURACIONES Dim CuentasContablesInvalidas As New StringBuilder - Dim CveProveedorConcepto = 0 - Dim Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - Dim Multiplicador = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) + Dim CveProveedorConcepto As Integer = 0 + Dim Concepto As String = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" + Dim Multiplicador As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) - Dim ImporteMovimiento = 0.0D - Dim importeMN = 0.0D + Dim ImporteMovimiento As Decimal = 0.0D + Dim importeMN As Decimal = 0.0D - Dim TipoCambioActual = 0.0D - Dim TipoCambioPago = 0.0D + Dim TipoCambioActual As Decimal = 0.0D + Dim TipoCambioPago As Decimal = 0.0D Dim FechaMovimiento As Date = TxtFecha.Text.ToDate 'TIPO CAMBIO @@ -17993,7 +17907,7 @@ Partial Class Compras_Compras 'INGRESA DETALLE DE AF(49) - TipoAF 2 es para las compras - Dim DT = DtTemporal.FiltraParametros("ISNULL(TipoAF,0) = 2") + Dim DT As DataTable = DtTemporal.FiltraParametros("ISNULL(TipoAF,0) = 2") If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then For Each Row2 As DataRow In DT.Rows ImporteMovimiento = Row2("Total").ToString.ToDecimal * Multiplicador @@ -18009,10 +17923,10 @@ Partial Class Compras_Compras ImporteMovimiento = 0 'INGRESA DETALLE DE ALMACÉN(68) - Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) + Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa) If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then - Dim CveMovimientoInventario = -1 - Dim ModalidadAlmacen = -1 + Dim CveMovimientoInventario As Integer = -1 + Dim ModalidadAlmacen As Integer = -1 Dim DtMovtosAlmacen As New DataTable DtMovtosAlmacen.Columns.Add("CveMovimiento", GetType(Integer)) DtMovtosAlmacen.Columns.Add("CveCuenta", GetType(Integer)) @@ -18035,7 +17949,7 @@ Partial Class Compras_Compras Exit For End If - Dim DrInv = DtMovtosAlmacen.NewRow + Dim DrInv As DataRow = DtMovtosAlmacen.NewRow DrInv("CveMovimiento") = CveMovimientoInventario DrInv("Importe") = ImporteMovimiento DtMovtosAlmacen.Rows.Add(DrInv) @@ -18080,7 +17994,7 @@ Partial Class Compras_Compras End If If DT.Rows.Count > 0 Then - Dim ImporteAlmacen = 0.0D + Dim ImporteAlmacen As Decimal = 0.0D For Each Row2 As DataRow In DT.Rows If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal @@ -18131,8 +18045,8 @@ Partial Class Compras_Compras Dim ObjContabilidad As New ClsContabilidad Dim ObjCompras As New ClsCompras(ObjContabilidad.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjContabilidad.IniciaTransacSQL()) - Dim TieneError = False - Dim MensajeError = "" + Dim TieneError As Boolean = False + Dim MensajeError As String = "" If ObjEventos.AddEventoBitacora($"Se actualizó el Tipo de Cambio de la compra. TC anterior: {TxtActualizarTC_TCActual.Text.FormatoNumero(4)} | TC actual: {TxtActualizarTC_TCActualizar.Text.FormatoNumero(4)}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then If ObjCompras.UpdateCompraTipoCambio(TxtActualizarTC_TCActualizar.Text.ToDouble, CveCompra, CvePrePoliza, UsuarioActual.CveEmpresa) Then @@ -18429,7 +18343,7 @@ Partial Class Compras_Compras Dim importeMovimiento As Decimal = 0 Dim importeMN As Decimal = 0 Dim tipoCambioActual As Decimal = 0 - Dim Multiplicador = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) + Dim Multiplicador As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then tipoCambioActual = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.ToDecimal @@ -18622,7 +18536,7 @@ Partial Class Compras_Compras Dim CveProveedorContacto As Integer = -1 Dim Retorno As Boolean = True Dim CveProveedor As Integer = -1 - Dim GeneraReq = False + Dim GeneraReq As Boolean = False Dim IDPoliza As Integer = 0 @@ -18710,23 +18624,23 @@ Partial Class Compras_Compras 'VARIABLES Dim CveOrdenCompra As Integer = -1 - Dim DiferenciaInvOC = 0.0D - Dim CveMovimientoAlmacen = -1 - Dim CveOCDetalle = -1 - Dim CveAlmacen = -1 + Dim DiferenciaInvOC As Decimal = 0.0D + Dim CveMovimientoAlmacen As Integer = -1 + Dim CveOCDetalle As Integer = -1 + Dim CveAlmacen As Integer = -1 Dim Fecha As Date = TxtFecha.Text.ToDate Dim CveProveedorInvOC As Integer = -1 Dim ProveedorNombre As String = "" Dim SerieFolio As String = "" Dim CvePrePoliza As Integer = -1 - Dim ConceptoSalida = -1 - Dim TCInvOC = 0.0D - Dim ImporteME = 0.0D - Dim ImporteMEComp = 0.0D - Dim SumatoriaMN = 0.0D - Dim SumatoriaME = 0.0D - Dim SumatoriaMEComp = 0.0D - Dim PUCompra = 0.0D + Dim ConceptoSalida As Integer = -1 + Dim TCInvOC As Decimal = 0.0D + Dim ImporteME As Decimal = 0.0D + Dim ImporteMEComp As Decimal = 0.0D + Dim SumatoriaMN As Decimal = 0.0D + Dim SumatoriaME As Decimal = 0.0D + Dim SumatoriaMEComp As Decimal = 0.0D + Dim PUCompra As Decimal = 0.0D Dim CveMoneda As Integer = 1 Dim PS As String = "" @@ -18751,7 +18665,7 @@ Partial Class Compras_Compras CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero TCInvOC = DrDiferencias("TipoCambioAjuste").ToString.ToDecimal - Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero + Dim CveClasificacionCostoOC As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero If DiferenciaInvOC.RoundSQL() <> 0 Then @@ -19766,7 +19680,7 @@ Partial Class Compras_Compras SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ") SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ") - SBEliminacionCompra.Append($"Dealles:
    ") + SBEliminacionCompra.Append($"Detalles:
    ") For Each dRow As DataRow In TmpDT.Rows SBEliminacionCompra.Append($"-Cantidad: {dRow("Cantidad").ToString.ToDecimal().ToString("###,###,###.00") }, PS: {dRow("PS")}, Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }
    ") Next @@ -19965,6 +19879,46 @@ Partial Class Compras_Compras #End Region + + Protected Sub BtnCancelarCompra_Click(sender As Object, e As EventArgs) + + Dim objCompras As New ClsCompras + + + If objCompras.GetFechaCancelacionMovimiento(CveCompra:=CveCompra, CveEmpresa:=UsuarioActual.CveEmpresa) Then + FechaCancelacionMovimiento = objCompras.FechaCancelacionMovto + Else + FechaCancelacionMovimiento = MinFecha + End If + + TxtFechaCancelacion.Text = TxtFecha.Text + + objCompras.Dispose() + + UpCancelarCompra.Update() + + RegistraScript(" $('#DivCancelarCompra').modal();") + + End Sub + + Protected Sub CheckDevAuto_CheckedChanged(sender As Object, e As EventArgs) + + TxtFechaCancelacion.Text = "" + BtnCancelarCompra2.Enabled = False + + If CheckDevAuto.Checked Then + If FechaCancelacionMovimiento > MinFecha Then + TxtFechaCancelacion.Text = FechaCancelacionMovimiento.ToString("dd/MM/yyyy") + BtnCancelarCompra2.Enabled = True + End If + Else + TxtFechaCancelacion.Text = TxtFecha.Text + BtnCancelarCompra2.Enabled = True + End If + + UpCancelarCompra.Update() + + End Sub End Class diff --git a/Compras/Importaciones.aspx b/Compras/Importaciones.aspx index 99aae4ddf..d026f37c9 100644 --- a/Compras/Importaciones.aspx +++ b/Compras/Importaciones.aspx @@ -24,13 +24,11 @@ -
    - - +
    -
    +
    @@ -44,9 +42,24 @@
    Pedimento:
    - + + + + + + + +
    @@ -73,9 +86,10 @@
    -
    Aduanal
    +
    Aduanal:
    - + <%----%> +
    <%--
    @@ -105,7 +119,7 @@
    -
    +
    @@ -116,8 +130,8 @@
    @@ -213,7 +227,7 @@
    -
    +
    @@ -224,7 +238,7 @@
    @@ -236,13 +250,13 @@ - - - - - - - + + + + + + +
    @@ -265,7 +279,7 @@
    - +
    @@ -289,6 +303,9 @@ $('#BtnVincularCompra').click(); } + + + diff --git a/Compras/Importaciones.aspx.vb b/Compras/Importaciones.aspx.vb index 79ca7d049..33e65b86f 100644 --- a/Compras/Importaciones.aspx.vb +++ b/Compras/Importaciones.aspx.vb @@ -58,8 +58,12 @@ Partial Class Compras_Importaciones DtCompras = New DataTable DtComprasVinculadas = New DataTable - DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlAduanal.DataBind() + 'DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlAduanal.DataBind() + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" TxtFecha.Text = Now.ToShortDateString End Sub @@ -87,7 +91,9 @@ Partial Class Compras_Importaciones TxtPedimento.Text = ObjImportaciones.DtResultados.Rows(0)("Pedimento").ToString TxtDescripcion.Text = ObjImportaciones.DtResultados.Rows(0)("Descripcion").ToString TxtFecha.Text = ObjImportaciones.DtResultados.Rows(0)("Fecha").ToString - DdlAduanal.SelectedValue = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString + + DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString + DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString 'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString 'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString @@ -139,13 +145,14 @@ Partial Class Compras_Importaciones Exit Sub End If + Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ") Dim ObjImp As New ClsCompras ObjImp.IniciaTransacSQL() Dim ErrorImportacion = False If CveImportacion < 0 Then - CveImportacion = ObjImp.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcion.Text.Trim, DdlAduanal.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveImportacion > 0 Then For Each dr As DataRow In DtCompras.Rows @@ -168,7 +175,7 @@ Partial Class Compras_Importaciones End If Else - If Not ObjImp.UpdateImportacion(TxtPedimento.Text.Trim, CveImportacion, TxtDescripcion.Text, DdlAduanal.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If Not ObjImp.UpdateImportacion(Pedimento, CveImportacion, TxtDescripcion.Text, DdlProveedores.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ErrorImportacion = True End If End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0536165ec..0ec2f8250 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3386,10 +3386,17 @@ Partial Class PopUpVerFactura Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") + Dim Ruta As String = "" + Dim Supervisor As String = "" + If String.IsNullOrEmpty(Recibio) Then Dim ObjRH As New ClsRH If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString + If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then + Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString + Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString + End If End If ObjRH.Dispose() End If @@ -3576,7 +3583,8 @@ Partial Class PopUpVerFactura MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, - CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo) + CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, + Ruta:=Ruta, Supervisor:=Supervisor) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -3594,7 +3602,8 @@ Partial Class PopUpVerFactura EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, - Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "") + Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "", + Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing) Select Case CveConcepto @@ -4936,6 +4945,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego)) End If + params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Observaciones", Observaciones)) @@ -4961,6 +4971,13 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then + params.Add(New ReportParameter("Ruta", Ruta)) + params.Add(New ReportParameter("Supervisor", Supervisor)) + params.Add(New ReportParameter("NombreEmpleado", Recibio)) + params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro)) + End If + Dim Mov As New ClsInventarios If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index e878fb243..43b258bd9 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -792,7 +792,7 @@
    - +
    - +
    Tipo Tercero: @@ -931,7 +931,7 @@ -
    +
    -
    -
    -
    - - Cuentas Contables Doctos. X Pagar -
    -
    -
    -
    -
    -
    - - -
    -
    -
    - - - - - - - - - - - - - - -
    Doctos. x Pagar: - - - - - -
    Extranjera: - - - -
    - - - - -
    -
    -
    +
    +
    +
    + + Cuentas Contables Anticipos +
    +
    +
    +
    +
    +
    + + +
    +
    +
    + + + + + + + + + + + + + + +
    Anticipos: + + + + + +
    Extranjera: + + + +
    + + + + +
    +
    +
    +
    -
    -
    -
    - - Cuentas Contables Anticipos -
    -
    -
    -
    -
    -
    - - -
    -
    -
    - - - - - - - - - - - - - - -
    Anticipos: - - - - - -
    Extranjera: - - - -
    - - - - -
    -
    -
    + +
    diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 9ecc4b10e..30dd0ee1c 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -946,6 +946,16 @@ Partial Class Compras_Proveedores DdlCtaContDocsXPagarComplementaria.AutoPostBack = True DdlCtaContRetISRAcreditable.AutoPostBack = True + 'Proveedores + Dim drr As DataRow = ObjProveedor.DtResultados.Rows(0) + If drr("IdCtaContProveedores").ToString <> "" Then DdlCtaContProveedores.Items.Add(New ListItem(drr("CtaContProveedores").ToString, drr("IdCtaContProveedores").ToString)) : DdlCtaContProveedores.SelectedValueExist(drr("IdCtaContProveedores").ToString) + If drr("IdCtaContExtranjera").ToString <> "" Then DdlCtaContExtranjera.Items.Add(New ListItem(drr("CtaContExtranjera").ToString, drr("IdCtaContExtranjera").ToString)) : DdlCtaContExtranjera.SelectedValue = drr("IdCtaContExtranjera").ToString + If drr("IdCtaContComplementaria").ToString <> "" Then DdlCtaContComplementaria.Items.Add(New ListItem(drr("CtaContComplementaria").ToString, drr("IdCtaContComplementaria").ToString)) : DdlCtaContComplementaria.SelectedValue = drr("IdCtaContComplementaria").ToString + + If drr("IdCtaContAnticipos").ToString <> "" Then DdlCtaContAnticipos.Items.Add(New ListItem(drr("CtaContAnticipos").ToString, drr("IdCtaContAnticipos").ToString)) : DdlCtaContAnticipos.SelectedValueExist(drr("IdCtaContAnticipos").ToString) + If drr("IdCtaContAnticiposExtranjera").ToString <> "" Then DdlCtaContAnticiposExtranjera.Items.Add(New ListItem(drr("CtaContAnticiposExtranjera").ToString, drr("IdCtaContAnticiposExtranjera").ToString)) : DdlCtaContAnticiposExtranjera.SelectedValue = drr("IdCtaContAnticiposExtranjera").ToString + If drr("IdCtaContAnticiposComplementaria").ToString <> "" Then DdlCtaContAnticiposComplementaria.Items.Add(New ListItem(drr("CtaContAnticiposComplementaria").ToString, drr("IdCtaContAnticiposComplementaria").ToString)) : DdlCtaContAnticiposComplementaria.SelectedValue = drr("IdCtaContAnticiposComplementaria").ToString + DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);") DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);") DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);") @@ -1011,8 +1021,6 @@ Partial Class Compras_Proveedores Retorno = True ' enviaractivacion() - - CargaEventoBitacora() Else @@ -1679,7 +1687,7 @@ Partial Class Compras_Proveedores AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then - Dim NuevoCveProveedor = ObjProveedores.CveProveedor + Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor ''Agregar Cuentas Bancarias If TempDTCuentasBancos.Rows.Count > 0 Then @@ -1848,15 +1856,16 @@ Partial Class Compras_Proveedores DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, - CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then - 'CargaDatos() + CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, + IdCtaContProveedores:=DdlCtaContProveedores.SelectedValue.ToEntero, CtaContProveedores:=DdlCtaContProveedores.SelectedItem.Text, + IdCtaContExtranjera:=DdlCtaContExtranjera.SelectedValue.ToEntero, CtaContExtranjera:=DdlCtaContExtranjera.SelectedItem.Text, + IdCtaContComplementaria:=DdlCtaContComplementaria.SelectedValue.ToEntero, CtaContComplementaria:=DdlCtaContComplementaria.SelectedItem.Text, + IdCtaContAnticipos:=DdlCtaContAnticipos.SelectedValue.ToEntero, CtaContAnticipos:=DdlCtaContAnticipos.SelectedItem.Text, + IdCtaContAnticiposExtranjera:=DdlCtaContAnticiposExtranjera.SelectedValue.ToEntero, CtaContAnticiposExtranjera:=DdlCtaContAnticiposExtranjera.SelectedItem.Text, + IdCtaContAnticiposComplementaria:=DdlCtaContAnticiposComplementaria.SelectedValue.ToEntero, CtaContAnticiposComplementaria:=DdlCtaContAnticiposComplementaria.SelectedItem.Text) Then - - If tIdContaProveedor > 0 AndAlso CreoCuenta Then ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, tIdContaProveedor) - - 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing - 'End If + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) 'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO @@ -2023,8 +2032,6 @@ Partial Class Compras_Proveedores End Sub - - Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then @@ -2771,6 +2778,8 @@ Partial Class Compras_Proveedores End Sub Private Sub CargaEventoBitacora() + If CveProveedor <= 0 Then Exit Sub + Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") @@ -3165,7 +3174,7 @@ Partial Class Compras_Proveedores End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) - Dim EsBancomer = False + Dim EsBancomer As Boolean = False If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then EsBancomer = True @@ -3318,7 +3327,7 @@ Partial Class Compras_Proveedores Else - Dim index = CveCuentaBancaria + Dim index As Integer = CveCuentaBancaria Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Row("BancoNombre") = NombreBanco Row("Sucursal") = NumeroSucursal @@ -3369,8 +3378,8 @@ Partial Class Compras_Proveedores If e.Row.RowType = DataControlRowType.DataRow Then If CveProveedor < 0 Then - For index = 1 To TempDTCuentasBancos.Rows.Count - TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index + For Index = 1 To TempDTCuentasBancos.Rows.Count + TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index Next TempDTCuentasBancos.AcceptChanges() End If @@ -4365,11 +4374,6 @@ Partial Class Compras_Proveedores Dim row As DataRow = dt.Rows(0) CtaCodigo = CStr(row("CtaCodigo")) Codigo = CStr(row("Codigo")) - - 'If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then - ' TieneError = True - 'End If - Else TieneError = True End If @@ -4420,24 +4424,24 @@ Partial Class Compras_Proveedores Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Dim dt As New DataTable Dim Conexion As Odbc.OdbcConnection = Nothing - Dim ErrorArchivo = False + Dim ErrorArchivo As Boolean = False Try Select Case Tipo Case "CSV" Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;") Conexion.Open() - Dim cmd = Conexion.CreateCommand() + Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand() cmd.CommandType = CommandType.Text cmd.CommandText = $"SELECT * FROM [{FileName}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd) DataAdapter.Fill(dt) Case "EXCEL" Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") Conexion.Open() - Dim cmd = Conexion.CreateCommand() + Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand() cmd.CommandType = CommandType.Text cmd.CommandText = "SELECT * FROM [Hoja1$]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd) DataAdapter.Fill(dt) Case Else Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) @@ -4474,7 +4478,7 @@ Partial Class Compras_Proveedores If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then 'ObjProveedores.DtResultados.ExportToExcel("Resultados") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/Reembolsos.aspx b/Compras/Reembolsos.aspx index 21370c79f..05673e9e8 100644 --- a/Compras/Reembolsos.aspx +++ b/Compras/Reembolsos.aspx @@ -412,7 +412,7 @@ - + @@ -494,13 +494,7 @@ - - - IdCtaContProveedores - - - - + diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 2aeabc214..23e5a0f69 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -320,7 +320,7 @@ + DataKeyNames="CveCompra,FechaCompra,CveProveedor,CveMoneda,Proveedor,SerieFolio,SubTotal,IVA,RetIVA,RetISR,IEPS,Total,TipoCambio,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto,IVAPorPagar,NoDeducible"> @@ -413,13 +413,7 @@ - - - IdCtaContProveedores - - - - + Ot. Ing. @@ -430,12 +424,10 @@ -
    - diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 5745265db..4aa5f3843 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -218,7 +218,7 @@ Partial Class Compras_ReembolsosComprobaciones CveMonedaPago = ObjIE.CveMoneda TipoCambioPago = ObjIE.TipoCambio - Dim IndexCheque = If(UsuarioActual.TienePermisoProceso(113), DDlCheques.SelectedIndex - 1, DDlCheques.SelectedIndex) + Dim IndexCheque As Integer = If(UsuarioActual.TienePermisoProceso(113), DDlCheques.SelectedIndex - 1, DDlCheques.SelectedIndex) TxtChequeSaldo.Text = DtCheques.Rows(DDlCheques.SelectedIndex - 1)("Saldo").ToString.FormatoNumero @@ -484,7 +484,7 @@ Partial Class Compras_ReembolsosComprobaciones Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos Dim filemove As String = "" Dim Comprobante As String = "" - Dim ComprobanteIE = "" + Dim ComprobanteIE As String = "" For Each fileItem As Archivo In filesgral Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") @@ -498,7 +498,7 @@ Partial Class Compras_ReembolsosComprobaciones CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones1", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveCajaChica > 0 Then - Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString + Dim FolioIENew As String = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporteVinculado.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) 'AGREGO PREPOLIZA IE BANCOS If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal * tipoCambio, 30, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtObservaciones.Text, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporteVinculado.Text.ToDecimal)) Then @@ -563,7 +563,7 @@ Partial Class Compras_ReembolsosComprobaciones 'SI ES CAJA CHICA REGISTRO IE CAJA CHICA If CveCajaChica > 0 Then - Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString + Dim FolioIENew As String = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, TxtFechaDocumento.Text.Trim.ToDate, FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) 'AGREGO PREPOLIZA IE BANCOS @@ -587,7 +587,7 @@ Partial Class Compras_ReembolsosComprobaciones 'SI ES CAJA CHICA REGISTRO IE CAJA CHICA If CveCajaChica > 0 Then - Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 2).ToString + Dim FolioIENew As String = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 2).ToString CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 2, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) '8 'AGREGO PREPOLIZA IE BANCOS @@ -605,13 +605,13 @@ Partial Class Compras_ReembolsosComprobaciones If CveIERegistrado > 0 Or CveIEExcedente > 0 Or ChkReembolsarSinBancos.Checked Then 'inserto los movimientos de la conta para abonar al saldo If ((TxtImporte.Text.ToDecimal > 0 Or ChkReembolsarSinBancos.Checked) And CvePrePolizaIERegistrado > 0) Or ((TxtImporteVinculado.Text.ToDecimal > 0 And HdnCheque.Value.ToEntero > 0) Or ChkReembolsarSinBancos.Checked) Then - Dim SaldoCheque = If(HdnCheque.Value.ToEntero > 0, TxtChequeSaldo.Text.ToDecimal, TxtImporte.Text.ToDecimal) + Dim SaldoCheque As Decimal = If(HdnCheque.Value.ToEntero > 0, TxtChequeSaldo.Text.ToDecimal, TxtImporte.Text.ToDecimal) Dim PorcentajePago As Decimal = 1 Dim FechaMovimiento As Date = TxtFechaDocumento.Text.ToDate Dim CvePrePolizaUnificar As Integer = 0 - Dim SeUnifico = False + Dim SeUnifico As Boolean = False 'inserto las compras que voy a pagar For Each gvr As GridViewRow In GvCxP.Rows @@ -660,7 +660,7 @@ Partial Class Compras_ReembolsosComprobaciones 'registramos el nuevo IE If CveCajaChica > 0 Then CveIEPago = 0 - Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString + Dim FolioIENew As String = ObjIE.GetNextFolio(CveCajaChica, 6).ToString CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.ToDate), FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) TipoCambioPago = 1 Else @@ -735,7 +735,7 @@ Partial Class Compras_ReembolsosComprobaciones 'registramos el nuevo IE If CveCajaChica > 0 Then CveIEPago = 0 - Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString + Dim FolioIENew As String = ObjIE.GetNextFolio(CveCajaChica, 6).ToString CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, TxtFechaPrePoliza.Text.ToDate, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) TipoCambioPago = 1 End If @@ -798,9 +798,6 @@ Partial Class Compras_ReembolsosComprobaciones End If End If Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" - If UsuarioActual.CveEmpresa = 119 Then - AutoConta = False - End If If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1, AutoConta:=AutoConta) Then If ObjMov.ValorPolizaDescuadre > 0 Then diff --git a/Compras/RembolsosSinAsignar.aspx b/Compras/RembolsosSinAsignar.aspx index 9046f41a6..5688091b8 100644 --- a/Compras/RembolsosSinAsignar.aspx +++ b/Compras/RembolsosSinAsignar.aspx @@ -106,7 +106,7 @@ - + diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 5a081efb4..b312e35e6 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -83,7 +83,7 @@ Partial Class Compras_RepCxP End Set End Property - Private Property TCEspecifico As Double + Private Property TCEspecifico As Decimal #End Region @@ -197,8 +197,8 @@ Partial Class Compras_RepCxP End Sub Private Sub CargaDatos() - If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then - TCEspecifico = TxtEspecifico.Text + If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then + TCEspecifico = TxtEspecifico.Text.ToDecimal Else TCEspecifico = -1 End If @@ -214,7 +214,7 @@ Partial Class Compras_RepCxP If txtFechaF.Text = "" Then FechaF = "-1" If txtFechaVI.Text = "" Then FechaVI = "-1" If txtFechaVF.Text = "" Then FechaVF = "-1" - Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1) + Dim TipoAgrupacion As Integer = If(chkAgruparMes.Checked, 1, -1) Dim CveProyecto As Integer = -1 If DdlProyecto.Visible Then @@ -223,7 +223,7 @@ Partial Class Compras_RepCxP Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, - DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, + DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto) Then GvCxP.DataSource = Mov.DtResultados DtDatos = Mov.DtResultados @@ -1082,10 +1082,10 @@ Partial Class Compras_RepCxP If txtFechaF.Text = "" Then FechaF = "-1" If txtFechaVI.Text = "" Then FechaVI = "-1" If txtFechaVF.Text = "" Then FechaVF = "-1" - Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1) + Dim TipoAgrupacion As Integer = If(chkAgruparMes.Checked, 1, -1) Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, - DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, + DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then End If @@ -1109,16 +1109,15 @@ Partial Class Compras_RepCxP Mes(10) = monthNames(Dr("NomMes11").ToString.ToDate.Month) Mes(11) = monthNames(Dr("NomMes12").ToString.ToDate.Month) Mes(12) = "12+" - If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then - TCEspecifico = TxtEspecifico.Text + If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then + TCEspecifico = TxtEspecifico.Text.ToDecimal Else TCEspecifico = -1 End If - Dim DtExcel As DataTable If chkAgruparMes.Checked Then - DtExcel = (From row As DataRow In Mov.DtResultados.Rows + DtExcel = (From row As DataRow In Mov.DtResultados.AsEnumerable Select New With { .GPO = row.Item("GPO"), @@ -1440,8 +1439,8 @@ Partial Class Compras_RepCxP If txtFechaVI.Text = "" Then FechaVencimientoI = "-1" If txtFechaVF.Text = "" Then FechaVencimientoF = "-1" - If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then - TCEspecifico = TxtEspecifico.Text + If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then + TCEspecifico = TxtEspecifico.Text.ToDecimal Else TCEspecifico = -1 End If @@ -1503,7 +1502,7 @@ Partial Class Compras_RepCxP params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text)) params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}")) - params.Add(New ReportParameter("CantColumnas", CantidadColumnas)) + params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString)) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato) @@ -1517,11 +1516,11 @@ Partial Class Compras_RepCxP #Region "TIPO DE CAMBIO" Private Sub DdlTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged - If RblTipoCambio.SelectedValue = 3 Then + If RblTipoCambio.SelectedValue = "3" Then Dim TipoCambio As Double LiEspecifico.Visible = True TipoCambio = GlobalTipoCambio(Now) - TxtEspecifico.Text = TipoCambio + TxtEspecifico.Text = TipoCambio.ToString Else LiEspecifico.Visible = False End If diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index f0016d615..76f381319 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -226,7 +226,7 @@ Partial Class RepCxPDetalle CargaProveedores() Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero - DdlProveedores.SelectedValue = CveProveedor + DdlProveedores.SelectedValue = CveProveedor.ToString Me.CveProveedor = CveProveedor If DdlProveedores.SelectedValue.ToEntero > 0 Then @@ -343,38 +343,8 @@ Partial Class RepCxPDetalle DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) UPFiltros.Update() - End Sub - - Private Function CargaCuentasContables(DT As DataTable) As DataTable - - Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) - Try - If ObjConpaq.GetCuentas(-1, -1, -1) Then - DTCuentasContables = ObjConpaq.DtResultados - - For Each Proveedor As DataRow In DT.Rows - If Proveedor("IdCtaContProveedores").ToString.ToEntero > 0 Then - - If Not DTCuentasContables.FiltraParametros($"Id = {Proveedor("IdCtaContProveedores").ToString }") Is Nothing Then - Proveedor("Cuenta") = DTCuentasContables.FiltroPrimeroValor("CuentaFormato", $"id = {Proveedor("IdCtaContProveedores").ToString.ToEntero }") - End If - - End If - Next - - DT.AcceptChanges() - Else - DTCuentasContables = New DataTable - End If - Catch ex As Exception - OnError("Ocurrió un error al cargar las cuentas contables", ex) - End Try - ObjConpaq.Dispose() - - Return DT - - End Function - + End Sub + Private Sub CargaDatos() Dim ObjMovtos As New ClsMovimientos() Try @@ -397,8 +367,8 @@ Partial Class RepCxPDetalle If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario, DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), DdlEstatusCompra.SelectedValue.ToEntero, Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, - TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3, - -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then + TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(CveTipoProveedor = 3, -1, CveTipoProveedor), + Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then Dim TMP_DTDatos As New DataTable @@ -406,15 +376,12 @@ Partial Class RepCxPDetalle TMP_DTDatos.Columns.Add("Cuenta") If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.TipoContabilidad = 2 Then 'cuando es grupo por proveedor, se muestra la cuneta contable - TMP_DTDatos = CargaCuentasContables(TMP_DTDatos) + 'TMP_DTDatos = CargaCuentasContables(TMP_DTDatos) GvDatos.Columns(13).Visible = True Else GvDatos.Columns(13).Visible = False End If - DtDatos = TMP_DTDatos - - GvDatos.DataSource = DtDatos HplProgramar.NavigateUrl = $"/Bancos/RepProgramarRecursos.aspx{HttpContext.Current.Request.Url.PathAndQuery.Replace("/Compras/RepCxPDetalle.aspx", "")}" diff --git a/Compras/RepEvaluacionProveedor.aspx.vb b/Compras/RepEvaluacionProveedor.aspx.vb index 549fc3663..924970f9e 100644 --- a/Compras/RepEvaluacionProveedor.aspx.vb +++ b/Compras/RepEvaluacionProveedor.aspx.vb @@ -40,7 +40,7 @@ Partial Class RepEvaluacionProveedor Dim fFin As Date = Date.Parse(TxtFechaF.Text) Dim objCompras As New ClsCompras - objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin) + objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin) GV.DataSource = objCompras.DtResultados LtlTotalRegistros.Text = objCompras.DtResultados.Rows.Count.ToString @@ -59,7 +59,6 @@ Partial Class RepEvaluacionProveedor If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then Dim Liga As String = String.Empty - If (e.Row.DBCampo("ReqCve").ToString <> "") Then Liga = String.Format("", e.Row.DBCampo("ReqCve")) e.Row.FCLabel("lblReqFolio").Text = String.Format("", Liga, e.Row.DBCampo("ReqFolio")) @@ -68,27 +67,17 @@ Partial Class RepEvaluacionProveedor If e.Row.DBCampo("OcCve").ToString <> "" Then Liga = String.Format("", e.Row.DBCampo("OcCve")) e.Row.FCLabel("lblOcFolio").Text = String.Format("", Liga, e.Row.DBCampo("OcFolio")) - End If - - - Liga = String.Format("", e.Row.DBCampo("CveProveedor")) e.Row.FCLabel("lblProveedor").Text = String.Format("", Liga, e.Row.DBCampo("NombreComercial")) 'Liga = String.Format("", e.Row.DBCampo("CveCompra")) 'e.Row.FCLabel("lblReqFolio").Text = String.Format("", Liga, e.Row.DBCampo("ReqFolio")) - - Dim atraso As Integer = e.Row.DBCampo("Atraso").Trim.ToEntero - - e.Row.FCLabel("lblAtraso").Font.Bold = True - - - e.Row.FCLabel("lblAtraso").Text = atraso + e.Row.FCLabel("lblAtraso").Text = atraso.ToString e.Row.FCLabel("lblAtraso").Width = 70 If atraso > 0 Then @@ -96,7 +85,6 @@ Partial Class RepEvaluacionProveedor Else e.Row.FCLabel("lblAtraso").CssClass = "label label-success" End If - End If End If diff --git a/Compras/RepEvaluacionesProveedores.aspx.vb b/Compras/RepEvaluacionesProveedores.aspx.vb index 6ba5f6eec..1b7b7baa2 100644 --- a/Compras/RepEvaluacionesProveedores.aspx.vb +++ b/Compras/RepEvaluacionesProveedores.aspx.vb @@ -35,7 +35,7 @@ Partial Class RepEvaluacionesProveedores Private Sub CargarDatos() Dim ObjCompras As New ClsCompras - If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text, TxtFechaF.Text, DdlEvaluado.SelectedValue.ToEntero) Then + If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlEvaluado.SelectedValue.ToEntero) Then GV.DataSource = ObjCompras.DtResultados DtDatos = ObjCompras.DtResultados End If @@ -58,7 +58,7 @@ Partial Class RepEvaluacionesProveedores params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString)) params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString)) ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1") diff --git a/Compras/RepGastos.aspx.vb b/Compras/RepGastos.aspx.vb index b34bc15ff..3b0b50dc7 100644 --- a/Compras/RepGastos.aspx.vb +++ b/Compras/RepGastos.aspx.vb @@ -14,7 +14,7 @@ Partial Class RepGastos #Region "Propiedades" Private Property RfechaInicio() As DateTime Get - Return If(IsNothing(ViewState("RfechaInicio")), DateTime.MinValue, (ViewState("RfechaInicio"))) + Return If(IsNothing(ViewState("RfechaInicio")), DateTime.MinValue, ViewState("RfechaInicio").ToString.ToDateTime) End Get Set ViewState("RfechaInicio") = Value @@ -22,7 +22,7 @@ Partial Class RepGastos End Property Private Property RfechaFin() As DateTime Get - Return If(IsNothing(ViewState("RfechaFin")), DateTime.MinValue, (ViewState("RfechaFin"))) + Return If(IsNothing(ViewState("RfechaFin")), DateTime.MinValue, ViewState("RfechaFin").ToString.ToDateTime) End Get Set ViewState("RfechaFin") = Value diff --git a/Compras/RepImportaciones.aspx b/Compras/RepImportaciones.aspx index b8331f33c..cb27b4dfe 100644 --- a/Compras/RepImportaciones.aspx +++ b/Compras/RepImportaciones.aspx @@ -86,12 +86,13 @@
    Aduanal:
    - + + <%----%>
    Fecha Inicio:
    - + @@ -104,7 +105,7 @@
    Fecha Fin:
    - + @@ -115,15 +116,13 @@
    -
    Esatus:
    -
    - +
    Estatus:
    +
    Todos Activo Cerrado - - +
    @@ -144,10 +143,10 @@ - - + + - + <%----%> diff --git a/Compras/RepImportaciones.aspx.vb b/Compras/RepImportaciones.aspx.vb index d5e62cbf2..d95c5e716 100644 --- a/Compras/RepImportaciones.aspx.vb +++ b/Compras/RepImportaciones.aspx.vb @@ -29,9 +29,10 @@ Partial Class Compras_RepImportaciones TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString TxtFechaF.Text = Date.Now.ToShortDateString - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" 'DdlAF.DataSource = GlobalDTActivoFijos 'DdlAF.DataBind() @@ -52,7 +53,7 @@ Partial Class Compras_RepImportaciones If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1" If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1" - If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then + If ObjImportaciones.GetImportaciones(-1, DdlProveedores.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then DtImportaciones = ObjImportaciones.DtResultados Else Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError) diff --git a/Compras/RepNotasCredito.aspx b/Compras/RepNotasCredito.aspx index 5c8f0bec3..d7f55adc9 100644 --- a/Compras/RepNotasCredito.aspx +++ b/Compras/RepNotasCredito.aspx @@ -108,7 +108,7 @@ + DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,TipoCambio,CveSubProyecto,SerieFolio"> diff --git a/Compras/RepProductosServicios.aspx b/Compras/RepProductosServicios.aspx index 27118873a..96311d001 100644 --- a/Compras/RepProductosServicios.aspx +++ b/Compras/RepProductosServicios.aspx @@ -244,6 +244,7 @@ +
    diff --git a/Compras/RepProductosServiciosDetalle.aspx b/Compras/RepProductosServiciosDetalle.aspx index f2d43125c..1107a2db1 100644 --- a/Compras/RepProductosServiciosDetalle.aspx +++ b/Compras/RepProductosServiciosDetalle.aspx @@ -235,6 +235,7 @@ +
    diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index f75f8057b..c35b95215 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -298,8 +298,8 @@ Partial Class Compras_RepProductosServiciosDetalle Private Sub CargaDatos() Dim ObjCompras As New ClsCompras() - Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) - Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) + Dim FechaI As Date = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + Dim FechaF As Date = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero) Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString @@ -331,8 +331,8 @@ Partial Class Compras_RepProductosServiciosDetalle Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String, CveCultivo As String) Dim ObjCompras As New ClsCompras() - Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) - Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) + Dim FechaI As Date = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + Dim FechaF As Date = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1 If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, @@ -487,32 +487,30 @@ Partial Class Compras_RepProductosServiciosDetalle Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) - Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) + Dim FechaI As Date = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + Dim FechaF As Date = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) If txtFechaI.Text = "" Then FechaI = "-1".ToDate If txtFechaF.Text = "" Then FechaF = "-1".ToDate - Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $" Grupo: {DdlGrupo.SelectedItem.Text}") - Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}") + Dim Grupo As String = If(DdlGrupo.SelectedValue = "-1", "", $" Grupo: {DdlGrupo.SelectedItem.Text}") + Dim Proyecto As String = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}") 'Dim SubProyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $" SubProyecto: {DdlSubProyecto.SelectedItem.Text}") 'Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $" Categoria: {DdlCategoria.SelectedItem.Text}") - Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DdlClasificacion.SelectedItem.Text}") - Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S: {DdlPS.SelectedText}") - Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $" Proveedor: {DdlProveedor.SelectedText}") - Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $" Estatus: {DdlEstatus.SelectedItem.Text}") + Dim Clasificacion As String = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DdlClasificacion.SelectedItem.Text}") + Dim PS As String = If(DdlPS.SelectedValue = "-1", "", $" P.S: {DdlPS.SelectedText}") + Dim Proveedor As String = If(DdlProveedor.SelectedValue = "-1", "", $" Proveedor: {DdlProveedor.SelectedText}") + Dim Estatus As String = If(DdlEstatus.SelectedValue = "-1", "", $" Estatus: {DdlEstatus.SelectedItem.Text}") 'Dim TipoAF = If(DdlTipoAF.SelectedValue = "-1", "", $" Tipo AF: {DdlTipoAF.SelectedItem.Text}") Dim FechaIn As String = $" Fecha Inicio: {txtFechaI.Text}" Dim FechaFn As String = $" Fecha Fin: {txtFechaF.Text}" If txtFechaI.Text = "" Then FechaIn = "" If txtFechaF.Text = "" Then FechaFn = "" - Dim TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero) - 'PARAMETROS EN LISTBOXs - Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" SubProyecto: {DdlSubProyecto.GetSelectedText}") - Dim Categoria = If(DdlCategoria.GetSelectedText = "", "", $" Categoria: {DdlCategoria.GetSelectedText}") - Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $" Tipo Gasto: {DdlTipoGasto.GetSelectedText}") - Dim TipoAF = If(DdlTipoAF.GetSelectedText = "", "", $" Tipo AF: {DdlTipoAF.GetSelectedText}") - Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $" SubTipo AF: {DdlSubTipoAF.GetSelectedText}") + Dim SubProyecto As String = If(DdlSubProyecto.GetSelectedText = "", "", $" SubProyecto: {DdlSubProyecto.GetSelectedText}") + Dim Categoria As String = If(DdlCategoria.GetSelectedText = "", "", $" Categoria: {DdlCategoria.GetSelectedText}") + Dim TipoGasto As String = If(DdlTipoGasto.GetSelectedText = "", "", $" Tipo Gasto: {DdlTipoGasto.GetSelectedText}") + Dim TipoAF As String = If(DdlTipoAF.GetSelectedText = "", "", $" Tipo AF: {DdlTipoAF.GetSelectedText}") + Dim SubTipoAF As String = If(DdlSubTipoAF.GetSelectedText = "", "", $" SubTipo AF: {DdlSubTipoAF.GetSelectedText}") If DtDatos.Rows.Count > 0 Then Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx index b9fe26db5..3c3ac64f7 100644 --- a/Compras/RepRembolsoComprobaciones.aspx +++ b/Compras/RepRembolsoComprobaciones.aspx @@ -159,7 +159,7 @@ - + Compra @@ -242,14 +242,8 @@ - - - IdCtaContProveedores - - - - - + + diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 2dc77cd24..23e243447 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -128,7 +128,7 @@ Partial Class Compras_RepRembolsoComprobaciones If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = "" If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = "" If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = "" - If Not e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.Cells(13).Text = "" + If Not e.Row.DBCampo("CvePrePoliza").ToEntero > 0 Then e.Row.Cells(12).Text = "" End If End Sub @@ -137,7 +137,7 @@ Partial Class Compras_RepRembolsoComprobaciones Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL) Dim ObjAC As ClsContPAQi = Nothing - Dim TieneError = False + Dim TieneError As Boolean = False Dim CvePrePoliza As Integer = 0 Dim IdPoliza As Integer = 0 Dim Msg As New StringBuilder diff --git a/Compras/ValidaCFDi.aspx.vb b/Compras/ValidaCFDi.aspx.vb index 4b85c5f7d..929273f91 100644 --- a/Compras/ValidaCFDi.aspx.vb +++ b/Compras/ValidaCFDi.aspx.vb @@ -15,7 +15,7 @@ Partial Class Compras_ValidaCFDi LtlFechaExp.Text = ObjCFDi.FechaEmision LtlFechaCert.Text = ObjCFDi.FechaCertificacion LtlPACCert.Text = ObjCFDi.RFCPAC - LtlTotal.Text = ObjCFDi.Monto + LtlTotal.Text = ObjCFDi.Monto.ToString LtlEfecto.Text = ObjCFDi.Efecto LtlEstado.Text = ObjCFDi.Estado LtlRespuestaHTML.Text = ObjCFDi.ResponseHTML diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 108e47516..10dd8f6d3 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -4328,7 +4328,7 @@ Partial Class Compras_eFacturas Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) Dim PDFRutaArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF")) - Dim RutaRDLC = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc") + Dim RutaRDLC As String = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc") @@ -4790,11 +4790,9 @@ Partial Class Compras_eFacturas ObjCompras.Dispose() - - If VinculacionValida Then - Dim TieneError = False + Dim TieneError As Boolean = False Dim ObjCompra As New ClsCompras ObjCompra.IniciaTransacSQL() @@ -5942,7 +5940,7 @@ Public Class Compra2 End Function Private Function AjustesValidacion() As Boolean - Dim respuesta = True + Dim respuesta As Boolean = True 'VALIDA IMPORTES If Not ValidaTotalesGuardar() Then respuesta = False @@ -5969,7 +5967,7 @@ Public Class Compra2 End Function Private Function ValidaTotalesGuardar() As Boolean - Dim EsValido = True + Dim EsValido As Boolean = True 'VALIDA IMPORTES 'VALIDA TOTAL CON LOS IMPORTES TOTALES @@ -6003,7 +6001,7 @@ Public Class Compra2 TempRetISR = RetISR TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + OtrosImpuestos - Amortizacion, 2) DifTotales = Total - TempTotal - Dim DiferenciaPermitida = 0.6 + Dim DiferenciaPermitida As Decimal = 0.6D If Math.Abs(DifTotales) > DiferenciaPermitida Then Errores.AppendLine($"Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{Math.Abs(DifTotales) - DiferenciaPermitida}]") @@ -6015,7 +6013,7 @@ Public Class Compra2 SubTotal2Original = SubTotal2 End If - Dim DiferenciaSubtotales = 0.0D + Dim DiferenciaSubtotales As Decimal = 0 If CveCompra > 0 Or CveFactura > 0 Or OCVinculada Then If SubTotalOriginal = Nothing Then @@ -6528,7 +6526,7 @@ Public Class Compra2 End If End If - Dim SubTotalIEPS = TmpDT.SUM("Total").ToString.ToDecimal + Dim SubTotalIEPS As Decimal = TmpDT.SUMD("Total") Me.SubTotal = Math.Round(SubTotalIEPS, 2) Me.SubTotalConceptos = Math.Round(SubTotalIEPS, 2) @@ -6548,8 +6546,8 @@ Public Class Compra2 Row = TmpDT.NewRow() Dim Retorno As Integer = 0 - Dim CveContrato = -1 - Dim CveSubProyecto = -1 + Dim CveContrato As Integer = -1 + Dim CveSubProyecto As Integer = -1 Dim Valores As String() ''CONTRATOS @@ -6612,7 +6610,7 @@ Public Class Compra2 End Try - Dim DecimalesPermitidos = 6 + Dim DecimalesPermitidos As Integer = 6 Row("CveConcepto") = TmpDT.Rows.Count + 1 Row("Cantidad") = Math.Round(Cantidad, DecimalesPermitidos) @@ -6808,10 +6806,10 @@ Public Class Compra2 DrPS("CveContratoDetalle") = -1 'IMPORTES - [CANTIDAD Y PRECIO] - Dim Cantidad = DrPS("Cantidad").ToString.ToDouble - Dim PU = DrPS("PU").ToString.ToDouble - Dim Descuento = DrPS("Descuento").ToString.ToDouble - Dim Total = (Cantidad * PU) - Descuento + Dim Cantidad As Double = DrPS("Cantidad").ToString.ToDouble + Dim PU As Double = DrPS("PU").ToString.ToDouble + Dim Descuento As Double = DrPS("Descuento").ToString.ToDouble + Dim Total As Double = (Cantidad * PU) - Descuento DrPS("NoDeducible") = NoDeducible Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") @@ -7032,10 +7030,10 @@ Public Class Compra2 For Each Row As DataRow In Me.TmpDT.Rows Dim TipoRecepcion As Integer = -1 - Dim Referencia = "" + Dim Referencia As String = "" Dim EsNoDeducible As Boolean = False - Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1) - Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1) + Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1) + Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1) If Not ObjCompras.AddCompraDetalle(Me.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal, diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx b/Contabilidad/CatClasificacionPorcentaje.aspx deleted file mode 100644 index 728874eca..000000000 --- a/Contabilidad/CatClasificacionPorcentaje.aspx +++ /dev/null @@ -1,137 +0,0 @@ -<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - Catálogo de Clasificacion Porcentaje - - - - -
  • - -
  • - -
    -
    -
    - - - - - - - - - - - - - <%----%> - - -
    - -   -
    -
    - - - -
    - - - - - -
    - - -
    - - - -
    -
    -
    - - diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb deleted file mode 100644 index fa155e307..000000000 --- a/Contabilidad/CatClasificacionPorcentaje.aspx.vb +++ /dev/null @@ -1,150 +0,0 @@ -Imports System.Data -Imports Extensiones -Imports Microsoft.Reporting.WebForms - -Partial Class Contabilidad_CatClasificacionPorcentaje - Inherits ClsPaginas - - Private Property DtClasificacionPorcentaje As DataTable - Get - Return CType(ViewState("DtClasificacionPorcentaje"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtClasificacionPorcentaje") = value - End Set - End Property - - Private Property CveClasificacion As Integer - Get - Return CType(ViewState("CveClasificacion"), Integer) - End Get - Set(value As Integer) - ViewState("CveClasificacion") = value - End Set - End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - CargaDatos() - CargaContPaq() - - End If - End Sub - - Protected Sub CargaDatos() - Dim ObjGenerales As New ClsGenerales - If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then - GvDatos.DataSource = ObjGenerales.DtResultados - DtClasificacionPorcentaje = ObjGenerales.DtResultados - End If - ObjGenerales.Dispose() - GvDatos.DataBind() - - DdlClasificaciones.Items.Add(New ListItem("Seleccione", "-1")) - DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) - DdlClasificaciones.DataBind() - - End Sub - - Protected Sub CargaContPaq() - Dim Empresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa) - Dim Servidor As String = Empresa.FiltroPrimeroValor("ServerContPAQi") - Dim BD As String = Empresa.FiltroPrimeroValor("BDContPAQi") - Dim Usuario As String = Empresa.FiltroPrimeroValor("UsrContPAQi") - Dim Contra As String = Empresa.FiltroPrimeroValor("PwdContPAQi") - - Dim ObjPaq As New ClsContPAQi(Servidor, BD, Usuario, Contra) - - DdlIdCtaIVAXAcreditar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVAAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVAXTrasladar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVATrasladado.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVANoAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - - If ObjPaq.GetCuentas(-1, "-1", -1, IdPadre:=-1) Then - DdlIdCtaIVAXAcreditar.DataSource = ObjPaq.DtResultados - DdlIdCtaIVAAcreditable.DataSource = ObjPaq.DtResultados - DdlIdCtaIVAXTrasladar.DataSource = ObjPaq.DtResultados - DdlIdCtaIVATrasladado.DataSource = ObjPaq.DtResultados - DdlIdCtaIVANoAcreditable.DataSource = ObjPaq.DtResultados - End If - ObjPaq.Dispose() - DdlIdCtaIVAXAcreditar.DataBind() - DdlIdCtaIVAAcreditable.DataBind() - DdlIdCtaIVAXTrasladar.DataBind() - DdlIdCtaIVATrasladado.DataBind() - DdlIdCtaIVANoAcreditable.DataBind() - End Sub - - Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarClas.Click - BtnAgregarTiposDModal.Text = "Agregar" - BtnEditarTiposDModal.Visible = False - BtnAgregarTiposDModal.Visible = True - TxtPorcentajeIva.Text = "" - UpModalTiposD.Update() - RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - End Sub - - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal" - Dim ObjGenerales As New ClsGenerales - If BtnAgregarTiposDModal.Text = "Agregar" Then - If ObjGenerales.AddClasificacionPorcentaje(DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, DdlIdCtaIVAAcreditable.SelectedValue, - DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) - Alert("Clasificación porcentaje agregado correctamente") - 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - ElseIf BtnAgregarTiposDModal.Text = "Actualizar" Then - If ObjGenerales.UpdateClasificacionPorcentaje(CveClasificacion, DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, - DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) - Alert("Clasificación porcentaje actualizado correctamente") - 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - End If - ObjGenerales.Dispose() - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim objgenerales As New ClsGenerales - If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then - Alert("la clasificación porcentaje se eliminó correctamente") - 'If objgenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - objgenerales.Dispose() - End Sub - - Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs) - BtnAgregarTiposDModal.Text = "Actualizar" - - Dim renglon As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - DdlClasificaciones.SelectedValue = If(renglon.DataKey("CveClasificacion").ToString IsNot "", renglon.DataKey("CveClasificacion"), "-1") - TxtPorcentajeIva.Text = renglon.DataKey("PorcentajeIVA") - DdlIdCtaIVAXAcreditar.SelectedValue = If(renglon.DataKey("IdCtaIVAXAcreditar").ToString IsNot "", renglon.DataKey("IdCtaIVAXAcreditar"), "-1") - DdlIdCtaIVAAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVAAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVAAcreditable"), "-1") - DdlIdCtaIVAXTrasladar.SelectedValue = If(renglon.DataKey("IdCtaIVAXTrasladar").ToString IsNot "", renglon.DataKey("IdCtaIVAXTrasladar"), "-1") - DdlIdCtaIVATrasladado.SelectedValue = If(renglon.DataKey("IdCtaIVATrasladado").ToString IsNot "", renglon.DataKey("IdCtaIVATrasladado"), "-1") - DdlIdCtaIVANoAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVANoAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVANoAcreditable"), "-1") - - BtnEditarTiposDModal.Visible = False - BtnAgregarTiposDModal.Visible = True - UpModalTiposD.Update() - RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - End Sub -End Class diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb index 86d29fae6..a6b11098c 100644 --- a/Contabilidad/CatCuentas.aspx.vb +++ b/Contabilidad/CatCuentas.aspx.vb @@ -135,7 +135,7 @@ Partial Class Contabilidad_CatCuentas DdlMoneda.SelectedValueExist(dr("IdMoneda").ToString) If dr("IdAgrupadorSAT").ToString.ToEntero = 0 Then - DdlAgrupadorSAT.SelectedValue = -1 + DdlAgrupadorSAT.SelectedValue = "-1" Else DdlAgrupadorSAT.SelectedValue = dr("IdAgrupadorSAT").ToString End If @@ -236,7 +236,7 @@ Partial Class Contabilidad_CatCuentas ArbolCuentas.DataSource = DtDatos '.Attributes.Add("data-hijos","0"); Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) - item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1 + item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) If (IsNothing(objul)) Then objul = New ADServerControl.DragableUL @@ -285,7 +285,7 @@ Partial Class Contabilidad_CatCuentas ArbolCuentas.DataSource = DtDatos Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem) - padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1 + padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString ArbolCuentas.Controls.Remove(item) RegistraScript(String.Format("$('#{0}').click();", editar.ClientID)) diff --git a/Contabilidad/CatPeriodosBloqueo.aspx.vb b/Contabilidad/CatPeriodosBloqueo.aspx.vb index 15234e936..0683c2d67 100644 --- a/Contabilidad/CatPeriodosBloqueo.aspx.vb +++ b/Contabilidad/CatPeriodosBloqueo.aspx.vb @@ -116,7 +116,8 @@ Partial Class Contabilidad_CatPeriodosBloqueo Dim ObjConta As New ClsContabilidad If Not Actualizar Then - If ObjConta.AddPeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked) Then + If ObjConta.AddPeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text.ToEntero, If(ChkM1.Checked, 1, 0), If(ChkM2.Checked, 1, 0), If(ChkM3.Checked, 1, 0), If(ChkM4.Checked, 1, 0), If(ChkM5.Checked, 1, 0), If(ChkM6.Checked, 1, 0), + If(ChkM7.Checked, 1, 0), If(ChkM8.Checked, 1, 0), If(ChkM9.Checked, 1, 0), If(ChkM10.Checked, 1, 0), If(ChkM11.Checked, 1, 0), If(ChkM12.Checked, 1, 0)) Then CargadatosGvPeriodosBloqueo() @@ -128,7 +129,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError) End If Else - Dim AplicarBloqueso As String = ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario) + Dim AplicarBloqueso As String = ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text.ToEntero, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario) If AplicarBloqueso.Length = 0 Then CargadatosGvPeriodosBloqueo() @@ -154,9 +155,8 @@ Partial Class Contabilidad_CatPeriodosBloqueo Dim ObjConta As New ClsContabilidad Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - Ejercicio = GvRow.DataKey("Ejercicio") - CveEmpresa = GvRow.DataKey("CveEmpresa") + Ejercicio = GvRow.DataKey("Ejercicio").ToEntero + CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero If ObjConta.RemovePeriodosBloqueo(CveEmpresa, Ejercicio) Then CargadatosGvPeriodosBloqueo() @@ -177,15 +177,13 @@ Partial Class Contabilidad_CatPeriodosBloqueo Public Sub Edit_ClickPeriodosBloqueo(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - LtlTituloModalPeriodosBloqueo.Text = "Editar Bloqueo" Actualizar = True - Ejercicio = GvRow.DataKey("Ejercicio") - CveEmpresa = GvRow.DataKey("CveEmpresa") + Ejercicio = GvRow.DataKey("Ejercicio").ToEntero + CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero - TxtEjercicio.Text = Ejercicio + TxtEjercicio.Text = GvRow.DataKey("Ejercicio") 'DdlTareaProgra.SelectedValueExist(CveTareaProgramada) LimpiarChecked() diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb index 433b55244..9ab699646 100644 --- a/Contabilidad/DiarioAmortizaciones.aspx.vb +++ b/Contabilidad/DiarioAmortizaciones.aspx.vb @@ -579,7 +579,7 @@ Partial Class Contabilidad_DiarioAmortizaciones 'si es otra diferente al peso If gvr.DataKey("CveMoneda") <> "1" Then TipoCambio = TxtTC.Text.ToDouble - If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble + If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal MonExt = True Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Importe").ToDouble.FormatoNumero) Else @@ -666,7 +666,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero Case 20 'contabilizo la prepoliza - If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For Case 8, 9 'FyE IdCuentaFuncionario = gvr.DataKey("IdCtaContPersonal").ToEntero AbonoFuncionario = CompraPagadoTotal @@ -685,7 +685,7 @@ Partial Class Contabilidad_DiarioAmortizaciones AbonoAnticipo = CompraPagadoTotal CargoProveedor = CompraPagadoTotal AbonoProveedor = 0 - If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 10) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 10) Then MsgError = "Error al actualizar compra" : Exit For Case 2 CargoProveedor = CompraPagadoTotal AbonoProveedor = 0 @@ -693,7 +693,7 @@ Partial Class Contabilidad_DiarioAmortizaciones CargoProveedor = CompraPagadoTotal AbonoProveedor = 0 'contabilizo la prepoliza - If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For Case 8 AbonoFuncionario = 0 TotalFuncionarios = 0 @@ -704,7 +704,7 @@ Partial Class Contabilidad_DiarioAmortizaciones 'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion - If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1 + If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1 ''S I M P L I F I C A R SimplificaIVAxAcreditar = False @@ -725,7 +725,7 @@ Partial Class Contabilidad_DiarioAmortizaciones Next 'debe de actualizar - If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToEntero, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then + If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then MsgError = "Error al actualizar compra" : Exit For End If @@ -788,7 +788,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If @@ -905,7 +905,7 @@ Partial Class Contabilidad_DiarioAmortizaciones If MsgError = "" Then Conta.AjustaPoliza(IDPoliza) - PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) + 'PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) Conta.Commit() PrePolizas.Commit() @@ -1048,7 +1048,7 @@ Partial Class Contabilidad_DiarioAmortizaciones 'si es otra diferente al peso If gvr.DataKey("CveMonedaCompra") <> "1" Then TipoCambio = TxtTC.Text.ToDouble - If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble + If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal MonExt = True Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Total").ToDouble.FormatoNumero) Else @@ -1117,7 +1117,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero 'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion - If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1 + If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1 If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then IVAxAcreditar = IVAAcreditable @@ -1163,9 +1163,9 @@ Partial Class Contabilidad_DiarioAmortizaciones 'End Select - If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For - If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For @@ -1246,7 +1246,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If @@ -1395,7 +1395,7 @@ Partial Class Contabilidad_DiarioAmortizaciones If MsgError = "" Then Conta.AjustaPoliza(IDPoliza) - PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) + ' PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) Conta.Commit() PrePolizas.Commit() @@ -1529,7 +1529,7 @@ Partial Class Contabilidad_DiarioAmortizaciones 'si es otra diferente al peso If gvr.DataKey("CveMonedaCompra") <> "1" Then TipoCambio = TxtTC.Text.ToDouble - If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble + If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal MonExt = True Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Total").ToDouble.FormatoNumero) Else @@ -1593,12 +1593,12 @@ Partial Class Contabilidad_DiarioAmortizaciones - If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For + If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For 'If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For 'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion - If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1 + If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1 ''S I M P L I F I C A R SimplificaIVAxAcreditar = False @@ -1671,7 +1671,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If @@ -1694,7 +1694,7 @@ Partial Class Contabilidad_DiarioAmortizaciones If MsgError = "" Then Conta.AjustaPoliza(IDPoliza) - PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) + 'PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) Conta.Commit() PrePolizas.Commit() diff --git a/Contabilidad/DiarioCompras.aspx.vb b/Contabilidad/DiarioCompras.aspx.vb index b199e4ac2..cb24916fa 100644 --- a/Contabilidad/DiarioCompras.aspx.vb +++ b/Contabilidad/DiarioCompras.aspx.vb @@ -280,11 +280,11 @@ Partial Class Contabilidad_DiarioCompras If gvr.FCCheckBox("Chk").Checked Then Contador += 1 If gvr.DataKey("CveMoneda") <> "1" AndAlso gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then - TipoCambio = TxtTC.Text.ToDouble : ContadorME += 1 + TipoCambio = TxtTC.Text.ToDecimal : ContadorME += 1 Else : TipoCambio = 1 End If If gvr.DataKey("TipoDocto") = "NC" Then MultNC = -1 Else MultNC = 1 - Total += (gvr.DataKey("Total").ToDouble + gvr.DataKey("RetIVA").ToDecimal + gvr.DataKey("RetISR").ToDecimal) * TipoCambio * MultNC + Total += (gvr.DataKey("Total").ToDecimal + gvr.DataKey("RetIVA").ToDecimal + gvr.DataKey("RetISR").ToDecimal) * TipoCambio * MultNC End If Next @@ -472,7 +472,7 @@ Partial Class Contabilidad_DiarioCompras 'hago el movimiento de fluctuacion cambiaria If gvr.DataKey("CveMoneda") = "2" AndAlso gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then - Dim Dif As Decimal = Math.Round(gvr.DataKey("TC") * gvr.DataKey("Total").ToDecimal, 2) + Dim Dif As Decimal = Math.Round(gvr.DataKey("TC").ToDecimal * gvr.DataKey("Total").ToDecimal, 2) Concepto = String.Format("{0} TC:{1} ${2}", gvr.DataKey("SerieFolio"), TipoCambio, gvr.DataKey("Total").ToDouble.FormatoNumero) ''si hay un tipo de cambio, va a requerir un ajuste en la conversion If Math.Abs(Math.Abs(Cargos) - Dif) > 0 AndAlso Math.Abs(Math.Abs(Cargos) - Dif) <= 0.02 Then diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index 10a005927..b3915c3a5 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -175,14 +175,12 @@ Partial Class Contabilidad_DiarioPagos If TxtTC.Text.ToDouble > 0 Then TxtTC.Enabled = False Else TxtTC.Text = "" - End If End If '------------------------------------------ consulto F y E If CargaOpcion.Contiene(-1, 1) Then - ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 2, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) If ds IsNot Nothing AndAlso ds.Tables.Count = 2 Then @@ -197,7 +195,6 @@ Partial Class Contabilidad_DiarioPagos ' '------------------------------------------ consulto Transferencias If CargaOpcion.Contiene(-1, 2) Then - ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 3, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) If ds IsNot Nothing AndAlso ds.Tables.Count = 1 Then DtDatosTransf = ds.Tables(0) @@ -211,8 +208,6 @@ Partial Class Contabilidad_DiarioPagos ' '------------------------------------------ consulto anticipos If CargaOpcion.Contiene(-1, 3) Then - - ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 4, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) If ds IsNot Nothing AndAlso ds.Tables.Count = 2 Then @@ -287,7 +282,7 @@ Partial Class Contabilidad_DiarioPagos 'sino tiene cuenta 'si la compra es mayor o igual al anticipo, se simplifica el movimiento a anticipos - If e.Row.DBCampo("CvePlantillaPoliza").ToEntero.Contiene(10, 52, 1) AndAlso e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe") AndAlso (e.Row.DBCampo("CveMoneda") = "1" OrElse (e.Row.DBCampo("CveMoneda") = "2" AndAlso e.Row.DBCampo("IdCtaContExtranjera").ToEntero > 0)) Then + If e.Row.DBCampo("CvePlantillaPoliza").ToEntero.Contiene(10, 52, 1) AndAlso e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe").ToDecimal AndAlso (e.Row.DBCampo("CveMoneda") = "1" OrElse (e.Row.DBCampo("CveMoneda") = "2" AndAlso e.Row.DBCampo("IdCtaContExtranjera").ToEntero > 0)) Then Simplificar = True e.Row.FCCheckBox("Chk").Visible = True End If @@ -321,11 +316,10 @@ Partial Class Contabilidad_DiarioPagos 'End If 'cuando es anticipo - If e.Row.DBCampo("CveMoneda").ToEntero = 1 AndAlso e.Row.DBCampo("IdCtaContAnticipos").ToEntero = 0 AndAlso e.Row.DBCampo("CvePlantillaPoliza").Contiene(10, 52) And Simplificar = False Then + If e.Row.DBCampo("CveMoneda").ToEntero = 1 AndAlso e.Row.DBCampo("IdCtaContAnticipos").ToEntero = 0 AndAlso e.Row.DBCampo("CvePlantillaPoliza").Contiene("10", "52") And Simplificar = False Then 'falta vicularse la cuenta e.Row.FCTextBox("TxtDescripcion").ForeColor = Drawing.Color.OrangeRed e.Row.FCTextBox("TxtDescripcion").ToolTip = "Falta vincular la cuenta contable de anticipos" - End If If e.Row.DBCampo("IdCuentaIVAAcreditable").ToEntero = 0 Then @@ -334,7 +328,6 @@ Partial Class Contabilidad_DiarioPagos e.Row.FCLabel("LblIVA").ToolTip = "Falta vincular la cuenta contable" End If - If e.Row.DBCampo("IdCtaContBancos").ToEntero = 0 Then 'falta vicularse el proveedor e.Row.FCHyperLink("HplCuenta").ForeColor = Drawing.Color.OrangeRed @@ -490,20 +483,16 @@ Partial Class Contabilidad_DiarioPagos GvTmp = GvC End Select - For Each gvr As GridViewRow In GvTmp.Rows If gvr.FCCheckBox("Chk").Checked Then Contador += 1 If gvr.DataKey("CveMoneda") <> "1" Then - TipoCambioPago = TxtTC.Text.ToDouble : ContadorME += 1 + TipoCambioPago = TxtTC.Text.ToDecimal : ContadorME += 1 Else : TipoCambioPago = 1 End If - End If - Next - If ContadorME > 0 AndAlso TxtTC.Text.ToDouble <= 0 AndAlso RBLOpcion.SelectedValue = "1" Then Alert("Ingrese un tipo de cambio.") Exit Sub @@ -1040,7 +1029,7 @@ Partial Class Contabilidad_DiarioPagos ''hago el movimiento de fluctuacion cambiaria If CveMoneda = 2 Then - Dim FluctuacionCambiaria, FluctuacionCambiariaIVA As Double + Dim FluctuacionCambiaria, FluctuacionCambiariaIVA As Decimal ''registro a la cuenta complementaria del proveedor 'If gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then @@ -1091,16 +1080,13 @@ Partial Class Contabilidad_DiarioPagos If TotalBancos > 0 Or gvr.DataKey("CveEstatusIE").ToString = "2" Then ' cuando tiene importe en bancos o esta cancelado ConceptoMov = gvr.FCTextBox("TxtDescripcion").Text - Dim ImporteMovimientoBancos As Double = gvr.DataKey("Importe").ToDouble * TipoCambioPago + Dim ImporteMovimientoBancos As Decimal = gvr.DataKey("Importe").ToDecimal * TipoCambioPago If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria > 0 Then - ImporteMovimientoBancos = gvr.DataKey("Importe").ToDouble + ImporteMovimientoBancos = gvr.DataKey("Importe").ToDecimal ConceptoMov = String.Format("{0} TC:{1} ${2}", ConceptoMov, TipoCambioPago, TotalBancos.FormatoNumero) - End If - - - Dim TmpTotalBancos As Double = Math.Round(ImporteMovimientoBancos, 2) + Dim TmpTotalBancos As Decimal = Math.Round(ImporteMovimientoBancos, 2) Dim TotalBancosME As Double = TotalBancos If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria <= 0 Then ConceptoMov = String.Format("{0} TC:{1} ${2}", ConceptoMov, TipoCambioPago, TotalBancosME.FormatoNumero) @@ -1117,7 +1103,7 @@ Partial Class Contabilidad_DiarioPagos 'hago el movimiento de fluctuacion cambiaria BANCARIA Complementaria If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria > 0 Then - TmpTotalBancos = Math.Round(gvr.DataKey("Importe").ToDouble * TipoCambioPago - ImporteMovimientoBancos, 2) + TmpTotalBancos = Math.Round(gvr.DataKey("Importe").ToDecimal * TipoCambioPago - ImporteMovimientoBancos, 2) 'se ocupa verificar que no tenga una diferencia de un centavo por las conversiones de dolares a peso Dim dtF As DataTable = Nothing @@ -1125,7 +1111,7 @@ Partial Class Contabilidad_DiarioPagos 'hago ajuste dtF = Conta.DtResultados Dim tCargos, tAbonos As Decimal - tCargos = dtF.SUM("Cargo") : tAbonos = dtF.SUM("Abono") + tCargos = dtF.SUMD("Cargo") : tAbonos = dtF.SUMD("Abono") If Math.Abs(tCargos - (tAbonos + TmpTotalBancos)) < 1 Then TmpTotalBancos += (tCargos - (tAbonos + TmpTotalBancos)) End If @@ -1494,7 +1480,7 @@ Partial Class Contabilidad_DiarioPagos Conta.AddCausacionesIVA(IDPoliza, 0, 0, 0, 0, 0, 0, True) Conta.AjustaPoliza(IDPoliza) - PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) + 'PrePolizas.UpdatePrePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero) Conta.Commit() PrePolizas.Commit() @@ -1614,20 +1600,17 @@ Partial Class Contabilidad_DiarioPagos If e.Row.DBCampo("ValidoCuenta") = "1" Then e.Row.FCCheckBox("Chk").Visible = True - ''pero si hay compras sin contabilizar, y la factura no tenga completa las clasificaciones If tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 Then ' If tDtCompras.MIN("Valido") = "0" Then e.Row.FCCheckBox("Chk").Visible = False - End If - End If Else 'sino tiene cuenta 'si la compra es mayor o igual al anticipo, se simplifica el movimiento a anticipos - If e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe") AndAlso e.Row.DBCampo("IdCtaContComplementaria").ToEntero > 0 Then + If e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe").ToDecimal AndAlso e.Row.DBCampo("IdCtaContComplementaria").ToEntero > 0 Then Simplificar = True e.Row.FCCheckBox("Chk").Visible = True End If diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index 9c0cd5495..88f7945d5 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -1,4 +1,5 @@ -Imports System.Data +Option Strict Off +Imports System.Data Imports System.IO Imports Extensiones Imports iText.Kernel.Geom diff --git a/Contabilidad/OCDetalleAlmacen.aspx.vb b/Contabilidad/OCDetalleAlmacen.aspx.vb index d9de21e2b..4d164a81c 100644 --- a/Contabilidad/OCDetalleAlmacen.aspx.vb +++ b/Contabilidad/OCDetalleAlmacen.aspx.vb @@ -30,11 +30,8 @@ Partial Class Contabilidad_OCDetalleAlmacen Private Sub CargaDatos() - Dim ObjConta As New ClsContabilidad - - If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then @@ -57,10 +54,8 @@ Partial Class Contabilidad_OCDetalleAlmacen End Sub - Protected Sub BtnProcesarRegistros_Click(sender As Object, e As EventArgs) - Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() @@ -84,31 +79,20 @@ Partial Class Contabilidad_OCDetalleAlmacen Dim CveCompra As Integer = GvDrow.DataKey("CveCompra").ToString.ToEntero Dim Folio As String = GvDrow.DataKey("Folio").ToString - - Dim CveCuenta176 As Integer = 0 - Dim IdCtaCuenta176 As Integer = 1245 - Dim IdCtaCuenta228 As Integer = 1247 - Dim IdCtaCuenta229 As Integer = 1249 - - Dim CveCuenta177 As Integer = 55294 - Dim IdCtaCuenta177 As Integer = 1148 - Dim Chk As CheckBox = GvDrow.FCCheckBox("Chk") - If Chk IsNot Nothing AndAlso Chk.Checked Then CvePrePoliza = ObjConta.AddPrePolizas(modulo, 74, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) GvDrow.Cells(1).Text = CvePrePoliza.ToString mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia}
    " - If CvePrePoliza > 0 Then If Cargo > Abono Then - If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then - If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then ContadorProcesados = ContadorProcesados + 1 Else ErrorProcesamiento = True @@ -118,11 +102,10 @@ Partial Class Contabilidad_OCDetalleAlmacen ErrorProcesamiento = True Exit For End If - Else - If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 176, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -Diferencia, -Diferencia, 176, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=True, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then - If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Diferencia, Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=True, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then ContadorProcesados = ContadorProcesados + 1 Else ErrorProcesamiento = True @@ -132,18 +115,12 @@ Partial Class Contabilidad_OCDetalleAlmacen ErrorProcesamiento = True Exit For End If - End If - End If End If - - Next - DTDatos.AcceptChanges() - If Not ErrorProcesamiento Then ObjConta.Commit() @@ -155,11 +132,7 @@ Partial Class Contabilidad_OCDetalleAlmacen End If ObjConta.Dispose() - - CargaDatos() - End Sub - End Class diff --git a/Contabilidad/PopUpAuxiliar.aspx b/Contabilidad/PopUpAuxiliar.aspx index a2f4ca566..9b3616a1b 100644 --- a/Contabilidad/PopUpAuxiliar.aspx +++ b/Contabilidad/PopUpAuxiliar.aspx @@ -134,7 +134,7 @@ Referencia - + diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 564ecad8c..71221cb6f 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1064,7 +1064,7 @@ Partial Class RegPoliza Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0 If Row("Id").ToString.ToEntero <> -1 Then - Dim Id = Row("Id").ToString + Dim Id As String = Row("Id").ToString 'Agrega a la Bitacora If Row("Estado").ToString.Trim = "U" Then @@ -1185,14 +1185,14 @@ Partial Class RegPoliza Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1) 'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero ' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero - 'End If + 'End If ' Now, drt("IdCuenta").ToString.ToEntero, 0, If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True", drt("Importe").ToString.ToDecimal, - drt("Concepto").ToString, 299, - drt("Concepto").ToString, Now, - drt("IdCuenta").ToString.ToEntero, 0, + drt("Importe").ToString.ToDecimal, 299, + drt("Concepto").ToString, + drt("Concepto").ToString, CveSubProyecto:=tCveSub, - ImporteMX:=drt("Importe").ToString.ToDecimal, CveCuenta:=tCveCuenta) Then + CveCuenta:=tCveCuenta) Then 'registro If Not ObjContaq.UpdateMovimientoPrePolizaDetalle(drt("IdPoliza").ToString.ToEntero, drt("Id").ToString.ToEntero, @@ -1276,7 +1276,7 @@ Partial Class RegPoliza UpDevoluciones.Update() End Sub Protected Sub GvDevoluciones_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDevoluciones.RowDeleting - Dim ErrorEliminar = False + Dim ErrorEliminar As Boolean = False If IDPoliza > 0 Then Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) @@ -1303,7 +1303,7 @@ Partial Class RegPoliza CargaGridDevoluciones("", 0) End Sub Protected Sub GvDevoluciones_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDevoluciones.RowUpdating - Dim ErrorDevolucion = False + Dim ErrorDevolucion As Boolean = False If IDPoliza > 0 Then Dim gvr As GridViewRow = GvDevoluciones.Rows(e.RowIndex) @@ -1327,7 +1327,7 @@ Partial Class RegPoliza CargaDevoluciones() End If Else - Dim row() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id"))) + Dim row As DataRow() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id"))) ' row(0)("IdCuenta") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue row(0)("IdProveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue @@ -1354,7 +1354,7 @@ Partial Class RegPoliza #Region "D E V O L U C I O N E S - I V A" Protected Sub LbAgregarDevolucion_Click(sender As Object, e As EventArgs) - Dim ErrorDevolucion = False + Dim ErrorDevolucion As Boolean = False If IDPoliza > 0 Then Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) @@ -1373,7 +1373,7 @@ Partial Class RegPoliza CargaDevoluciones() End If Else - Dim row = DtDevoluciones.NewRow + Dim row As DataRow = DtDevoluciones.NewRow row("ID") = (DtDevoluciones.Rows.Count + 1).ToString 'row("IdCuenta") = DdlProveedor.SelectedValue @@ -1399,7 +1399,7 @@ Partial Class RegPoliza End Sub Protected Sub LbAgregarCausacion_Click(sender As Object, e As EventArgs) - Dim ErrorDevolucion = False + Dim ErrorDevolucion As Boolean = False If IDPoliza > 0 Then Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 7ccb3487a..b859e5ddb 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -1,4 +1,4 @@ - +Option Strict Off Imports System.Data Imports System.IO @@ -245,7 +245,6 @@ Partial Class ContabilidadC_RegPrePoliza Conta.Dispose() End If - If IfNull(Request("Tipo"), "").ToString() = "NOMPROV" Then DivTipoGasto.Visible = True ThTipoGasto.Visible = True @@ -462,9 +461,9 @@ Partial Class ContabilidadC_RegPrePoliza If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") If dr IsNot Nothing Then - DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza") - TxtFechaDocumento.Text = dr("Fecha") - TxtConcepto.Text = dr("Concepto") + DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString + TxtFechaDocumento.Text = dr("Fecha").ToString.ToDate.ToShortDateString + TxtConcepto.Text = dr("Concepto").ToString DivDatosPoliza.Visible = True TipoPoliza = DdlTipoPoliza.SelectedItem.Text Folio = dr("FolioPoliza").ToString() @@ -765,7 +764,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjVentas As New ClsVentas DdlVentas.ClearSelection() - If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") DdlVentas.DataBind() DdlVentas.Items.Insert(0, New ListItem(" - ", "-1")) @@ -781,7 +780,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjVentas As New ClsVentas DdlVentas.ClearSelection() - If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") DdlVentas.DataBind() DdlVentas.Items.Insert(0, New ListItem(" - ", "-1")) @@ -876,11 +875,7 @@ Partial Class ContabilidadC_RegPrePoliza dr("FolioPoliza") = drt("FolioPoliza") DtMovimientos.Rows.Add(dr) - - Next - - GvMov.DataSource = DtMovimientos GvMov.DataBind() UPMovs.Update() @@ -900,8 +895,8 @@ Partial Class ContabilidadC_RegPrePoliza e.Row.FCTextBox("TxtCargo").Visible = True End If - e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = 0, "", e.Row.DBCampo("Abono")) - e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = 0, "", e.Row.DBCampo("Cargo")) + e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = "0", "", e.Row.DBCampo("Abono")) + e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = "0", "", e.Row.DBCampo("Cargo")) e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion") If CvePeriodo > 0 Then @@ -1030,7 +1025,7 @@ Partial Class ContabilidadC_RegPrePoliza For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("IDCuenta").ToEntero() > 0 Then - IdCtaContable = gvr.DataKey("IDCuenta") + IdCtaContable = gvr.DataKey("IDCuenta").ToEntero End If CveProveedor = gvr.DataKey("CveProveedor").ToEntero() CveCompra = gvr.DataKey("CveCompra").ToEntero() @@ -1056,7 +1051,7 @@ Partial Class ContabilidadC_RegPrePoliza 'Registra movimieno bancario If CveConcepto = 30 Then - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text.ToDate, gvr.DataKey("ContadoNumeroFolio").ToString, gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -1079,20 +1074,20 @@ Partial Class ContabilidadC_RegPrePoliza idCuentaContabilizacion = 0 End If - If Importe <> 0 Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero(), gvr.FCTextBox("TxtConcepto").Text, - TxtFecha.Text.ToDate(), IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), CveIE:=CveIE, - CveProveedor:=CveProveedor, CveCompra:=CveCompra, - CvePersonal:=gvr.DataKey("CvePersonal").ToEntero(), CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero(), - ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), - CveCliente:=gvr.DataKey("CveCliente").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToEntero(), TipoCambio:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, gvr.DataKey("TC").ToString().ToDecimal(), 1), - ImporteME:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, (Importe / (gvr.DataKey("TC").ToString().ToDecimal() - 1)).RoundSQL, 0), - PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal(), CveCuenta:=gvr.DataKey("CveCuenta").ToEntero()) Then - Else - MsgError = "No se pudo insertar el detalle de la póliza2" - Exit For - End If - End If + 'If Importe <> 0 Then + ' If ObjMov.AddPrePolizasDetalle2(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero(), gvr.FCTextBox("TxtConcepto").Text, + ' TxtFecha.Text.ToDate(), IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), CveIE:=CveIE, + ' CveProveedor:=CveProveedor, CveCompra:=CveCompra, + ' CvePersonal:=gvr.DataKey("CvePersonal").ToEntero(), CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero(), + ' CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), + ' CveCliente:=gvr.DataKey("CveCliente").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToEntero(), TipoCambio:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, gvr.DataKey("TC").ToString().ToDecimal(), 1), + ' ImporteME:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, (Importe / (gvr.DataKey("TC").ToString().ToDecimal() - 1)).RoundSQL, 0), + ' PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal(), CveCuenta:=gvr.DataKey("CveCuenta").ToEntero()) Then + ' Else + ' MsgError = "No se pudo insertar el detalle de la póliza2" + ' Exit For + ' End If + 'End If If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then MensajeAlert.AppendFormat("

    Folio Bancario: {1}", CveIE, FolioIE) End If @@ -1216,13 +1211,13 @@ Partial Class ContabilidadC_RegPrePoliza End If Else contador = contador + 1 - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), row.DataKey("Referencia").ToString(), - row.DataKey("CveConceptoContable").ToEntero(), row.FCTextBox("TxtConcepto").Text, Now, - row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero(), 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), - CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()), - ImporteMX:=If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True), + If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), + If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), + row.DataKey("CveConceptoContable").ToEntero(), row.DataKey("Referencia").ToString(), + row.FCTextBox("TxtConcepto").Text, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), + CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()), + CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then OcurrioError = True Exit For End If @@ -1246,7 +1241,7 @@ Partial Class ContabilidadC_RegPrePoliza CargaPrePoliza() If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador Then + If IdPoliza > 0 AndAlso contador > 0 Then BtnContabilizar_Click(Nothing, Nothing) End If @@ -1664,22 +1659,22 @@ Partial Class ContabilidadC_RegPrePoliza If DrM IsNot Nothing Then HdnCve.Value = idMov.ToString() - DdlCtaContable.SelectedValue = DrM("IdCuenta") - TxtReferencia.Text = DrM("Referencia") - TxtObservaciones.Text = DrM("Concepto") + DdlCtaContable.SelectedValue = DrM("IdCuenta").ToString + TxtReferencia.Text = DrM("Referencia").ToString + TxtObservaciones.Text = DrM("Concepto").ToString ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") DrM("EsComodin") = 0 DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString() TxtCargo.Text = DrM("Cargo").ToString() TxtAbono.Text = DrM("Abono").ToString() - TxtDescripcion.Text = DrM("Descripcion") - DdlSubProyecto.SelectedValue = DrM("CveSubProyecto") - DdlProveedores.SelectedValue = DrM("CveProveedor") - DdlCompras.SelectedValue = DrM("CveCompra") - DdlPersonal.SelectedValue = DrM("CvePersonal") + TxtDescripcion.Text = DrM("Descripcion").ToString + DdlSubProyecto.SelectedValue = DrM("CveSubProyecto").ToString + DdlProveedores.SelectedValue = DrM("CveProveedor").ToString + DdlCompras.SelectedValue = DrM("CveCompra").ToString + DdlPersonal.SelectedValue = DrM("CvePersonal").ToString ' DrM("CveClasificacion") = -1 - DdlClientes.SelectedValue = DrM("CveCliente") - DdlVentas.SelectedValue = DrM("CveVenta") + DdlClientes.SelectedValue = DrM("CveCliente").ToString + DdlVentas.SelectedValue = DrM("CveVenta").ToString LbCancelarEdicion.Visible = True LbAgregar.Text = "Actualizar" GvMov.Rows(e.NewEditIndex).FCTextBox("TxtCargo").CssClass = "" @@ -2110,7 +2105,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero() Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") - Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows + Dim DtExcel As DataTable = (From row In Dt.AsEnumerable Select New With { .ConceptoAdministrativo = row.Item("ConceptoContable"), @@ -2258,16 +2253,16 @@ Partial Class ContabilidadC_RegPrePoliza ' CargoAbono = False 'End If - If YaExiste = False Then - If IdCuenta > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then - TieneError = True - Exit For - End If - Else - IdCuenta = -2 - End If - End If + 'If YaExiste = False Then + ' If IdCuenta > 0 Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then + ' TieneError = True + ' Exit For + ' End If + ' Else + ' IdCuenta = -2 + ' End If + 'End If Next diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 421e49bb0..7e702103e 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -440,7 +440,7 @@
    + DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono,CveIE" Width="100%" > Movimiento @@ -573,7 +573,7 @@ - + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index a0c34f7f0..8901c767e 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1,5 +1,4 @@ - -Imports System.Data +Imports System.Data 'Imports DocumentFormat.OpenXml Imports Extensiones Imports GemBox.Spreadsheet @@ -398,7 +397,6 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("CveTipoGasto", Type.GetType("System.Int32")) .Add("CvePrePolizaDetalle", Type.GetType("System.Int32")) .Add("CveConceptoContable", Type.GetType("System.Int32")) - .Add("IdCtaContable", Type.GetType("System.Int32")) .Add("ConceptoContable", Type.GetType("System.String")) .Add("CveCuenta", Type.GetType("System.Int32")) .Add("CodigoNombreCuenta", Type.GetType("System.String")) @@ -449,9 +447,9 @@ Partial Class ContabilidadC_RegPrePolizaS LblEncabezado.Text = "Edición de Póliza" ViewState("CvePrePoliza") = tCvePrePoliza - DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza") - TxtFechaDocumento.Text = dr("Fecha") - TxtConcepto.Text = dr("Concepto") + DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString + TxtFechaDocumento.Text = dr("Fecha").ToString.ToDate.ToShortDateString + TxtConcepto.Text = dr("Concepto").ToString DivDatosPoliza.Visible = True TipoPoliza = DdlTipoPoliza.SelectedItem.Text Folio = dr("FolioPoliza").ToString @@ -459,7 +457,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtFolio.Text = dr("FolioPoliza").ToString TxtUsuarioElaboro.Text = dr("Usuario").ToString TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") - CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString + CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}" HplImprimirPDF.Visible = True If UsuarioActual.CveRol = 1 Then @@ -555,15 +553,12 @@ Partial Class ContabilidadC_RegPrePolizaS If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DataKey("IdCtaContable") <> "" Then - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", e.Row.DataKey("IdCtaContable"))) - If drr IsNot Nothing Then - e.Row.FCLiteral("DdlCtaContable").Text = drr("CuentaFormato").ToString() + " - " + drr("Nombre").ToString() - End If - End If + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.DBCampo("Cargo").ToDecimal).ToString.FormatoNumero + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.DBCampo("Abono").ToDecimal).ToString.FormatoNumero + + If e.Row.DBCampo("Cargo").ToDouble < 0 AndAlso e.Row.FCLiteral("TxtCargo") IsNot Nothing Then e.Row.FCLiteral("TxtCargo").Text = String.Format("{0}", e.Row.DBCampo("Cargo").FormatoNumero()) + If e.Row.DBCampo("Abono").ToDouble < 0 AndAlso e.Row.FCLiteral("TxtAbono") IsNot Nothing Then e.Row.FCLiteral("TxtAbono").Text = String.Format("{0}", e.Row.DBCampo("Abono").FormatoNumero()) - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.FCLiteral("TxtCargo").Text.ToDecimal).ToString.FormatoNumero - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.FCLiteral("TxtAbono").Text.ToDecimal).ToString.FormatoNumero Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero @@ -572,7 +567,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - If e.Row.DBCampo("Modificado") Then + If e.Row.DBCampo("Modificado") = "True" Then e.Row.FCCheckBox("chkModificado").Checked = True End If End If @@ -681,18 +676,6 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub - Private Function CargaCuentasContpaq(CveCuenta As Integer) As Integer - Dim Retorno As Integer = -1 - If CveCuenta > 0 Then - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentas(CveCuenta, "-1", 1, UsuarioActual.CveEmpresa) Then - Retorno = ObjConta.DtResultados.Rows(0)("IdCompaq").ToString.ToEntero - End If - ObjConta.Dispose() - End If - Return Retorno - - End Function Private Sub CargaTiposGasto() DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() @@ -735,7 +718,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjVentas As New ClsVentas DdlVentas.ClearSelection() - If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") DdlVentas.DataBind() DdlVentas.Items.Insert(0, New ListItem(" - ", "-1")) @@ -843,8 +826,8 @@ Partial Class ContabilidadC_RegPrePolizaS e.Row.FCTextBox("TxtCargo").Visible = True End If - e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = 0, "", e.Row.DBCampo("Abono")) - e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = 0, "", e.Row.DBCampo("Cargo")) + e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = "0", "", e.Row.DBCampo("Abono")) + e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = "0", "", e.Row.DBCampo("Cargo")) e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion") If CvePeriodo > 0 Then @@ -961,11 +944,9 @@ Partial Class ContabilidadC_RegPrePolizaS If CvePrePoliza > 0 Then ActualizarPrePoliza() Else - Dim MensajeAlert = New StringBuilder + Dim MensajeAlert As StringBuilder = New StringBuilder Dim ObjIE As New ClsBancos() Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) - Dim Conta As ClsContPAQi = Nothing Dim IDPoliza As Integer = 0 Dim MsgError As String = "" Dim CveIE As Integer @@ -978,13 +959,11 @@ Partial Class ContabilidadC_RegPrePolizaS Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza Try - Dim ConceptoPoliza As String = TxtConcepto.Text CvePrePolizaInsertada = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True) If CvePrePolizaInsertada > 0 Then Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " - Dim idCuentaContabilizacion As Long = 1 Dim Importe As Decimal = 0 Dim ImporteME As Decimal = 0 Dim TipoCambio As Decimal = 1 @@ -997,40 +976,30 @@ Partial Class ContabilidadC_RegPrePolizaS Gv = GvPrePoliza TipoGrid = 1 End If - End If - 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In Gv.Rows - 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then - ' IdCtaContable = gvr.DataKey("IDCuenta") - 'End If 'Registra movimieno bancario If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero) - Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero - - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio, + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, tFolio, gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, tCveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "", False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario" Exit For Else - - If tFolio > 0 Then + If tFolio <> "0" Or tFolio <> "" Then FolioIE = tFolio Else FolioIE = ObjIE.Folio End If - End If - End If ImporteME = 0 @@ -1073,13 +1042,11 @@ Partial Class ContabilidadC_RegPrePolizaS End If If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria - If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero Else CveIE = -1 End If - End If If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo @@ -1137,35 +1104,19 @@ Partial Class ContabilidadC_RegPrePolizaS End If If MsgError = "" Then - 'MENSAJE IE - - 'If CveIE Then - ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") - 'Else - ' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") - 'End If - Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
    " & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""", ShowCloseButton:=False) - ObjIE.Commit() - If Conta IsNot Nothing Then Conta.Commit() - TxtConcepto.Text = "" - 'GvMov.DataBind() DdlPlantilla_SelectedIndexChanged(Nothing, Nothing) - TxtFechaDocumento.Text = "" - Else Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) ObjIE.RollBack() - If Conta IsNot Nothing Then Conta.RollBack() End If - ObjIE.Dispose() ObjMov.Dispose() - If Conta IsNot Nothing Then Conta.Dispose() + End If End Sub @@ -1204,7 +1155,7 @@ Partial Class ContabilidadC_RegPrePolizaS If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) - CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), + CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"), row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIEAgregado < 0 Then @@ -1213,10 +1164,10 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, - row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), + -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True), + If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then @@ -1228,11 +1179,11 @@ Partial Class ContabilidadC_RegPrePolizaS contador = contador + 1 - Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) + Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) - CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), + CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"), row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIEAgregado < 0 Then @@ -1279,7 +1230,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaPrePoliza(CvePrePoliza) If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador Then + If IdPoliza > 0 AndAlso contador > 0 Then Contabilizar() End If @@ -1348,8 +1299,8 @@ Partial Class ContabilidadC_RegPrePolizaS DvModalconceptoCliente.Visible = True 'DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") - DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente)) - DdlClientesE.SelectedValue = CveCliente + DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente.ToString)) + DdlClientesE.SelectedValue = CveCliente.ToString CargaVentasE(CveCliente) End If @@ -1358,7 +1309,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If If CveClasificacion > 0 Then - DdlClasificacionesE.SelectedValue = CveClasificacion + DdlClasificacionesE.SelectedValue = CveClasificacion.ToString End If TxtConceptoE.Text = Concepto TxtReferenciaE.Text = Referencia @@ -1370,13 +1321,8 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuentaContableE.SelectedValueExist(CveCuenta) - If Cargo <> 0 Then - TxtCargoE.Text = Cargo - End If - - If Abono <> 0 Then - TxtAbonoE.Text = Abono - End If + If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero + If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero If CveConceptoContable = 30 Then If Abono = 0 Then @@ -1622,8 +1568,8 @@ Partial Class ContabilidadC_RegPrePolizaS If CveCliente <= 0 Then Exit Sub If DrConceptoContable IsNot Nothing Then - Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString) - Dim AplicaVenta = Boolean.Parse(DrConceptoContable("AplicaVenta").ToString) + Dim AplicaME As Boolean = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString) + Dim AplicaVenta As Boolean = Boolean.Parse(DrConceptoContable("AplicaVenta").ToString) If AplicaME Then CveMoneda = 2 End If @@ -1635,7 +1581,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlVentasE.ClearSelection() Dim ObjVentas As New ClsVentas - If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If CveMoneda = 2 Then DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2") Else @@ -1673,17 +1619,17 @@ Partial Class ContabilidadC_RegPrePolizaS Private Function CargaValidacionesConcepto() As Boolean Dim Retorno As Boolean = True - If DdlConceptosContablesE.SelectedValue <= 0 Then + If DdlConceptosContablesE.SelectedValue.ToEntero <= 0 Then Alert("No se ha especificado el concepto", TipoMensaje.ToastAdventencia) Return False End If If DrConceptoContable IsNot Nothing Then - Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString) - Dim AplicaBancos = Boolean.Parse(DrConceptoContable("AplicaBancos").ToString) + Dim AplicaComplementaria As Boolean = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString) + Dim AplicaBancos As Boolean = Boolean.Parse(DrConceptoContable("AplicaBancos").ToString) If AplicaComplementaria Then - Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal) + Dim Importe As Decimal = If(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal) 'valida Mon Extranjera por el TC - Mon Extranjera Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal).RoundSQL - TxtME.Text.ToDecimal).RoundSQL - Importe @@ -1719,9 +1665,7 @@ Partial Class ContabilidadC_RegPrePolizaS ChkSeguir.Visible = True If DtMovimientos Is Nothing Then CreaDT() - Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCtaContable") = IdCtaContable dr("CveCuenta") = DdlCuentaContableE.SelectedValue dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text @@ -1755,7 +1699,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("EsComplementaria") = DrConceptoContable("EsComplementaria") dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") - If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal + If dr("EsMonedaExtranjera").ToString = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal End If If DdlPorcentajeIVAE.Visible Then @@ -1765,11 +1709,11 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() - If CvePrePoliza > 0 Or CvePrePolizaOrigen Then - GvPrePoliza.DataSource = DtMovimientos - GvPrePoliza.DataBind() - UpPrePoliza.Visible = True - End If + 'If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then + GvPrePoliza.DataSource = DtMovimientos + GvPrePoliza.DataBind() + UpPrePoliza.Visible = True + 'End If TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero @@ -1787,8 +1731,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If If Rows.Count > 0 Then Dim dr As DataRow = Rows(0) - Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) - dr("IdCtaContable") = IdCtaContable dr("CveCuenta") = DdlCuentaContableE.SelectedValue dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text @@ -1820,7 +1762,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("EsComplementaria") = DrConceptoContable("EsComplementaria") dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") - If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal + If dr("EsMonedaExtranjera").ToString = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal End If @@ -1925,7 +1867,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CvePrePoliza > 0 Then Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue dr("CveCuenta") = DdlCuentaContable.SelectedValue dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("CveConceptoContable") = DdlConceptosContables.SelectedValue @@ -2169,7 +2110,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuentaContable.SelectedValueExist(DrM("CveCuenta").ToString) TxtReferencia.Text = DrM("Referencia").ToString - TxtConcepto.Text = DrM("Concepto") + TxtConcepto.Text = DrM("Concepto").ToString ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") DrM("EsComodin") = 0 DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString) @@ -2281,14 +2222,14 @@ Partial Class ContabilidadC_RegPrePolizaS If NombreHoja.Length > 30 Then NombreHoja = NombreHoja.Substring(0, 29) End If - Dim worksheet = workbook.Worksheets.Add(NombreHoja) + Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add(NombreHoja) Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero 'Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla, UsuarioActual.CveEmpresa) Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") - Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows + Dim DtExcel As DataTable = (From row In Dt.AsEnumerable Select New With { .ConceptoAdministrativo = row.Item("ConceptoContable"), @@ -2303,7 +2244,6 @@ Partial Class ContabilidadC_RegPrePolizaS .TipoTransferencia = "", .CveConceptoContable = row.Item("CveConceptoContable"), .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1), - .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1), .CveCuenta = row.Item("CveCuenta") }).QueryToDataTable(True) @@ -2314,8 +2254,8 @@ Partial Class ContabilidadC_RegPrePolizaS .StartColumn = 0 }) - Dim columnCount = worksheet.CalculateMaxUsedColumns() - For i = 0 To columnCount + Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns() + For i As Integer = 0 To columnCount worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1)) Next worksheet.Columns("K").Hidden = True @@ -2345,8 +2285,8 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Dim dt As New DataTable ' Conexion As Odbc.OdbcConnection = Nothing - Dim ErrorArchivo = False - Dim ErrorExcel = False + Dim ErrorArchivo As Boolean = False + Dim ErrorExcel As Boolean = False DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue dt = ReadExcelFile(Ruta + FileName, True, 0) @@ -2411,7 +2351,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveSubProyecto As Integer = -1 Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo").ToString.Trim)).ToEntero ' Row("CveConceptoContable").ToString.ToEntero - 'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + Dim CveClasificacion As Integer = -1 Dim CveCuentaExcel As Integer = -1 Dim ObjConta2 As New ClsContabilidad @@ -2458,11 +2398,11 @@ Partial Class ContabilidadC_RegPrePolizaS 'carga el consecutivo If FolioExcel = 0 Then - FolioExcel = SiguienteFolioBancos(CveBancoCuenta, TipoMov) + FolioExcel = SiguienteFolioBancos(CveBancoCuenta, TipoMov).ToLong End If - Folio = FolioExcel - ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal <> 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal) + Folio = FolioExcel.ToString + ImporteDocumento = If(Row("Abono").ToString.ToDecimal <> 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal) Observaciones = Row("Referencia").ToString Beneficiario = Row("Concepto").ToString @@ -2587,7 +2527,7 @@ Partial Class ContabilidadC_RegPrePolizaS Get If ViewState("ArregloCuentasFolios") Is Nothing Then - Dim dt = New DataTable("CuentasBancos") + Dim dt As DataTable = New DataTable("CuentasBancos") With dt.Columns .Add("CveCuenta", Type.GetType("System.Int32")) .Add("CveTipoTransaccion", Type.GetType("System.Int32")) @@ -2632,7 +2572,7 @@ Partial Class ContabilidadC_RegPrePolizaS ArregloCuentasFolios.AcceptChanges() - Return Folio + Return Folio.ToString End Function #End Region @@ -2742,9 +2682,9 @@ Partial Class ContabilidadC_RegPrePolizaS Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") If dr IsNot Nothing Then DivAgregarConceptos.Visible = False - DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza") - TxtFechaDocumento.Text = dr("Fecha") - TxtConcepto.Text = dr("Concepto") + DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString + TxtFechaDocumento.Text = dr("Fecha").ToString.ToDate.ToShortDateString + TxtConcepto.Text = dr("Concepto").ToString DivDatosPoliza.Visible = True TipoPoliza = DdlTipoPoliza.SelectedItem.Text Folio = dr("FolioPoliza").ToString @@ -2753,7 +2693,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtUsuarioElaboro.Text = dr("Usuario").ToString TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva") - CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString + CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then 'DivAgregarConceptos.Visible = True @@ -2870,11 +2810,9 @@ Partial Class ContabilidadC_RegPrePolizaS If CvePrePoliza > 0 Then ActualizarPrePoliza() Else - Dim MensajeAlert = New StringBuilder + Dim MensajeAlert As StringBuilder = New StringBuilder Dim ObjIE As New ClsBancos() Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) - Dim Conta As ClsContPAQi = Nothing Dim IDPoliza As Integer = 0 Dim MsgError As String = "" Dim CveIE As Integer @@ -2929,7 +2867,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero) - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio, + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, tFolio, gvr.DataKey("ContadoBeneficiario").ToString, Importe, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) FolioIE = gvr.DataKey("ContadoNumeroFolio").ToString @@ -2983,19 +2921,16 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = "Error" End Try - If MsgError = "" Then - If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then - MsgError = "Orror al ordenar polzia" - End If - End If + 'If MsgError = "" Then + ' If ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) <= 0 Then + ' MsgError = "Error al ordenar póliza" + ' End If + 'End If If MsgError = "" Then - Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
    " & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""") ObjIE.Commit() - If Conta IsNot Nothing Then Conta.Commit() - TxtConcepto.Text = "" GvMov.DataBind() TxtFechaDocumento.Text = "" @@ -3003,12 +2938,10 @@ Partial Class ContabilidadC_RegPrePolizaS Else Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) ObjIE.RollBack() - If Conta IsNot Nothing Then Conta.RollBack() End If ObjIE.Dispose() ObjMov.Dispose() - If Conta IsNot Nothing Then Conta.Dispose() End If @@ -3099,7 +3032,7 @@ Partial Class ContabilidadC_RegPrePolizaS If Venta.GetVenta(DdlVentasE.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then Dim dr As DataRow = Venta.DtResultados.FiltroPrimero("") If dr IsNot Nothing Then - TxtTipoCambio.Text = dr("TipoCambioValuacion") + TxtTipoCambio.Text = dr("TipoCambioValuacion").ToString End If End If diff --git a/Contabilidad/RepContabilidadDiaria.aspx.vb b/Contabilidad/RepContabilidadDiaria.aspx.vb index 492f087c1..16d5ad390 100644 --- a/Contabilidad/RepContabilidadDiaria.aspx.vb +++ b/Contabilidad/RepContabilidadDiaria.aspx.vb @@ -17,7 +17,7 @@ Partial Class Contabilidad_FiltraPolizas Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then ViewState("Orden") = "" - TxtFechaI.Text = Now.ToDate + TxtFechaI.Text = Now.ToDate.ToShortDateString TxtFechaF.Text = Now.ToShortDateString CargaDatos() End If @@ -25,7 +25,7 @@ Partial Class Contabilidad_FiltraPolizas Public Sub CargaDatos() Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim FechaFin As DateTime = $"{TxtFechaF.Text} 23:59:59" + Dim FechaFin As DateTime = $"{TxtFechaF.Text} 23:59:59".ToDateTime If ObjConta.GetPolizasXDia(TxtFechaI.Text.ToDate, FechaFin) Then ViewState("DTPolizas") = ObjConta.DtResultados diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 83aa1d70b..030dbd568 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -171,7 +171,8 @@

    IEPS por Porcentaje

    - + @@ -183,7 +184,8 @@

    IVA por Porcentaje

    - + @@ -219,6 +221,15 @@ + + + + SubTotal
    Imp. 16%
    +
    + + + +
    <%-- --%> @@ -241,22 +252,6 @@ <%----%> <%----%> - - - IVA ND
    16%
    -
    - - - -
    - - - IVA ND
    8%
    -
    - - - -
    <%-- --%> @@ -292,13 +287,31 @@ + + + + IVA ND
    16%
    +
    + + + +
    + + + IVA ND
    8%
    +
    + + + +

    IVA por Porcentaje

    - + @@ -308,7 +321,8 @@

    Ret IVA

    - + diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 2a24113f9..2dd99ba0a 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -111,7 +111,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT"; } - GvA.Columns[12].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta + GvA.Columns[11].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { @@ -166,8 +166,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas if (e.Row.DBCampo("CveCompra").ToEntero() < 1) { e.Row.CssClass = "Totales"; - - } if (e.Row.DBCampo("PorcentajeIVA").ToDecimal() > 0) { @@ -301,8 +299,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas { System.Text.StringBuilder Respuesta = new System.Text.StringBuilder(); - - return Respuesta.ToString(); } @@ -380,8 +376,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas Response.End(); } - - protected void LnkModalCompara_Click(object sender, EventArgs e) { @@ -399,8 +393,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas RegistraScript("$('#ModalCompara').modal('show')"); UpCompara.Update(); } - - protected string LV(string Valor) { return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : ""; @@ -547,4 +539,37 @@ public partial class Contabilidad_RepIVA : ClsPaginas //} + protected void GvIEPSA_RowDataBound(object sender, GridViewRowEventArgs e) + { + if(e.Row.RowType == DataControlRowType.DataRow && e.Row.DataKey("PorcentajeIEPS").Trim() == "") + { + e.Row.Cells[0].Text = "Total"; + e.Row.Font.Bold = true; + } + } + protected void GvIVAA_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow && e.Row.DataKey("PorcentajeIVA").Trim() == "") + { + e.Row.Cells[0].Text = "Total"; + e.Row.Font.Bold = true; + } + } + protected void GvIVA2_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow && e.Row.DataKey("PorcentajeIVA").Trim() == "") + { + e.Row.Cells[0].Text = "Total"; + e.Row.Font.Bold = true; + } + } + protected void GvRetIVA_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow && e.Row.DataKey("TipoRetIVA").Trim() == "") + { + e.Row.Cells[0].Text = "Total"; + e.Row.Font.Bold = true; + + } + } } \ No newline at end of file diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb index 77ec78951..e07f09135 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -90,7 +90,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then BtnConsultar.Enabled = True - Dim ErrorParametros = True + Dim ErrorParametros As Boolean = True CargaTipoCuentas() CargaMoneda() diff --git a/Contabilidad2/CatContaEjercicios.aspx.vb b/Contabilidad2/CatContaEjercicios.aspx.vb index cea243360..2cee4cf42 100644 --- a/Contabilidad2/CatContaEjercicios.aspx.vb +++ b/Contabilidad2/CatContaEjercicios.aspx.vb @@ -61,8 +61,8 @@ Partial Class Contabilidad2_CatContaEjercicios Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click TxtEjercicio.Text = "" - ChkEstatus.Checked = 0 - DdlPeriodoActual.SelectedValue = 0 + ChkEstatus.Checked = False + DdlPeriodoActual.SelectedValue = "0" LbAgregar.Text = "Agregar" UpModalModulos.Update() RegistraScript("$('#ModalCat').modal();") @@ -72,12 +72,12 @@ Partial Class Contabilidad2_CatContaEjercicios Dim ObjConta As New ClsContabilidad Dim errorString As String = "" If LbAgregar.Text = "Agregar" Then - If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text, - PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then + If Not ObjConta.AddContaEjercicio(TxtEjercicio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero) Then errorString = "Error al agregar" End If ElseIf LbAgregar.Text = "Actualizar" Then - If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, + If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text.ToEntero, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then errorString = "Error al actualizar" End If @@ -101,7 +101,7 @@ Partial Class Contabilidad2_CatContaEjercicios Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero TxtEjercicio.Text = GvRow.DataKey("Ejercicio") - ChkEstatus.Checked = GvRow.DataKey("Estatus") + ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True" DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero") LbAgregar.Text = "Actualizar" UpModalModulos.Update() diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index f4b8529e5..fc3ff2418 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contabilidad2_CatCuentas Private Property Afectable As Boolean Get - Return ViewState("Afectable").ToString + Return CBool(ViewState("Afectable").ToString) End Get Set(value As Boolean) ViewState("Afectable") = value @@ -204,7 +204,7 @@ Partial Class Contabilidad2_CatCuentas DTcuenta.SelectedValue = dr("Tipo").ToString() DcuentaMayor.SelectedValue = dr("CtaMayor").ToString LblSubCuenta.Text = dr("Nombre").ToString - Afectable = dr("Afectable").ToString + Afectable = CBool(dr("Afectable").ToString) CvePadre = dr("CvePadre").ToString.ToEntero End If @@ -230,10 +230,10 @@ Partial Class Contabilidad2_CatCuentas onconceptochange() CveProveedor = -1 DdlProveedores.SelectedText = "" - DdlProveedores.SelectedValue = CveProveedor + DdlProveedores.SelectedValue = CveProveedor.ToString CveCliente = -1 DdlClientesWS.SelectedText = "" - DdlClientesWS.SelectedValue = CveCliente + DdlClientesWS.SelectedValue = CveCliente.ToString Dim PorcentajeImpuesto As Decimal = -1 DdlClasificacion.SelectedValueExist(PorcentajeImpuesto) CveClasificacion = -1 @@ -266,24 +266,24 @@ Partial Class Contabilidad2_CatCuentas objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa) If objconta.DtResultados.Rows.Count > 0 Then Dim rowcc As DataRow = objconta.DtResultados.Rows(0) - DdlConcepto.SelectedValue = -1 + DdlConcepto.SelectedValue = "-1" DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero()) onconceptochange() CveProveedor = rowcc("CveProveedor").ToString().ToEntero() - DdlProveedores.SelectedText = rowcc("Proveedor").ToString().ToEntero() - DdlProveedores.SelectedValue = CveProveedor + DdlProveedores.SelectedText = rowcc("Proveedor").ToString() + DdlProveedores.SelectedValue = CveProveedor.ToString CveCliente = rowcc("CveCliente").ToString().ToEntero() - DdlClientesWS.SelectedText = rowcc("Cliente").ToString().ToEntero() - DdlClientesWS.SelectedValue = CveCliente + DdlClientesWS.SelectedText = rowcc("Cliente").ToString + DdlClientesWS.SelectedValue = CveCliente.ToString Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100 - TxtPorcentaje.Text = (PorcentajeImpuesto) + TxtPorcentaje.Text = PorcentajeImpuesto.ToString CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero() DdlClasificacion.SelectedValueExist(CveClasificacion) CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero() - ddlBancos.SelectedValue = -1 + ddlBancos.SelectedValue = "-1" ddlBancos.SelectedValueExist(CveBancoCuenta) CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero() - DdlAlmacen.SelectedValue = -1 + DdlAlmacen.SelectedValue = "-1" DdlAlmacen.SelectedValueExist(CveAlmacen) DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero()) End If @@ -291,7 +291,7 @@ Partial Class Contabilidad2_CatCuentas End Using If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then - DdlAgrupadorSAT.SelectedValue = -1 + DdlAgrupadorSAT.SelectedValue = "-1" Else DdlAgrupadorSAT.SelectedValueExist(dr("CveAgrupadorSAT").ToString) End If @@ -464,28 +464,28 @@ Partial Class Contabilidad2_CatCuentas End If If Not IsNothing(row) Then If CveTipoSaldo = 3 Then - PorcentajeIVA = TxtPorcentaje.ToEntero / 100 + PorcentajeIVA = TxtPorcentaje.Text.ToDecimal / 100D End If End If ObjConta.IniciaTransacSQL() If Afectable Then If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected)) - CveConceptoAdmin = IIf(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero) - CveProveedor = IIf(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero) - CveCliente = IIf(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero) - CveClasificacion = IIf(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero) - PorcentajeImpuesto = IIf(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero) - CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero) + CveConceptoAdmin = If(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero) + CveProveedor = If(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero) + CveCliente = If(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero) + CveClasificacion = If(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero) + PorcentajeImpuesto = If(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero) + CveBancoCuenta = If(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero) 'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero) 'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero) - NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero) - TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero) - CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero) - CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero) - DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero) - CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero) - NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero) + NombreCuenta = If(drt("Nombre").ToString = "", "", drt("Nombre").ToString) + TipoCuenta = If(drt("Tipo").ToString = "", "", drt("Tipo").ToString) + CuentaMayor = If(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero) + CveMoneda = If(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero) + DigAgrup = If(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero) + CveAgrupadorSat = If(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero) + NomIdioma = If(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString) idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta) @@ -573,7 +573,7 @@ Partial Class Contabilidad2_CatCuentas ArbolCuentas.DataSource = DtDatos '.Attributes.Add("data-hijos","0"); Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) - item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1 + item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) If (IsNothing(objul)) Then objul = New ADServerControl.DragableUL @@ -636,7 +636,6 @@ Partial Class Contabilidad2_CatCuentas 'ObjConta.IniciaTransacSQL() If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then - ' ObjConta.Commit() Dim customerRow As Data.DataRow customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) @@ -646,7 +645,7 @@ Partial Class Contabilidad2_CatCuentas ArbolCuentas.DataSource = DtDatos Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem) - padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1 + padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString ArbolCuentas.Controls.Remove(item) RegistraScript(String.Format("$('#{0}').click();", editar.ClientID)) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 13673cbd0..ad11d6e70 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -141,12 +141,7 @@
    -
    -
    - - - -
    +
    diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index e4fa615eb..c089046df 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -68,10 +68,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones GvGlobal.DataBind() UpDatos.Update() - End Sub - Private Sub CargaDatosModal() DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa) DdlConceptoNomina.DataBind() @@ -156,7 +154,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen")) - TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA") DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta")) DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) @@ -168,15 +165,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If CveCliente > 0 Then Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre") - DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente)) - DdlClientes.SelectedValue = CveCliente + DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente.ToString)) + DdlClientes.SelectedValue = CveCliente.ToString DdlClientes.SelectedText = drp End If If CvePersonal > 0 Then Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto") - DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal)) - DdlPersonal.SelectedValue = CvePersonal + DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal.ToString)) + DdlPersonal.SelectedValue = CvePersonal.ToString DdlPersonal.SelectedText = drp End If @@ -304,14 +301,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Private Sub LimpiarDatos() CveConceptoAsignacion = -1 - DdlCconceptosContables.SelectedValue = -1 - DdlCuenta.SelectedValue = -1 - DdlProveedor.SelectedValue = -1 - DdlClasificacion.SelectedValue = -1 - DdlAlmacen.SelectedValue = -1 - DdlConceptoNomina.SelectedValue = -1 - DdlCuentaBancaria.SelectedValueExist("-1") - TxtIdCuentaContable.Text = "" + DdlCconceptosContables.SelectedValue = "-1" + DdlCuenta.SelectedValue = "-1" + DdlProveedor.SelectedValue = "-1" + DdlClasificacion.SelectedValue = "-1" + DdlAlmacen.SelectedValue = "-1" + DdlConceptoNomina.SelectedValue = "-1" + DdlCuentaBancaria.SelectedValueExist("-1") TxtPorcentajeIVA.Text = "" DdlClientes.ddl.DataSource = "" DdlClientes.ddl.DataBind() diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 94f866180..5f9404414 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -127,6 +127,9 @@
    +
    + +