From 28ee7f871e4a1087757a2aaaeab0efeed20c6c3d Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 25 Aug 2020 18:54:03 -0700 Subject: [PATCH 1/7] =?UTF-8?q?PA=20para=20editar=20la=20observaci=C3=B3n?= =?UTF-8?q?=20de=20una=20venta=20agregado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 33 +++++++++++++++++++++++++++------ Ventas/Ventas.aspx.vb | 6 ++---- 2 files changed, 29 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e3592c397..3e1fabf64 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -460,8 +460,7 @@ Public Class ClsVentas Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, - Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveVendedor As Integer = -1, Optional ObsAlm As String = "", Optional FormaPaqueteria As Integer = -1, - Optional CorreoNot As String = "-1") As Boolean + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -492,10 +491,6 @@ Public Class ClsVentas .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObsAlm - .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria - .Add("@CorreoNotificacion", SqlDbType.NVarChar).Value = CorreoNot End With Try @@ -507,6 +502,32 @@ Public Class ClsVentas Return Retorno End Function + + Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, + Pedido As String, OrdenCompra As String, FechaPago As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasObservacionesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones + .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria + .Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones + .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObservacionesAlm + .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido + .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra + .Add("@FechaPago", SqlDbType.Date).Value = FechaPago + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar las observaciones de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ade3b1824..9843d7605 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -26143,10 +26143,8 @@ Partial Class Ventas Private Sub GuardarValoresEditados() Dim ObjVentas As New ClsVentas() - If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), - TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero, - TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, - CorreoNot:=TxtCorreoNotificaciones.Text, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Kilometraje:=TxtKilometraje.Text.ToDouble) Then + If ObjVentas.UpdateObservacionesVenta(CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, + TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then CargaVenta() BtnEditar.Text = "Editar" Alert("Actualizado correctamente") From 5545457d0f7c47630f26e157de82de5a38c68d03 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:02:49 -0700 Subject: [PATCH 2/7] -- se especifico, el modulo, de moviemento de almacen --- Inventarios/ResguardoMaterial.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index fb4e1fd2c..e3cfa6f5d 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -816,7 +816,7 @@ Partial Class Inventarios_ResguardoMaterial Case 23 ' Resguardo 'SALIDA ORIGEN - CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor) + CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat1") FolioSalida = ObjInventario.Folio If CveMovimientoSalida <= 0 Then @@ -839,7 +839,7 @@ Partial Class Inventarios_ResguardoMaterial Cont = 0 If Not TieneError Then - CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor) + CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat2") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then @@ -873,7 +873,7 @@ Partial Class Inventarios_ResguardoMaterial 'SALIDA ORIGEN - RESGUARDO - CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True) + CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat3") FolioSalida = ObjInventario.Folio Dim DiccionarioSecciones As New HybridDictionary @@ -899,7 +899,7 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then - CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True) + CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat4") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then From e915520d0f60efcc38e0b3a08ecad6d55567ea14 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:03:31 -0700 Subject: [PATCH 3/7] -- actualizacion de datos seccion en liberacion --- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 3dec2293d..ef91b9bb5 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -3875,7 +3875,7 @@
- +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 59bbbebb0..9402434f0 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5105,7 +5105,7 @@ Partial Class RH_Personal Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=False) Then GvUniformesResguardo.DataSource = ObjInv.DtResultados UniformesInfo = ObjInv.DtResultados Else From 0ba81b8495d0d1c45bc66b807e5a38b594344b2a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:04:07 -0700 Subject: [PATCH 4/7] -- activaion de salida por ajuste de celia --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 7891db1e0..4bbcef129 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2025,7 +2025,7 @@ Partial Class Inventarios_EntradasSalidas DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2")) End If - If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(14, 19) AndAlso UsuarioActual.CveUsuario = 2185 Then + If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(12, 14, 19) AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then 'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1")) DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) From e0dd5b0110d5f3edd9e405838b1e1ecb091e7795 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:04:45 -0700 Subject: [PATCH 5/7] - actualizacion --- packages.config | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages.config b/packages.config index 457abd773..e62d14c90 100644 --- a/packages.config +++ b/packages.config @@ -17,9 +17,9 @@ - - - + + + @@ -37,6 +37,6 @@ - + \ No newline at end of file From 70186479806226ac57d6bdb9be98c88ace15ebc3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:05:45 -0700 Subject: [PATCH 6/7] - cambios de version --- .../RCGPSService/configuration91.svcinfo | 2 +- .../WSPenske/ReceiveGPSInfo.wsdl | 54 +++++++++++++++ .../WSRVConsultas/configuration91.svcinfo | 2 +- App_WebReferences/WSRVConsultas/service1.wsdl | 66 +++++++++++++++++++ .../wsValidaCFDi2/ConsultaCFDIService.xsd | 2 + .../wsValidaCFDi2/configuration91.svcinfo | 2 +- 6 files changed, 125 insertions(+), 3 deletions(-) diff --git a/App_WebReferences/RCGPSService/configuration91.svcinfo b/App_WebReferences/RCGPSService/configuration91.svcinfo index 74eb6fcf0..60a186b35 100644 --- a/App_WebReferences/RCGPSService/configuration91.svcinfo +++ b/App_WebReferences/RCGPSService/configuration91.svcinfo @@ -1,5 +1,5 @@ - + diff --git a/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl b/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl index b2c6f6577..73cde7e36 100644 --- a/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl +++ b/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl @@ -83,6 +83,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -103,6 +129,12 @@ + + + + + + @@ -116,6 +148,10 @@ + + + + @@ -146,6 +182,15 @@ + + + + + + + + + @@ -176,6 +221,15 @@ + + + + + + + + + diff --git a/App_WebReferences/WSRVConsultas/configuration91.svcinfo b/App_WebReferences/WSRVConsultas/configuration91.svcinfo index 95fb42f85..4f5b80053 100644 --- a/App_WebReferences/WSRVConsultas/configuration91.svcinfo +++ b/App_WebReferences/WSRVConsultas/configuration91.svcinfo @@ -1,5 +1,5 @@ - + diff --git a/App_WebReferences/WSRVConsultas/service1.wsdl b/App_WebReferences/WSRVConsultas/service1.wsdl index b7b24ac5b..acaf74ae5 100644 --- a/App_WebReferences/WSRVConsultas/service1.wsdl +++ b/App_WebReferences/WSRVConsultas/service1.wsdl @@ -153,6 +153,43 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -242,6 +279,12 @@ + + + + + + @@ -290,6 +333,11 @@ + + Consultar un CFDI directamente por UUID y Fecha + + + Consultar los CFDIs emitidos por rango de fecha @@ -366,6 +414,15 @@ + + + + + + + + + @@ -450,6 +507,15 @@ + + + + + + + + + diff --git a/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd b/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd index 3794d9bb1..1e54f4ce6 100644 --- a/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd +++ b/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd @@ -3,7 +3,9 @@ + + diff --git a/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo b/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo index 03e1cea96..cf557a755 100644 --- a/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo +++ b/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo @@ -1,5 +1,5 @@ - + From 761bf1e222c3dde7fbafe2289e49b0d9f203d9f2 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 26 Aug 2020 19:37:04 -0700 Subject: [PATCH 7/7] =?UTF-8?q?se=20agrego=20nuevo=20campo=20en=20las=20pa?= =?UTF-8?q?queterias=20guias,=20documento=20detalle=20recibi=C3=B3=20cambi?= =?UTF-8?q?os=20de=20retroalimentaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsGenerales.vb | 3 +- General/PopUpPaqueteriasGuias.aspx | 4 +++ General/PopUpPaqueteriasGuias.aspx.cs | 26 ++++++++++++++++- General/RepPaqueteriasGuias.aspx | 3 +- OI/DocumentoDetalle.aspx.cs | 7 +++-- RH/Personal.aspx | 40 ++++++++++++++++++++------- RH/Personal.aspx.vb | 9 ++++-- 7 files changed, 74 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 80b8e3306..69f64de00 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2728,7 +2728,7 @@ Public Class ClsGenerales #Region "P A Q U E T E R I A S G U I A S" Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True, - Optional EsEntregaInterna As Boolean = False) As Integer + Optional EsEntregaInterna As Boolean = False, Optional PolizaSeguro As String = "-1") As Integer Dim Retorno As Integer = -1 @@ -2755,6 +2755,7 @@ Public Class ClsGenerales .Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna + .Add("@PolizaSeguro", SqlDbType.NVarChar).Value = PolizaSeguro .Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index 8412bda47..3d8060faf 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -208,6 +208,10 @@ + Poliza de Seguro: + + + diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index c124dbd4e..33cc3edab 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -181,6 +181,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas if (CveVenta > 0 || CveOC > 0 || CveMovimiento > 0 || CveCompra > 0) { CargaGuiasVinculadas(); + if(CveVenta > 0) + { + CondicionesVenta(); + } } else { @@ -381,7 +385,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas String Observaciones = TxtObservaciones.Text; Boolean ImplicaCosto = ChkImplicaCosto.Checked; - int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto); + string PolizaSeguro = (tdLblPolizaSeguro.Visible) ? TxtPolizaSeguro.Text : "-1"; + + int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, + FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto,PolizaSeguro: PolizaSeguro); if (CvePaqueteriaGuia > 0) { @@ -853,4 +860,21 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas } #endregion + private void CondicionesVenta() + { + + ClsVentas ObjVenta = new ClsVentas(); + if (ObjVenta.GetVentaDetalle(CveVenta)) + { + DataTable VentasDetalle = ObjVenta.DtResultados; + if (VentasDetalle.Rows.Count > 0) + { + double Total = VentasDetalle.SUM("Total"); + bool Mostrar = (Total >= 100000.00); + tdLblPolizaSeguro.Visible = Mostrar; + tdTxtPolizaSeguro.Visible = Mostrar; + } + } + } + } \ No newline at end of file diff --git a/General/RepPaqueteriasGuias.aspx b/General/RepPaqueteriasGuias.aspx index b77e74312..cff504eb1 100644 --- a/General/RepPaqueteriasGuias.aspx +++ b/General/RepPaqueteriasGuias.aspx @@ -190,7 +190,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - @@ -208,6 +208,7 @@ + diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs index f16ec0e2b..02ca2f7e0 100644 --- a/OI/DocumentoDetalle.aspx.cs +++ b/OI/DocumentoDetalle.aspx.cs @@ -89,15 +89,16 @@ public partial class OI_DocumentoDetalle : ClsPaginas ViewState["CveAsignacion"] = value; } } + #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { Cargar(); + CargarMensajeNuevoEditado(); } } - #endregion #region "CARGAS" private void CargarCveDocumento() @@ -120,7 +121,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas switch (MensajeNuevoEditado) { case "Nuevo": - Alert("El Documento ha sido creado correctamente"); + Alert("El Documento ha sido creado correctamente",JSBtnAceptar: "document.location.href=\"/OI/Documentos.aspx\";"); break; case "NuevaVersion": Alert("Nueva versión del Documento creado correctamente"); @@ -343,7 +344,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas ConfiguracionActualizar(); ConfigurarGridUsuariosParticipantes(); ConfigurarCamposDetalleSegunUsuario(); - CargarMensajeNuevoEditado(); + MostrarBotonRechazar(); } } diff --git a/RH/Personal.aspx b/RH/Personal.aspx index ef91b9bb5..c085f4560 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -829,7 +829,7 @@ - @@ -3869,23 +3869,43 @@
-
- - +
+
+ +
+
+ +
-
- - - - +
+
+
+ +
+
+ + + +
+
+
+
+ Cantidad: +
+
+ + +
+
+
- + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9402434f0..eb401adee 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5143,6 +5143,9 @@ Partial Class RH_Personal CvePS = row.DataKey("CvePS").ToString().ToEntero CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero + Dim Cantidad As Integer = row.DataKey("Cantidad").ToString().ToEntero + TxtCantidadResguardo.Text = Cantidad.ToString + RvTxtCantidadResguardo.MaximumValue = Cantidad.ToString If row.DataKey("AplicaSeccion").ToString = "True" Then divSeccionAlmacen.Visible = True DdlSeccionAlmacen.Items.Clear() @@ -5168,11 +5171,13 @@ Partial Class RH_Personal Dim ObjInventario As New ClsInventarios ObjInventario.IniciaTransacSQL() + Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble() + Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) - Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) + Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) - Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) + Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) If ResultadoDetalleSalida And ResultadoDetalleEntrada Then ObjInventario.Commit()