Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Acarreos/CatChoferes.aspx.vb

@@ -1,24 +1,24 @@
-Imports Extensiones
+Imports Extensiones
-Imports System.Data
+Imports System.Data
-
+
-Partial Class Acarreos_CatChoferes
+Partial Class Acarreos_CatChoferes
-
+
     Inherits ClsPaginas
 
-#Region " PROPIEDADES"
+#Region " PROPIEDADES"
 
-#End Region
+#End Region
 
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
+        If Not Page.IsPostBack Then
-            CargaDatos()
+            CargaDatos()
             CargaDdlTransportista()
 
             Dim DT As DataTable = GlobalDTColonia(-1)
             CargaDdls()
 
 
-        End If
+        End If
     End Sub
 
 
@@ -36,30 +36,30 @@ Partial Class Acarreos_CatChoferes
         DdlColonia.Items.Insert(0, New ListItem("Seleccione Una", "-1"))
 
 
-    End Sub
+    End Sub
-
+
-    Private Sub CargaDatos()
+    Private Sub CargaDatos()
-        Dim ObjAcar As New ClsAcarreos()
+        Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
-            GvChofer.DataSource = ObjAcar.DtResultados
+            GvChofer.DataSource = ObjAcar.DtResultados
-            GvChofer.DataBind()
+            GvChofer.DataBind()
-        End If
+        End If
-        ObjAcar.Dispose()
+        ObjAcar.Dispose()
-        UpDatos.Update()
+        UpDatos.Update()
-    End Sub
+    End Sub
-
+
-
+
-    Private Sub CargaDdlTransportista()
+    Private Sub CargaDdlTransportista()
-        Dim ObjAcar As New ClsAcarreos()
+        Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
+        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
-            DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlTransportista.DataSource = ObjAcar.DtResultados
+            DdlTransportista.DataSource = ObjAcar.DtResultados
-            DdlTransportista.DataBind()
+            DdlTransportista.DataBind()
-        End If
+        End If
-        ObjAcar.Dispose()
+        ObjAcar.Dispose()
-        UpAddChofer.Update()
+        UpAddChofer.Update()
-    End Sub
+    End Sub
-
+
     Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
 
 
@@ -70,66 +70,66 @@ Partial Class Acarreos_CatChoferes
         End If
 
 
-        If DdlTransportista.SelectedValue = "-1" Then
+        If DdlTransportista.SelectedValue = "-1" Then
-            Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
+            Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
-        Else
+        Else
-
+
-            Dim ObjAcar As New ClsAcarreos
+            Dim ObjAcar As New ClsAcarreos
-            Dim Estatus = 0
+            Dim Estatus = 0
             If ChkEstatus.Checked Then Estatus = 1
 
-            If HdnModalidad.Value = "A" Then
+            If HdnModalidad.Value = "A" Then
-                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
+                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
-                    CargaDatos()
+                    CargaDatos()
-                    Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
+                    Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
-                End If
+                End If
-            ElseIf HdnModalidad.Value = "U" Then
+            ElseIf HdnModalidad.Value = "U" Then
-                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
+                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
-                    CargaDatos()
+                    CargaDatos()
-                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
-                End If
+                End If
-            End If
+            End If
-
+
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
-            ObjAcar.Dispose()
+            ObjAcar.Dispose()
-            UpDatos.Update()
+            UpDatos.Update()
-        End If
+        End If
-    End Sub
+    End Sub
-
+
     Public Sub Edit_Click(sender As Object, e As EventArgs)
 
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnModalidad.Value = "U"
+        HdnModalidad.Value = "U"
-        HdnID.Value = GvRow.DataKey("CveChofer")
+        HdnID.Value = GvRow.DataKey("CveChofer")
-        UpDatos.Update()
+        UpDatos.Update()
-        BtnAgregarChofer.Text = "Actualizar"
+        BtnAgregarChofer.Text = "Actualizar"
-        myModalLabel.InnerText = "Actualizar Chofer"
+        myModalLabel.InnerText = "Actualizar Chofer"
-
+
-        TxtChofer.Text = GvRow.DataKey("Chofer")
+        TxtChofer.Text = GvRow.DataKey("Chofer")
         TxtIdentificacion.Text = GvRow.DataKey("Identificacion")
-        TxtTelefono.Text = GvRow.DataKey("Telefono")
+        TxtTelefono.Text = GvRow.DataKey("Telefono")
-        TxtRFC.Text = GvRow.DataKey("RFC")
+        TxtRFC.Text = GvRow.DataKey("RFC")
-
+
         TxtDomicilio.Text = GvRow.DataKey("Domicilio")
         TxtNumInt.Text = GvRow.DataKey("NumeroInterior")
         TxtNumExt.Text = GvRow.DataKey("NumeroExterior")
         'TxtColonia.Text = GvRow.DataKey("Colonia")
