From 0bd5057bcc1934628786d678d3c4df8f615eebc5 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Sun, 14 Jan 2024 17:08:52 -0700 Subject: [PATCH 1/2] =?UTF-8?q?--Se=20corrigieron=20margenes=20en=20RepVia?= =?UTF-8?q?jes=20en=20el=20modal=20de=20generar=20viaje.=20Se=20limpiaron?= =?UTF-8?q?=20los=20campos=20de=20los=20input=20despu=C3=A9s=20de=20genera?= =?UTF-8?q?r=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 c6c3af1e9b23450bd33a1c5b1dde86f2ef569672 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 22 Jan 2024 11:40:39 -0700 Subject: [PATCH 2/2] --CITRUS. Fix recalculo de comercio exterior --- Ventas/Ventas.aspx.vb | 40 +++++++++++++++++++++++++++++++++++----- 1 file changed, 35 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 85697a98c..21b19e4b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2722,7 +2722,7 @@ Partial Class Ventas If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then Using ObjCGame As New ClsCGame() - If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then + If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") AndAlso ObjCGame.DtResultados.Rows.Count > 0 Then DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString()) End If @@ -2733,6 +2733,10 @@ Partial Class Ventas End If End Using + + If AplicaComercioExterior Then + CargaGvComercioExterior() + End If End If If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then @@ -8294,6 +8298,7 @@ Partial Class Ventas End Sub Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating 'Dim TipoDescuento As Integer + Dim Cantidad, PU, CantidadInventario As Decimal Dim ObjDescuento As New Modelos.VentaDescuentos Dim CuentaPredial As String @@ -8326,6 +8331,7 @@ Partial Class Ventas End If Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal() + Dim TotalOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Total").ToDecimal() Dim DatarowPS As DataRow = Nothing DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 @@ -8631,6 +8637,30 @@ Partial Class Ventas ObjDescuento.Consec = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero() End If + 'RECALCULA LA CANTIDAD DE CONVERSION + If CantidadOriginal <> Cantidad Then + Dim CantidadConversion As Decimal = TmpDT.Rows(e.RowIndex)("CantidadConversion").ToString().ToDecimal() + If AplicaComercioExterior Then + 'SI NO VIENE DE MANIFIESTO UTILIZA EL PESO DEL PRODUCTO + If Request("CveManifiesto") Is Nothing Then + If DrPS("PesoKg").ToString().ToDecimal() > 0 Then + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() + Else + CantidadConversion = Cantidad + End If + Else + Dim TotalNuevo As Decimal = TmpDT.Rows(e.RowIndex)("Total").ToString().ToDecimal() + Dim PorcentajeConversion As Decimal = CantidadConversion / TotalOriginal + + CantidadConversion = TotalNuevo * PorcentajeConversion + End If + Else + CantidadConversion = Cantidad + End If + + TmpDT.Rows(e.RowIndex)("CantidadConversion") = CantidadConversion + End If + DrPS = Nothing @@ -18466,7 +18496,7 @@ Partial Class Ventas 'SI NO SE UTILIZA LA CONVERSION, UTILIZA LA CANTIDAD If CantidadConversion = 0 Then If DrPS("PesoKg").ToString().ToDecimal() > 0 Then - CantidadConversion = DrPS("PesoKg").ToString().ToDecimal() + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() Else CantidadConversion = Cantidad End If @@ -29688,9 +29718,9 @@ Partial Class Ventas Protected Sub GvComercioExterior_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - Dim CantidadConversion = CDbl(e.Row.DBCampo("CantidadConversion")) - Dim CantidadBase = CDbl(e.Row.DBCampo("Cantidad")) - Dim PUBase = CDbl(e.Row.DBCampo("PU")) + Dim CantidadConversion = e.Row.DBCampo("CantidadConversion").ToDecimal() + Dim CantidadBase = e.Row.DBCampo("Cantidad").ToDecimal() + Dim PUBase = e.Row.DBCampo("PU").ToDecimal() Dim TotalUSD = (CantidadBase * PUBase)