diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index a7dc225b4..de8677cf2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5887,21 +5887,21 @@ 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 = -1, + 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 Integer = -1) As Boolean + Optional Estatus As Boolean = False) As Boolean Dim Retorno = False DataAdapter("PA_Conta_ContaEjerciciosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@PeriodoActual", SqlDbType.TinyInt).Value = PeriodoActual .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@FechaIng", SqlDbType.Int).Value = FechaIng + .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 @@ -5916,20 +5916,20 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, Optional CveCuentaCierre As Integer = -1, - Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Integer = -1) As Boolean + 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 - DataAdapter("PA_Conta_ContaEjerciciosAdd") + DataAdapter("PA_Conta_ContaEjerciciosUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@PeriodoActual", SqlDbType.TinyInt).Value = PeriodoActual .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@Estatus", SqlDbType.Bit).Value = Estatus End With Try @@ -5942,13 +5942,13 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function RemoveContaEjercicio(CveEmpresa As Integer) As Boolean + Public Function RemoveContaEjercicio(CveEjercicio As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_ContaEjerciciosDelete") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio End With Try diff --git a/Contabilidad2/CatContaEjercicios.aspx b/Contabilidad2/CatContaEjercicios.aspx index 869eb29e1..edd8f515f 100644 --- a/Contabilidad2/CatContaEjercicios.aspx +++ b/Contabilidad2/CatContaEjercicios.aspx @@ -14,7 +14,7 @@
  • - +
    • @@ -23,8 +23,67 @@ + + + + + + + + + + + + + + + + + + + + + + + + + - \ No newline at end of file + diff --git a/Contabilidad2/CatContaEjercicios.aspx.vb b/Contabilidad2/CatContaEjercicios.aspx.vb index 1ebc78f72..81e65dba6 100644 --- a/Contabilidad2/CatContaEjercicios.aspx.vb +++ b/Contabilidad2/CatContaEjercicios.aspx.vb @@ -5,9 +5,86 @@ Imports Extensiones Partial Class Contabilidad2_CatContaEjercicios Inherits ClsPaginas + Private Property CveEjercicio() As Integer 'Guardamos el ID de registro para saber cual registro Editar + Get + Return If(IsNothing(ViewState("CveEjercicio")), -1, CInt(ViewState("CveEjercicio"))) + End Get + Set + ViewState("CveEjercicio") = 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() End If End Sub + + Private Sub CargaDatos() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetContaEjercicio(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + GvDatos.DataBind() + End Sub + + Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click + TxtEjercicio.Text = "" + ChkEstatus.Checked = 0 + ChkPeriodoActual.Checked = 0 + UpModalModulos.Update() + RegistraScript("$('#ModalCat').modal();") + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click + Dim ObjConta As New ClsContabilidad + Dim errorString As String = "" + If LbAgregar.Text = "Agregar" Then + If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text, + PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then + errorString = "Error al agregar" + End If + ElseIf LbAgregar.Text = "Actualizar" Then + If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, + PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then + errorString = "Error al actualizar" + End If + End If + ObjConta.Dispose() + RegistraScript("$('#ModalCat').modal('hide');") + CargaDatos() + UpDatos.Update() + If errorString.Length > 0 Then + Alert(errorString) + Else + If LbAgregar.Text = "Agregar" Then + Alert("Agregado correctamente") + ElseIf LbAgregar.Text = "Actualizar" Then + Alert("Actualizado correctamente") + End If + End If + End Sub + + Protected Sub ActualizaModulo(sender As Object, e As EventArgs) + 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") + ChkPeriodoActual.Checked = If(GvRow.DataKey("PeriodoActual").ToEntero > 0, True, False) + LbAgregar.Text = "Actualizar" + UpModalModulos.Update() + RegistraScript("$('#ModalCat').modal();") + End Sub + + Protected Sub EliminarRow(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim ObjConta As New ClsContabilidad + If ObjConta.RemoveContaEjercicio(GvRow.DataKey("CveEjercicio").ToEntero) Then + Alert("eliminado correctamente") + End If + ObjConta.Dispose() + CargaDatos() + UpDatos.Update() + End Sub End Class diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 8bd7dba81..fcaacad9a 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -14,7 +14,7 @@
  • - +
    • diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 8a36b2419..afcd7d2e8 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -260,6 +260,15 @@ Partial Class Inventarios_RecepcionEntrega End Set End Property + Private Property EsDevolucionDirecta As Boolean + Get + Return CBool(If(ViewState("EsDevolucionDirecta") Is Nothing, 0, ViewState("EsDevolucionDirecta"))) + End Get + Set(value As Boolean) + ViewState("EsDevolucionDirecta") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -639,6 +648,19 @@ Partial Class Inventarios_RecepcionEntrega Alert("La Venta original de la Devolución no tiene salida de Almacén.", TipoMensaje.MsgAdvertencia) End If + If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then + Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"}) + If DtMov.Rows.Count > 0 Then + Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero() + DdlAlmacen.Items.Clear() + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}") + DdlAlmacen.DataBind() + + DdlAlmacen.SelectedValueExist(CveAlmacenDev) + EsDevolucionDirecta = True + End If + End If + Else Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If @@ -1896,6 +1918,11 @@ Partial Class Inventarios_RecepcionEntrega CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero End If + 'DEVOLUCION DIRECTA A ENTREGA POR ADELANTADO + If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then + ConceptoMovimiento = 41 + End If + CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7") Folio = ObjInventario.Folio