-- visualización de conceptos de pago de viaje

-- mostrar el saldo siempre

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