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

2021-12-02 19:57:12 -07:00
parent 05730afaa8 adc36b3eca
commit 067b01362b
4 changed files with 310 additions and 171 deletions
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -1,24 +1,24 @@
-Imports Extensiones
-Imports System.Data
-
-Partial Class Acarreos_CatChoferes
-
+Imports Extensiones
+Imports System.Data
+
+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
-        If Not Page.IsPostBack Then
-            CargaDatos()
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            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
-
-    Private Sub CargaDatos()
-        Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then
-            GvChofer.DataSource = ObjAcar.DtResultados
-            GvChofer.DataBind()
-        End If
-        ObjAcar.Dispose()
-        UpDatos.Update()
-    End Sub
-
-
-    Private Sub CargaDdlTransportista()
-        Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
-            DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlTransportista.DataSource = ObjAcar.DtResultados
-            DdlTransportista.DataBind()
-        End If
-        ObjAcar.Dispose()
-        UpAddChofer.Update()
-    End Sub
-
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
+            GvChofer.DataSource = ObjAcar.DtResultados
+            GvChofer.DataBind()
+        End If
+        ObjAcar.Dispose()
+        UpDatos.Update()
+    End Sub
+
+
+    Private Sub CargaDdlTransportista()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
+            DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlTransportista.DataSource = ObjAcar.DtResultados
+            DdlTransportista.DataBind()
+        End If
+        ObjAcar.Dispose()
+        UpAddChofer.Update()
+    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
-            Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
-        Else
-
-            Dim ObjAcar As New ClsAcarreos
-            Dim Estatus = 0
+        If DdlTransportista.SelectedValue = "-1" Then
+            Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
+        Else
+
+            Dim ObjAcar As New ClsAcarreos
+            Dim Estatus = 0
            If ChkEstatus.Checked Then Estatus = 1

-            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
-                    CargaDatos()
-                    Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
-                End If
-            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
-                    CargaDatos()
-                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
-                End If
-            End If
-
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
-            ObjAcar.Dispose()
-            UpDatos.Update()
-        End If
-    End Sub
-
+            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
+                    CargaDatos()
+                    Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
+                End If
+            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
+                    CargaDatos()
+                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                End If
+            End If
+
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
+            ObjAcar.Dispose()
+            UpDatos.Update()
+        End If
+    End Sub
+
    Public Sub Edit_Click(sender As Object, e As EventArgs)

-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnModalidad.Value = "U"
-        HdnID.Value = GvRow.DataKey("CveChofer")
-        UpDatos.Update()
-        BtnAgregarChofer.Text = "Actualizar"
-        myModalLabel.InnerText = "Actualizar Chofer"
-
-        TxtChofer.Text = GvRow.DataKey("Chofer")
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        HdnModalidad.Value = "U"
+        HdnID.Value = GvRow.DataKey("CveChofer")
+        UpDatos.Update()
+        BtnAgregarChofer.Text = "Actualizar"
+        myModalLabel.InnerText = "Actualizar Chofer"
+
+        TxtChofer.Text = GvRow.DataKey("Chofer")
        TxtIdentificacion.Text = GvRow.DataKey("Identificacion")
-        TxtTelefono.Text = GvRow.DataKey("Telefono")
-        TxtRFC.Text = GvRow.DataKey("RFC")
-
+        TxtTelefono.Text = GvRow.DataKey("Telefono")
+        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")
-        'TxtEstado.Text = GvRow.DataKey("Estado")
-        TxtCP.Text = GvRow.DataKey("CP")
+        'TxtCiudad.Text = GvRow.DataKey("Ciudad")
+        'TxtEstado.Text = GvRow.DataKey("Estado")
+        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
-        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
-
-
+        divEstatus.Visible = True
+        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
-
-    Public Sub Agregar()
-        HdnModalidad.Value = "A"
-        UpDatos.Update()
-        BtnAgregarChofer.Text = "Agregar"
-        myModalLabel.InnerText = "Agregar Chofer"
-        TxtChofer.Text = ""
-        TxtIdentificacion.Text = ""
-        TxtDomicilio.Text = ""
-        TxtTelefono.Text = ""
-        'TxtCiudad.Text = ""
-        TxtLicencia.Text = ""
-
-
-        DdlTransportista.SelectedValueExist(-1)
-        TxtRFC.Text = ""
-        TxtNumInt.Text = ""
-        TxtNumExt.Text = ""
-        'TxtEstado.Text = ""
-        TxtCP.Text = ""
-        'TxtColonia.Text = ""
-
-        TxtNumRegidTribOperador.Text = ""
+    End Sub
+
+    Public Sub Agregar()
+        HdnModalidad.Value = "A"
+        UpDatos.Update()
+        BtnAgregarChofer.Text = "Agregar"
+        myModalLabel.InnerText = "Agregar Chofer"
+        TxtChofer.Text = ""
+        TxtIdentificacion.Text = ""
+        TxtDomicilio.Text = ""
+        TxtTelefono.Text = ""
+        'TxtCiudad.Text = ""
+        TxtLicencia.Text = ""
+
+
+        DdlTransportista.SelectedValueExist(-1)
+        TxtRFC.Text = ""
+        TxtNumInt.Text = ""
+        TxtNumExt.Text = ""
+        'TxtEstado.Text = ""
+        TxtCP.Text = ""
+        'TxtColonia.Text = ""
+
+        TxtNumRegidTribOperador.Text = ""
        DdlResidenciaFiscalOperador.SelectedValueExist("-1")


@@ -206,40 +206,40 @@ Partial Class Acarreos_CatChoferes

        DdlColonia.SelectedValueExist(-1)

-        ChkEstatus.Checked = True
-        divEstatus.Visible = False
-        UpAddChofer.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
-    End Sub
-
-    Public Sub Delete_Click(sender As Object, e As EventArgs)
-        Dim ObjAcar As New ClsAcarreos()
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnID.Value = GvRow.DataKey("CveChofer")
-        UpDatos.Update()
-        If ObjAcar.RemoveChofer(HdnID.Value) Then
-            CargaDatos()
-            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
-        End If
-        ObjAcar.Dispose()
-        UpDatos.Update()
-    End Sub
-
-    Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("Estatus") = True Then
-                e.Row.FCLabel("LblEstatus").Text = "Activo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
-
-            Else
-                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
-                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
-            End If
-        End If
-    End Sub
-
-    Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
-        Agregar()
+        ChkEstatus.Checked = True
+        divEstatus.Visible = False
+        UpAddChofer.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
+    End Sub
+
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+        Dim ObjAcar As New ClsAcarreos()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        HdnID.Value = GvRow.DataKey("CveChofer")
+        UpDatos.Update()
+        If ObjAcar.RemoveChofer(HdnID.Value) Then
+            CargaDatos()
+            Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+        End If
+        ObjAcar.Dispose()
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("Estatus") = True Then
+                e.Row.FCLabel("LblEstatus").Text = "Activo"
+                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
+
+            Else
+                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
+                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
+            End If
+        End If
+    End Sub
+
+    Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
+        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
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/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

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/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>