-        'TxtCiudad.Text = GvRow.DataKey("Ciudad")
+        'TxtCiudad.Text = GvRow.DataKey("Ciudad")
-        'TxtEstado.Text = GvRow.DataKey("Estado")
+        'TxtEstado.Text = GvRow.DataKey("Estado")
-        TxtCP.Text = GvRow.DataKey("CP")
+        TxtCP.Text = GvRow.DataKey("CP")
         TxtLicencia.Text = GvRow.DataKey("Licencia")
 
         TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador")
 
         DdlResidenciaFiscalOperador.SelectedValueExist("-1")
-        DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
+        DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
-
+
         DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
 
-        divEstatus.Visible = True
+        divEstatus.Visible = True
-        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
+        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
-
+
-
+
         DdlEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
 
 
@@ -168,34 +168,34 @@ Partial Class Acarreos_CatChoferes
 
 
 
-        UpAddChofer.Update()
+        UpAddChofer.Update()
-
+
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
 
-    End Sub
+    End Sub
-
+
-    Public Sub Agregar()
+    Public Sub Agregar()
-        HdnModalidad.Value = "A"
+        HdnModalidad.Value = "A"
-        UpDatos.Update()
+        UpDatos.Update()
-        BtnAgregarChofer.Text = "Agregar"
+        BtnAgregarChofer.Text = "Agregar"
-        myModalLabel.InnerText = "Agregar Chofer"
+        myModalLabel.InnerText = "Agregar Chofer"
-        TxtChofer.Text = ""
+        TxtChofer.Text = ""
-        TxtIdentificacion.Text = ""
+        TxtIdentificacion.Text = ""
-        TxtDomicilio.Text = ""
+        TxtDomicilio.Text = ""
-        TxtTelefono.Text = ""
+        TxtTelefono.Text = ""
-        'TxtCiudad.Text = ""
+        'TxtCiudad.Text = ""
-        TxtLicencia.Text = ""
+        TxtLicencia.Text = ""
-
+
-
+
-        DdlTransportista.SelectedValueExist(-1)
+        DdlTransportista.SelectedValueExist(-1)
-        TxtRFC.Text = ""
+        TxtRFC.Text = ""
-        TxtNumInt.Text = ""
+        TxtNumInt.Text = ""
-        TxtNumExt.Text = ""
+        TxtNumExt.Text = ""
-        'TxtEstado.Text = ""
+        'TxtEstado.Text = ""
-        TxtCP.Text = ""
+        TxtCP.Text = ""
-        'TxtColonia.Text = ""
+        'TxtColonia.Text = ""
-
+
-        TxtNumRegidTribOperador.Text = ""
+        TxtNumRegidTribOperador.Text = ""
         DdlResidenciaFiscalOperador.SelectedValueExist("-1")
 
 
@@ -206,40 +206,40 @@ Partial Class Acarreos_CatChoferes
 
         DdlColonia.SelectedValueExist(-1)
 
-        ChkEstatus.Checked = True
+        ChkEstatus.Checked = True
-        divEstatus.Visible = False
+        divEstatus.Visible = False
-        UpAddChofer.Update()
+        UpAddChofer.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
+        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
-    End Sub
+    End Sub
-
+
-    Public Sub Delete_Click(sender As Object, e As EventArgs)
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
-        Dim ObjAcar As New ClsAcarreos()
+        Dim ObjAcar As New ClsAcarreos()
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnID.Value = GvRow.DataKey("CveChofer")
+        HdnID.Value = GvRow.DataKey("CveChofer")
-        UpDatos.Update()
+        UpDatos.Update()
-        If ObjAcar.RemoveChofer(HdnID.Value) Then
+        If ObjAcar.RemoveChofer(HdnID.Value) Then
-            CargaDatos()
+            CargaDatos()
-            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
-        End If
+        End If
-        ObjAcar.Dispose()
+        ObjAcar.Dispose()
-        UpDatos.Update()
+        UpDatos.Update()
-    End Sub
+    End Sub
-
+
-    Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound
+    Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("Estatus") = True Then
+            If e.Row.DBCampo("Estatus") = True Then
-                e.Row.FCLabel("LblEstatus").Text = "Activo"
+                e.Row.FCLabel("LblEstatus").Text = "Activo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
+                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
-
+
-            Else
+            Else
-                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
+                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
+                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
-            End If
+            End If
-        End If
+        End If
-    End Sub
+    End Sub
-
+
-    Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
+    Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
-        Agregar()
+        Agregar()
     End Sub
 
     Protected Sub LnkValidar_Click(sender As Object, e As EventArgs)
@@ -331,4 +331,4 @@ Partial Class Acarreos_CatChoferes
     Protected Sub DdlColonia_SelectedIndexChanged(sender As Object, e As EventArgs)
         validaCodigoPostal()
     End Sub
-End Class
+End Class

Bancos/PolizaCheque.aspx.vb

@@ -848,7 +848,7 @@ Partial Class Bancos_PolizaCheque
         Next
 
         If Not ValidaConcepto30 Then
