AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nom 43 Cartaporte

Browse Source
This commit is contained in:
rakcsle
2025-02-21 11:25:20 -07:00
parent 4672e9b936
commit db54e35dd9
5 changed files with 369 additions and 307 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsPaginas.vb
View File

@@ -6180,6 +6180,7 @@ Public Class ClsPaginas
Dim ConfATR1 As String = ""
Dim ConfATR2 As String = ""
Dim ObjInv As New ClsGenerales
Dim TelDestino As String = ""
If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjInv.DtResultados.Rows.Count > 0 Then
@@ -6188,6 +6189,7 @@ Public Class ClsPaginas
SerieFolio = Dr("SerieFolio").ToString
Telefono = Dr("FiguraTelefono").ToString
TipoDocto = Dr("TipoDocto").ToString
TelDestino = Dr("TelDestino").ToString
If UsuarioActual.CveEmpresa = 13 Then
PermisoSCTR1 = Dr("PermisoSCTR1").ToString
@@ -6562,6 +6564,7 @@ Public Class ClsPaginas
ImgCBB = ""
End If
'Dim bCBB As Byte() = qrCode.GenerarQrCode($"{ClsPaginas.LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}")
ImagenCCP = New System.IO.FileInfo(RutaCCP)
If ImagenCCP.Exists Then
ImgCCP = String.Format("file://{0}", ImagenCCP.FullName)
@@ -6629,6 +6632,10 @@ Public Class ClsPaginas
params.Add(New ReportParameter("imprmirNom043", If(imprmirNom043, "1", "0")))
If imprmirNom043 Then
params.Add(New ReportParameter("TelDestino", TelDestino))
End If
If UsuarioActual.CveEmpresa = 13 Then
params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1))
params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2))

8
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4258,12 +4258,14 @@ Partial Class PopUpVerFactura
ObjCompra.Dispose()
If Not Archivo.Exists Then
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
Else
ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
If UsuarioActual.CveEmpresa.Contiene(189) Then
ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza")
Else
ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
End If
End If
'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")

2
Compras/eFacturas.aspx
View File

@@ -1365,6 +1365,8 @@
<asp:LinkButton runat="server" ID="BtnBuscarBitacora" class="btn btn-default"><i class="fa fa-search"></i>&nbsp; Consultar</asp:LinkButton>
<asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-default" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
</div>
</div>

132
Compras/eFacturas.aspx.vb
View File

