From 40327b02ecbbfca4dcf0255661faf21d4ecbe166 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 28 Nov 2024 11:26:28 -0700 Subject: [PATCH] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20conceptos=20de?= =?UTF-8?q?=20pago=20de=20viaje=20--=20mostrar=20el=20saldo=20siempre?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx.vb | 72 ++++++++++++-------------- 1 file changed, 32 insertions(+), 40 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 64c21f6b6..3397620f6 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -304,52 +304,48 @@ Partial Class RepContratoDetalle If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then Contrato = ObjContratos.DtResultados If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then - Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal - Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal - Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal - CveContratoTipo = Contrato.Rows(0)("CveContratoTipo").ToString.ToEntero - SubProyecto = Contrato.Rows(0)("SubProyecto").ToString - CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero - TxtFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString + Dim drc As DataRow = Contrato.Rows(0) + Dim Importe As Decimal = drc("Importe").ToString.ToDecimal + Dim Pesos As Decimal = drc("ImporteMax").ToString.ToDecimal + Dim Anticipo As Decimal = drc("ImporteMin").ToString.ToDecimal + CveContratoTipo = drc("CveContratoTipo").ToString.ToEntero + SubProyecto = drc("SubProyecto").ToString + CveMasivo = drc("CveMasivo").ToString.ToEntero + TxtFolio.Text = drc("NumeroContrato").ToString - DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString - DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString - DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString - TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString - TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString - TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString - TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString - TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") - TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") - TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString - DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString) + DdlClientes.SelectedText = drc("NombreComercial").ToString + DdlClientes.SelectedValue = drc("CveCliente").ToString + DdlMoneda.SelectedValue = drc("CveMoneda").ToString + TxtDescripcion.Text = drc("DescripcionContrato").ToString + TxtObservaciones.Text = drc("Observaciones").ToString + TelefonoEmpresa = drc("Telefono").ToString + TxtUbicacion.Text = drc("Ubicacion").ToString + TxtFechaSalida.Text = drc("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") + TxtFechaRegreso.Text = drc("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") + TxtCantidadPasajeros.Text = drc("CantidadPasajeros").ToString + DdlTipoAF.SelectedValue = If(drc("CveTipoAF") Is Nothing, "", drc("CveTipoAF").ToString) TxtImporte.Text = Math.Round(Importe, 2).ToString TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString - CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero - DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString) - If Contrato.Rows(0)("CveAF").ToString <> "" Then + CveContratoEstatus = drc("CveContratosEstatus").ToString.ToEntero + DdlSubProyecto.SelectedValueExist(drc("CveSubProyecto").ToString) + If drc("CveAF").ToString <> "" Then divAF.Visible = True - LblAF.Text = Contrato.Rows(0)("CodigoNombreAF").ToString + LblAF.Text = drc("CodigoNombreAF").ToString End If - CveSubProyectoOriginal = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero - CveMonedaOriginal = Contrato.Rows(0)("CveMoneda").ToString.ToEntero + CveSubProyectoOriginal = drc("CveSubProyecto").ToString.ToEntero + CveMonedaOriginal = drc("CveMoneda").ToString.ToEntero ImporteOrigial = Importe - DescripcionOriginal = Contrato.Rows(0)("DescripcionContrato").ToString + DescripcionOriginal = drc("DescripcionContrato").ToString TipoAFOriginal = DdlTipoAF.SelectedItem.Text FolioOriginal = TxtFolio.Text.Trim - CveVentaRemision = Contrato.Rows(0)("CveVentaRemision").ToString.ToEntero - HypRemision.Text = Contrato.Rows(0)("RemisionSerieFolio").ToString + CveVentaRemision = drc("CveVentaRemision").ToString.ToEntero + HypRemision.Text = drc("RemisionSerieFolio").ToString HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ CveVentaRemision}" - ChkEsPresupuestal.Checked = Boolean.Parse(Contrato.Rows(0)("EsPresupuestal").ToString) - - If Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal > 0 Then - LblSaldo.Text = $"Saldo { Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal.ToString("###,###,###.00")}" - Else - LblSaldo.Text = "" - End If + ChkEsPresupuestal.Checked = Boolean.Parse(drc("EsPresupuestal").ToString) + LblSaldo.Text = $"Saldo { drc("RemisionSaldo").ToString.ToDecimal.FormatoNumero}" If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) @@ -357,10 +353,6 @@ Partial Class RepContratoDetalle Dim File As New FileInfo(ViewState("FUrl").ToString) BtnDescargar.NavigateUrl = $"~/Compras/PopUpVerFactura.aspx?ArchivoContrato={Encripta(File.FullName)}" - 'If File.Exists Then - ' RegistraScript($"window.open({Url}, ""_blank"");") - 'End If - Else BtnDescargar.Visible = False @@ -368,7 +360,7 @@ Partial Class RepContratoDetalle End If 'Boletos Vendidos - If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then + If drc("CveContratoTipo").ToString() = "35" Then TabBoletos.Visible = True Dim ObjTransportes As New ClsTransportes If ObjTransportes.GetViajesPasajeros(CveContrato) Then @@ -1071,7 +1063,7 @@ Partial Class RepContratoDetalle If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveRemision) Then Dim dtTemp As New DataTable - dtTemp = ObjMovtos.DtResultados.FiltraParametros(" Conceptocontable = 'Pago del Cliente' ") + dtTemp = ObjMovtos.DtResultados.FiltraParametros("CveConceptoContable IN (193,2,292) ") TotalPagos = dtTemp.SUM("Abono") GVAuxiliar.DataSource = dtTemp