From 68a653a9a578dc946c6514c65c4590643bd268e7 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 27 Jan 2020 10:38:58 -0700 Subject: [PATCH 01/22] columna ReferenciaAdmin --- Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx index 5d76ce0f0..b650f8c53 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx @@ -142,15 +142,16 @@ Cuenta Nombre - + Saldo Inicial Fecha Tipo - Número + Número Concepto Referencia + Referencia Movto SubProyecto Cargos Abonos @@ -187,6 +188,7 @@ <%----%> +
@@ -194,6 +196,10 @@ + + + + <%----%> From 52a98468ee9b89958b29807019aeb8dc03505861 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 27 Jan 2020 20:27:46 -0700 Subject: [PATCH 02/22] -traspasos -poliza virtual --- App_Code/ClsPaginas.vb | 32 ++++++++--- App_Code/ClsVentas.vb | 2 +- Bancos/PopIEVentas.aspx.vb | 3 +- Inventarios/RecepcionUsados.aspx | 6 +-- Inventarios/RecepcionUsados.aspx.vb | 2 +- Inventarios/ResguardoMaterial.aspx.vb | 9 ++-- Inventarios/TraspasoAlmacen.aspx | 57 ++++++++++---------- Inventarios/TraspasoAlmacen.aspx.vb | 30 ++++++++--- Sistemas/CatSesiones.aspx.vb | 2 +- Ventas/PV.aspx.vb | 6 +-- Ventas/Ventas.aspx.vb | 77 +++++++++++++++++---------- 11 files changed, 139 insertions(+), 87 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ef3b2d0a4..ea02be437 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2856,17 +2856,35 @@ Public Class ClsPaginas End Set End Property - Property GlobalDTRHPersonal(CveEmpresa As Integer) As DataTable + Property GlobalDTRHPersonal(CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As DataTable + Get - Dim ObjPersonal As New ClsRH - ObjPersonal.GetPersonal(-1, CveEmpresa) - GlobalDTRHPersonal = ObjPersonal.DtResultados - ObjPersonal.Dispose() + Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim ObjPersonal As New ClsRH + If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados + ObjPersonal.Dispose() + End If + + If CveEmpresa <> -1 Or CvePersonal <> -1 Then + Dim Str As StringBuilder = New StringBuilder() + If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) + If CvePersonal <> -1 Then Str.AppendFormat(" {0} CvePersonal = {1}", If(Str.Length > 0, "AND", ""), CvePersonal) + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTRHPersonal = Dv.ToTable + Dv.Dispose() + Else + GlobalDTRHPersonal = DirectCast(Application(AppNombre), DataTable) + End If End Get Set(value As DataTable) - Application("GlobalDTRHPersonal") = value - End Set + Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5e5e7fc56..9a0fd3c83 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -417,7 +417,7 @@ Public Class ClsVentas Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") And Ex1.Message.Contains("UK_Ventas_TipoDocto_Serie_Folio_CveSubProyecto") Then Alert(String.Format("el Folio '{0}' ya se encuentra registrado", FolioFact), TipoMensaje.MsgAdvertencia) - GuardaLog(String.Format("el folio ya se encuentra registrado {0}", Ex1.Message)) + GuardaLog(String.Format("el folio ya se encuentra registrado {0} {1}", Ex1.Message, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) Else Me.OnError("Ocurrió un error al Guardar la Venta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index db600b31e..1a77fd005 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -2305,7 +2305,8 @@ Partial Class Bancos_PopIEVentas ImporteMX = Math.Round(ImporteMX, 2) TimpocambioGeneral = tipoCambioPago CveSubProyectoContabilizar = CveSubProyectoVenta - + Dim Id As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal").ToEntero + IdCtaContable = Else ImporteMovimiento = 0 End If diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index fc548e4f3..353a1cc8d 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -138,10 +138,8 @@
- - - - + +
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 68c89a4b4..f9c8ee846 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1745,7 +1745,7 @@ Partial Class Inventarios_RecepcionUsados DdlClientesSucursales.DataSource = ObjCliente.DtResultados DdlClientesSucursales.DataBind() - DdlClientesSucursales.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClientesSucursales.Items.Insert(0, New ListItem("-", "-1")) DdlClientesSucursales.SelectedValue = "-1" UpGenerales.Update() diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index fa847b2a8..6edc201b6 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -502,13 +502,14 @@ Partial Class Inventarios_ResguardoMaterial BtnGuardarResguardo.Visible = True - DdlAlmacen.SelectedValue = "-1" - DdlAlmacenDestino.SelectedValue = "-1" + DdlAlmacen.SelectedValueExist("-1") + DdlAlmacenDestino.SelectedValueExist("-1") DtSeccionAlmacen.Rows.Clear() TxtObservaciones.Text = "" - TxtFecha.Text = Now.ToShortDateString - DdlPersonal.ddl.SelectedIndex = 0 + TxtFecha.Text = Now.ToShortDateString + DdlPersonal.SelectedValue = "-1" + DdlPersonal.SelectedText = "Seleccione" LimpiarAgregar() UPDatos.Update() UpGenerales.Update() diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index dee55b849..ed7c76b25 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -146,8 +146,9 @@