-- visualización de conceptos de pago de viaje
-- mostrar el saldo siempre
This commit is contained in:
@@ -304,52 +304,48 @@ Partial Class RepContratoDetalle
|
|||||||
If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
|
If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
|
||||||
Contrato = ObjContratos.DtResultados
|
Contrato = ObjContratos.DtResultados
|
||||||
If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
|
If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
|
||||||
Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal
|
Dim drc As DataRow = Contrato.Rows(0)
|
||||||
Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal
|
Dim Importe As Decimal = drc("Importe").ToString.ToDecimal
|
||||||
Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal
|
Dim Pesos As Decimal = drc("ImporteMax").ToString.ToDecimal
|
||||||
CveContratoTipo = Contrato.Rows(0)("CveContratoTipo").ToString.ToEntero
|
Dim Anticipo As Decimal = drc("ImporteMin").ToString.ToDecimal
|
||||||
SubProyecto = Contrato.Rows(0)("SubProyecto").ToString
|
CveContratoTipo = drc("CveContratoTipo").ToString.ToEntero
|
||||||
CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero
|
SubProyecto = drc("SubProyecto").ToString
|
||||||
TxtFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
|
CveMasivo = drc("CveMasivo").ToString.ToEntero
|
||||||
|
TxtFolio.Text = drc("NumeroContrato").ToString
|
||||||
|
|
||||||
DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
|
DdlClientes.SelectedText = drc("NombreComercial").ToString
|
||||||
DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
|
DdlClientes.SelectedValue = drc("CveCliente").ToString
|
||||||
DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString
|
DdlMoneda.SelectedValue = drc("CveMoneda").ToString
|
||||||
TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
|
TxtDescripcion.Text = drc("DescripcionContrato").ToString
|
||||||
TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
|
TxtObservaciones.Text = drc("Observaciones").ToString
|
||||||
TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString
|
TelefonoEmpresa = drc("Telefono").ToString
|
||||||
TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
|
TxtUbicacion.Text = drc("Ubicacion").ToString
|
||||||
TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")
|
TxtFechaSalida.Text = drc("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")
|
TxtFechaRegreso.Text = drc("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")
|
||||||
TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
|
TxtCantidadPasajeros.Text = drc("CantidadPasajeros").ToString
|
||||||
DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
|
DdlTipoAF.SelectedValue = If(drc("CveTipoAF") Is Nothing, "", drc("CveTipoAF").ToString)
|
||||||
TxtImporte.Text = Math.Round(Importe, 2).ToString
|
TxtImporte.Text = Math.Round(Importe, 2).ToString
|
||||||
TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
|
TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
|
||||||
CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
|
CveContratoEstatus = drc("CveContratosEstatus").ToString.ToEntero
|
||||||
DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString)
|
DdlSubProyecto.SelectedValueExist(drc("CveSubProyecto").ToString)
|
||||||
If Contrato.Rows(0)("CveAF").ToString <> "" Then
|
If drc("CveAF").ToString <> "" Then
|
||||||
divAF.Visible = True
|
divAF.Visible = True
|
||||||
LblAF.Text = Contrato.Rows(0)("CodigoNombreAF").ToString
|
LblAF.Text = drc("CodigoNombreAF").ToString
|
||||||
End If
|
End If
|
||||||
|
|
||||||
CveSubProyectoOriginal = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero
|
CveSubProyectoOriginal = drc("CveSubProyecto").ToString.ToEntero
|
||||||
CveMonedaOriginal = Contrato.Rows(0)("CveMoneda").ToString.ToEntero
|
CveMonedaOriginal = drc("CveMoneda").ToString.ToEntero
|
||||||
ImporteOrigial = Importe
|
ImporteOrigial = Importe
|
||||||
DescripcionOriginal = Contrato.Rows(0)("DescripcionContrato").ToString
|
DescripcionOriginal = drc("DescripcionContrato").ToString
|
||||||
TipoAFOriginal = DdlTipoAF.SelectedItem.Text
|
TipoAFOriginal = DdlTipoAF.SelectedItem.Text
|
||||||
FolioOriginal = TxtFolio.Text.Trim
|
FolioOriginal = TxtFolio.Text.Trim
|
||||||
|
|
||||||
CveVentaRemision = Contrato.Rows(0)("CveVentaRemision").ToString.ToEntero
|
CveVentaRemision = drc("CveVentaRemision").ToString.ToEntero
|
||||||
HypRemision.Text = Contrato.Rows(0)("RemisionSerieFolio").ToString
|
HypRemision.Text = drc("RemisionSerieFolio").ToString
|
||||||
HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ CveVentaRemision}"
|
HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ CveVentaRemision}"
|
||||||
|
|
||||||
ChkEsPresupuestal.Checked = Boolean.Parse(Contrato.Rows(0)("EsPresupuestal").ToString)
|
ChkEsPresupuestal.Checked = Boolean.Parse(drc("EsPresupuestal").ToString)
|
||||||
|
LblSaldo.Text = $"Saldo { drc("RemisionSaldo").ToString.ToDecimal.FormatoNumero}"
|
||||||
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
|
|
||||||
|
|
||||||
If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
|
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)
|
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)
|
Dim File As New FileInfo(ViewState("FUrl").ToString)
|
||||||
BtnDescargar.NavigateUrl = $"~/Compras/PopUpVerFactura.aspx?ArchivoContrato={Encripta(File.FullName)}"
|
BtnDescargar.NavigateUrl = $"~/Compras/PopUpVerFactura.aspx?ArchivoContrato={Encripta(File.FullName)}"
|
||||||
'If File.Exists Then
|
|
||||||
' RegistraScript($"window.open({Url}, ""_blank"");")
|
|
||||||
'End If
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
BtnDescargar.Visible = False
|
BtnDescargar.Visible = False
|
||||||
@@ -368,7 +360,7 @@ Partial Class RepContratoDetalle
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'Boletos Vendidos
|
'Boletos Vendidos
|
||||||
If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
|
If drc("CveContratoTipo").ToString() = "35" Then
|
||||||
TabBoletos.Visible = True
|
TabBoletos.Visible = True
|
||||||
Dim ObjTransportes As New ClsTransportes
|
Dim ObjTransportes As New ClsTransportes
|
||||||
If ObjTransportes.GetViajesPasajeros(CveContrato) Then
|
If ObjTransportes.GetViajesPasajeros(CveContrato) Then
|
||||||
@@ -1071,7 +1063,7 @@ Partial Class RepContratoDetalle
|
|||||||
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveRemision) Then
|
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveRemision) Then
|
||||||
|
|
||||||
Dim dtTemp As New DataTable
|
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")
|
TotalPagos = dtTemp.SUM("Abono")
|
||||||
GVAuxiliar.DataSource = dtTemp
|
GVAuxiliar.DataSource = dtTemp
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user