From 08c2c8fb27303bbd0b44f756e673d46bbffc9992 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 5 Sep 2022 14:14:22 -0700 Subject: [PATCH 1/5] -- fecha no mayor al dia actual --- Inventarios/RecepcionAlmacen.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 6d6a5c989..98e6ba9c4 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -553,12 +553,12 @@ Partial Class Inventarios_RecepcionAlmacen BtnGuardar.Visible = False TxtFecha.Text = Now.ToShortDateString - RVFecha.MaximumValue = MaxFecha.ToShortDateString + If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = Now.ToShortDateString : CEFecha.StartDate = Now Else RVFecha.MinimumValue = MinFecha.ToShortDateString InicializaBitacoraTemporal() DdlMonedaTC.Enabled = False - - + RVFecha.MaximumValue = Now.ToShortDateString + CEFecha.EndDate = Now End Sub ''' From 43ffc16abcaa8dbad470f2c768ba4ae48ee62dcc Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 6 Sep 2022 02:06:06 -0700 Subject: [PATCH 2/5] --- App_Code/ClsRH.vb | 3 +- RH/PopUpBuscarPersonal.aspx | 160 ++++++++++++++++++--------------- RH/PopUpBuscarPersonal.aspx.vb | 2 +- 3 files changed, 90 insertions(+), 75 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index d8aa2d0f5..2fc71f5d3 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1741,7 +1741,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer, CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer, FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, SqlStr As String, NCaracteristicas As Integer, - CveEmpresa As Integer, Optional TopSelect As Integer = 10000) As Boolean + CveEmpresa As Integer, Optional TopSelect As Integer = 10000, Optional EsReserva As Integer = -1) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_Personal2Get") @@ -1777,6 +1777,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@NCaracteristicas", SqlDbType.Int).Value = NCaracteristicas .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + .Add("@EsReserva", SqlDbType.Int).Value = EsReserva End With Try diff --git a/RH/PopUpBuscarPersonal.aspx b/RH/PopUpBuscarPersonal.aspx index 06d8b2306..9bf6f2f1b 100644 --- a/RH/PopUpBuscarPersonal.aspx +++ b/RH/PopUpBuscarPersonal.aspx @@ -4,8 +4,8 @@ @@ -133,90 +133,104 @@ Estatus: - + + clasificación: + + + + + + + + + - - - - - - - - -
- -
- -
-   -
-
- - -
- - - - - - - + - - - - - - -
- -
- -
- + + + + + + + +
+ +
-
- - -
- - - - + +
+   +
+
+ + +
+ + + + + + - - - - - - -
- -
- -
- + + + + + + +
+ +
-
- - + +
+ +
+
+ + +
+ + + + + + + + + + + + +
+ +
- - - - + +
+ +
+
+ + +
+ + + + - +   @@ -226,7 +240,7 @@ - + diff --git a/RH/PopUpBuscarPersonal.aspx.vb b/RH/PopUpBuscarPersonal.aspx.vb index eec974cf1..3e59a99ec 100644 --- a/RH/PopUpBuscarPersonal.aspx.vb +++ b/RH/PopUpBuscarPersonal.aspx.vb @@ -166,7 +166,7 @@ Partial Class RH_PopUpBuscarPersonal If ObjPersonal.GetPersonal2(-1, Codigo, Nombre, NSS, RFC, DdlTurnos.SelectedValue.ToEntero, DdlPuestos.SelectedValue.ToEntero, DdlDepartamentos.SelectedValue.ToEntero, DdlRuta.SelectedValue.ToEntero, DdlEscolaridad.SelectedValue.ToEntero, DdlEstadoCivil.SelectedValue.ToEntero, DdlGenero.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClienteAsignado.SelectedValue.ToEntero, Horario, CveSupervisor, - -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", StrFiltroCaracteristica, 1, UsuarioActual.CveEmpresa) Then + -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", StrFiltroCaracteristica, 1, UsuarioActual.CveEmpresa, EsReserva:=ddlclasificacion.SelectedValue.ToEntero()) Then If ObjPersonal.DtResultados.Rows.Count > 0 Then LtlTotalRegistros.Text = ObjPersonal.DtResultados.Rows.Count.ToString.FormatoNumero(0) GV.DataSource = ObjPersonal.DtResultados From 33ef7256544c4eb4065e9c2fb841a25f1053eef9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Sep 2022 06:21:15 -0700 Subject: [PATCH 3/5] --prepoliza pago --- App_Code/ClsPaginas.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5b7e893ab..e5eae18e0 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9811,7 +9811,7 @@ Public Class ClsPaginas Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 2, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 2 If VentaActual.CveMoneda <> 1 Then - If Pago.TipoPago = "NC" Then Pago.CveConceptoPago = 301 : Pago.CveConceptoPago = 292 + If Pago.TipoPago = "NC" Then Pago.CveConceptoPago = 301 Else Pago.CveConceptoPago = 292 End If Dim Concepto As String = String.Format("{0} F:{1}", VentaActual.ClienteNombre, VentaActual.SerieFolio) @@ -9842,12 +9842,12 @@ Public Class ClsPaginas If VentaActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoVenta 'movimiento de pago cliente - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True 'movimiento de pago cliente Complementaria If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If @@ -9992,13 +9992,13 @@ Public Class ClsPaginas End If - If Not ErrorMovtos AndAlso VentaActual.TC <> Pago.TCPago Then + If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then Dim ConceptoContable, IdCtaContable As Integer Dim TipoMovimiento As Boolean Dim Diferencia As Decimal = 0 If tImporteVenta <> tImportePago Then - If tImporteVenta > tImportePago Then + If tImporteVenta < tImportePago Then ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria TipoMovimiento = True Else From 23f5e41fe76b90411ddb3a75dd6822e198f87ad9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Sep 2022 06:30:39 -0700 Subject: [PATCH 4/5] - --- Bancos/ProveedoresAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index c139578d4..3d6b20314 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -855,7 +855,7 @@ Partial Class Bancos_ProveedoresAbonar Pago.OtroGastoIngreso = 0 End If - If AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjMov) Then + If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then MsgError = "No se pudo insertar la póliza" End If From 37cbd59901eb19e51b9e9ec1e332e7c7d9c54816 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Tue, 6 Sep 2022 22:35:15 -0700 Subject: [PATCH 5/5] Cambios en WSApp (pescaditoApp) --- asmx/WSApp.asmx | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 8506eb55c..83e2f5311 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -563,7 +563,9 @@ Public Class WSApp Salida.Cliente = ObjClientes.Nombre Salida.CvePrecioLista = ObjClientes.CvePrecioLista Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) - + If ObjClientes.CveSubProyecto > 0 Then + Salida.CveSubProyecto = ObjClientes.CveSubProyecto + End If retorno = JsonConvert.SerializeObject(Salida) End If Else @@ -655,15 +657,13 @@ Public Class WSApp Return If(TieneError, "{}", retorno.ToString()) End Function - Public Function GetListaPedidos(CveCliente As Integer, CveUsuario As Integer) As String + Public Function GetListaPedidos(CveCliente As Integer, CveUsuario As Integer,FechaI As String, FechaF As String) As String Dim retorno = "[]" Dim Serie As String = "-1" Dim Folio As Integer = -1 Dim Codigo As String = "-1" Dim Cliente As String = "-1" - Dim FechaI As String = "-1" - Dim FechaF As String = "-1" Dim FolioFiscal As String = "-1" Dim PeidoContrato As String = "-1" Dim OrdenCompra As String = "-1"