-            Alert("El importe no coicide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
+            Alert("El importe no coincide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 

Compras/PopUpVerFactura.aspx.vb

@@ -933,6 +933,13 @@ Partial Class PopUpVerFactura
             Dim NumPermiso As String = ""
             Dim Aseguradora As String = ""
             Dim NumPolizaSeguro As String = ""
+            Dim NombreAseguradoraMedioAmbiente As String = ""
+            Dim NumPolizaSeguroMedioAmbiente As String = ""
+            Dim NombreAseguradoraCarga As String = ""
+            Dim NumPolizaSeguroCarga As String = ""
+
+
+
             Dim PlacaVM As String = ""
             Dim AnioModeloVM As String = ""
             'TIMBRADO
@@ -1064,6 +1071,14 @@ Partial Class PopUpVerFactura
                     NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
                     Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "")
                     NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "")
+
+                    'Por Definir de donde sale
+                    'NombreAseguradoraMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "")
+
+
                 End If
 
                 Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces)
@@ -1181,8 +1196,16 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
                 params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
                 params.Add(New ReportParameter("NumPermiso", NumPermiso))
+
                 params.Add(New ReportParameter("Aseguradora", Aseguradora))
                 params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro))
+
+                params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente))
+                params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente))
+
+                params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga))
+                params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga))
+
                 params.Add(New ReportParameter("PlacaVM", PlacaVM))
                 params.Add(New ReportParameter("AnioVM", AnioModeloVM))
                 'TIMBRADO

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -382,7 +382,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet3</DataSetName>
-        <Top>5.56865cm</Top>
+        <Top>6.39415cm</Top>
         <Left>0.38395cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.11271cm</Width>
@@ -521,7 +521,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.97857cm</Top>
+        <Top>5.80407cm</Top>
         <Left>0.1841in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1001,7 +1001,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet2</DataSetName>
-        <Top>7.3763cm</Top>
+        <Top>8.2018cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1033,7 +1033,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>6.78622cm</Top>
+        <Top>7.61172cm</Top>
         <Left>0.19973in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1346,7 +1346,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet4</DataSetName>
-        <Top>9.18605cm</Top>
+        <Top>10.01155cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1378,7 +1378,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>8.59597cm</Top>
+        <Top>9.42147cm</Top>
         <Left>0.19972in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1482,7 +1482,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox45</rd:DefaultName>
-        <Top>5.82267in</Top>
+        <Top>6.14767in</Top>
         <Left>0.41187cm</Left>
         <Height>3.03416cm</Height>
         <Width>15.44579cm</Width>
@@ -1501,7 +1501,7 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>5.71082in</Top>
+        <Top>6.03582in</Top>
         <Left>6.18415in</Left>
         <Height>1.2939in</Height>
         <Width>1.53682in</Width>
@@ -1636,7 +1636,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>0.38395cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.73231in</Width>
         <ZIndex>9</ZIndex>
         <Style>
@@ -1696,10 +1696,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Aseguradora: </Value>
+                <Value>Aseguradora Responsabilidad Civil: </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1707,7 +1707,7 @@
                 <Value>=Parameters!Aseguradora.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1722,7 +1722,7 @@
                 <Value>Número de Póliza:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1730,7 +1730,99 @@
                 <Value>=Parameters!NumPoliza.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Medio Ambiente:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Carga:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1745,7 +1837,7 @@
                 <Value>Placa:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1753,7 +1845,7 @@
                 <Value>=Parameters!PlacaVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1768,7 +1860,7 @@
                 <Value>Año:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1776,7 +1868,7 @@
                 <Value>=Parameters!AnioVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1784,7 +1876,7 @@
                 <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1797,7 +1889,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>9.86403cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.78138in</Width>
         <ZIndex>11</ZIndex>
         <Style>
@@ -2315,7 +2407,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet1</DataSetName>
-        <Top>11.01962cm</Top>
+        <Top>11.84512cm</Top>
         <Left>0.33883cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.09433cm</Width>
@@ -2347,7 +2439,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>10.42954cm</Top>
+        <Top>11.25504cm</Top>
         <Left>0.16633in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -2384,7 +2476,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.896in</Top>
+        <Top>5.221in</Top>
         <Left>6.37477in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2423,7 +2515,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>5.24863in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2461,7 +2553,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.13559in</Top>
+        <Top>5.46059in</Top>
         <Left>6.37685in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2503,7 +2595,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.04438cm</Top>
+        <Top>13.86988cm</Top>
         <Left>5.25071in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2541,7 +2633,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.37518in</Top>
+        <Top>5.70018in</Top>
         <Left>6.37893in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2580,7 +2672,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.65293cm</Top>
+        <Top>14.47843cm</Top>
         <Left>5.25279in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12614in</Width>
@@ -2739,7 +2831,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox25</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>0.42248cm</Left>
         <Height>2.35375cm</Height>
         <Width>12.73266cm</Width>
@@ -2755,7 +2847,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>7.02116in</Height>
+    <Height>7.34222in</Height>
     <Style />
   </Body>
   <Width>7.82749in</Width>
@@ -3574,6 +3666,30 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>