From 3bc514ab667658c08a5fdb82fc5bb77fa7a17ab7 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 19 Apr 2024 16:49:55 -0700 Subject: [PATCH] =?UTF-8?q?--Se=20hicieron=20modificaciones=20al=20.mrt=20?= =?UTF-8?q?de=20contratos=20V&A=20y=20se=20agregaron=20otros=20campos=20pa?= =?UTF-8?q?ra=20su=20impresi=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx.vb | 34 ++++++++++++++++++++------ Transportes/RepContratos.aspx.vb | 2 +- 2 files changed, 27 insertions(+), 9 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 2a77ddaaf..946121897 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -1,6 +1,10 @@ Option Explicit On Option Strict On +Imports System.Data Imports System.IO +Imports Extensiones +Imports Microsoft.Reporting.WebForms + Partial Class RepContratoDetalle Inherits ClsPaginas @@ -85,6 +89,15 @@ Partial Class RepContratoDetalle ViewState("AsientoSeleccionado") = value End Set End Property + Private Property TelefonoEmpresa As String + Get + Return ViewState("TelefonoEmpresa").ToString() + End Get + Set(value As String) + ViewState("TelefonoEmpresa") = value + End Set + End Property + #End Region #Region "Carga Página" @@ -100,6 +113,7 @@ Partial Class RepContratoDetalle CveViajePasajero = 0 Session("FileExtension") = "" ArchivoUpdate = "" + TelefonoEmpresa = "" End If End Sub @@ -122,7 +136,6 @@ Partial Class RepContratoDetalle 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 @@ -132,6 +145,7 @@ Partial Class RepContratoDetalle DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").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 TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString @@ -180,7 +194,7 @@ Partial Class RepContratoDetalle #Region "Información General" Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click Dim FileExtension As String = "-1" - Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos + Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos Dim Filename As String = "" Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos") @@ -253,7 +267,7 @@ Partial Class RepContratoDetalle Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() Try - If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then + If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then Alert("Contrato actualizado correctamente") End If ObjContratos.Commit() @@ -304,12 +318,16 @@ Partial Class RepContratoDetalle New ReportParameter("Servicio", TxtDescripcion.Text), New ReportParameter("Observaciones", TxtObservaciones.Text), New ReportParameter("Ubicacion", TxtUbicacion.Text), - New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm")), - New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")), + New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")), + New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")), New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), - New ReportParameter("TipoAF", DdlTipoAF.Text), - New ReportParameter("Importe", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), - New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString) + New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), + New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), + New ReportParameter("Dolares", Math.Round((TxtImporte.Text.ToDecimal / 17.1), 2).ToString), + New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString), + New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), + New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), + New ReportParameter("TelefonoEmpresa", TelefonoEmpresa) } ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato") diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 135ddb22d..4df1d60ee 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -100,7 +100,7 @@ Partial Class ListadoContratos 'Agregamos Contrato Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then ObjContratos.Commit() Alert("Agregado Correctamente.") End If