diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 782d554cf..6bf89b4ea 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2797,10 +2797,50 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function + + + + + Public Function GetSATSectorCOFEPRIS() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet") + With SqlAdapter.SelectCommand.Parameters + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los sectores COFEPRIS", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetSATFormaFarmaceutica() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet") + + With SqlAdapter.SelectCommand.Parameters + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Formas Farmaceuticas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region - + #Region "SAT CFDI COMERCIO EXTERIOR" Public Function GetSATClavePedimento() As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index dfb881de8..7cc8c0f96 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -153,6 +153,8 @@ Public Class ClsInventarios End Get End Property + Public Property CveAlmacenAgregado As Integer = -1 + #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) @@ -376,6 +378,7 @@ Public Class ClsInventarios Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean Dim Retorno As Boolean = False + CveAlmacenAgregado = -1 DataAdapter("PA_Inv_AlmacenesAdd") @@ -391,10 +394,12 @@ Public Class ClsInventarios .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza .Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual + .Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) + CveAlmacenAgregado = SqlAdapter.SelectCommand.Parameters("@CveAlmacenAgregado").Value.ToString.ToEntero Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 27df9c007..53cc316e1 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1292,6 +1292,43 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property + + + Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable + Get + Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATSectorCOFEPRIS() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable + Get + Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATFormaFarmaceutica() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}" @@ -5809,6 +5846,11 @@ Public Class ClsPaginas params.Add(New ReportParameter("Tipo", TipoDocumento)) params.Add(New ReportParameter("Ref", TipoDocumentoRef)) params.Add(New ReportParameter("AplicaPagare", AplicaPagare)) + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion)) + End If + RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo) @@ -5909,6 +5951,11 @@ Public Class ClsPaginas params.Add(New ReportParameter("Ref", TipoDocumentoRef)) params.Add(New ReportParameter("AplicaPagare", AplicaPagare)) params.Add(New ReportParameter("CveAlmacenTraspasoOrigen", Vta.CveAlmacenTraspasoOrigen.ToString)) + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion)) + End If + RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo) Case "Pd2" @@ -6220,7 +6267,7 @@ Public Class ClsPaginas Dim paramsArray As New JArray() For Each rds As ReportDataSource In DataSource Dim Nombre As String = rds.Name - If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") Then + If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then Select Case rds.Name Case "DsOC" Nombre = "DtDetalle" @@ -9424,6 +9471,8 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343) PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344) PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344) + PaginaDict.Add("/Ventas/CatEspecialidadesSubEspecialidades.aspx".ToUpper(), 1346) + diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 93944792e..4c8b7f62a 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -2331,4 +2331,67 @@ Public Class ClsProductosServicios Return Retorno End Function + + +#Region " P S C O M P L E M E N T O S" + + Public Function GetProductosServiciosComplementos(CvePS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_ProductosServiciosComplementosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String, + NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String, + RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String, + DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_ProductosServiciosComplementosAddUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg + .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso + .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje + .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones + .Add("@CveSectorCOFEPRIS", SqlDbType.Int).Value = CveSectorCOFEPRIS + .Add("@NombreIngredienteActivo", SqlDbType.VarChar).Value = NombreIngredienteActivo + .Add("@NomQuimico", SqlDbType.VarChar).Value = NomQuimico + .Add("@DenominacionGenerica", SqlDbType.VarChar).Value = DenominacionGenerica + .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva + .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante + .Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica + .Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte + .Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion + .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion + .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM + .Add("@NumCAS", SqlDbType.VarChar).Value = NumCAS + .Add("@RazonSocialEmpImportacion", SqlDbType.VarChar).Value = RazonSocialEmpImportacion + .Add("@NumRegistroPlagCOFEPRIS", SqlDbType.VarChar).Value = NumRegistroPlagCOFEPRIS + .Add("@DatosFabricante", SqlDbType.VarChar).Value = DatosFabricante + .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador + .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador + .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + End Class diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 0a5030349..283f9be3b 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -4,6 +4,7 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports Extensiones +Imports Profact.TimbraCFDI40 Public Class ClsRH @@ -147,41 +148,45 @@ Public Class ClsRH Return retorno End Function #Region "CRUD_VacacionesEmpresas" - Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean + Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean + Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean + Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean + Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.") Return retorno End Function diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index e235fd5b6..b6cabeeb0 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -298,23 +298,22 @@ Public Class ClsTransportes End Function Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean - If Activar Then - Dim Retorno As Boolean = False + Dim Retorno As Boolean = False DataAdapter("PA_Trans_ViajesPasajerosUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero - .Add("@Estatus", SqlDbType.Int).Value = Estatus - End With + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno - Return Retorno - End If End Function #End Region diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e545a9329..645ca383a 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -604,13 +604,14 @@ Public Class ClsVentas End Function Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, - Pedido As String, OrdenCompra As String, FechaPago As String) As Boolean + Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria .Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones @@ -1721,7 +1722,7 @@ Public Class ClsVentas Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Vta_GetRepPS33") + DataAdapter("PA_Vta_GetRepPS") With SqlAdapter.SelectCommand.Parameters .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto @@ -1755,7 +1756,6 @@ Public Class ClsVentas .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio - End With Try @@ -6005,7 +6005,8 @@ Public Class ClsVentas Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean + CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, + Optional Torre As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_MedicosAdd") @@ -6026,6 +6027,8 @@ Public Class ClsVentas .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad .Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio + .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad + .Add("@Torre", SqlDbType.VarChar).Value = Torre End With @@ -6040,7 +6043,8 @@ Public Class ClsVentas End Function Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean + CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, + Optional Torre As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_MedicosUpdate") @@ -6061,6 +6065,9 @@ Public Class ClsVentas .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad .Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio + .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad + .Add("@Torre", SqlDbType.VarChar).Value = Torre + End With Try @@ -6093,7 +6100,7 @@ Public Class ClsVentas #End Region -#Region "ESPECIALIDADES" +#Region "E S P E C I A L I D A D E S" Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean @@ -6182,6 +6189,101 @@ Public Class ClsVentas #End Region + + + +#Region "S U B E S P E C I A L I D A D E S" + + Public Function GetMedicosSubEspecialidades(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosSubEspecialidadesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las SubEspecialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + + + + Public Function AddMedicoSubEspecialidad(CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosSubEspecialidadesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad + .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosSubEspecialidadesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad + .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad + .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosSubEspecialidadesRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + +#End Region + + #Region "PRODEDIMIENTOS" Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 8d486b968..d49296456 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -20,6 +20,7 @@ Public Class LogicNominas sw.Start() End If hasfiniquito = False + CvePAC = 4 Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo, If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then If Not cfdi.Timbrado Then diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7630fec47..3b40f57b5 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -7959,6 +7959,7 @@ Namespace Modelos Public Property ImprimeNombreSucursal As Integer Public Property CobranzaCorreo As String Public Property UsaProductoAlterno As Boolean = False + Public Property Documentacion As String = "" End Class diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 4c6be812c..d129939be 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -29,7 +29,7 @@ Public Class Timbrado Public Property CancelacionMensaje As String Public Property CancelacionFecha As Date Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" - + Public Const LigaVerificacionSATCCP As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/verificaccp/default.aspx" Public Class AcuseCancelacionSAT Public Property CodigoEstatus As String Public Property EsCancelable As String @@ -2507,103 +2507,34 @@ Public Class Timbrado #Region "C O M P L E M E N T O C A R T A P O R T E" - If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - - Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - - ''DATOS GENERALES - cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida) - 'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - - 'UBICACIONES - If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - 'origen - cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) - Next - - End If - - 'MERCANCIAS - If Carta.Mercancias IsNot Nothing Then - cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) - If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then - For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - If concep.ValorMercancia <= 0 Then concep.Moneda = "" - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) - For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) - Next - Next - End If - End If - ' - If Carta.FiguraTransporte IsNot Nothing Then - - If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - - cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - - cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - - cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, - Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) - - If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then - For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) - Next - - End If - End If - - If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) - If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - cfdi.CartaPortePartesTransporte("PT01") - cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) - End If - Next - End If - - End If - - End If - 'If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then ' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte ' ''DATOS GENERALES - ' cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) + ' cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida) + ' 'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) ' 'UBICACIONES ' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then ' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones ' 'origen - ' cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + ' cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) ' 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - ' cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) + ' cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) ' Next ' End If ' 'MERCANCIAS ' If Carta.Mercancias IsNot Nothing Then - ' cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) + ' cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) ' If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then ' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias ' If concep.ValorMercancia <= 0 Then concep.Moneda = "" - ' cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), - ' concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, - ' concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + ' cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) ' For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - ' cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + ' cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) ' Next ' Next ' End If @@ -2613,18 +2544,18 @@ Public Class Timbrado ' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - ' cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + ' cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - ' cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + ' cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - ' cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + ' cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, ' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) ' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then ' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - ' cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) + ' cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) ' Next ' End If @@ -2632,10 +2563,10 @@ Public Class Timbrado ' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - ' cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + ' cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) ' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - ' cfdi.CartaPorte30PartesTransporte("PT01") - ' cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + ' cfdi.CartaPortePartesTransporte("PT01") + ' cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) ' End If ' Next ' End If @@ -2644,6 +2575,70 @@ Public Class Timbrado 'End If + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + + ''DATOS GENERALES + cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) + + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones + 'origen + cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) + Next + End If + + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + If concep.ValorMercancia <= 0 Then concep.Moneda = "" + cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), + concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, + concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta + cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + Next + Next + End If + End If + ' + If Carta.FiguraTransporte IsNot Nothing Then + + If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then + + cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + + cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + + cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, + Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) + + If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then + For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques + cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) + Next + End If + End If + + If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador + cfdi.CartaPorte30PartesTransporte("PT01") + cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + End If + Next + End If + End If + End If #End Region @@ -2652,7 +2647,6 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then - cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA, ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR, ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS, @@ -2975,15 +2969,12 @@ Public Class Timbrado sw.Start() 'Verifica el error If cfdi.Mensaje = "" Then - - Dim FolioFiscal As String Dim SelloCfdi As String UUID = cfdi.CfdiInfo.UUID - FolioFiscal = cfdi.CfdiInfo.UUID SelloCfdi = cfdi.CfdiInfo.SelloCfdi - If FolioFiscal <> "" Then + If UUID <> "" Then cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml") @@ -2997,7 +2988,7 @@ Public Class Timbrado Using ObjNomina2 As New ClsNominas() - If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then + If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then Retorno = "" Else Retorno = "Error" @@ -3007,7 +2998,7 @@ Public Class Timbrado Case "T" Dim objGrales As New ClsGenerales - If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then + If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, UUID, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then Retorno = "" Else Retorno = "Error" @@ -3015,7 +3006,7 @@ Public Class Timbrado objGrales.Dispose() Using ObjInv As New ClsInventarios() - If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then + If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, UUID, MinFecha) Then Retorno = "" Else Retorno = "Error" @@ -3030,7 +3021,7 @@ Public Class Timbrado Using ObjVentas As New ClsVentas() - If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then + If ObjVentas.UpdateEstatusFactura(3, UUID, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then Retorno = "" Else Retorno = "Error" @@ -3055,12 +3046,30 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" Dim qrCode As New GoFac.QrCode() - Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}") + Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}") File.WriteAllBytes(RutaCBB, bCBB) bCBB = Nothing Catch ex As Exception OnError("Ocurrió un error al generar el QR", ex) End Try + + 'genero el nuevo qr, de carta porte + + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + Try + + Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}_CCP.jpg" + Dim qrCode As New GoFac.QrCode() + Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}") + File.WriteAllBytes(RutaCBB, bCBB) + bCBB = Nothing + Catch ex As Exception + OnError("Ocurrió un error al generar el QR", ex) + End Try + End If + Retorno = "" Else Retorno = "No se pudo timbrar ante el SAT. UUID no generado." @@ -3336,7 +3345,7 @@ Public Class Timbrado Else Retorno = result.mensaje MensajeErrorCFDI = result.codigo - 'If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML) + cfdi.EscribirXml(RutaArchivo & "\" & NombreArchivoXML) End If End If Else diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index cbf40551d..e46aabf4d 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -1,12 +1,7 @@ <%@ WebHandler Language="VB" Class="CargaEventos" %> -Option Explicit On +Option Explicit Off Option Strict On -Imports System -Imports System.Web -Imports System.Collections -Imports System.Collections.Generic -Imports System.Web.SessionState Imports System.Data Imports Extensiones @@ -17,8 +12,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "text/plain" - Dim CveUsuario = -1 - Dim CveEmpresa = -1 + Dim CveUsuario As Integer = -1 + Dim CveEmpresa As Integer = -1 Dim FI As Date Dim FF As Date @@ -425,7 +420,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario Get - UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG", Nothing)), Usuario) + UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario) End Get End Property diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 732b21123..eaa213d53 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 35e084999..0e2d21326 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2145,6 +2145,7 @@ Partial Class PopUpVerFactura 'EMISOR Dim LugarExpedicion As String = "" Dim ImgCBB As String = "" + Dim ImgCCP As String = "" 'COMPROBANTE Dim SerieFolio As String = "" Dim Telefono As String = "" @@ -2175,6 +2176,7 @@ Partial Class PopUpVerFactura Dim PlacaVM As String = "" Dim AnioModeloVM As String = "" + Dim PesoBrutoVehicular As String = "" 'TIMBRADO Dim FolioFiscal As String = "" Dim NoCertificadoSAT As String = "" @@ -2270,23 +2272,62 @@ Partial Class PopUpVerFactura Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio) Dim ImagenCBB As New System.IO.FileInfo(RutaCBB) + Dim RutaCCP As String = String.Format("{0}\CBB\{1}_CCP.jpg", UsuarioActual.Empresa.Ruta, SerieFolio) + Dim ImagenCCP As New System.IO.FileInfo(RutaCCP) + Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version") + Dim VersionCCP As String = "" + Dim PrefijoCCP As String = "" + + 'Try + + ' 'XDocument doc = XDocument.Parse(Xml); + ' 'String Version = doc.Descendants("cartaporte30:CartaPorte").First().Attribute("version").Value; + + ' Dim NodoVersionCCP As XmlNode = XMLDoc.Descendants("cartaporte30:CartaPorte") + ' If NodoVersionCCP IsNot Nothing Then + ' VersionCCP = ValorXML(NodoVersionCCP, "version") + ' Else + ' VersionCCP = "2.0" + ' End If + 'Catch ex As Exception + + 'End Try + + If Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" Else ' se considera que es la version 4.0 cfdVer = "http://www.sat.gob.mx/cfd/4" End If + params.Add(New ReportParameter("CFDIVersion", Version)) + namespaces.AddNamespace(Prefijo, cfdVer) namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital") namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal") namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte") namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20") + namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30") + Dim Nodos30 = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces) + Dim Nodos20 = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces) + + If Nodos30 IsNot Nothing Then + VersionCCP = "3.0" + PrefijoCCP = "cartaporte30" + End If + + If Nodos20 IsNot Nothing Then + VersionCCP = "2.0" + PrefijoCCP = "cartaporte20" + End If + + params.Add(New ReportParameter("CartaPorteVersion", VersionCCP)) Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces) If nodeComprobante IsNot Nothing Then @@ -2320,24 +2361,25 @@ Partial Class PopUpVerFactura End If Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante/{0}:Complemento", Prefijo), namespaces) - Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces) + Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", PrefijoCCP), namespaces) If nodeCartaPorte IsNot Nothing Then TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "") End If - Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces) + Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", PrefijoCCP), namespaces) If nodeAutotransporteFederal IsNot Nothing Then PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "") NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "") End If - Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces) + Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", PrefijoCCP), namespaces) If nodeIdentificacionVehicular IsNot Nothing Then PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "") AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "") + PesoBrutoVehicular = ValorXML(nodeIdentificacionVehicular, "PesoBrutoVehicular", "") End If - Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces) + Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", PrefijoCCP), namespaces) If nodeIdentificacionVehicular IsNot Nothing Then AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "") NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "") @@ -2350,7 +2392,7 @@ Partial Class PopUpVerFactura End If - Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces) + Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", PrefijoCCP), namespaces) If nodeRemolques IsNot Nothing Then If nodeRemolques.ChildNodes.Count = 1 Then @@ -2370,7 +2412,7 @@ Partial Class PopUpVerFactura ' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString()) 'End If - Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces) + Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", PrefijoCCP), namespaces) For Each node As XmlNode In nodeMercancias Dim Row As DataRow = DtMercancias.NewRow @@ -2385,7 +2427,7 @@ Partial Class PopUpVerFactura DtMercancias.Rows.Add(Row) Next - Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces) + Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", PrefijoCCP), namespaces) If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "") Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "") @@ -2396,7 +2438,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias)) End If - Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces) + Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", PrefijoCCP), namespaces) For Each node As XmlNode In nodeOperadores Dim Row As DataRow = DtOperadores.NewRow @@ -2408,7 +2450,7 @@ Partial Class PopUpVerFactura Next Dim DistanciaTotal As Decimal = 0 - Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces) + Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", PrefijoCCP), namespaces) For Each node As XmlNode In nodeUbicaciones Dim Row As DataRow = DtUbicaciones.NewRow @@ -2419,7 +2461,7 @@ Partial Class PopUpVerFactura Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "") Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "") - Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) + Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = $"{PrefijoCCP}:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) If nodeDomicilio IsNot Nothing Then Dim Estado As String = "" @@ -2515,6 +2557,23 @@ Partial Class PopUpVerFactura ImgCBB = "" End If + + + 'FIXME OICCHECAR DESPUES DE SINCRONIZAR TIMBRADO + 'If Not ImagenCCP.Exists Then + ' Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + ' CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB) + 'End If + + + ImagenCCP = New System.IO.FileInfo(RutaCCP) + + If ImagenCCP.Exists Then + ImgCCP = String.Format("file://{0}", ImagenCCP.FullName) + Else + ImgCCP = "" + End If + End If If DtConceptos.Rows.Count > 0 Then @@ -2550,9 +2609,12 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("PlacaVM", PlacaVM)) params.Add(New ReportParameter("AnioVM", AnioModeloVM)) + params.Add(New ReportParameter("PesoBrutoVehicular", PesoBrutoVehicular)) + 'TIMBRADO params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) params.Add(New ReportParameter("QR", ImgCBB)) + params.Add(New ReportParameter("QRCCP", ImgCCP)) params.Add(New ReportParameter("SelloCFDI", SelloCFDi)) params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT)) params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal)) @@ -2981,6 +3043,7 @@ Partial Class PopUpVerFactura Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno")) + Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString Vta.RefDocto = dtVentas(0)("Ref").ToString Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc index ac2221024..4f6a520d8 100644 --- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc @@ -1,4322 +1,5 @@  - - - - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox28 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.22889cm - - - 6.57288cm - - - 2.71968cm - - - 2.12432cm - - - 2.57447cm - - - - - 0.36188cm - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - - Textbox31 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CveMaterialPeligroso.Value - - - - - - - CveMaterialPeligroso - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Embalaje.Value - - - - - - - Embalaje - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PesoEnKg.Value - - - - - - - PesoEnKg - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.36187cm - - - true - true - - - - - Unidad - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36187cm - - - true - true - - - - - Producto - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36187cm - - - true - true - - - - - Cod. Material Peligroso - - - - - - - Textbox37 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36187cm - - - true - true - - - - - Embalaje - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36187cm - - - true - true - - - - - Peso - - - - - - - Textbox64 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 3.14705cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet3 - 4.93365cm - 0.06623cm - 0.72375cm - 20.36729cm - - - - - - true - true - - - - - DETALLE MERCANCIAS - - - - - - - Textbox3 - 4.4494cm - 0.0927cm - 0.50189cm - 8.01543in - 1 - - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - Distancia - - - - - - - Textbox28 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 1.9529cm - - - 2.76367cm - - - 4.4249cm - - - 2.46447cm - - - 7.16731cm - - - - - 0.46771cm - - - - - true - true - - - - - =Fields!TipoUbicacion.Value - - - - - - - TipoUbicacion - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!RFC.Value - - - - - - - UM - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Nombre.Value - - - - - - - Textbox31 - - 5pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaHoraSalida.Value - - - - - - - Textbox65 - - 5pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Direccion.Value - - - - - - - Direccion - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.44125cm - - - true - true - - - - - Ubicación - - - - - - - Textbox28 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - true - true - - - - - RFC - - - - - - - Textbox40 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - true - true - - - - - Nombre - - - - - - - Textbox30 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - true - true - - - - - Fecha - - - - - - - Textbox64 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - true - true - - - - - Dirección - - - - - - - Textbox1 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 1.61241cm - - - true - true - - - - - =Fields!Distancia.Value - - - - - - - Cantidad - - 2pt - - - - - - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet2 - 6.1698cm - 0.06623cm - 0.90896cm - 20.38566cm - 2 - - - - - - true - true - - - - - ORIGEN / DESTINO - - - - - - - Textbox3 - 5.77022cm - 0.06623cm - 0.41369cm - 8.01861in - 3 - - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - RFC - - - - - - - Textbox28 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 4.89586cm - - - 10.35081cm - - - - - 0.41479cm - - - - - true - true - - - - - =Fields!NumLicencia.Value - - - - - - - UM - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!NombreOperador.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.41479cm - - - true - true - - - - - LICENCIA - - - - - - - Textbox40 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - true - true - - - - - NOMBRE OPERADOR - - - - - - - Textbox30 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 5.12057cm - - - true - true - - - - - =Fields!RFC.Value - - - - - - - Cantidad - - 2pt - - - - - - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet4 - 7.59855cm - 0.06623cm - 0.82958cm - 20.36724cm - 4 - - - - - - true - true - - - - - FIGURAS DE TRANSPORTE - - - - - - - Textbox3 - 7.18459cm - 0.06623cm - 0.41396cm - 8.01861in - 5 - - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Medio de transporte: - - - - =Parameters!MedioTransporte.Value - - - - - - - - - Transporte Internacional: - - - - =Parameters!TransporteInternacional.Value - - - - - - - - - Permiso SCT: - - - - - - - - =Parameters!PermisoSTCC.Value - - - - - - - - - - - - - - - - Textbox2 - 1.09361in - 0.06623cm - 0.47409in - 2.12282in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DETALLE TRANSPORTE - - - - - - - Textbox3 - 2.27425cm - 0.06623cm - 0.5cm - 8.01543in - 7 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Número de Póliza: - - - - =Parameters!NumPolizaSeguroMedioAmbiente.Value - - - - - - - - - Aseguradora Carga: - - - - =Parameters!NombreAseguradoraCarga.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPolizaSeguroCarga.Value - - - - - - - - - - - - - - - - Textbox2 - 1.07972in - 14.61748cm - 0.48798in - 2.26893in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Remolque 1 - - - - Placa: - - - - =Parameters!RemolquePlaca1.Value - - - - Tipo Rem: - - - - =Parameters!RemolqueSubtimo1.Value - - - - - - - =Parameters!PermisoSCTRemolque1.Value - - - - - - - =Parameters!ConfATR1.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Remolque 2 - - - - Placa: - - - - =Parameters!RemolquePlaca2.Value - - - - Tipo Rem: - - - - =Parameters!RemolqueSubtimo2.Value - - - - - - - =Parameters!PermisoSCTRemolque2.Value - - - - - - - =Parameters!ConfATR2.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - true - true - - - - - RELACIÓN - - - - - - - Textbox62 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UUID - - - - - - - Textbox69 - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 1.25962cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - UM - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - - - - - - - - Textbox40 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - =Fields!Relacion.Value - - - - - =Fields!Relacion.Value - - - - 9.54971cm - - - true - true - - - - - =Fields!Relacion.Value - - - - - - - Relacion - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - =Fields!UUID.Value - - - - - =Fields!UUID.Value - - - - 9.34933cm - - - true - true - - - - - =Fields!UUID.Value - - - - - - - UUID - - 2pt - - - - - - 1pt - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - true - true - DataSet5 - 0.50301cm - 0.08761cm - 1.12062cm - 20.15866cm - - - - - - true - true - - - - - FOLIOS RELACIONADOS - - - - - - - Textbox3 - 0.02618cm - 0.5cm - 7.96066in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 8.48281cm - 0.06623cm - 1.78092cm - 20.36726cm - 11 - - =IIf(CountRows("DataSet5") = 0, True, False) - - - - - - - - - true - true - - - - - N - - - - ombre: - - - - =Parameters!ClienteNombre.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Uso CFDi: - - - - - - - - =Parameters!UsoCFDi.Value - - - - - - - Textbox2 - 0.26311in - 0.08761cm - 0.54893in - 8.01543in - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DATOS DEL CLIENTE - - - - - - - Textbox3 - 0.10114cm - 0.08761cm - 0.5cm - 8.01543in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.03528cm - 0.06623cm - 2.09786cm - 20.4468cm - 12 - - =(Parameters!EsSubReporte.Value) - - - - - - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - - - =Parameters!SelloCFDI.Value - - - - - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 1.6047in - 6.68415in - 1.2939in - 1.28682in - 1 - - - - - - - - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox28 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.2638cm - - - 9.16926cm - - - 2.60938cm - - - 3.20474cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Unidad.Value - - - - - - - UM - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ValorUnitario.Value - - - - - - - PesoEnKg - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - 5pt - - - - 1pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - UNIDAD DE MEDIDA - - - - - - - Textbox40 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox30 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - PU - - - - - - - Textbox64 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - IMPORTE - - - - - - - Textbox5 - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 2.1201cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet1 - 0.59008cm - 1.12062cm - 20.36728cm - 2 - - - - - - true - true - - - - - CONCEPTOS - - - - - - - Textbox3 - 0.5cm - 8.01861in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox3 - 0.78988in - 6.96227in - 0.60856cm - 1.0615in - 4 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - SUBTOTAL - - - - : - - - - - - - Textbox3 - 2.00629cm - 5.84376in - 0.60856cm - 1.12267in - 5 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Descuentos.Value - - - - - - - Textbox3 - 1.02947in - 6.96435in - 0.60856cm - 1.05108in - 6 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - DESCUENTOS: - - - - - - - Textbox3 - 2.61484cm - 5.83821in - 0.60856cm - 1.12683in - 7 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Total.Value - - - - - - - Textbox3 - 1.26906in - 6.96643in - 0.60856cm - 1.05108in - 8 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - TOTAL: - - - - - - - Textbox3 - 3.22339cm - 5.84029in - 0.60856cm - 1.12614in - 9 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - "Este documento es una representación impresa de un CFDI" - - - - - - - - - - - - - - - - - - Folio fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - - - - - =Parameters!FechaCertificacion.Value - - - - - - - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 10.34487cm - 0.0743cm - 7.44771cm - 20.42542cm - 13 - - =Parameters!EsSubReporte.Value - - - - - - - true - true - - - - - Total Mercancías: - - - - =Parameters!NumTotalMercancias.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Distancia Total: - - - - =Parameters!DistanciaTotal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Numero de Permiso: - - - - =Parameters!NumPermiso.Value - - - - - - - =Parameters!PlacaVM.Value - - - - - - - - - Año: - - - - =Parameters!AnioVM.Value - - - - - - - - - - - Textbox53 - 2.77933cm - 5.36787cm - 1.20263cm - 3.86975cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Aseguradora Responsabilidad Civil: - - - - =Parameters!Aseguradora.Value - - - - - - - =Parameters!NumPoliza.Value - - - - - - - - - Aseguradora Medio Ambiente: - - - - =Parameters!NombreAseguradoraMedioAmbiente.Value - - - - - - - Textbox57 - 2.77778cm - 9.30817cm - 1.20419cm - 5.25306cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Peso Neto Total : - - - - =Parameters!PesoNetoTotal.Value - - - - - - - - Unidad de peso : - - - - =Parameters!UnidadPeso.Value - - - - - - - Textbox46 - 5.72244cm - 13.28458cm - 0.3768cm - 7.09598cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - - - 7.00495in - - - - - - - Textbox2 - 0.38703cm - 5.23849cm - 0.78571cm - 9.73471cm - - - - true - true - - - - - RFC: - - - - =Parameters!RFC.Value - - - - - - - - - - - =Parameters!DomicilioFiscal.Value - - - - - - - =Parameters!RegimenFiscal.Value - - - - - - - =Parameters!DomicilioExpedicion.Value - - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.19452in - 0.46171in - 1.23522in - 2 - - - - - - true - - - - - CARTA PORTE - TRASLADO - - - - - - - Textbox3 - 0.38703cm - 6.09531in - 0.5cm - 1.83161in - 3 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox3 - 0.3607in - 6.09531in - 0.60856cm - 1.83161in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 1.23524cm - true - true - - - 0.03521cm - 0.06623cm - 0cm - 20.38566cm - - - - - - true - true - - - - - Usuario: - - - - - - - Textbox13 - 0.14104cm - 0.71425cm - 0.54708cm - 1.55632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox14 - 0.14104cm - 2.27057cm - 0.54708cm - 4.96223cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresion: - - - - - - - Textbox13 - 0.14104cm - 7.33864cm - 0.54708cm - 2.84562cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox14 - 0.14104cm - 10.18425cm - 0.54708cm - 4.68641cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox14 - 0.14457cm - 14.99343cm - 0.54708cm - 4.04906cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Traspaso Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 19.59cm - 0cm - 0cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.22889cm + + + 6.57288cm + + + 2.71968cm + + + 2.12432cm + + + 2.52151cm + + + + + 0.36188cm + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + + Textbox31 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CveMaterialPeligroso.Value + + + + + + + CveMaterialPeligroso + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Embalaje.Value + + + + + + + Embalaje + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PesoEnKg.Value + + + + + + + PesoEnKg + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.36187cm + + + true + true + + + + + Unidad + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + true + true + + + + + Producto + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + true + true + + + + + Cod. Material Peligroso + + + + + + + Textbox37 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + true + true + + + + + Embalaje + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + true + true + + + + + Peso + + + + + + + Textbox64 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 3.14705cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet3 + 4.93365cm + 0.06623cm + 0.72375cm + 20.31433cm + + + + + + true + true + + + + + DETALLE MERCANCIAS + + + + + + + Textbox3 + 4.4494cm + 0.0927cm + 0.50189cm + 7.96055in + 1 + + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + Distancia + + + + + + + Textbox28 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.9529cm + + + 2.76367cm + + + 4.4249cm + + + 2.46447cm + + + 7.16731cm + + + + + 0.46771cm + + + + + true + true + + + + + =Fields!TipoUbicacion.Value + + + + + + + TipoUbicacion + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RFC.Value + + + + + + + UM + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + + Textbox31 + + 5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaHoraSalida.Value + + + + + + + Textbox65 + + 5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Direccion.Value + + + + + + + Direccion + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.44125cm + + + true + true + + + + + Ubicación + + + + + + + Textbox28 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + true + true + + + + + RFC + + + + + + + Textbox40 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + true + true + + + + + Nombre + + + + + + + Textbox30 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + true + true + + + + + Fecha + + + + + + + Textbox64 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + true + true + + + + + Dirección + + + + + + + Textbox1 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 1.61241cm + + + true + true + + + + + =Fields!Distancia.Value + + + + + + + Cantidad + + 2pt + + + + + + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet2 + 6.1698cm + 0.06623cm + 0.90896cm + 20.38566cm + 2 + + + + + + true + true + + + + + ORIGEN / DESTINO + + + + + + + Textbox3 + 5.77022cm + 0.06623cm + 0.41369cm + 8.01861in + 3 + + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + RFC + + + + + + + Textbox28 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 4.87822cm + + + 10.33317cm + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!NumLicencia.Value + + + + + + + UM + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NombreOperador.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.41479cm + + + true + true + + + + + LICENCIA + + + + + + + Textbox40 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + true + true + + + + + NOMBRE OPERADOR + + + + + + + Textbox30 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 5.10293cm + + + true + true + + + + + =Fields!RFC.Value + + + + + + + Cantidad + + 2pt + + + + + + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet4 + 7.59855cm + 0.06623cm + 0.82958cm + 20.31433cm + 4 + + + + + + true + true + + + + + FIGURAS DE TRANSPORTE + + + + + + + Textbox3 + 7.18459cm + 0.06623cm + 0.41396cm + 7.99777in + 5 + + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Medio de transporte: + + + + =Parameters!MedioTransporte.Value + + + + + + + + + Transporte Internacional: + + + + =Parameters!TransporteInternacional.Value + + + + + + + + + Permiso SCT: + + + + + + + + =Parameters!PermisoSTCC.Value + + + + + + + + + + + + + + + + Textbox2 + 1.09361in + 0.06623cm + 0.47409in + 2.12282in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DETALLE TRANSPORTE + + + + + + + Textbox3 + 2.27425cm + 0.06623cm + 0.5cm + 8.01543in + 7 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroMedioAmbiente.Value + + + + + + + + + Aseguradora Carga: + + + + =Parameters!NombreAseguradoraCarga.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroCarga.Value + + + + + + + + + + + + + + + + Textbox2 + 1.07972in + 14.61748cm + 0.48798in + 2.26893in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Remolque 1 + + + + Placa: + + + + =Parameters!RemolquePlaca1.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo1.Value + + + + + + + =Parameters!PermisoSCTRemolque1.Value + + + + + + + =Parameters!ConfATR1.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Remolque 2 + + + + Placa: + + + + =Parameters!RemolquePlaca2.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo2.Value + + + + + + + =Parameters!PermisoSCTRemolque2.Value + + + + + + + =Parameters!ConfATR2.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + true + true + + + + + RELACIÓN + + + + + + + Textbox62 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UUID + + + + + + + Textbox69 + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.20118cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + + + + + + + + Textbox40 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!Relacion.Value + + + + + =Fields!Relacion.Value + + + + 9.49127cm + + + true + true + + + + + =Fields!Relacion.Value + + + + + + + Relacion + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + =Fields!UUID.Value + + + + + =Fields!UUID.Value + + + + 9.29089cm + + + true + true + + + + + =Fields!UUID.Value + + + + + + + UUID + + 2pt + + + + + + 1pt + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + true + true + DataSet5 + 0.50301cm + 0.08761cm + 1.12062cm + 19.98334cm + + + + + + true + true + + + + + FOLIOS RELACIONADOS + + + + + + + Textbox3 + 0.02618cm + 0.5cm + 7.96066in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 8.48281cm + 0.06623cm + 1.78092cm + 20.36726cm + 11 + + =IIf(CountRows("DataSet5") = 0, True, False) + + + + + + + + + true + true + + + + + N + + + + ombre: + + + + =Parameters!ClienteNombre.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Uso CFDi: + + + + + + + + =Parameters!UsoCFDi.Value + + + + + + + Textbox2 + 0.26311in + 0.08761cm + 0.54893in + 7.96328in + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DATOS DEL CLIENTE + + + + + + + Textbox3 + 0.10114cm + 0.08761cm + 0.5cm + 7.96328in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.03528cm + 0.06623cm + 2.09786cm + 20.4468cm + 12 + + =(Parameters!EsSubReporte.Value) + + + + + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + + + =Parameters!SelloCFDI.Value + + + + + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 1.73041in + 0.03131in + 1.16006in + 1.21088in + 1 + + + + + + + + + + + + true + true + + + + + CANTIDAD + + + + + + + Textbox28 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.2638cm + + + 9.16926cm + + + 2.60938cm + + + 3.20474cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Unidad.Value + + + + + + + UM + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ValorUnitario.Value + + + + + + + PesoEnKg + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + 5pt + + + + 1pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + UNIDAD DE MEDIDA + + + + + + + Textbox40 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox30 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + PU + + + + + + + Textbox64 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + IMPORTE + + + + + + + Textbox5 + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 2.1201cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 0.59008cm + 1.12062cm + 20.36728cm + 2 + + + + + + true + true + + + + + CONCEPTOS + + + + + + + Textbox3 + 0.5cm + 7.96779in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox3 + 0.78988in + 6.83727in + 0.60856cm + 1.0615in + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SUBTOTAL + + + + : + + + + + + + Textbox3 + 2.00629cm + 5.71876in + 0.60856cm + 1.12267in + 5 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Descuentos.Value + + + + + + + Textbox3 + 1.02947in + 6.83935in + 0.60856cm + 1.05108in + 6 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + DESCUENTOS: + + + + + + + Textbox3 + 2.61484cm + 5.71321in + 0.60856cm + 1.12683in + 7 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox3 + 1.26906in + 6.84143in + 0.60856cm + 1.05108in + 8 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + TOTAL: + + + + + + + Textbox3 + 3.22339cm + 5.71529in + 0.60856cm + 1.12614in + 9 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + "Este documento es una representación impresa de un CFDI" + + + + + + + + + + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + + + + + =Parameters!FechaCertificacion.Value + + + + + + + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QRCCP.Value + FitProportional + 1.73041in + 6.75691in + 1.16006in + 1.21089in + 11 + + + + + + true + true + + + + + QR Carta Porte + + + + + + + Textbox46 + 4.00836cm + 17.56008cm + 0.46104cm + 2.5cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 10.34487cm + 0.0743cm + 7.44771cm + 20.36728cm + 13 + + =Parameters!EsSubReporte.Value + + + + + + + true + true + + + + + Total Mercancías: + + + + =Parameters!NumTotalMercancias.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Distancia Total: + + + + =Parameters!DistanciaTotal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Numero de Permiso: + + + + =Parameters!NumPermiso.Value + + + + + + + =Parameters!PlacaVM.Value + + + + + + + + + Año: + + + + =Parameters!AnioVM.Value + + + + + + + + + + + Textbox53 + 2.77933cm + 5.36787cm + 1.20263cm + 3.86975cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aseguradora Responsabilidad Civil: + + + + =Parameters!Aseguradora.Value + + + + + + + =Parameters!NumPoliza.Value + + + + + + + + + Aseguradora Medio Ambiente: + + + + =Parameters!NombreAseguradoraMedioAmbiente.Value + + + + + + + Textbox57 + 2.77778cm + 9.30817cm + 1.20419cm + 5.25306cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Peso Neto Total : + + + + =Parameters!PesoNetoTotal.Value + + + + + + + + Unidad de peso : + + + + =Parameters!UnidadPeso.Value + + + + + + + Textbox46 + 5.72244cm + 13.28458cm + 0.3768cm + 7.09598cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + 7.00495in + + + + + + + Textbox2 + 0.38703cm + 5.23849cm + 0.78571cm + 9.73471cm + + + + true + true + + + + + RFC: + + + + =Parameters!RFC.Value + + + + + + + + + + + =Parameters!DomicilioFiscal.Value + + + + + + + =Parameters!RegimenFiscal.Value + + + + + + + =Parameters!DomicilioExpedicion.Value + + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.19452in + 0.46171in + 1.23522in + 2 + + + + + + true + + + + + CARTA PORTE - TRASLADO + + + + + + + Textbox3 + 0.38703cm + 6.09531in + 0.5cm + 1.83161in + 3 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.3607in + 6.09531in + 0.60856cm + 1.83161in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.23524cm + true + true + + + 0.03519cm + 0.06623cm + 0cm + 20.38566cm + + + + + + true + true + + + + + Usuario: + + + + + + + Textbox13 + 0.14102cm + 0.71425cm + 0.54708cm + 1.55632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox14 + 0.14102cm + 2.27057cm + 0.54708cm + 4.96223cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox13 + 0.14102cm + 7.33864cm + 0.54708cm + 2.84562cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox14 + 0.14102cm + 10.18425cm + 0.54708cm + 4.68641cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox14 + 0.14455cm + 14.99343cm + 0.54708cm + 4.04906cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Traspaso Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 19.59cm + 0cm + 0cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Lote.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =Parameters!QR.Value + image/bmp + FitProportional + 0.03175cm + 2.31083cm + 2.42605cm + 3 + + + + + + true + true + + + + + LOTE: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + F. ELABORACIÓN: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 1.5468cm + 8.2016cm + 0.74287cm + 1.52823cm + 6 + + + + + + 0.92351in + + + + + 3.83898in + + 2.5cm + 10cm + 0.02cm + 0.02cm + 0.02cm + 0.02cm + - - - - - - Textbox28 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.00921cm - - - 6.3532cm - - - 2.5cm - - - 1.90464cm - - - 2.35479cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UM - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CveMaterialPeligroso.Value - - - - - - - CveMaterialPeligroso - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Embalaje.Value - - - - - - - Embalaje - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PesoEnKg.Value - - - - - - - PesoEnKg - - 5pt - - - - 1pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - UNIDAD DE MEDIDA - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox30 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - Cod. Material Peligroso - - - - - - - Textbox37 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - Embalaje - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - PESO(KG) - - - - - - - Textbox64 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 2.92737cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet3 - 6.39415cm - 0.38395cm - 1.12062cm - 19.04921cm - - - - - - true - true - - - - - N - - - - ombre: - - - - =Parameters!ClienteNombre.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Uso CFDi: - - - - - - - - =Parameters!UsoCFDi.Value - - - - - - - Textbox2 - 0.33302in - 0.41187cm - 0.51791in - 7.5137in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - MERCANCIAS - - - - - - - Textbox3 - 5.81465cm - 0.19973in - 0.50189cm - 7.52776in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - DISTANCIA - - - - - - - Textbox28 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 2.03633cm - - - 2.54796cm - - - 4.20919cm - - - 2.24876cm - - - 6.34152cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!TipoUbicacion.Value - - - - - - - TipoUbicacion - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!RFC.Value - - - - - - - UM - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Nombre.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaHoraSalida.Value - - - - - - - Textbox65 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Direccion.Value - - - - - - - Direccion - - 5pt - - - - 1pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - Tipo Ubicación - - - - - - - Textbox28 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - RFC - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - NOMBRE - - - - - - - Textbox30 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - FECHA - - - - - - - Textbox64 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - DIRECCIÓN - - - - - - - Textbox1 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 1.68927cm - - - true - true - - - - - =Fields!Distancia.Value - - - - - - - Cantidad - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet2 - 8.2018cm - 0.42363cm - 1.12062cm - 19.07303cm - 3 - - - - - - true - true - - - - - REMITENTES Y DESTINATARIOS - - - - - - - Textbox3 - 7.61172cm - 0.19973in - 0.5cm - 7.52776in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - RFC - - - - - - - Textbox28 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 4.47377cm - - - 9.92872cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!NumLicencia.Value - - - - - - - UM - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!NombreOperador.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - LICENCIA - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - NOMBRE OPERADOR - - - - - - - Textbox30 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 4.69848cm - - - true - true - - - - - =Fields!RFC.Value - - - - - - - Cantidad - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet4 - 10.01155cm - 0.42363cm - 1.12062cm - 19.10097cm - 5 - - - - - - true - true - - - - - OPERADORES - - - - - - - Textbox3 - 9.42147cm - 0.19972in - 0.5cm - 7.52776in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - - - =Parameters!SelloCFDI.Value - - - - - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 6.78582in - 6.18415in - 1.2939in - 1.53682in - 8 - - - - - - true - true - - - - - Medio de transporte - - - - : - - - - =Parameters!MedioTransporte.Value - - - - - - - - - Transporte Internacional: - - - - =Parameters!TransporteInternacional.Value - - - - - - - - - Permiso SCT: - - - - - - - - =Parameters!PermisoSTCC.Value - - - - - - - - - Numero de Permiso - - - - : - - - - =Parameters!NumPermiso.Value - - - - - - - - - Placa: - - - - =Parameters!PlacaVM.Value - - - - - - - - - Año: - - - - =Parameters!AnioVM.Value - - - - - - - - - - - Textbox2 - 1.09361in - 0.38395cm - 0.95951in - 3.73231in - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - TRANSPORTE - - - - - - - Textbox3 - 2.27425cm - 0.15116in - 0.5cm - 7.5137in - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Aseguradora Responsabilidad Civil: - - - - =Parameters!Aseguradora.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPoliza.Value - - - - - - - - - Aseguradora Medio Ambiente: - - - - =Parameters!NombreAseguradoraMedioAmbiente.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPolizaSeguroMedioAmbiente.Value - - - - - - - - - Aseguradora Carga: - - - - =Parameters!NombreAseguradoraCarga.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPolizaSeguroCarga.Value - - - - - - - - - - - - - - - - Textbox2 - 1.09361in - 9.91989cm - 0.95951in - 3.78138in - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DATOS DEL CLIENTE - - - - - - - Textbox3 - 0.27884cm - 0.15259in - 0.5cm - 7.5137in - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox28 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.03118cm - - - 8.93664cm - - - 2.37676cm - - - 2.97212cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Unidad.Value - - - - - - - UM - - 2pt - - - - - - 1pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - - Textbox31 - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ValorUnitario.Value - - - - - - - PesoEnKg - - 5pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - 5pt - - - - 1pt - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - UNIDAD DE MEDIDA - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox30 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - PU - - - - - - - Textbox64 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - IMPORTE - - - - - - - Textbox5 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 1.88748cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet1 - 13.75012cm - 0.33883cm - 1.12062cm - 19.20418cm - 13 - - - - - - true - true - - - - - CONCEPTOS - - - - - - - Textbox3 - 13.16004cm - 0.16845in - 0.5cm - 7.52776in - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox3 - 5.971in - 6.37477in - 0.60856cm - 1.30108in - 15 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - SUBTOTAL: - - - - - - - Textbox3 - 15.16633cm - 5.24863in - 0.60856cm - 1.12683in - 16 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Descuentos.Value - - - - - - - Textbox3 - 6.21059in - 6.37685in - 0.60856cm - 1.30108in - 17 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - DESCUENTOS: - - - - - - - Textbox3 - 15.77488cm - 5.25071in - 0.60856cm - 1.12683in - 18 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Total.Value - - - - - - - Textbox3 - 6.45018in - 6.37893in - 0.60856cm - 1.30108in - 19 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - TOTAL: - - - - - - - Textbox3 - 16.38343cm - 5.25279in - 0.60856cm - 1.12614in - 20 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - "Este documento es una representación impresa de un CFDI" - - - - - - - - - - - - - - - - - - Folio fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - - - - - =Parameters!FechaCertificacion.Value - - - - - - - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Remolque 1 - - - - Placa: - - - - =Parameters!RemolquePlaca1.Value - - - - Tipo Rem: - - - - =Parameters!RemolqueSubtimo1.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Remolque 2 - - - - Placa: - - - - =Parameters!RemolquePlaca2.Value - - - - Tipo Rem: - - - - =Parameters!RemolqueSubtimo2.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - true - true - - - - - RELACIÓN - - - - - - - Textbox62 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UUID - - - - - - - Textbox69 - - - - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 0.90553cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - UM - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - - - - - - - - Textbox40 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - =Fields!Relacion.Value - - - - - =Fields!Relacion.Value - - - - 9.19562cm - - - true - true - - - - - =Fields!Relacion.Value - - - - - - - Relacion - - 2pt - - - - - - 1pt - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - =Fields!UUID.Value - - - - - =Fields!UUID.Value - - - - 8.99524cm - - - true - true - - - - - =Fields!UUID.Value - - - - - - - UUID - - 2pt - - - - - - 1pt - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - true - true - DataSet5 - 0.50301cm - 0.08761cm - 1.12062cm - 19.0964cm - - - - - - true - true - - - - - FOLIOS RELACIONADOS - - - - - - - Textbox3 - 0.02618cm - 0.5cm - 7.52776in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 11.30856cm - 0.31265cm - 1.71919cm - 19.23572cm - 24 - - =IIf(CountRows("DataSet5") = 0, True, False) - - - - - - - 8.09222in - - - - - - - Textbox2 - 0.38703cm - 4.85476cm - 0.78571cm - 9.73471cm - - - - true - true - - - - - RFC: - - - - =Parameters!RFC.Value - - - - - - - - - - - =Parameters!DomicilioFiscal.Value - - - - - - - =Parameters!RegimenFiscal.Value - - - - - - - =Parameters!DomicilioExpedicion.Value - - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.16845in - 0.46171in - 1.23522in - 2 - - - - - - true - - - - - CARTA PORTE - TRASLADO - - - - - - - Textbox3 - 0.38703cm - 5.81924in - 0.5cm - 1.83161in - 3 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox3 - 0.3607in - 5.81924in - 0.60856cm - 1.83161in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 1.23524cm - true - true - - - 0.03525cm - 0.64802cm - 0cm - 18.9798cm - - - - - - true - true - - - - - Usuario: - - - - - - - Textbox13 - 0.14108cm - 0.64802cm - 0.54708cm - 1.55632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox14 - 0.14108cm - 2.20434cm - 0.54708cm - 4.96223cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresion: - - - - - - - Textbox13 - 0.14108cm - 7.27241cm - 0.54708cm - 2.84562cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox14 - 0.14108cm - 10.11802cm - 0.54708cm - 4.68641cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox14 - 0.14461cm - 14.9272cm - 0.54708cm - 4.70062cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Traspaso Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.51991cm + + + 8.15613cm + + + 2.5cm + + + 1.90464cm + + + 2.35479cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UM + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CveMaterialPeligroso.Value + + + + + + + CveMaterialPeligroso + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Embalaje.Value + + + + + + + Embalaje + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PesoEnKg.Value + + + + + + + PesoEnKg + + 5pt + + + + 1pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + Unidad De Medida + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Descripción + + + + + + + Textbox30 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Cod. Material Peligroso + + + + + + + Textbox37 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Embalaje + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Peso(kg) + + + + + + + Textbox64 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 1.72895cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet3 + 6.39415cm + 0.38395cm + 1.12062cm + 19.16442cm + + + + + + true + true + + + + + N + + + + ombre: + + + + =Parameters!ClienteNombre.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Uso CFDi: + + + + + + + + =Parameters!UsoCFDi.Value + + + + + + + Textbox2 + 0.33302in + 0.41187cm + 0.51791in + 7.5137in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Mercancias + + + + + + + Textbox3 + 5.81465cm + 0.19973in + 0.50189cm + 7.52776in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + Distancia + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.03633cm + + + 2.54796cm + + + 4.20919cm + + + 2.24876cm + + + 6.34152cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoUbicacion.Value + + + + + + + TipoUbicacion + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RFC.Value + + + + + + + UM + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaHoraSalida.Value + + + + + + + Textbox65 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Direccion.Value + + + + + + + Direccion + + 5pt + + + + 1pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + Tipo Ubicación + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + RFC + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Nombre + + + + + + + Textbox30 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Fecha + + + + + + + Textbox64 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Dirección + + + + + + + Textbox1 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 1.68927cm + + + true + true + + + + + =Fields!Distancia.Value + + + + + + + Cantidad + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet2 + 8.2018cm + 0.42363cm + 1.12062cm + 19.07303cm + 3 + + + + + + true + true + + + + + Remitentes Y Destinatarios + + + + + + + Textbox3 + 7.61172cm + 0.19973in + 0.5cm + 7.52776in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + RFC + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 4.47377cm + + + 9.92872cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NumLicencia.Value + + + + + + + UM + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NombreOperador.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + Licencia + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Nombre Operador + + + + + + + Textbox30 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 4.69848cm + + + true + true + + + + + =Fields!RFC.Value + + + + + + + Cantidad + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet4 + 10.01155cm + 0.42363cm + 1.12062cm + 19.10097cm + 5 + + + + + + true + true + + + + + Operadores + + + + + + + Textbox3 + 9.42147cm + 0.19972in + 0.5cm + 7.52776in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + + + =Parameters!SelloCFDI.Value + + + + + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 6.96712in + 0.18258in + 1.2in + 1.2in + 8 + + + + + + true + true + + + + + Medio de transporte + + + + : + + + + =Parameters!MedioTransporte.Value + + + + + + + + + Transporte Internacional: + + + + =Parameters!TransporteInternacional.Value + + + + + + + + + Permiso SCT: + + + + + + + + =Parameters!PermisoSTCC.Value + + + + + + + + + Número de Permiso + + + + : + + + + =Parameters!NumPermiso.Value + + + + + + + + + Placa: + + + + =Parameters!PlacaVM.Value + + + + + + + + + Año: + + + + =Parameters!AnioVM.Value + + + + + + + + + + + + + Peso Bruto Vehicular: + + + + =Parameters!PesoBrutoVehicular.Value + + + + + + + Textbox2 + 1.09361in + 0.38395cm + 0.95951in + 3.73231in + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Transporte + + + + + + + Textbox3 + 2.27425cm + 0.15116in + 0.5cm + 7.5137in + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aseguradora Responsabilidad Civil: + + + + =Parameters!Aseguradora.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPoliza.Value + + + + + + + + + Aseguradora Medio Ambiente: + + + + =Parameters!NombreAseguradoraMedioAmbiente.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroMedioAmbiente.Value + + + + + + + + + Aseguradora Carga: + + + + =Parameters!NombreAseguradoraCarga.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroCarga.Value + + + + + + + + + + + + + + + + Textbox2 + 1.09361in + 9.91989cm + 0.95951in + 3.78138in + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Datos Del Cliente + + + + + + + Textbox3 + 0.27884cm + 0.15259in + 0.5cm + 7.5137in + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + Cant. + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.65924cm + + + 8.93664cm + + + 2.37676cm + + + 2.97212cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Unidad.Value + + + + + + + UM + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + + Textbox31 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ValorUnitario.Value + + + + + + + PesoEnKg + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + 5pt + + + + 1pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + Unidad De Medida + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Descripción + + + + + + + Textbox30 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + PU + + + + + + + Textbox64 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + Importe + + + + + + + Textbox5 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 1.88748cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 13.75012cm + 0.33883cm + 1.12062cm + 18.83224cm + 13 + + + + + + true + true + + + + + Conceptos + + + + + + + Textbox3 + 13.16004cm + 0.16845in + 0.5cm + 7.52776in + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox3 + 5.971in + 6.37477in + 0.60856cm + 1.30108in + 15 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SubTotal: + + + + + + + Textbox3 + 15.16633cm + 5.24863in + 0.60856cm + 1.12683in + 16 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Descuentos.Value + + + + + + + Textbox3 + 6.21059in + 6.37685in + 0.60856cm + 1.30108in + 17 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Descuentos: + + + + + + + Textbox3 + 15.77488cm + 5.25071in + 0.60856cm + 1.12683in + 18 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox3 + 6.45018in + 6.37893in + 0.60856cm + 1.30108in + 19 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Total: + + + + + + + Textbox3 + 16.38343cm + 5.25279in + 0.60856cm + 1.12614in + 20 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + "Este documento es una representación impresa de un CFDI" + + + + + + + + + + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + + + + + =Parameters!FechaCertificacion.Value + + + + + + + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Remolque 1 + + + + Placa: + + + + =Parameters!RemolquePlaca1.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo1.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Remolque 2 + + + + Placa: + + + + =Parameters!RemolquePlaca2.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo2.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + true + true + + + + + Relación + + + + + + + Textbox62 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UUID + + + + + + + Textbox69 + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.90553cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!Relacion.Value + + + + + =Fields!Relacion.Value + + + + 9.19562cm + + + true + true + + + + + =Fields!Relacion.Value + + + + + + + Relacion + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + =Fields!UUID.Value + + + + + =Fields!UUID.Value + + + + 8.99524cm + + + true + true + + + + + =Fields!UUID.Value + + + + + + + UUID + + 2pt + + + + + + 1pt + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + true + true + DataSet5 + 0.50301cm + 0.08761cm + 1.12062cm + 19.09639cm + + + + + + true + true + + + + + Folios Relacionados + + + + + + + Textbox3 + 0.02618cm + 0.5cm + 7.52776in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 11.30856cm + 0.31265cm + 1.71919cm + 19.23572cm + 24 + + =IIf(CountRows("DataSet5") = 0, True, False) + + + + + + + External + =Parameters!QRCCP.Value + FitProportional + 6.97962in + 6.46004in + 1.2in + 1.2in + 25 + + + + + + true + true + + + + + QR Carta Porte + + + + + + + Textbox46 + 17.16841cm + 16.76139cm + 0.46104cm + 2.5cm + 26 + + + 2pt + 2pt + 2pt + 2pt + + + + 8.29014in + + + + + + + Textbox2 + 0.38703cm + 4.85476cm + 0.78571cm + 9.73471cm + + + + true + true + + + + + RFC: + + + + =Parameters!RFC.Value + + + + + + + + + + + =Parameters!DomicilioFiscal.Value + + + + + + + =Parameters!RegimenFiscal.Value + + + + + + + =Parameters!DomicilioExpedicion.Value + + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.38703cm + 0.18258in + 0.46171in + 1.23522in + 2 + + + + + + true + + + + + Carta Porte - Traslado + + + + + + + Textbox3 + 0.38703cm + 5.81924in + 0.5cm + 1.83161in + 3 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.3607in + 5.81924in + 0.60856cm + 1.83161in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Versión Carte Porte + + + + + + + + + + + + + =Parameters!CartaPorteVersion.Value + + + + + + + Textbox54 + 1.70113cm + 14.9272cm + 1.14493cm + 4.50596cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.23524cm + true + true + + + 0.03525cm + 0.64802cm + 0cm + 18.9798cm + + + + + + true + true + + + + + Usuario: + + + + + + + Textbox13 + 0.14108cm + 0.64802cm + 0.54708cm + 1.55632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox14 + 0.14108cm + 2.20434cm + 0.54708cm + 4.96223cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox13 + 0.14108cm + 7.27241cm + 0.54708cm + 2.84562cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox14 + 0.14108cm + 10.11802cm + 0.54708cm + 4.68641cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox14 + 0.14461cm + 14.9272cm + 0.54708cm + 4.70062cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Traspaso Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +