From 0bd5057bcc1934628786d678d3c4df8f615eebc5 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Sun, 14 Jan 2024 17:08:52 -0700 Subject: [PATCH 01/39] =?UTF-8?q?--Se=20corrigieron=20margenes=20en=20RepV?= =?UTF-8?q?iajes=20en=20el=20modal=20de=20generar=20viaje.=20Se=20limpiaro?= =?UTF-8?q?n=20los=20campos=20de=20los=20input=20despu=C3=A9s=20de=20gener?= =?UTF-8?q?ar=20un=20boleto=20nuevo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/Boletos.aspx | 803 ++++++++++++++++++------------------ Transportes/Boletos.aspx.vb | 2 + Transportes/RepViajes.aspx | 17 +- 3 files changed, 410 insertions(+), 412 deletions(-) diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index a7201422a..254e8184c 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -1,4 +1,5 @@ -<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" +<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" + MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" Inherits="Boletos" EnableEventValidation="true" %> @@ -11,6 +12,10 @@ margin-block: 1rem; } + .mx-1 { + margin: 0 2rem; + } + .disponible { display: inline-block; width: 45px; @@ -23,15 +28,15 @@ text-align: center; } - .disponible:hover,.disponible.activo { + .disponible:hover, .disponible.activo { background-color: #45b6af; color: #fff; } - { - background-color: #45b6af; - color: #fff; - } + { + background-color: #45b6af; + color: #fff; + } .nodisponible { display: inline-block; @@ -56,9 +61,10 @@ text-align: center; color: black } - .btnChofer a{ - color:#2C3E50; - } + + .btnChofer a { + color: #2C3E50; + } .btnChofer:hover { @@ -67,413 +73,406 @@ -<%-- - -
  • - Viajes -
    • -     -    --%> - - -
    -
    -
    -
    - - Datos del Cliente -
    -
    -
    -
    -
    -
    -
    - -
    - - - - -
    - -
    -
    -
    - - -
    -
    - -
    -
    -
    -
    - - - - - - -
    -
    -
    -
    - - - -
    -
    -
    - -
    - - - -
    - -
    -
    - -
    -
    -
    - - Datos del Viaje -
    -
    - -
    - + -
    -
    -
    - - -
    -
    -
    -
    - - - - - +
    +
    +
    +
    + + Datos del Cliente +
    +
    +
    +
    -
    -
    -
    -
    - - +
    + + +
    + + + + +
    + +
    +
    +
    + + +
    +
    + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    + + + +
    +
    +
    + +
    + + + +
    -
    -
    - - - - -
    -
    - -
    - - -
    - -
    -
    - +
    +
    +
    + + Datos del Viaje +
    -
    - - +
    + +
    +
    +
    + + +
    +
    +
    +
    + + + + + +
    +
    +
    +
    +
    +
    + + +
    +
    +
    + +
    + + + + +
    +
    + +
    + + +
    + +
    +
    + +
    +
    + + + +
    +
    -
    -
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + -
    -
    - - -
    + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    - - - -      - - - -
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +
    - - - - - - - - -      - - - - - - - - - - - - - - -      - - - - - - - - - - - - - - -      - - - - - - - - - - - - - - -      - - - - - - - - - - - - - - - - - - - - - -
    -
    +
    +
    + + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 62774dc29..c218e5ccd 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -165,6 +165,8 @@ Partial Class Boletos TxtVisa.Text = "" TxtCelular.Text = "" TxtObservaciones.Text = "" + AsientoSeleccionado = "" + upPanel.Update() End If Catch ex As Exception ObjTransporte.RollBack() diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx index 45d4d170c..99aac269a 100644 --- a/Transportes/RepViajes.aspx +++ b/Transportes/RepViajes.aspx @@ -12,10 +12,6 @@ margin-block: .5rem; } - .fecha { - padding: 3px; - } - .masivo { color: green; } @@ -223,12 +219,13 @@
    -
    - -
    -
    - + +
    +
    + From b3f06880229a7f6d0ab7eaf55badbb1d72ebaba7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 17 Jan 2024 10:05:37 -0700 Subject: [PATCH 02/39] -- cambio en TC de anticipos -- no actualizar os con cveventa, agenerarlo desde pedido --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 24 +++++++++++------------- 2 files changed, 12 insertions(+), 14 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index f8293738d..711178838 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4370,7 +4370,7 @@
    - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 45a1c2a0b..be9816faa 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13644,19 +13644,12 @@ Partial Class Ventas GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio) - If ErrorList.Count = 0 Then - If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then - ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio") - End If - End If - If Not ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ErrorList.Add("Ocurrió un error al guardar los productos al procedimiento") End If End If - 'Si viene de OS, Se guarda CveVenta en OS If CveOS > 0 Then If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then @@ -15849,16 +15842,17 @@ Partial Class Ventas 'Else ' tipoCambio = GlobalTipoCambio(e.Row.DataKey("Fecha").ToString().ToDate).ToDecimal 'End If - tipoCambio = e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal + If TxtFechaAnticipoCliente.Text = "" Then TxtFechaAnticipoCliente.Text = Now.ToShortDateString + tipoCambio = GlobalTipoCambio(TxtFechaAnticipoCliente.Text.ToDate).ToDecimal 'e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Text = tipoCambio.FormatoNumero(4) - If DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 1 Then + If DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToEntero() = 1 Then saldo = e.Row.DataKey("Saldo").ToDecimal - ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 1 And tipoCambio > 0 Then - saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal / tipoCambio) - ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 2 Then - saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal * tipoCambio) + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 And e.Row.DBCampo("CveMoneda").ToEntero() = 1 And tipoCambio > 0 Then + saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal / tipoCambio).TruncateDecimal + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToEntero() = 2 Then + saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal * tipoCambio).TruncateDecimal Else saldo = e.Row.DataKey("Saldo").ToDecimal End If @@ -36499,5 +36493,9 @@ Partial Class Ventas End If End Sub + + Protected Sub TxtFechaAnticipoCliente_TextChanged(sender As Object, e As EventArgs) + CargaAnticipos(CveCliente) + End Sub End Class From 0cfb145c057e7e486c0f438a6aff05ce3bbcdeee Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 17 Jan 2024 10:06:32 -0700 Subject: [PATCH 03/39] =?UTF-8?q?--=20visualizas=20Pedido=20y=20Remisi?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/RepOSMedicas.aspx | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 315c39c93..ea1f836d1 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -163,29 +163,31 @@ + ToolTip="Listado de ordenes de servicio" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> <%--0--%> - <%----%> + <%----%> <%--1--%> <%--2--%> - + <%--3--%> - + <%--4--%> - + <%--5--%> - + <%--6--%> - + <%--7--%> - + <%--8--%> - + <%--9--%> - + + + From 57e7a699c15f1390a7e8ffbb33bbbf4719f13c78 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 17 Jan 2024 10:14:29 -0700 Subject: [PATCH 04/39] --FIX. Actualizar campo, FechaParaSurtir --- Ventas/Ventas.aspx.vb | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 45a1c2a0b..af60367a8 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21755,19 +21755,24 @@ Partial Class Ventas Moneda = 1 End If + Dim FechaParaSurtir As DateTime = MinFecha + If TxtFechaOS.Text.Replace(",", "").ToDateTime() > MinFecha Then + FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime() + End If + If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=TxtFechaOS.Text.Replace(",", "").ToDateTime()) Then + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then OcurrioError = True End If If Not OcurrioError Then - If DdlMedico.SelectedValue.ToEntero() > 0 Then - If Not ObjVentas.UpdateFechaOSVenta(CveVenta, TxtFechaOS.Text.Replace(",", "").ToDateTime(), UsuarioActual.CveEmpresa) Then + If DdlMedico.SelectedValue.ToEntero() > 0 AndAlso TxtFechaOS.Text.Replace(",", "").ToDateTime() > MinFecha Then + If Not ObjVentas.UpdateFechaOSVenta(CveVenta, FechaParaSurtir, UsuarioActual.CveEmpresa) Then OcurrioError = True End If End If @@ -33624,15 +33629,20 @@ Partial Class Ventas 'DdlMedicoObservaciones.Enabled = True 'DdlProcedimientoObservaciones.Enabled = True + Dim FechaParaSurtir As DateTime = MinFecha + If TxtFechaOS.Text.Replace(",", "").ToDateTime() > MinFecha Then + FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime() + End If + If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim, - CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=TxtFechaOS.Text.Replace(",", "").ToDateTime()) Then + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then TieneError = True End If If Not TieneError Then - If DdlMedico.SelectedValue.ToEntero() > 0 Then - If Not ObjVentas.UpdateFechaOSVenta(CveVenta, TxtFechaOS.Text.Replace(",", "").ToDateTime(), UsuarioActual.CveEmpresa) Then + If DdlMedico.SelectedValue.ToEntero() > 0 AndAlso FechaParaSurtir > MinFecha Then + If Not ObjVentas.UpdateFechaOSVenta(CveVenta, FechaParaSurtir, UsuarioActual.CveEmpresa) Then TieneError = True End If End If From 957db5de8ea07698a36744d0407f80d04fb95a92 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Jan 2024 12:41:47 -0700 Subject: [PATCH 05/39] =?UTF-8?q?SMS=202024.01.17=20OS=20=20cambio=20actua?= =?UTF-8?q?lizar=20CveVenta=20por=20remisi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 34 +++++++++++++++++++++++++++++++--- 1 file changed, 31 insertions(+), 3 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index d23b2813d..5e7dc1430 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -99,6 +99,20 @@ Partial Class OS_OrdenesServicios End Set End Property + Private Property CvePedido As Integer + Get + If ViewState("CvePedido") Is Nothing Then + ViewState("CvePedido") = -1 + End If + + Return ViewState("CvePedido").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CvePedido") = value + End Set + End Property + + Private Property CveOsDetalle As Integer Get @@ -641,6 +655,10 @@ Partial Class OS_OrdenesServicios CveTecnico = ObjOS.CveUsuarioAtendio CargarEstatusDelUsuario(TipoEstatus) CveVenta = ObjOS.CveVenta + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + CvePedido = ObjOS.CveCotizacion + End If + 'Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count @@ -2972,7 +2990,7 @@ Partial Class OS_OrdenesServicios End Select Dim ObjOS As New ClsOS - If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then + If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, If(UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1, CvePedido, CveVenta), Opcion, UsuarioActual.CveEmpresa) Then DTSolicitudDev = ObjOS.DtResultados GvMU.DataSource = DTSolicitudDev GvMU.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> "" @@ -3093,7 +3111,7 @@ Partial Class OS_OrdenesServicios Next If AplicaDevolucion Then - If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then + If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVentaPedido) Then ProcesoOK = False End If End If @@ -3213,6 +3231,16 @@ Partial Class OS_OrdenesServicios Else ProcesoOK = False End If + + If ProcesoOK Then + + If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS) Then + ProcesoOK = False + End If + + End If + + End If End If @@ -3249,7 +3277,7 @@ Partial Class OS_OrdenesServicios Dim CveSubProyectoPedido As Integer = -1 Dim CveMoneda As Integer = -1 - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then + If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0) CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero() From 76ed9d1a6f03292eeb2a664fd1ec085d47432fd5 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 17 Jan 2024 13:37:58 -0700 Subject: [PATCH 06/39] - --- Ventas/Ventas.aspx | 285 +++++++++++++++++++++--------------------- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 143 insertions(+), 144 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 711178838..3c3d035e3 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4306,155 +4306,154 @@
    - + +