diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 0d497a0ad..2021d462e 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2652,9 +2652,15 @@ Partial Class AF_AF Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Dim ObjActivoFijo As New ClsAF() + ObjActivoFijo.IniciaTransacSQL() + If ObjActivoFijo.RemoveActivosFijos(CveActivoFijo) Then - Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""") + Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""") + ObjActivoFijo.Commit() + Else + ObjActivoFijo.RollBack() End If + ObjActivoFijo.Dispose() End Sub diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index b9bcdf016..d877b25ec 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1146,7 +1146,7 @@ Public Class ClsBancos Ventas.Timbre = Timbre Ventas.Cliente = Cliente - Dim CvePACEspecial As Integer = -1 + Dim CvePACEspecial As Integer = If(UsuarioActual.Empresa.CvePAC = 5, 4, -1) 'por default estará tomando con el PAC:4, si se usa el PAC 5 If UsuarioActual.CveEmpresa = 3 Then CvePACEspecial = 4 Ventas.TipoDocto = "Pag" diff --git a/App_Code/ClsDestinos.vb b/App_Code/ClsDestinos.vb index b08400c79..ffca8e5a6 100644 --- a/App_Code/ClsDestinos.vb +++ b/App_Code/ClsDestinos.vb @@ -130,19 +130,15 @@ Public Class ClsDestinos GC.SuppressFinalize(Me) End Sub #End Region - Public Function GetDestinos(CveDestino As Integer, CveUsuario As Integer, CveEmpresa As Integer, Destino As String, Estatus As Boolean, EsNacional As Boolean, FechaIng As DateTime) As Boolean + Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_DestinosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Destino", SqlDbType.VarChar).Value = Destino - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@EsNacional", SqlDbType.Bit).Value = EsNacional - .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + If CveRuta <> 0 Then + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + End With + End If - End With Try SqlAdapter.Fill(Data) Retorno = True 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 1fe41381d..dfb881de8 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -974,7 +974,7 @@ Public Class ClsInventarios Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener los folios de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -1175,14 +1175,13 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean + Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle .Add("@Resumen", SqlDbType.Int).Value = Resumen diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 937f5cfc6..45e272faa 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -234,7 +234,7 @@ Public Class ClsMovimientos Gpo As Integer, CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional CveMoneda As Integer = -1, + Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -268,7 +268,6 @@ Public Class ClsMovimientos .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente - .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional .Add("@CveContrato", SqlDbType.Int).Value = CveContrato @@ -322,7 +321,7 @@ Public Class ClsMovimientos CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1, - Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, + Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -362,7 +361,6 @@ Public Class ClsMovimientos .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente - .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional .Add("@CveContrato", SqlDbType.Int).Value = CveContrato End With diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index b983ac43d..6f318bc4a 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -852,14 +852,13 @@ Public Class ClsOS Return Retorno End Function - Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer, Optional FiltraTipoAlamacen As Boolean = False) As Boolean + Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServicioDetallesMaterialesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle .Add("@CveOS", SqlDbType.Int).Value = CveOS - .Add("@FiltraTipoAlamacen", SqlDbType.Bit).Value = FiltraTipoAlamacen End With Try @@ -1327,14 +1326,14 @@ Public Class ClsOS Return Retorno End Function - Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean + Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 8f1a42729..b152bf2b2 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}" @@ -1807,6 +1844,26 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property + + Property GlobalDTGralCartaPorteConfigAutoTransportes() As DataTable + Get + Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes" + If Application(AppNombre) Is Nothing Then + Using ObjGrales As New ClsGenerales + If ObjGrales.GetCartaPorteConfigAutoTransportes() Then + Application(AppNombre) = ObjGrales.DtResultados + End If + End Using + End If + GlobalDTGralCartaPorteConfigAutoTransportes = DirectCast(Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes" + Application(AppNombre) = value + End Set + End Property + + Property GlobalDTAFCaracteristicasOpciones() As DataTable Get GlobalDTAFCaracteristicasOpciones = DirectCast(Application("GlobalDTAFCaracteristicasOpciones"), DataTable) @@ -5727,6 +5784,11 @@ Public Class ClsPaginas params.Add(New ReportParameter("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, ""))) params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA)) End If + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + params.Add(New ReportParameter("UsaProductoAlterno", If(Vta.Cliente.UsaProductoAlterno, "1", "0"))) + End If + 'PARAMETROS SEGUN TIPO DOCUMENTO Select Case Vta.TipoDocto Case "Ing" @@ -9468,10 +9530,10 @@ Public Class ClsPaginas #End Region #Region "Transportes" - PaginaDict.Add("/Transportes/ContratoTransporte.aspx".ToUpper(), 598) PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598) - PaginaDict.Add("/Transportes/CrearViaje.aspx".ToUpper(), 598) PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598) + PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598) + PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598) #End Region 'Antes de aquí. 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/ClsViajes.vb b/App_Code/ClsTransportes.vb similarity index 67% rename from App_Code/ClsViajes.vb rename to App_Code/ClsTransportes.vb index 3e11be332..b6cabeeb0 100644 --- a/App_Code/ClsViajes.vb +++ b/App_Code/ClsTransportes.vb @@ -1,9 +1,8 @@ - -Imports System.Data +Imports System.Data Imports System.Data.SqlClient Imports Extensiones -Public Class ClsViajes +Public Class ClsTransportes Implements IDisposable #Region "Campos" @@ -15,8 +14,7 @@ Public Class ClsViajes Private Data As DataTable Private DSet As New DataSet - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes - 'REGISTRAR CONEXIÓN + Private disposedValue As Boolean = False Private CveConexion As Integer = 0 Public ReadOnly Property DtResultados() As DataTable Get @@ -36,6 +34,7 @@ Public Class ClsViajes Public Property CveDestino As Integer Public Property CveMasivo As Integer Public Property Fecha As DateTime + Public Property Ruta As String #End Region #Region "Funciones básicas" @@ -135,7 +134,7 @@ Public Class ClsViajes End Sub #End Region -#Region "Métodos" +#Region "Viajes" Public Function AddViajes(CveRuta As Integer, CveAF As Integer, CvePersonal As Integer, CveEmpresa As Integer, Fecha As DateTime, CvePartida As Integer, CveDestino As Integer, Optional IsMasivo As Boolean = False, Optional CveMasivo As Integer = -1) As Integer Dim Retorno As Integer = -1 @@ -164,16 +163,15 @@ Public Class ClsViajes Return Retorno End Function - - Public Function GetViajes(Optional CveViaje As Integer = 0) As Boolean + Public Function GetViajes(CveViaje As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_ViajesGet") - If CveViaje > 0 Then - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViajeSeleccionado", SqlDbType.Int).Value = CveViaje - End With - End If + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) If CveViaje > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then @@ -185,6 +183,7 @@ Public Class ClsViajes CveDestino = Data.Rows(0)("CveDestino").ToString.ToEntero CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero Fecha = Data.Rows(0)("Fecha").ToString.ToDate + Ruta = Data.Rows(0)("Ruta").ToString End If Retorno = True Catch ex As Exception @@ -194,7 +193,7 @@ Public Class ClsViajes Return Retorno End Function - Public Function RemoveViaje(CveViaje As Integer, Optional CveMasivo As Integer = 0) As Boolean + Public Function RemoveViaje(Optional CveViaje As Integer = -1, Optional CveMasivo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -240,4 +239,101 @@ Public Class ClsViajes Return Retorno End Function #End Region + +#Region "Boletos" + Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_Trans_ViajesPasajerosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@Asiento", SqlDbType.Int).Value = Asiento + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Visa", SqlDbType.VarChar).Value = Visa + .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@Sexo", SqlDbType.Bit).Value = Sexo + .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString) + + Catch ex As Exception + OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = 0, Optional Estatus As Boolean = False) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Trans_ViajesPasajerosGet") + If Estatus = True Then + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + Else + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + End With + End If + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean + + 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 + + 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 + + End Function +#End Region + +#Region "Tarifas" + Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_DestinosTarifasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la tarifa de los destinos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + End Class diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5f4bdf86f..d4b858485 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 @@ -1976,7 +1977,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double) As Integer + Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_PrecioListaAdd") @@ -1987,6 +1988,7 @@ Public Class ClsVentas .Add("@PrecioLista", SqlDbType.VarChar).Value = PrecioLista .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada + .Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar .Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -3850,24 +3852,24 @@ Public Class ClsVentas #End Region -#Region " FLETES " - Public Function GetFletes(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_WT_Viajes") + '#Region " FLETES " + ' Public Function GetFletes(CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_WT_Viajes") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex As SqlException - Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function -#End Region + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch Ex As SqlException + ' Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + ' Return Retorno + ' End Function + '#End Region #Region "Metodos y Forma de Pago" 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 d922e528d..7630fec47 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2153,7 +2153,8 @@ Namespace Modelos PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33, CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), - CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta) Then + CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, + CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -7669,6 +7670,9 @@ Namespace Modelos Public Property CveContratoSecciones As String = "" Public Property CveEstatus As Integer Public Property GenerarPDFFactura As Boolean = False + Public Property CveMedico As Integer = -1 + Public Property CveProcedimiento As Integer = -1 + Public Property CveTipoVenta As Integer = -1 #End Region End Class @@ -7954,6 +7958,7 @@ Namespace Modelos Public Property CorreoCotizacion As String Public Property ImprimeNombreSucursal As Integer Public Property CobranzaCorreo As String + Public Property UsaProductoAlterno As Boolean = False End Class diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index fbcce7d3e..cbf40551d 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -92,7 +92,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date, Optional CveOS As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional context As HttpContext = Nothing) As Boolean Dim ObjEventos As New ClsOIEventos - Dim ErrorEventos = False + Dim ErrorEventos As Boolean = False Dim CveEmpresaCRM As Integer = 0 Dim DT_SubProyectos As New System.Data.DataTable @@ -100,7 +100,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer)) DT_SubProyectos.Columns.Add("backgroundColor") - Dim DT_EstatusOS = New DataTable + Dim DT_EstatusOS As New DataTable DT_EstatusOS.Columns.Add("", GetType(Integer)) @@ -126,8 +126,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState If DtTempSubproyectos.Rows.Count > 0 Then For Each drow As DataRow In DtTempSubproyectos.Rows - - Dim Subrow = DT_SubProyectos.NewRow + Dim Subrow As DataRow = DT_SubProyectos.NewRow Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero Subrow("backgroundColor") = Colores(ColorIndex) @@ -278,9 +277,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState 'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE - Dim FinRecurrencia = cevent.recurrenciafin.ToEntero + Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero Dim FI As DateTime, FF As DateTime, FT As DateTime - Dim DiasSemana = cevent.diassemana.Split(","c) + Dim DiasSemana As String() = cevent.diassemana.Split(","c) FI = cevent.start.ToDateTime FF = cevent.end.ToDateTime @@ -311,7 +310,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Do If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then For Each drDias As String In DiasSemana - Dim FIT = FI, FFT = FF + Dim FIT As Date = FI, FFT As Date = FF FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI) FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF) @@ -376,9 +375,6 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero cevent.Prospecto = dr("Prospecto").ToString - - - '11/05/2018 - Evento Gasto Recurrente cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero If cevent.CveTipoEvento = 10 Then @@ -415,11 +411,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Loop Until FI > FT End If - - End If - - Next Catch ex As Exception GuardaLog(ex.ToString()) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index d3a68c8c6..0be1294cf 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -86,14 +86,16 @@ Public Class E119 : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Dim retorno As String = "" + Dim MsgLog As New StringBuilder + MsgLog.AppendLine("Inicia Petición.") Try Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) - + MsgLog.AppendLine(Metodo) If Metodo = "BASF_POG40" Then context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - If Auth.IsSucces Then + If Auth.IsSuccess Then retorno = ConsultaDatos(context) Else context.Response.StatusCode = Auth.StatusCode @@ -106,7 +108,7 @@ Public Class E119 : Implements IHttpHandler context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - If Auth.IsSucces Then + If Auth.IsSuccess Then retorno = ConsultaProductos(context) Else context.Response.StatusCode = Auth.StatusCode @@ -118,7 +120,7 @@ Public Class E119 : Implements IHttpHandler context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - If Auth.IsSucces Then + If Auth.IsSuccess Then retorno = ConsultaClasificaciones(context) Else context.Response.StatusCode = Auth.StatusCode @@ -130,7 +132,7 @@ Public Class E119 : Implements IHttpHandler context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - If Auth.IsSucces Then + If Auth.IsSuccess Then retorno = RegistraRemision(context) Else context.Response.StatusCode = Auth.StatusCode @@ -142,14 +144,17 @@ Public Class E119 : Implements IHttpHandler Catch ex As Exception context.Response.ContentType = "text/html" + MsgLog.AppendLine("Error de procesamiento:" & ex.Message) Dim respuesta As New AuthMessage respuesta.ErrorMessage = New ResponseMsgError() With {.message = "La solicitud no se pudo procesar."} - respuesta.IsSucces = False + respuesta.IsSuccess = False respuesta.StatusCode = 200 retorno = JsonConvert.SerializeObject(respuesta.ErrorMessage) context.Response.Write(retorno) + End Try + MsgLog.ToString.GuardaLogAD("LogE119") End Sub Private Function ValidarSolicitud(ByVal context As HttpContext) As AuthMessage @@ -168,7 +173,7 @@ Public Class E119 : Implements IHttpHandler Else respuesta.ErrorMessage = New ResponseMsgError() With {.message = "el usuario y/o contraseña son requeridos"} - respuesta.IsSucces = False + respuesta.IsSuccess = False respuesta.StatusCode = 200 Return respuesta @@ -176,13 +181,13 @@ Public Class E119 : Implements IHttpHandler If unauthorized Then respuesta.ErrorMessage = New ResponseMsgError() With {.message = "el usuario y/o contraseña no son validos"} - respuesta.IsSucces = False + respuesta.IsSuccess = False respuesta.StatusCode = 200 Return respuesta Else respuesta.ErrorMessage = Nothing - respuesta.IsSucces = True + respuesta.IsSuccess = True respuesta.StatusCode = 200 Return respuesta @@ -337,112 +342,114 @@ Public Class E119 : Implements IHttpHandler Dim Respuesta As New ResponseMsg Dim RespuestaError As New ResponseMsgError Dim MsgLog As New StringBuilder + Try - MsgLog.Append("1.0 Registra") - If context.Request.InputStream IsNot Nothing Then - Using reader As New StreamReader(context.Request.InputStream) - Dim json As String = reader.ReadToEnd - - If Not String.IsNullOrEmpty(json) Then - JsonRequest = JObject.Parse(json) - If JsonRequest Is Nothing Then - TieneError = True - End If - Else - TieneError = True - End If - End Using - End If - - MsgLog.Append("1.1 accedido") - If TieneError Then - RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" - context.Response.StatusCode = 200 - Return JsonConvert.SerializeObject(RespuestaError) - End If - - - If Not TieneError Then - Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) - Dim ObjFactura As Modelos.Factura = Nothing - Dim Resp As New Modelos.Factura.MMensajeFactura - If Usuario IsNot Nothing Then - MsgLog.Append("1.1 Validado") - Dim ObjClientes As New ClsClientes() - Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) - Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer - Dim Cantidad, PU, Descuento As Decimal - Dim Obs As String = "" - CveSubProyecto = 12659 ' fijo Ecommerce - CveCliente = 0 - CveMoneda = 1 - Descuento = 0 - MsgLog.Append("1.3 billing") - Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString()) - Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()) - 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - 'Resp.TieneError = False - CveCliente = ObjClientes.CveCliente - 'Resp.Mensajes.Add("El RFC ya existe en el sistema") - End If - End If - MsgLog.Append("1.4 verificar cliente") - - If CveCliente = 0 Then - ' 'DATOS DE BILLING - MsgLog.Append("1.5 crear cliente") - If JsonRequest("billing") IsNot Nothing Then - Dim CveEstado As Integer = -1 - Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) - Dim NumExt As String = "" - Dim NumInt As String = "" - Dim Colonia As String = "" - Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) - Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) - Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) - Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) - Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) - Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) - If Not String.IsNullOrEmpty(Estado) Then - CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() - If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA - CveEstado = 26 - End If - Else - CveEstado = 26 - End If - If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero() - MsgLog.Append("1.5.5 cliente creado") - End If + MsgLog.AppendLine("1.0 Registra") + If context.Request.InputStream IsNot Nothing Then + Using reader As New StreamReader(context.Request.InputStream) + Dim json As String = reader.ReadToEnd + json = json.TrimStart("["c).TrimEnd("]"c) 'quito corchetes que están conteniendo el json, elimino al inicio y al final + If Not String.IsNullOrEmpty(json) Then + JsonRequest = JObject.Parse(json) + If JsonRequest Is Nothing Then + TieneError = True End If Else - MsgLog.Append("1.5.9 sin datos cliente") TieneError = True - Resp.Mensajes.Add("no existen datos del cliente") End If + End Using + End If - End If + MsgLog.AppendLine("1.1 accedido") + If TieneError Then + RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject(RespuestaError) + End If - Try - MsgLog.Append("1.6 inicio generar venta") + + If Not TieneError Then + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) + Dim ObjFactura As Modelos.Factura = Nothing + Dim Resp As New Modelos.Factura.MMensajeFactura + If Usuario IsNot Nothing Then + MsgLog.AppendLine("1.1 Validado") + Dim ObjClientes As New ClsClientes() + Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) + Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer + Dim Cantidad, PU, Descuento As Decimal + Dim Obs As String = "" + CveSubProyecto = 12659 ' fijo Ecommerce + CveCliente = 0 + CveMoneda = 1 + Descuento = 0 + MsgLog.AppendLine("1.3 billing") + Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString()) + Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()) + 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE + If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + 'Resp.TieneError = False + CveCliente = ObjClientes.CveCliente + 'Resp.Mensajes.Add("El RFC ya existe en el sistema") + End If + End If + MsgLog.AppendLine("1.4 verificar cliente") + + If CveCliente = 0 Then + ' 'DATOS DE BILLING + MsgLog.AppendLine("1.5 crear cliente") + If JsonRequest("billing") IsNot Nothing Then + Dim CveEstado As Integer = -1 + Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) + Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() + If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero() + MsgLog.AppendLine("1.5.5 cliente creado") + End If + End If + Else + MsgLog.AppendLine("1.5.9 sin datos cliente") + TieneError = True + Resp.Mensajes.Add("no existen datos del cliente") + End If + + End If + ' shiping + 'shiping_lines/ method_id: free_shipping/local_pickup + + MsgLog.AppendLine("1.6 inicio generar venta") ObjFactura = Modelos.Factura.CrearVentaNueva(Usuario, CveSubProyecto, CveCliente, CveMoneda, "Rem") MsgLog.AppendFormat("1.6.0 objeto creado {0}", If(ObjFactura IsNot Nothing, "si", "no")) If JsonRequest("line_items") IsNot Nothing Then Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) Dim Consec As Integer = 1 - MsgLog.Append("1.6.1 recorrer ps") + MsgLog.AppendLine("1.6.1 recorrer ps") For Each JsonPS As JObject In ListaPS Cantidad = JsonPS("quantity").ToString.ToDecimal() PU = JsonPS("price").ToString.ToDecimal() CvePS = ClsPaginas.GlobalDTPSSimplificado(CveEmpresa, Codigo:=JsonPS("sku").ToString()).FiltroPrimeroValor("CvePS").ToEntero() ObjFactura.AgregarPS(CvePS, Cantidad, PU, Descuento, Obs, CveSubProyecto:=CveSubProyecto) - MsgLog.Append("1.6.1 agregar ps a venta") + MsgLog.AppendLine("1.6.1 agregar ps a venta") ''VALIDAR QUE SEA EL MISMO PRODUCTO If CvePS <= 0 Then TieneError = True @@ -459,11 +466,11 @@ Public Class E119 : Implements IHttpHandler End If If ObjFactura IsNot Nothing AndAlso Not TieneError Then - MsgLog.Append("1.7 agregar la remision") + MsgLog.AppendLine("1.7 agregar la remision") Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) If Resp.CveVenta > 0 Then - MsgLog.Append("2.0 remisión registrada") + MsgLog.AppendLine("2.0 remisión registrada") Dim data As New JArray Dim objSucursal As New JObject( New JProperty("Cve", Resp.CveVenta), @@ -473,7 +480,7 @@ Public Class E119 : Implements IHttpHandler Respuesta.status = "success" Respuesta.data = data Else - MsgLog.Append("1.8 error al agregar la remision") + MsgLog.AppendLine("1.8 error al agregar la remision") TieneError = True End If @@ -493,32 +500,30 @@ Public Class E119 : Implements IHttpHandler RespuestaError.message = sb.ToString() End If - Catch ex As Exception - TieneError = True - End Try + If TieneError Then + ObjClientes.RollBack() + ObjClientes.Dispose() + ObjInventario.Dispose() + Dim sb As New StringBuilder() + For Each msg As String In Resp.Mensajes + sb.AppendFormat("{0}. ", msg) + Next + RespuestaError.message = sb.ToString() - If TieneError Then - - ObjClientes.RollBack() - ObjClientes.Dispose() - ObjInventario.Dispose() - Dim sb As New StringBuilder() - For Each msg As String In Resp.Mensajes - sb.AppendFormat("{0}. ", msg) - Next - RespuestaError.message = sb.ToString() - - MsgLog.Append("99.0 ocurrió un error en el proceso") - Else - MsgLog.Append("4.0 proceso terminado") - ObjClientes.Commit() - ObjClientes.Dispose() - ObjInventario.Dispose() + MsgLog.Append("99.0 ocurrió un error en el proceso") + Else + MsgLog.Append("4.0 proceso terminado") + ObjClientes.Commit() + ObjClientes.Dispose() + ObjInventario.Dispose() + End If + If ObjFactura IsNot Nothing Then ObjFactura.Dispose() End If - If ObjFactura IsNot Nothing Then ObjFactura.Dispose() End If - End If + Catch ex As Exception + TieneError = True + End Try MsgLog.ToString.GuardaLogAD("LogE119") If TieneError Then @@ -548,7 +553,7 @@ Public Class E119 : Implements IHttpHandler End Class Private Class AuthMessage - Public Property IsSucces As Boolean + Public Property IsSuccess As Boolean Public Property ErrorMessage As ResponseMsgError Public Property StatusCode As Integer End Class diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 3334c5d08..16774b5f1 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -330,8 +330,8 @@ Public Class TareasProgramadas : Implements IHttpHandler If DtEmpresas IsNot Nothing Then For Each Row As DataRow In DtEmpresas.Rows - Dim Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero()) - Dim obj = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente) + Dim Usuario As Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero()) + Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente) Retorno.Add(obj) Next @@ -350,8 +350,8 @@ Public Class TareasProgramadas : Implements IHttpHandler Dim ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetUsuarios(100) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then - Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() - Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() + Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() + Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) UsuarioActual.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioActual) @@ -402,7 +402,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Dim FechaF As String = "-1" Dim FechaVI As String = "-1" Dim FechaVF As String = "-1" - Dim TCEspecifico = -1 + Dim TCEspecifico As Decimal = -1 Dim CveCobranzaEstatus As Integer = -1 Dim CveClienteClasificacion As Integer = -1 @@ -417,7 +417,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31) If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte, - EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1, AplicaAnticiposPagados:=AplicaAnticipos) Then + EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1 ) Then DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"}) End If @@ -536,7 +536,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Dim Formato As String = "PDF" Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) 'OBTENEMOS LOS DATOS Dim DtCxCFact As DataTable = Nothing @@ -672,7 +672,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then Dim dr As DataRow = DtCxCFact2.Rows(0) - Dim lista = New List(Of CrystalParametro) + Dim lista As New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo")) lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre)) @@ -714,7 +714,7 @@ Public Class TareasProgramadas : Implements IHttpHandler GuardaLog("Ocurrió un erro al obtener el CxC" + ex.ToString()) End Try Else - Dim lista = New List(Of CrystalParametro) + Dim lista As New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo")) lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre)) @@ -893,8 +893,8 @@ Public Class TareasProgramadas : Implements IHttpHandler #Region "S C O R E C A R D" Private Sub CargaScoreCard(ByVal context As HttpContext, pCveEmpresa As Integer, FechaEnvio As DateTime) - Dim Usuario = ValidaUsuarioSistema(pCveEmpresa) - Dim obj = EjecutarEnvioScoreCard(Usuario, FechaEnvio) + Dim Usuario As Usuario = ValidaUsuarioSistema(pCveEmpresa) + Dim obj As Boolean = EjecutarEnvioScoreCard(Usuario, FechaEnvio) End Sub @@ -977,7 +977,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Dim PDFSucursales As Byte() = GenerarScoredCardDirectivo(UsuarioActual, DtGrupoSucursales) Dim PDFVendedores As Byte() = GenerarScoredCardDirectivo(UsuarioActual, DtGrupoVendedores) - For Each UsuarioEnviar In ListaDirectivos + For Each UsuarioEnviar As MUsuarioEnviar In ListaDirectivos Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) If UsuarioEnviar.ReporteEnviar.Empresa Then @@ -1028,7 +1028,7 @@ Public Class TareasProgramadas : Implements IHttpHandler 'GERMAN LUNA ListaVendedores.Add(New MUsuarioEnviar(DtUsuarios.FiltroPrimero($"CveUsuario = {3354} AND CveSubProyecto > 0"), TipoUsuarioEnviar.Vendedor)) - For Each UsuarioEnviar In ListaVendedores + For Each UsuarioEnviar As MUsuarioEnviar In ListaVendedores Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim DtReporteVendedor As DataTable = Nothing @@ -1082,7 +1082,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Protected Function GenerarScoredCard(UsuarioActual As Usuario, UsuarioEnviar As MUsuarioEnviar, DtDatos As DataTable) As Byte() Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) @@ -1108,7 +1108,7 @@ Public Class TareasProgramadas : Implements IHttpHandler Protected Function GenerarScoredCardDirectivo(UsuarioActual As Usuario, DtDatos As DataTable) As Byte() Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 05470af13..562c77be4 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1419,7 +1419,6 @@ Partial Class Bancos_ProveedoresAbonar #Region "SALDAR CUENTAS" - Private Sub BtnSaldarCuentasSinPagar_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasSinPagar.Click Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() @@ -1431,7 +1430,6 @@ Partial Class Bancos_ProveedoresAbonar CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, "Saldado de facturas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - For Each gr As GridViewRow In GvCxP.Rows If gr.FCCheckBox("Chk").Checked Then Dim Saldo As Decimal = gr.FCTextBox("TxtAbonar").Text.ToDecimal 'gr.DataKey("Saldo").ToDecimal @@ -1440,7 +1438,6 @@ Partial Class Bancos_ProveedoresAbonar Dim CveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero Dim FechaCompra As Date = gr.DataKey("Fecha").ToDate Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero - Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False) Dim CveConceptoContablePago As Integer = 17 If gr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContablePago = 308 'cuando es acreedor @@ -1460,14 +1457,16 @@ Partial Class Bancos_ProveedoresAbonar Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString) - If CveMoneda > 1 AndAlso (UsaComplementariaProveedores) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, (Saldo * TCCompra - Saldo).RoundSQL, CveConceptoContableComplementaria, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then - MsgError = "No se pudo insertar la póliza" - End If + If CveMoneda > 1 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, Saldo, CveConceptoContablePago, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, ImporteME:=If(CveMoneda > 1, Saldo, 0), Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, (Saldo * TCCompra - Saldo).RoundSQL, CveConceptoContableComplementaria, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then + MsgError = "No se pudo insertar la póliza" + End If Else + TCPago = 1 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, If(CveMoneda = 1, Saldo, Saldo * TCCompra), CveConceptoContablePago, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If @@ -1497,10 +1496,12 @@ Partial Class Bancos_ProveedoresAbonar ' se manda al ot ingresos, los impuestos por acreditar If MsgError = "" Then Dim tcvecon As Integer = 78 + Dim tTipoMovto As Boolean = True If Saldo < 0 Then tcvecon = 211 + tTipoMovto = False End If - If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, If(CveMoneda = 1, Saldo, Saldo * TCPago), tcvecon, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then + If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, Saldo, (Saldo * TCPago).RoundSQL, tcvecon, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -1522,7 +1523,6 @@ Partial Class Bancos_ProveedoresAbonar End If End If End If - End If Next diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0914a24af..aee594f27 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -12653,7 +12653,7 @@ Partial Class Compras_Compras End If End If - If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then For Each drow As DataRow In ObjInventario.DtResultados.Rows TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal @@ -12883,7 +12883,7 @@ Partial Class Compras_Compras Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Dim Opcion As Integer = 1 - If UsuarioActual.CveEmpresa.Contiene(119, 1, 140, 172, 173, 174) Then Opcion = 2 + If UsuarioActual.CveEmpresa.Contiene(119, 1, 140, 141, 172, 173, 174) Then Opcion = 2 Dim ObjCompras As New ClsCompras diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c996c2303..6cfd2a521 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)) @@ -2980,7 +3042,7 @@ Partial Class PopUpVerFactura Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString - + Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno")) Vta.RefDocto = dtVentas(0)("Ref").ToString Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 0669d4cdd..01910855b 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -73,6 +73,10 @@ +
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 10f4a1223..6d2ceedfb 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -271,6 +271,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If ObjG.Dispose() DdlColectivas.DataBind() + DdlColectivas.Items.Insert(0, New ListItem("-", "-1")) If OpAgregar Then DdlColectivas.Enabled = True diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index ef8d30620..1b9b9280f 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -101,7 +101,7 @@ Partial Class Contratos_Presupuestos Protected Sub GvPresupuestos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPresupuestos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - Dim TipoGasto = e.Row.DBCampo("TipoGasto") + Dim TipoGasto As String = e.Row.DBCampo("TipoGasto") Select Case e.Row.DBCampo("TipoTotal").ToEntero Case 1 e.Row.CssClass = "SubTotales" @@ -118,14 +118,14 @@ Partial Class Contratos_Presupuestos e.Row.FCTextBox("TxtImporteClasi").Visible = False e.Row.FCTextBox("TxtObservacion").Visible = False Case 3 - Dim Importe = e.Row.FCTextBox("TxtImporteClasi").Text.ToDouble + Dim Importe As Double = e.Row.FCTextBox("TxtImporteClasi").Text.ToDouble e.Row.FCTextBox("TxtImporteClasi").Text = Importe.FormatoNumero() e.Row.FCTextBox("TxtImporteClasi").CssClass = $"form-control input-sm sumaGV txt{TipoGasto}" e.Row.FCTextBox("TxtImporteClasi").Attributes.Add("onKeyUp ", $"calculaTotal();calculaTotalTipoGasto('{TipoGasto}');") End Select End If If e.Row.RowType = DataControlRowType.Footer Then - Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") + Dim Importe As Decimal = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) End If End Sub @@ -144,20 +144,20 @@ Partial Class Contratos_Presupuestos If ObjContrato.DtResultados.Rows.Count = 1 Then - Dim DrContrato = ObjContrato.DtResultados.Copy(0) + Dim DrContrato As DataRow = ObjContrato.DtResultados.Copy(0) If DrContrato IsNot Nothing Then - Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal + Dim ImporteOriginal As Decimal = DrContrato("Importe").ToString.ToDecimal TxtPresupuesto.Text = DrContrato("Nombre").ToString TxtDescripcion.Text = DrContrato("Observacion").ToString EstatusActual = DrContrato("Estatus").ToString.ToEntero - Dim CveProyecto = DrContrato("CveProyecto").ToString.ToEntero - Dim CveSubProyecto = DrContrato("CveSubProyecto").ToString.ToEntero + Dim CveProyecto As Integer = DrContrato("CveProyecto").ToString.ToEntero + Dim CveSubProyecto As Integer = DrContrato("CveSubProyecto").ToString.ToEntero - Dim EstatusTexto = DrContrato("EstatusTexto").ToString + Dim EstatusTexto As String = DrContrato("EstatusTexto").ToString LtlEstatus.Text = EstatusTexto @@ -180,18 +180,13 @@ Partial Class Contratos_Presupuestos If ObjContrato.GetPresupuestosRep(CvePresupuesto, -1, 1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, -1) Then If ObjContrato.DtResultados.Rows.Count > 0 Then - Dim DrRep = ObjContrato.DtResultados.Copy(0) - Dim Importe = DrRep("Autorizado").ToString.ToDecimal.FormatoNumero - Dim Ejercido = DrRep("Ejercido").ToString.ToDecimal.FormatoNumero - Dim PorEjercer = DrRep("PorEjercer").ToString.ToDecimal.FormatoNumero + Dim DrRep As DataRow = ObjContrato.DtResultados.Copy(0) + Dim EjercidoPorcentaje As Integer = DrRep("EjercidoPorcentaje").ToString.ToEntero + Dim PorEjercerPorcentaje As Integer = DrRep("PorEjercerPorcentaje").ToString.ToEntero - - Dim EjercidoPorcentaje = DrRep("EjercidoPorcentaje").ToString.ToEntero - Dim PorEjercerPorcentaje = DrRep("PorEjercerPorcentaje").ToString.ToEntero - - LtlAutorizado.Text = Importe - LtlEjercido.Text = Ejercido - LtlPorEjercer.Text = PorEjercer + LtlAutorizado.Text = DrRep("Autorizado").ToString.ToDecimal.FormatoNumero + LtlEjercido.Text = DrRep("Ejercido").ToString.ToDecimal.FormatoNumero + LtlPorEjercer.Text = DrRep("PorEjercer").ToString.ToDecimal.FormatoNumero PBEjercido.Style.Remove("width") PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") @@ -283,7 +278,7 @@ Partial Class Contratos_Presupuestos If ValidaDatos() Then If CvePresupuesto > 0 Then If ActualizarPresupuesto() Then - Dim Liga = $"document.location.href=""/Contratos/CatPresupuestos.aspx""" + Dim Liga As String = $"document.location.href=""/Contratos/CatPresupuestos.aspx""" Alert("El Presupuesto se actualizo correctamente.", TipoMensaje.MsgInformacion, Liga) Else @@ -301,16 +296,16 @@ Partial Class Contratos_Presupuestos End Sub Private Function ActualizarPresupuesto() As Boolean Dim Retorno As Boolean = False - Dim Nombre = TxtPresupuesto.Text.Trim - Dim Observacion = TxtDescripcion.Text.Trim - Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero - Dim FechaI = TxtFechaI.Text.ToDate - Dim FechaF = TxtFechaF.Text.ToDate - Dim FechaIng = NowADS() - Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero - Dim Archivo = "" - Dim Estatus = 1 - Dim TieneError = False + Dim Nombre As String = TxtPresupuesto.Text.Trim + Dim Observacion As String = TxtDescripcion.Text.Trim + Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero + Dim FechaI As Date = TxtFechaI.Text.ToDate + Dim FechaF As Date = TxtFechaF.Text.ToDate + Dim FechaIng As DateTime = NowADS() + Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero + Dim Archivo As String = "" + Dim Estatus As Integer = 1 + Dim TieneError As Boolean = False Dim ObjCont As New ClsContratos ObjCont.IniciaTransacSQL() @@ -319,10 +314,10 @@ Partial Class Contratos_Presupuestos For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim CveAgrupador As Integer = GvRow.DataKey("CveAgrupador").ToEntero Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero - Dim CveTipoGasto = -1 + Dim CveTipoGasto As Integer = -1 Dim CveClasificacion As Integer = -1 Dim CveConceptoContableNom As Integer = -1 @@ -336,9 +331,9 @@ Partial Class Contratos_Presupuestos End If - Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero - Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal - Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim + Dim CvePresupuestoDetalle As Integer = GvRow.DataKey("CvePresupuestoDetalle").ToEntero + Dim Importe As Decimal = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal + Dim Obs As String = GvRow.FCTextBox("TxtObservacion").Text.Trim 'ACTUALIZA EL REGISTRO EXISTENTE If CvePresupuestoDetalle > 0 Then @@ -373,27 +368,27 @@ Partial Class Contratos_Presupuestos Return Retorno End Function Private Sub AgregarPresupuesto() - Dim Nombre = TxtPresupuesto.Text.Trim - Dim Observacion = TxtDescripcion.Text.Trim - Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero - Dim FechaI = TxtFechaI.Text.ToDate - Dim FechaF = TxtFechaF.Text.ToDate - Dim FechaIng = NowADS() - Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero - Dim Archivo = "" - Dim TieneError = False - Dim Estatus = 1 + Dim Nombre As String = TxtPresupuesto.Text.Trim + Dim Observacion As String = TxtDescripcion.Text.Trim + Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero + Dim FechaI As Date = TxtFechaI.Text.ToDate + Dim FechaF As Date = TxtFechaF.Text.ToDate + Dim FechaIng As DateTime = NowADS() + Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero + Dim Archivo As String = "" + Dim TieneError As Boolean = False + Dim Estatus As Integer = 1 Dim ObjCont As New ClsContratos ObjCont.IniciaTransacSQL() If ObjCont.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - Dim CvePresupuestoNuevo = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePresupuestoNuevo As Integer = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePresupuestoNuevo > 0 Then - Dim ImporteClasi = 0.0D - Dim ObsDetalle = "" + Dim ImporteClasi As Decimal = 0 + Dim ObsDetalle As String = "" For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then @@ -401,7 +396,7 @@ Partial Class Contratos_Presupuestos ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim - Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim CveAgrupador As Integer = GvRow.DataKey("CveAgrupador").ToEntero Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero Dim CveClasificacion As Integer = -1 @@ -445,7 +440,7 @@ Partial Class Contratos_Presupuestos Else ObjCont.Commit() ObjCont.Dispose() - Dim Liga = $"document.location.href=""/Contratos/CatPresupuestos.aspx""" + Dim Liga As String = $"document.location.href=""/Contratos/CatPresupuestos.aspx""" Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga) End If @@ -453,8 +448,6 @@ Partial Class Contratos_Presupuestos End Sub #End Region - - Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click If ValidaDatos() Then If ActualizarPresupuesto() Then @@ -516,8 +509,8 @@ Partial Class Contratos_Presupuestos Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Dim DTExcel As New DataTable - Dim ErrorArchivo = False - Dim ErrorExcel = False + Dim ErrorArchivo As Boolean = False + Dim ErrorExcel As Boolean = False DTExcel = ReadExcelFile(Ruta + FileName, True) If Not ErrorArchivo Then diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 15630a45b..0a1eda4a2 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -353,9 +353,7 @@ -
- -
+
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 315de5e8a..118090e78 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -108,8 +108,7 @@ Partial Class RepCxC CargaCombos() CargaGvPersonalizarRangoColumnas() ProcesaRequest() - CargaDatos() - If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True + CargaDatos() ActivaEnviarEstadoCuenta() If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True End If @@ -234,15 +233,15 @@ Partial Class RepCxC CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero - Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0) - - + Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) + + + If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, - TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos, CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), CveContrato:=DdlContrato.SelectedValue.ToEntero()) Then + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), CveContrato:=DdlContrato.SelectedValue.ToEntero()) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados @@ -421,55 +420,53 @@ Partial Class RepCxC End If End If - Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0) - Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato")) e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot @@ -693,7 +690,7 @@ Partial Class RepCxC For Each Dt As DataRow In DtDatos.Rows - For Cont = 9 To NumCol + 1 Step -1 + For Cont As Integer = 9 To NumCol + 1 Step -1 Dt($"Columna{Cont}") = Dt($"Columna{Cont - 1}") Dt($"TC{Cont}") = Dt($"TC{Cont - 1}") @@ -732,23 +729,23 @@ Partial Class RepCxC TCEspecifico = -1 End If - Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) + Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - Dim Cliente = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}") - Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") - Dim Grupo = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "5", "", $" Agrupado Por: {DdlGrupo.SelectedItem.Text}") - Dim TipoDocto = If(DdlTipoDocto.GetSelectedText = "Ingresos,Remisión,Anticipos,Egresos,Ingresos X Comp,Devolución" Or DdlTipoDocto.GetSelectedText = "", "", $" Documentos: {DdlTipoDocto.GetSelectedText}") - Dim Vendedor = If(DdlVendedor.SelectedValue = "-1", "", $" Vendedor: {DdlVendedor.SelectedItem.Text}") + Dim Cliente As String = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}") + Dim Sucursal As String = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") + Dim Grupo As String = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "5", "", $" Agrupado Por: {DdlGrupo.SelectedItem.Text}") + Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedText = "Ingresos,Remisión,Anticipos,Egresos,Ingresos X Comp,Devolución" Or DdlTipoDocto.GetSelectedText = "", "", $" Documentos: {DdlTipoDocto.GetSelectedText}") + Dim Vendedor As String = If(DdlVendedor.SelectedValue = "-1", "", $" Vendedor: {DdlVendedor.SelectedItem.Text}") Dim FechaIn As String = If(txtFechaI.Text = "", "", $" Fecha Inicio Docto: {txtFechaI.Text}") Dim FechaFn As String = If(txtFechaF.Text = "", "", $" Fecha Fin Docto: {txtFechaF.Text}") Dim FVI As String = If(txtFechaVI.Text = "", "", $" Fecha Venc. Inic.: {txtFechaVI.Text}") Dim FVF As String = If(txtFechaVF.Text = "", "", $" Fecha Venc. Final: {txtFechaVF.Text}") - Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $" Registró: {DdlUsuario.SelectedItem.Text}") - Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: {DdlResponsable.SelectedItem.Text}") - Dim EstatusCob = If(DdlCobranzaEstatus.SelectedValue = "-1", "", $" Estatus Cobranza: {DdlCobranzaEstatus.SelectedItem.Text}") + Dim Registro As String = If(DdlUsuario.SelectedValue = "-1", "", $" Registró: {DdlUsuario.SelectedItem.Text}") + Dim Responsable As String = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: {DdlResponsable.SelectedItem.Text}") + Dim EstatusCob As String = If(DdlCobranzaEstatus.SelectedValue = "-1", "", $" Estatus Cobranza: {DdlCobranzaEstatus.SelectedItem.Text}") Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $" Corte A: {txtCorteA.Text}") - Dim EstatusCli = If(DdlEstatusCliente.SelectedValue = "-1", "", $" Clientes: {DdlEstatusCliente.SelectedItem.Text}") - Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") + Dim EstatusCli As String = If(DdlEstatusCliente.SelectedValue = "-1", "", $" Clientes: {DdlEstatusCliente.SelectedItem.Text}") + Dim ClasificacionCli As String = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE" 'If UsuarioActual.CveEmpresa = 72 Then diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index 77a7c820c..6708f6071 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -288,11 +288,8 @@
- -
- Estatus Cliente: - + Estatus Cliente:
@@ -301,8 +298,6 @@
- -
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 74750c04f..a89e8f4dc 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -472,7 +472,7 @@ Partial Class RepCxCDetalle RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, - CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), + CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), CveContrato:=DdlContrato.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0) 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 + - - - - - - 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: + + + + + + + + + + + + + + + + + + + + + + + =Parameters!CartaPorteVersion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 6.96712in + 0.18258in + 1.08483in + 1.14232in + 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 + + + + + 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.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.52254in + 1.05705in + 1.14232in + 25 + + + + + + true + true + + + + + QR Carta Porte + + + + + + + Textbox46 + 17.16841cm + 16.76139cm + 0.46104cm + 2.5cm + 26 + + + 2pt + 2pt + 2pt + 2pt + + + + 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 + <%: Scripts.Render("~/bundles/modernizr") %> <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> - - + + - + <%-- @@ -53,7 +53,6 @@ - diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx new file mode 100644 index 000000000..715652dba --- /dev/null +++ b/Transportes/Boletos.aspx @@ -0,0 +1,482 @@ +<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" + Inherits="Boletos" EnableEventValidation="true" %> + + + Comprar Boleto + + + + + + + + +
  • + Viajes +
    • +     +     + + + +
    +
    +
    +
    + + Datos del Cliente +
    +
    +
    +
    +
    +
    +
    + +
    + + + + +
    + +
    +
    +
    + + +
    +
    + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    + + + +
    +
    +
    + +
    + + + +
    + +
    +
    + +
    +
    +
    + + Datos del Viaje +
    +
    + +
    + + +
    +
    +
    + + +
    +
    +
    +
    + + + + + +
    +
    +
    +
    +
    +
    + + +
    +
    +
    + +
    + + + + +
    +
    + +
    + + +
    + +
    +
    + +
    +
    + +     +     + +
    +
    + +
    + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +      + + + +
    + + + +
    + +     +     + +
    +
    +     + + + + + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb new file mode 100644 index 000000000..68f508010 --- /dev/null +++ b/Transportes/Boletos.aspx.vb @@ -0,0 +1,167 @@ +Imports System.Data +Imports Extensiones + +Partial Class Boletos + Inherits ClsPaginas +#Region "Propiedades" + Private Property AsientoSeleccionado As String + Get + Return ViewState("AsientoSeleccionado").ToString() + End Get + Set(value As String) + ViewState("AsientoSeleccionado") = value + End Set + End Property + Private Property Importe As Decimal + Get + Return ViewState("Importe").ToString().ToDecimal + End Get + Set(value As Decimal) + ViewState("Importe") = value + End Set + End Property + + Private Property CveViaje As Integer + Get + Return ViewState("CveViaje").ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveViaje") = value + End Set + End Property + Private Property CveRuta As Integer + Get + Return ViewState("CveRuta").ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveRuta") = value + End Set + End Property +#End Region + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not IsPostBack Then + If Request.QueryString("CveViaje") Is Nothing Then + Response.Redirect("/Transportes/ListadoViajes.aspx") + End If + AsientoSeleccionado = "" + CveRuta = 0 + CveViaje = Request.QueryString("CveViaje").ToEntero + If CveViaje > 0 Then + CargaDatos() + InicializaCombos() + End If + + End If + End Sub + + Private Sub CargaDatos() + 'Datos Viaje + Dim ObjViaje As New ClsTransportes + Dim retornoViaje As Boolean = ObjViaje.GetViajes(CveViaje, UsuarioActual.CveEmpresa) + ViewState("CveRuta") = ObjViaje.CveRuta + If retornoViaje Then + TxtRuta.Text = ObjViaje.Ruta + TxtFecha.Text = ObjViaje.Fecha.ToShortDateString + 'Boletos Vendidos + Dim dt As DataTable + If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=True) Then 'Poner párametro para estatus y cancelado de viajes + dt = ObjViaje.DtResultados + Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) + For Each dr As DataRow In dt.Rows + Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton) + If lnk IsNot Nothing Then + lnk.Enabled = False + lnk.CssClass = "nodisponible" + lnk.ToolTip = dr("Nombre").ToString + End If + + Next + End If + End If + ObjViaje.Dispose() + + End Sub + + Protected Sub InicializaCombos() + 'Lista Destinos''carga específicos + Dim ObjDestinos As New ClsDestinos() + If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then + + If ObjDestinos.DtResultados.Rows.Count > 0 Then + + DdlPartida.DataSource = ObjDestinos.DtResultados + DdlPartida.DataBind() + DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", "")) + + DdlDestino.DataSource = ObjDestinos.DtResultados + DdlDestino.DataBind() + DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "")) + End If + End If + End Sub + + Protected Sub CotizarTarifa(sender As Object, e As EventArgs) + If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then + + Dim ObjDestinos As New ClsTransportes() + Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) + Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal + If retorno Then + If ImporteR > 0 Then + Dim redondeado As String = CStr(Math.Round(ImporteR, 2)) + ViewState("Importe") = redondeado + TxtCosto.Text = $"El precio de su boleto es ${Importe}" + BtnGuardar.Visible = True + upPanel.Visible = True + Else + TxtCosto.Text = "" + BtnGuardar.Visible = False + upPanel.Visible = False + ViewState("Importe") = 0 + End If + End If + End If + + End Sub + + Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs) + 'quitamos la selección anterior, en caso de existir. + If AsientoSeleccionado <> "" Then + Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) + Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton) + lnk.CssClass = "disponible" + End If + + Dim linkButton As LinkButton = DirectCast(sender, LinkButton) + Dim buttonID As String = linkButton.ID + linkButton.CssClass += " activo" + AsientoSeleccionado = buttonID + End Sub + Protected Sub AddBoleto(sender As Object, e As EventArgs) + + If AsientoSeleccionado = "" Then + Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim ObjTransporte As New ClsTransportes() + ObjTransporte.IniciaTransacSQL() + + Try + AsientoSeleccionado = AsientoSeleccionado.Replace("A", "") + Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario) + + If retorno > 1 Then + ObjTransporte.Commit() + End If + Catch ex As Exception + Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) + Finally + ObjTransporte.Dispose() + Response.Redirect($"/Transportes/Boletos.aspx?CveViaje={CveViaje}") + End Try + + End Sub + +End Class diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx new file mode 100644 index 000000000..e855b1030 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx @@ -0,0 +1,96 @@ +<%@ Page Language="VB" Title="Transportes V&A - Boletos" AutoEventWireup="false" + MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb" + Inherits="ListadoBoletos" EnableEventValidation="true" %> + + + Listado de Boletos + + + + + + + + + + + + +
    + " + style="display: inline-block; margin-right: -10px; width: 150px;" /> + " + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + +     + + diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb new file mode 100644 index 000000000..96899cc76 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx.vb @@ -0,0 +1,74 @@ +Option Explicit On +Option Strict On +Imports ADSNetLibrary.Helpers +Imports ADSNetLibrary.SIGAPI.Helpers +Imports Extensiones.ModExtensiones + +Partial Class ListadoBoletos + Inherits ClsPaginas + Private Property CveViaje As Integer + Get + Return ViewState("CveViaje").ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveViaje") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + If Request.QueryString("CveViaje") Is Nothing Then + Response.Redirect("/Transportes/ListadoViajes.aspx") + End If + CveViaje = Request.QueryString("CveViaje").ToEntero + + InicializaCombos() + CargaDatos() + End If + End Sub + + Private Sub InicializaCombos() + + End Sub + + Private Sub CargaDatos() + Dim ObjTransportes As New ClsTransportes + + If ObjTransportes.GetViajesPasajeros(CveViaje) Then + + GvBoletos.DataSource = ObjTransportes.DtResultados + ObjTransportes.Dispose() + GvBoletos.DataBind() + End If + End Sub + + Protected Sub ToggleViajesPasajeros(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") + Dim Estatus As String = GvRow.DataKey("Estatus") + Dim cambiarEstatus As Boolean = Not Estatus.ToBool + Dim ObjTransportes As New ClsTransportes + + Try + ObjTransportes.IniciaTransacSQL() + If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then + + If cambiarEstatus Then + Alert($"El boleto ha sido cancelado correctamente.") + Else + Alert($"El boleto ha sido reactivado correctamente.") + + End If + End If + ObjTransportes.Commit() + + Catch ex As Exception + ObjTransportes.RollBack() + Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) + Finally + ObjTransportes.Dispose() + CargaDatos() + End Try + + End Sub + +End Class \ No newline at end of file diff --git a/Transportes/ListadoContratos.aspx b/Transportes/ListadoContratos.aspx index f8b159f6a..9f37b10b0 100644 --- a/Transportes/ListadoContratos.aspx +++ b/Transportes/ListadoContratos.aspx @@ -1,4 +1,5 @@ -<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoContratos.aspx.vb" +<%@ Page Language="VB" AutoEventWireup="false" Title="Transportes V&A - Contratos" MasterPageFile="~/Site.master" + CodeFile="ListadoContratos.aspx.vb" Inherits="ListadoContratos" %> @@ -34,6 +35,9 @@ +
  • + Agregar Contrato +
  • Contratos @@ -42,22 +46,25 @@ Viajes
    • +     +
    + " + style="display: inline-block; margin-right: -10px; width: 150px;" /> + " + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
    -
    - -
    - + CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" + data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF "> @@ -264,7 +271,7 @@
    - +     diff --git a/Transportes/ListadoContratos.aspx.vb b/Transportes/ListadoContratos.aspx.vb index ddec16a91..49595fc44 100644 --- a/Transportes/ListadoContratos.aspx.vb +++ b/Transportes/ListadoContratos.aspx.vb @@ -1,6 +1,6 @@ Option Explicit On Option Strict On -Imports Extensiones +Imports Extensiones.ModExtensiones Partial Class ListadoContratos Inherits ClsPaginas @@ -19,11 +19,11 @@ Partial Class ListadoContratos If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then If ObjAF.DtResultados.Rows.Count > 0 Then DdlTransporte.DataSource = ObjAF.DtResultados - DdlTransporte.Items.Insert(0, New ListItem("Seleccione", "0")) + DdlTransporte.Items.Insert(0, New ListItem("Seleccione", "")) End If End If - ObjAF.Dispose() DdlTransporte.DataBind() + ObjAF.Dispose() End Sub Private Sub CargaDatos() @@ -35,7 +35,7 @@ Partial Class ListadoContratos GvContratos.DataBind() End Sub - Protected Sub MostrarModal(sender As Object, e As System.EventArgs) + Protected Sub MostrarModal() TxtDescripcion.Text = "" TxtFechaSalida.Text = "" TxtFechaRegreso.Text = "" @@ -45,7 +45,9 @@ Partial Class ListadoContratos BtnGuardar.Text = "Guardar" RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar")) End Sub - + Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click + MostrarModal() + End Sub Protected Sub AddContrato(sender As Object, e As EventArgs) If DdlClientes.SelectedValue = "" Then @@ -57,51 +59,29 @@ Partial Class ListadoContratos ObjContratos.IniciaTransacSQL() Try - If BtnGuardar.Text = "Guardar" Then - Dim CveEstatusInicial As Integer = 10 - Dim CveContratoHijo As Integer = -1 - Dim CveContratoTipo As Integer = 2 + Dim CveEstatusInicial As Integer = 10 + Dim CveContratoHijo As Integer = -1 + Dim CveContratoTipo As Integer = 2 - If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - CveEstatusInicial = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero - End If + If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then + CveEstatusInicial = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero + End If - CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) + CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) - If CveContratoHijo > 0 Then - ObjContratos.Commit() - Alert("Agregado Correctamente.") - TxtDescripcion.Text = "" - TxtFechaSalida.Text = "" - TxtFechaRegreso.Text = "" - TxtObservaciones.Text = "" - TxtUbicacion.Text = "" - DdlClientes.SelectedValue = "" - DdlTransporte.SelectedValue = "" + If CveContratoHijo > 0 Then + ObjContratos.Commit() + Alert("Agregado Correctamente.") + TxtDescripcion.Text = "" + TxtFechaSalida.Text = "" + TxtFechaRegreso.Text = "" + TxtObservaciones.Text = "" + TxtUbicacion.Text = "" + DdlClientes.SelectedValue = "" + DdlTransporte.SelectedValue = "" - End If - Else - Dim id As Integer = Convert.ToInt32(Request.QueryString("CveContrato")) - - Dim ContratoEditado As New ClsContratos - ContratoEditado.GetContratos(id, UsuarioActual.CveEmpresa) - - Dim CveEstatusInicial As Integer = 10 - Dim Editar As Boolean = False - Dim CveContratoTipo As Integer = 2 - - If ContratoEditado.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - CveEstatusInicial = ContratoEditado.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero - End If - - Editar = ContratoEditado.UpdateContratos(ContratoEditado.CveContrato, id.ToString, TxtDescripcion.Text, ContratoEditado.NumeroLicitacion, ContratoEditado.CveProveedor, ContratoEditado.CveCliente, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", ContratoEditado.CveSubProyecto, ContratoEditado.PorIVA, ContratoEditado.PorAnticipo, ContratoEditado.PorAmortizacionAnticipo, ContratoEditado.PorGarantia, "", "", ContratoEditado.CveContratoPadre, ContratoEditado.CveUsuario, ContratoEditado.CveEmpresa, False, -1, -1, -1, ContratoEditado.CveMoneda, ContratoEditado.ModalidadDetalle, CveContratoTipo:=ContratoEditado.CveContratoTipo, CveContratosEstatus:=ContratoEditado.CveContratosEstatus) - - If Editar = True Then - ContratoEditado.Commit() - Alert("El contrato se modificó correctamente.") - End If End If Catch ex As Exception @@ -116,9 +96,9 @@ Partial Class ListadoContratos End Sub Protected Sub UpdateContrato(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Page.Response.Write("") Dim fechaInicial As DateTime Dim fechaFinal As DateTime @@ -126,7 +106,7 @@ Partial Class ListadoContratos TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato") TxtObservaciones.Text = GvRow.DataKey("DescripcionContrato") TxtUbicacion.Text = GvRow.DataKey("Ubicacion") - 'DdlTransporte.SelectedValue = GvRow.DataKey("CveActivoFijo") + DdlTransporte.SelectedValue = GvRow.DataKey("CveTipoAF") If DateTime.TryParse(GvRow.DataKey("FechaInicial").ToString, fechaInicial) And DateTime.TryParse(GvRow.DataKey("FechaFinal").ToString, fechaFinal) Then TxtFechaSalida.Text = fechaInicial.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") TxtFechaRegreso.Text = fechaFinal.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") diff --git a/Transportes/ListadoViajes.aspx b/Transportes/ListadoViajes.aspx index 9d52a1a92..791cbfd9e 100644 --- a/Transportes/ListadoViajes.aspx +++ b/Transportes/ListadoViajes.aspx @@ -1,4 +1,5 @@ -<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoViajes.aspx.vb" +<%@ Page Language="VB" Title="Transportes V&A - Viajes" AutoEventWireup="false" MasterPageFile="~/Site.master" + CodeFile="ListadoViajes.aspx.vb" Inherits="ListadoViajes" %> @@ -14,15 +15,18 @@ .fecha { padding: 3px; } - .masivo{ - color:green; - } + .masivo { + color: green; + } +
  • + Agregar viaje +
  • Contratos @@ -36,229 +40,250 @@ - - -
    - + + +
    + " + style="display: inline-block; margin-right: -10px; width: 150px;" /> + " + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    - - + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - > - - + + + > + + - - - - + + + + + + - - - - -