From 66e98d50816fe6b3dec64879a96dcae9fdb50d92 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Wed, 29 Jan 2020 11:15:52 -0700 Subject: [PATCH 1/3] -anios pue a 4 --- Inicio.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index ceb88aa8a..822217cdb 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -203,7 +203,7 @@ Partial Class Inicio Private Sub MuestraVentasPUE() Dim objVentas As New ClsVentas - If objVentas.GetPUESinPago(Now.addyears(-2), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objVentas.DtResultados.Rows.Count > 0 Then GvVtaPUE.DataSource = objVentas.DtResultados @@ -217,7 +217,7 @@ Partial Class Inicio Private Sub MuestraComprasPUE() Dim objCompras As New ClsCompras - If objCompras.GetPUESinPago(Now.addyears(-2), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objCompras.DtResultados.Rows.Count > 0 Then GvCompPUE.DataSource = objCompras.DtResultados From 0cb8352aa3557a691fd460182dad7f2fd9153c12 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 30 Jan 2020 09:29:33 -0700 Subject: [PATCH 2/3] -auxiliares --- Compras/ProveedoresAuxiliar.aspx | 3 +++ Ventas/AuxiliarCliente.aspx | 2 ++ 2 files changed, 5 insertions(+) diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx index d248e4d24..cc270c0c7 100644 --- a/Compras/ProveedoresAuxiliar.aspx +++ b/Compras/ProveedoresAuxiliar.aspx @@ -188,6 +188,9 @@ + + + diff --git a/Ventas/AuxiliarCliente.aspx b/Ventas/AuxiliarCliente.aspx index 74dd90b42..ef96afba5 100644 --- a/Ventas/AuxiliarCliente.aspx +++ b/Ventas/AuxiliarCliente.aspx @@ -185,6 +185,8 @@ + + From 794e29f9597455e614fa508b52d3048089cabb65 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 30 Jan 2020 13:52:30 -0700 Subject: [PATCH 3/3] - auxiliar --- App_Code/ClsContabilidad.vb | 3 ++- Compras/ProveedoresAuxiliar.aspx | 8 ++++++++ Compras/ProveedoresAuxiliar.aspx.vb | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 8 ++++---- 4 files changed, 15 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 6d374654f..4f7e0a8e2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -388,7 +388,7 @@ Public Class ClsContabilidad Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, - Optional Opcion As Integer = 1) As Boolean + Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_ProveedoresAuxiliar") @@ -401,6 +401,7 @@ Public Class ClsContabilidad .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor End With Try diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx index cc270c0c7..8afae6a37 100644 --- a/Compras/ProveedoresAuxiliar.aspx +++ b/Compras/ProveedoresAuxiliar.aspx @@ -123,6 +123,14 @@ + +
+ + + + + +
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 185ba9cc9..9b727b010 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar 'Falta PA If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, - DdlOpcion.SelectedValue.ToEntero) Then + DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") Else diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 513937be3..588db0f51 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -779,7 +779,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim ErrorMovInv As Boolean = False Dim ErrorAC As Boolean = False Dim TextoError = "" - Dim TipoMovimientoSalida = If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 8)) + Dim TipoMovimientoSalida As Integer = 26 'If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 26)) 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN @@ -849,11 +849,11 @@ Partial Class Inventarios_TraspasoAlmacen 'AGREGAMOS LA ENTRADA If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO If Not ErrorMovInv Then - Dim TipoMovimientoEntrada = 36 + Dim TipoMovimientoEntrada = 27 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero) CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), - CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G") + CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then TextoError = "Ocurrió un error al generar el movimiento de entrada" @@ -887,7 +887,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero() - CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S") + CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3") FolioVirtualEntrada = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing