--Se hicieron modificaciones al .mrt de contratos V&A y se agregaron otros campos para su impresión.

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")

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