@@ -6075,6 +6075,10 @@ Partial Class Compras_eFacturas
Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs)
VinculacionAutomaticaRNC()
End Sub
Private Sub VinculacionAutomaticaRNC()
Dim ErrorProceso As Boolean = False
Dim ErrorProcesoStr As String = ""
@@ -6087,7 +6091,7 @@ Partial Class Compras_eFacturas
For Each GvRow As GridViewRow In GvD.Rows
If GvRow.FCCheckBox("chkRegistraFactura").Checked Then
If GvRow.DataKey("TipoComprobante") = "E" Then
Dim TotalFactura As Decimal = GvRow.DataKey("Total").ToDecimal
Dim SaldoFactura As Decimal = TotalFactura
@@ -6095,7 +6099,7 @@ Partial Class Compras_eFacturas
Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}"
If Not File.Exists(CFDIXmlPath) Then
ErrorProceso = True
Exit For
Continue For
End If
Dim CompraActual As New ClsCompraManager(CFDIXmlPath, ClsCompraManager.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
@@ -6109,82 +6113,73 @@ Partial Class Compras_eFacturas
CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim
CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor")
Dim CvePersonal As Integer = -1 'DdlPersonalReembolso.SelectedValue.ToEntero
Dim CveCajachica As Integer = -1 'DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
For Each DR As String In CompraActual.DocumentosRelacionadosUUIDSList
If RBLContado.SelectedValue.ToEntero = 6 Then 'Caja Chica
CveCajachica = DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
ElseIf RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos
CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
ElseIf RBLContado.SelectedValue.ToEntero = 4 Then ' deudores
Next
End If
'If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
' DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
' DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then
' 'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E'
' If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
' Contador = Contador + 1
' Else
' ErrorProceso = True
' ErrorProcesoStr = CompraActual.MensajeError
' Exit For
' End If
'Else
' ErrorProceso = True
' ErrorProcesoStr = CompraActual.MensajeError
' Exit For
'End If
'If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores
' Dim CompraActualPagar = New Compra
' If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
' If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then
' Dim dr As DataRow = Objcompras.DtResultados.Rows(0)
' CompraActualPagar.CveCompra = CompraActual.CveCompra
' CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero
' CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero
' CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero
' CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate
' CompraActualPagar.SerieFolio = dr("SerieFolio").ToString
' 'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text
' CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal
' CompraActualPagar.Total = dr("Total").ToString.ToDecimal
' CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal
' CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
' CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
' CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal
' CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
' CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal
' CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
' CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
' CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
' CompraActualPagar.UsuarioActual = UsuarioActual
' CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
' CompraActualPagar.EsImportacion = CBool(dr("EsImportacion"))
' CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then
'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E'
If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
Contador = Contador + 1
Else
ErrorProceso = True
ErrorProcesoStr = CompraActual.MensajeError
Exit For
End If
Else
ErrorProceso = True
ErrorProcesoStr = CompraActual.MensajeError
Exit For
End If
If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores
Dim CompraActualPagar = New Compra
If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then
Dim dr As DataRow = Objcompras.DtResultados.Rows(0)
CompraActualPagar.CveCompra = CompraActual.CveCompra
CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero
CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero
CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero
CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate
CompraActualPagar.SerieFolio = dr("SerieFolio").ToString
'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text
CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal
CompraActualPagar.Total = dr("Total").ToString.ToDecimal
CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal
CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal
CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal
CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
CompraActualPagar.UsuarioActual = UsuarioActual
CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
CompraActualPagar.EsImportacion = CBool(dr("EsImportacion"))
CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
Else
ErrorProceso = True
End If
Else
ErrorProceso = True
End If
' Else
' ErrorProceso = True
' End If
' Else
' ErrorProceso = True
' End If
End If
'End If
End If
If ErrorProceso Then
@@ -6315,6 +6310,7 @@ Partial Class Compras_eFacturas
End Function
End Class

527
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -1897,158 +1897,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox55">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Sello digital del CFDI:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SelloCFDI.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cadena original del complemento de certificación digital del SAT:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CadenaOriginal.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Sello digital del SAT:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SelloSAT.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Versión CFDI:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>7.83517in</Top>
<Left>3.68814cm</Left>
<Height>2.89306cm</Height>
<Width>12.51434cm</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Image Name="QRCode">
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>7.91712in</Top>
<Left>0.18258in</Left>
<Height>1.2in</Height>
<Width>1.2in</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox27">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
@@ -2252,7 +2100,7 @@
<Left>0.38395cm</Left>
<Height>0.95951in</Height>
<Width>3.73231in</Width>
<ZIndex>9</ZIndex>
<ZIndex>7</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -2289,7 +2137,7 @@
<Left>0.15116in</Left>
<Height>0.5cm</Height>
<Width>7.5137in</Width>
<ZIndex>10</ZIndex>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -2463,7 +2311,7 @@
<Left>9.91989cm</Left>
<Height>0.95951in</Height>
<Width>3.78138in</Width>
<ZIndex>11</ZIndex>
<ZIndex>9</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -2500,7 +2348,7 @@
<Left>0.15259in</Left>
<Height>0.5cm</Height>
<Width>7.5137in</Width>
<ZIndex>12</ZIndex>
<ZIndex>10</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -2980,7 +2828,7 @@
<Left>0.33883cm</Left>
<Height>1.12062cm</Height>
<Width>18.83224cm</Width>
<ZIndex>13</ZIndex>
<ZIndex>11</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -3009,10 +2857,10 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>15.54129cm</Top>
<Left>0.16845in</Left>
<Left>0.19092in</Left>
<Height>0.5cm</Height>
<Width>7.52776in</Width>
<ZIndex>14</ZIndex>
<ZIndex>12</ZIndex>
<Style>
<Border>
<Color>White</Color>
@@ -3049,7 +2897,7 @@
<Left>6.37477in</Left>
<Height>0.60856cm</Height>
<Width>1.30108in</Width>
<ZIndex>15</ZIndex>
<ZIndex>13</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3088,7 +2936,7 @@
<Left>5.24863in</Left>
<Height>0.60856cm</Height>
<Width>1.12683in</Width>
<ZIndex>16</ZIndex>
<ZIndex>14</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3126,7 +2974,7 @@
<Left>6.37685in</Left>
<Height>0.60856cm</Height>
<Width>1.30108in</Width>
<ZIndex>17</ZIndex>
<ZIndex>15</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3168,7 +3016,7 @@
<Left>5.25071in</Left>
<Height>0.60856cm</Height>
<Width>1.12683in</Width>
<ZIndex>18</ZIndex>
<ZIndex>16</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3206,7 +3054,7 @@
<Left>6.37893in</Left>
<Height>0.60856cm</Height>
<Width>1.30108in</Width>
<ZIndex>19</ZIndex>
<ZIndex>17</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3245,7 +3093,7 @@
<Left>5.25279in</Left>
<Height>0.60856cm</Height>
<Width>1.12614in</Width>
<ZIndex>20</ZIndex>
<ZIndex>18</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -3404,7 +3252,7 @@
<Left>0.42248cm</Left>
<Height>2.35375cm</Height>
<Width>12.73266cm</Width>
<ZIndex>21</ZIndex>
<ZIndex>19</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -3461,7 +3309,7 @@
<Left>0.42248cm</Left>
<Height>0.45862cm</Height>
<Width>9.43197cm</Width>
<ZIndex>22</ZIndex>
<ZIndex>20</ZIndex>
<Visibility>
<Hidden>= IIF( len(Parameters!RemolquePlaca1.Value) &gt; 0,False, True)</Hidden>
</Visibility>
@@ -3522,7 +3370,7 @@
<Left>9.94339cm</Left>
<Height>0.45862cm</Height>
<Width>9.5996cm</Width>
<ZIndex>23</ZIndex>
<ZIndex>21</ZIndex>
<Visibility>
<Hidden>= IIF( len(Parameters!RemolquePlaca2.Value) &gt; 0,False, True)</Hidden>
</Visibility>
@@ -3912,7 +3760,7 @@
<Left>0.31265cm</Left>
<Height>1.71919cm</Height>
<Width>19.23572cm</Width>
<ZIndex>24</ZIndex>
<ZIndex>22</ZIndex>
<Visibility>
<Hidden>=IIf(CountRows("DataSet5") = 0, True, False)</Hidden>
</Visibility>
@@ -3922,56 +3770,6 @@
</Border>
</Style>
</Rectangle>
<Image Name="QRCodeCCP">
<Source>External</Source>
<Value>=Parameters!QRCCP.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>7.91712in</Top>
<Left>6.46004in</Left>
<Height>1.2in</Height>
<Width>1.2in</Width>
<ZIndex>25</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox46">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>QR Carta Porte</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>19.54966cm</Top>
<Left>16.76139cm</Left>
<Height>0.46104cm</Height>
<Width>2.5cm</Width>
<ZIndex>26</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
@@ -3996,7 +3794,7 @@
<Left>4.92883cm</Left>
<Height>0.78571cm</Height>
<Width>9.73471cm</Width>
<ZIndex>27</ZIndex>
<ZIndex>23</ZIndex>
<Style>
<Border />
<PaddingLeft>2pt</PaddingLeft>
@@ -4103,7 +3901,7 @@
<Left>4.92883cm</Left>
<Height>1.76898cm</Height>
<Width>9.74971cm</Width>
<ZIndex>28</ZIndex>
<ZIndex>24</ZIndex>
<Style>
<Border />
<PaddingLeft>2pt</PaddingLeft>
@@ -4120,7 +3918,7 @@
<Left>0.21174in</Left>
<Height>0.85754in</Height>
<Width>1.2in</Width>
<ZIndex>29</ZIndex>
<ZIndex>25</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -4151,7 +3949,7 @@
<Left>5.8484in</Left>
<Height>0.5cm</Height>
<Width>1.83161in</Width>
<ZIndex>30</ZIndex>
<ZIndex>26</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -4190,7 +3988,7 @@
<Left>5.8484in</Left>
<Height>0.60856cm</Height>
<Width>1.83161in</Width>
<ZIndex>31</ZIndex>
<ZIndex>27</ZIndex>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -4250,7 +4048,7 @@
<Left>15.00127cm</Left>
<Height>1.14493cm</Height>
<Width>4.50596cm</Width>
<ZIndex>32</ZIndex>
<ZIndex>28</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -4385,7 +4183,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!UsoCFDi.Value</Value>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -4418,7 +4216,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>2. Número del documento de tranporte </Value>
<Value>2. Número del documento de transporte </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -4722,6 +4520,25 @@
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Tel: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!TelDestino.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName>
<Top>4.44342cm</Top>
@@ -5329,14 +5146,14 @@
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox87">
<Textbox Name="Descripcion">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Value>=Fields!Descripcion.Value</Value>
<Style>
<FontSize>7.5pt</FontSize>
</Style>
@@ -5345,7 +5162,7 @@
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox87</rd:DefaultName>
<rd:DefaultName>Descripcion</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
@@ -5369,6 +5186,12 @@
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
@@ -5399,6 +5222,12 @@
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
@@ -5643,7 +5472,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Sum(CDec(Fields!PesoEnKg.Value), "DataSet3")</Value>
<Value>=Parameters!PesoBrutoVehicular.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -6031,7 +5860,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<Paragraph>
<TextRuns>
<TextRun>
<Value>Nombre ycargo del declarante</Value>
<Value>Nombre y cargo del declarante</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Myriad Pro</FontFamily>
@@ -6382,10 +6211,11 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>23.29507cm</Top>
<Top>23.161cm</Top>
<Left>0.02115cm</Left>
<Height>22.5602cm</Height>
<Width>19.53633cm</Width>
<ZIndex>33</ZIndex>
<ZIndex>29</ZIndex>
<Visibility>
<Hidden>=IIF(Parameters!imprmirNom043.Value = "1" ,False,True)</Hidden>
</Visibility>
@@ -6395,11 +6225,230 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Border>
</Style>
</Rectangle>
<Rectangle Name="Rectangle7">
<ReportItems>
<Textbox Name="Textbox55">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Sello digital del CFDI:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SelloCFDI.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>5.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cadena original del complemento de certificación digital del SAT:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CadenaOriginal.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Sello digital del SAT:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SelloSAT.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>5.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Versión CFDI:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>0.20555in</Top>
<Left>3.65225cm</Left>
<Height>2.89306cm</Height>
<Width>12.51434cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Image Name="QRCode">
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.2in</Top>
<Left>0.16845in</Left>
<Height>1.2in</Height>
<Width>1.2in</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Image Name="QRCodeCCP">
<Source>External</Source>
<Value>=Parameters!QRCCP.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.2in</Top>
<Left>6.44591in</Left>
<Height>1.2in</Height>
<Width>1.2in</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox46">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>QR Carta Porte</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>0.02931cm</Top>
<Left>16.89267cm</Left>
<Height>0.46104cm</Height>
<Width>2.5cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>19.47094cm</Top>
<Left>0.10398cm</Left>
<Height>3.556cm</Height>
<Width>19.66645cm</Width>
<ZIndex>30</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Rectangle>
</ReportItems>
<Height>18.06576in</Height>
<Height>18.0263in</Height>
<Style />
</Body>
<Width>7.72749in</Width>
<Width>7.78363in</Width>
<Page>
<PageHeader>
<Height>0.02646cm</Height>
@@ -6928,6 +6977,12 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="TelDestino">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Code>Function PageNumber() As String
Return Me.Report.Globals!PageNumber