From 9391fcb5c3ad762210d32ef9f508798b0f4937fe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 24 Mar 2022 12:23:40 -0700 Subject: [PATCH 1/9] -- fecha en recolecciones --- Inventarios/EntregaAlmacenRuta.aspx | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx index 3288a1b30..41e4cb0a0 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx +++ b/Inventarios/EntregaAlmacenRuta.aspx @@ -367,6 +367,11 @@   + + +   + + <%----%> From d16dc75c947b57371c220ee957d5a5b88bb4062b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 24 Mar 2022 12:24:00 -0700 Subject: [PATCH 2/9] cveventadetalle, en garantias --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 90a42351d..dfb9a2978 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2325,7 +2325,7 @@ Partial Class Inventarios_EntregaAlmacen Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim Serie As String = RowGarantia("Comprobante").ToString - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") Exit For From 609a9059602325b0b99a9bbb5bb3fdc9c1a43ded Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 24 Mar 2022 12:24:22 -0700 Subject: [PATCH 3/9] -- mejoras --- Inventarios/ResguardoMaterial.aspx | 21 ++++++++++----------- Inventarios/ResguardoMaterial.aspx.vb | 18 ++++++------------ 2 files changed, 16 insertions(+), 23 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index de33bdc27..1d8247bd6 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -423,44 +423,43 @@
>
-
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 31c0d54c0..5c94f0643 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -17,6 +17,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1) + DdlConceptos.DataBind() + DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1")) + CargaDatosModal() End If End Sub @@ -37,7 +41,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then + If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero, DdlConceptos.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjConta.DtResultados End If GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0 From 838e63d4a35c8e445dcbaa253dcd435bfde27fc5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Mar 2022 07:23:45 -0700 Subject: [PATCH 9/9] bandera de contasig --- Contabilidad/FiltraPolizas.aspx.vb | 25 +++++-------------------- 1 file changed, 5 insertions(+), 20 deletions(-) diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index 757c4db73..5c37015df 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas End Property - Public Property ContabilidadSIG As Boolean - Get - If ViewState("ContabilidadSIG") Is Nothing Then - ViewState("ContabilidadSIG") = False - End If - - Return Boolean.Parse(ViewState("ContabilidadSIG").ToString) - - End Get - Set(value As Boolean) - ViewState("ContabilidadSIG") = value - End Set - End Property - #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad ViewState("Orden") = "" DdlPeriodo.SelectedValue = Now.Month.ToString TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString - If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then + If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then CargaSegmentoNeg() CargaEjercicios() @@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero() Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim ObjConta As New ClsContabilidad @@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas DdlSegmentoNeg.Items.Clear() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then DdlSegmentoNeg.DataValueField = "CveSubProyecto" DdlSegmentoNeg.DataTextField = "SubProyecto" DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) @@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas DdlEjercicio.Items.Clear() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim ObjConta As New ClsContabilidad @@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas If e.Row.RowType = DataControlRowType.DataRow Then - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then e.Row.Cells(2).Text = $"{e.Row.DataKey("Folio")}" e.Row.Cells(6).Text = $""