Merge branch 'master' of http://192.168.10.111:8383/SIG

2023-12-30 15:48:16 -07:00
parent 0569ba8106 ca037b2927
commit 1ece382849
31 changed files with 16408 additions and 255 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -153,6 +153,8 @@ Public Class ClsInventarios
        End Get
    End Property

+    Public Property CveAlmacenAgregado As Integer = -1
+
 #End Region

    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -376,6 +378,7 @@ Public Class ClsInventarios

    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
+        CveAlmacenAgregado = -1

        DataAdapter("PA_Inv_AlmacenesAdd")

@@ -391,10 +394,12 @@ Public Class ClsInventarios
            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
            .Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
+            .Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output
        End With

        Try
            SqlAdapter.Fill(Data)
+            CveAlmacenAgregado = SqlAdapter.SelectCommand.Parameters("@CveAlmacenAgregado").Value.ToString.ToEntero
            Retorno = True
        Catch Ex1 As SqlException
            If Ex1.Message.Contains("Número: 2627;") Then
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5846,6 +5846,11 @@ Public Class ClsPaginas
                    params.Add(New ReportParameter("Tipo", TipoDocumento))
                    params.Add(New ReportParameter("Ref", TipoDocumentoRef))
                    params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
+
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                        params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
+                    End If
+
                    RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
                    RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)

@@ -5946,6 +5951,11 @@ Public Class ClsPaginas
                    params.Add(New ReportParameter("Ref", TipoDocumentoRef))
                    params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
                    params.Add(New ReportParameter("CveAlmacenTraspasoOrigen", Vta.CveAlmacenTraspasoOrigen.ToString))
+
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                        params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
+                    End If
+
                    RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
                    RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
                Case "Pd2"
@@ -6257,7 +6267,7 @@ Public Class ClsPaginas
            Dim paramsArray As New JArray()
            For Each rds As ReportDataSource In DataSource
                Dim Nombre As String = rds.Name
-                If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") Then
+                If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
                    Select Case rds.Name
                        Case "DsOC"
                            Nombre = "DtDetalle"
@@ -9461,6 +9471,8 @@ Public Class ClsPaginas
            PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
            PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
            PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
+            PaginaDict.Add("/Ventas/CatEspecialidadesSubEspecialidades.aspx".ToUpper(), 1346)
+



--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1722,7 +1722,7 @@ Public Class ClsVentas
                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1,
                                             Optional ServicioDomicilio As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_GetRepPS33")
+        DataAdapter("PA_Vta_GetRepPS")

        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
@@ -1756,7 +1756,6 @@ Public Class ClsVentas
            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
            .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
-
        End With

        Try
@@ -6006,7 +6005,8 @@ Public Class ClsVentas


    Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
-                              CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
+                              CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1,
+                              Optional Torre As String = "-1") As Boolean

        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_MedicosAdd")
@@ -6027,6 +6027,8 @@ Public Class ClsVentas
            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
            .Add("@Celular", SqlDbType.VarChar).Value = Celular
            .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@Torre", SqlDbType.VarChar).Value = Torre


        End With
@@ -6041,7 +6043,8 @@ Public Class ClsVentas
    End Function

    Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
-                                 CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
+                                 CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1,
+                                 Optional Torre As String = "-1") As Boolean

        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_MedicosUpdate")
@@ -6062,6 +6065,9 @@ Public Class ClsVentas
            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
            .Add("@Celular", SqlDbType.VarChar).Value = Celular
            .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@Torre", SqlDbType.VarChar).Value = Torre
+

        End With
        Try
@@ -6094,7 +6100,7 @@ Public Class ClsVentas

 #End Region

-#Region "ESPECIALIDADES"
+#Region "E S P E C I A L I D A D E S"

    Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean

@@ -6183,6 +6189,101 @@ Public Class ClsVentas

 #End Region

+
+
+
+#Region "S U B  E S P E C I A L I D A D E S"
+
+    Public Function GetMedicosSubEspecialidades(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las SubEspecialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+
+
+    Public Function AddMedicoSubEspecialidad(CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+#End Region
+
+
 #Region "PRODEDIMIENTOS"

    Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7959,6 +7959,7 @@ Namespace Modelos
        Public Property ImprimeNombreSucursal As Integer
        Public Property CobranzaCorreo As String
        Public Property UsaProductoAlterno As Boolean = False
+        Public Property Documentacion As String = ""
    End Class

    <Serializable>
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -29,7 +29,7 @@ Public Class Timbrado
    Public Property CancelacionMensaje As String
    Public Property CancelacionFecha As Date
    Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
-
+    Public Const LigaVerificacionSATCCP As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/verificaccp/default.aspx"
    Public Class AcuseCancelacionSAT
        Public Property CodigoEstatus As String
        Public Property EsCancelable As String
@@ -2507,103 +2507,34 @@ Public Class Timbrado
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"


-        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
-
-            Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-
-            ''DATOS GENERALES
-            cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-            'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
-
-            'UBICACIONES
-            If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
-                For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
-                    'origen
-                    cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
-                    'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-                    cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
-                Next
-
-            End If
-
-            'MERCANCIAS
-            If Carta.Mercancias IsNot Nothing Then
-                cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
-                If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
-                    For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                        If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                        For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-                            cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
-                        Next
-                    Next
-                End If
-            End If
-            '
-            If Carta.FiguraTransporte IsNot Nothing Then
-
-                If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
-
-                    cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
-
-                    cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
-
-                    cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
-                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-                                            Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
-
-                    If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
-                        For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
-                            cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
-                        Next
-
-                    End If
-                End If
-
-                If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
-                    For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                        cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
-                        If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
-                            cfdi.CartaPortePartesTransporte("PT01")
-                            cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
-                        End If
-                    Next
-                End If
-
-            End If
-
-        End If
-
        'If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then

        '    Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte

        '    ''DATOS GENERALES
-        '    cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
+        '    cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
+        '    'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)

        '    'UBICACIONES
        '    If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
        '        For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
        '            'origen
-        '            cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+        '            cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
        '            'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-        '            cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+        '            cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
        '        Next

        '    End If

        '    'MERCANCIAS
        '    If Carta.Mercancias IsNot Nothing Then
-        '        cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
+        '        cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
        '        If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
        '            For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
        '                If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-        '                cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""),
-        '                                            concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
-        '                                            concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+        '                cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
        '                For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-        '                    cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+        '                    cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
        '                Next
        '            Next
        '        End If
@@ -2613,18 +2544,18 @@ Public Class Timbrado

        '        If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then

-        '            cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+        '            cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)

-        '            cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+        '            cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)

-        '            cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
+        '            cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
        '                                    Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
        '                                    Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
        '                                    Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)

        '            If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
        '                For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
-        '                    cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
+        '                    cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
        '                Next

        '            End If
@@ -2632,10 +2563,10 @@ Public Class Timbrado

        '        If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
        '            For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-        '                cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
+        '                cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
        '                If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
-        '                    cfdi.CartaPorte30PartesTransporte("PT01")
-        '                    cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+        '                    cfdi.CartaPortePartesTransporte("PT01")
+        '                    cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
        '                End If
        '            Next
        '        End If
@@ -2644,6 +2575,70 @@ Public Class Timbrado

        'End If

+        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+
+            Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+
+            ''DATOS GENERALES
+            cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
+
+            'UBICACIONES
+            If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                    'origen
+                    cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                    'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
+                    cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+                Next
+            End If
+
+            'MERCANCIAS
+            If Carta.Mercancias IsNot Nothing Then
+                cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
+                If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
+                    For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
+                        If concep.ValorMercancia <= 0 Then concep.Moneda = ""
+                        cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""),
+                                                    concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
+                                                    concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
+                            cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+                        Next
+                    Next
+                End If
+            End If
+            '
+            If Carta.FiguraTransporte IsNot Nothing Then
+
+                If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
+
+                    cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+
+                    cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+
+                    cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
+                                            Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
+
+                    If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
+                        For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                            cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
+                        Next
+                    End If
+                End If
+
+                If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                    For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                        cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
+                        If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                            cfdi.CartaPorte30PartesTransporte("PT01")
+                            cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                        End If
+                    Next
+                End If
+            End If
+        End If

 #End Region

@@ -2652,7 +2647,6 @@ Public Class Timbrado

        If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then

-
            cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA,
                           ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR,
                           ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS,
@@ -2975,15 +2969,12 @@ Public Class Timbrado
            sw.Start()
            'Verifica el error
            If cfdi.Mensaje = "" Then
-
-                Dim FolioFiscal As String
                Dim SelloCfdi As String

                UUID = cfdi.CfdiInfo.UUID
-                FolioFiscal = cfdi.CfdiInfo.UUID
                SelloCfdi = cfdi.CfdiInfo.SelloCfdi

-                If FolioFiscal <> "" Then
+                If UUID <> "" Then

                    cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")

@@ -2997,7 +2988,7 @@ Public Class Timbrado

                            Using ObjNomina2 As New ClsNominas()

-                                If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
+                                If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
                                    Retorno = ""
                                Else
                                    Retorno = "Error"
@@ -3007,7 +2998,7 @@ Public Class Timbrado
                        Case "T"

                            Dim objGrales As New ClsGenerales
-                            If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
+                            If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, UUID, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
                                Retorno = ""
                            Else
                                Retorno = "Error"
@@ -3015,7 +3006,7 @@ Public Class Timbrado
                            objGrales.Dispose()

                            Using ObjInv As New ClsInventarios()
-                                If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                                If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, UUID, MinFecha) Then
                                    Retorno = ""
                                Else
                                    Retorno = "Error"
@@ -3030,7 +3021,7 @@ Public Class Timbrado

                                Using ObjVentas As New ClsVentas()

-                                    If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
+                                    If ObjVentas.UpdateEstatusFactura(3, UUID, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
                                        Retorno = ""
                                    Else
                                        Retorno = "Error"
@@ -3055,12 +3046,30 @@ Public Class Timbrado
                    Try
                        Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
                        Dim qrCode As New GoFac.QrCode()
-                        Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
+                        Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
                        File.WriteAllBytes(RutaCBB, bCBB)
                        bCBB = Nothing
                    Catch ex As Exception
                        OnError("Ocurrió un error al generar el QR", ex)
                    End Try
+
+                    'genero el nuevo qr, de carta porte
+
+                    If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+
+                        Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+                        Try
+
+                            Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}_CCP.jpg"
+                            Dim qrCode As New GoFac.QrCode()
+                            Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}")
+                            File.WriteAllBytes(RutaCBB, bCBB)
+                            bCBB = Nothing
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al generar el QR", ex)
+                        End Try
+                    End If
+
                    Retorno = ""
                Else
                    Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
@@ -3336,7 +3345,7 @@ Public Class Timbrado
                        Else
                            Retorno = result.mensaje
                            MensajeErrorCFDI = result.codigo
-                            'If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
+                            cfdi.EscribirXml(RutaArchivo & "\" & NombreArchivoXML)
                        End If
                    End If
                Else
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -1,12 +1,7 @@
 <%@ WebHandler Language="VB" Class="CargaEventos" %>
-Option Explicit On
+Option Explicit Off
 Option Strict On

-Imports System
-Imports System.Web
-Imports System.Collections
-Imports System.Collections.Generic
-Imports System.Web.SessionState
 Imports System.Data
 Imports Extensiones

@@ -17,8 +12,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "text/plain"

-        Dim CveUsuario = -1
-        Dim CveEmpresa = -1
+        Dim CveUsuario As Integer = -1
+        Dim CveEmpresa As Integer = -1
        Dim FI As Date
        Dim FF As Date

@@ -425,7 +420,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState

    ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
        Get
-            UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG", Nothing)), Usuario)
+            UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario)
        End Get
    End Property

--- a/Bin/GoCfdi.dll
+++ b/Bin/GoCfdi.dll
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2240,6 +2240,26 @@ Partial Class PopUpVerFactura
                DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
                DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))

+                DtMercancias.Columns.Add(New DataColumn("SectorCOFEPRIS", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("NombreIngredienteActivo", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("NomQuimico", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("DenominacionGenerica", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("DenominacionDistintiva", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("Fabricante", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("FormaFarmaceutica", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("CondicionesTransporte", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("RegistroSanitarioAutorizacion", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("PermisoImportacion", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("FolioImportacionVUCEM", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("NumCAS", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("RazonSocialEmpImportacion", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("NumRegistroPlagCOFEPRIS", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("DatosFabricante", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("DatosFormulador", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("DatosMaquilador", GetType(String)))
+                DtMercancias.Columns.Add(New DataColumn("UsoAutorizado", GetType(String)))
+
+
                Dim DtOperadores As New DataTable()
                DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
                DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
@@ -2424,6 +2444,25 @@ Partial Class PopUpVerFactura
                        Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
                        Row("Embalaje") = ValorXML(node, "Embalaje", "")

+                        Row("SectorCOFEPRIS") = ValorXML(node, "SectorCOFEPRIS", "")
+                        Row("NombreIngredienteActivo") = ValorXML(node, "NombreIngredienteActivo", "")
+                        Row("NomQuimico") = ValorXML(node, "NomQuimico", "")
+                        Row("DenominacionGenerica") = ValorXML(node, "DenominacionGenerica", "")
+                        Row("DenominacionDistintiva") = ValorXML(node, "DenominacionDistintiva", "")
+                        Row("Fabricante") = ValorXML(node, "Fabricante", "")
+                        Row("FormaFarmaceutica") = ValorXML(node, "FormaFarmaceutica", "")
+                        Row("CondicionesTransporte") = ValorXML(node, "CondicionesTransporte", "")
+                        Row("RegistroSanitarioAutorizacion") = ValorXML(node, "RegistroSanitarioAutorizacion", "")
+                        Row("PermisoImportacion") = ValorXML(node, "PermisoImportacion", "")
+                        Row("FolioImportacionVUCEM") = ValorXML(node, "FolioImportacionVUCEM", "")
+                        Row("NumCAS") = ValorXML(node, "NumCAS", "")
+                        Row("RazonSocialEmpImportacion") = ValorXML(node, "RazonSocialEmpImportacion", "")
+                        Row("NumRegistroPlagCOFEPRIS") = ValorXML(node, "NumRegistroPlagCOFEPRIS", "")
+                        Row("DatosFabricante") = ValorXML(node, "DatosFabricante", "")
+                        Row("DatosFormulador") = ValorXML(node, "DatosFormulador", "")
+                        Row("DatosMaquilador") = ValorXML(node, "DatosMaquilador", "")
+                        Row("UsoAutorizado") = ValorXML(node, "UsoAutorizado", "")
+
                        DtMercancias.Rows.Add(Row)
                    Next

@@ -3043,6 +3082,7 @@ Partial Class PopUpVerFactura
                Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
                Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
                Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
+                Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString

                Vta.RefDocto = dtVentas(0)("Ref").ToString
                Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
@@ -3719,7 +3759,7 @@ Partial Class PopUpVerFactura
                    If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"

                    'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186) Then
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", ConceptoFormato))
                        params.Add(New ReportParameter("Almacen", Almacen))
@@ -3741,6 +3781,12 @@ Partial Class PopUpVerFactura

                        params.Add(New ReportParameter("Observaciones", Observaciones))

+                        If UsuarioActual.CveEmpresa.Contiene(186) Then
+                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
+                        End If
+
+
                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                            params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
@@ -3908,7 +3954,7 @@ Partial Class PopUpVerFactura
                    If Archivo.Exists Then

                        'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
                            Dim CiudadSucursal As String = ""
                            Dim DomicilioSucursal As String = ""
                            Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
@@ -3922,6 +3968,9 @@ Partial Class PopUpVerFactura
                                DomicilioSucursal = DomicilioCliente
                            End If

+                            If UsuarioActual.CveEmpresa.Contiene(186) Then
+                                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                            End If

                            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then

@@ -4388,7 +4437,7 @@ Partial Class PopUpVerFactura
                    Observaciones = ObservacionesSolicitud
                End If

-                If UsuarioActual.CveEmpresa = 119 Then
+                If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
                    If CalleOrigen.Length > 0 Then
                        SBDireccionO.AppendFormat("{0}", CalleOrigen)
                        If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
@@ -4448,7 +4497,7 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
                    End If

-                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
@@ -4499,7 +4548,7 @@ Partial Class PopUpVerFactura
                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                    params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))

-                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
--- a/Empresas/186/Formatos/Cotizacion.mrt
+++ b/Empresas/186/Formatos/Cotizacion.mrt
--- a/Empresas/186/Formatos/Entradas.rdlc
+++ b/Empresas/186/Formatos/Entradas.rdlc
--- a/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc
+++ b/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc
@@ -0,0 +1,256 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Textbox Name="PS">
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!PS.Value</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>PS</rd:DefaultName>
+            <Top>0.14111cm</Top>
+            <Left>2.48778cm</Left>
+            <Height>1.1761cm</Height>
+            <Width>6.93443cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Lote">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Lote.Value</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Lote</rd:DefaultName>
+            <Top>1.36307cm</Top>
+            <Left>3.92323cm</Left>
+            <Height>0.30367cm</Height>
+            <Width>3.91148cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="FechaCad">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!FechaCad.Value</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                      <Format>d/MM/yy</Format>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>FechaCad</rd:DefaultName>
+            <Top>1.75846cm</Top>
+            <Left>5.45111cm</Left>
+            <Height>0.2878cm</Height>
+            <Width>2.3836cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Image Name="qr">
+            <Source>Database</Source>
+            <Value>=Parameters!QR.Value</Value>
+            <MIMEType>image/bmp</MIMEType>
+            <Sizing>FitProportional</Sizing>
+            <Top>0.03175cm</Top>
+            <Height>2.31083cm</Height>
+            <Width>2.42605cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Image>
+          <Textbox Name="Textbox1">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>LOTE:</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>1.36307cm</Top>
+            <Left>2.52094cm</Left>
+            <Height>0.30367cm</Height>
+            <Width>1.2259cm</Width>
+            <ZIndex>4</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox2">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>F. ELABORACIÓN:</Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>1.75846cm</Top>
+            <Left>2.52094cm</Left>
+            <Height>0.2878cm</Height>
+            <Width>2.82222cm</Width>
+            <ZIndex>5</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Image Name="Logo">
+            <Source>Embedded</Source>
+            <Value>Logo</Value>
+            <Sizing>FitProportional</Sizing>
+            <Top>1.5468cm</Top>
+            <Left>8.2016cm</Left>
+            <Height>0.74287cm</Height>
+            <Width>1.52823cm</Width>
+            <ZIndex>6</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Image>
+        </ReportItems>
+        <Height>0.92351in</Height>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Body>
+      <Width>3.83898in</Width>
+      <Page>
+        <PageHeight>2.5cm</PageHeight>
+        <PageWidth>10cm</PageWidth>
+        <LeftMargin>0.02cm</LeftMargin>
+        <RightMargin>0.02cm</RightMargin>
+        <TopMargin>0.02cm</TopMargin>
+        <BottomMargin>0.02cm</BottomMargin>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
+  <ReportParameters>
+    <ReportParameter Name="QR">
+      <DataType>String</DataType>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="PS">
+      <DataType>String</DataType>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Lote">
+      <DataType>String</DataType>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaCad">
+      <DataType>String</DataType>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <EmbeddedImages>
+    <EmbeddedImage Name="Logo">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAS4AAAC3CAYAAACsXrN8AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAB0CSURBVHhe7Z3djyXHWcaHG4S4sYU0s0qi4AjHIEXIu5sYLJDWWisXsGtHtjeeGaMIsUKQSNx4d7O7xt4Zz1o2/oDYWWMbGzlCi1AswwUziYlswOvdoAiZD6EVDmCHC+8fkItxUOByqae63jPVdd7qrj5d/XFmnp/0aqarq6urq6ueft/qOucsEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCJlH7rlh48bVxbXjK4trW6tLa1dWFtcvrO47d9jtJoSQcbG8uHHACNW11aX169O2dtFlI4SQcWA9raX17WnB8mxx/bzLTggh/XH0wc0Dd3118zDs6KnN40dObp6H3ferz7+lilVgd3/lr56WY3w7enLzgpZ+5NTmvXI+VwVCCJlmIk4nN09UCcmvPbj5KXfIAuazNKGasobzXb5Q+vVA3cI6EEL2CBj4oSiION3z4OaNLlstqcK1srR+wh3SCtQNdfS9PtSbQkbILkQGvHhTGPjYdrtnpniLqItVyTp8wwjvTIQMf7HtdhFC5hHxqiTEauJNpYAlEKpQlW3bZe8ceF7wwETE6IkRMidgsIoHksOrqsMI09VAqMpmxM1l7ZWwHYo3oDuhLdaauayEkKGwE9rGs+rb0/jCFy/eunLT4++XxAq2b/3HQ4lWCITr/p9/crqOXKpByDCIYCFEyh0K1oHzQSjx1y5EXVo/ATGAYN31u68/3Hd9qpgSLWtrV9xuQkgfTEKhAQRLwLljk+FIx363OTja6v7lTz522e0mhHSNFYyeQ8KQFGGCJzgWr2v5lidPh8J1751/
+siYeo8tGCGmLm1C+iJAGSw+O3f7sUTuPFfFy+kK8PbcZZSxel9T3i59+8u77f/GZ7658fONphLaybwxtSsiuwXgF5Td2+x7932N3vniT2z0I8E6aeClDe10QJF9k8ZbR/VtCvFh6X4S0AB5BSbTEBn5Th8HdJEQd0uvSzh0TLiCeWZPrI4R4xITLhDqPuiy9Y72SGUKqIbyumGBWCRcQj5LiRcgMYAAtf+L8h75orSytfXTXb7/+pcmiyh7FQLwRt9mIvr2uqvPVCZeAa51FpAnZs0CQMPCwuNOfnJcJZQDhspPKPXgH4oW0Ecq+vC60S5VIpgoXQDkoz20SQmKIaKWKkXhC4oW55KzkEMc+vK46obFi37CNZjmGkD1HG5HAAIOANRG+OlBWrpCpS68rpZ6zilDONiBk15FrgKAMCKANJRuUd3n/Q4dhbjO7l5S7PCG13dp4TxQvQhS6GNQSdooXFvN2Lh08c/6dA2e23zl49rrYm7c9/DSEz2XJRm6vq4mgNJnf0sgRMhOya5B5KrfZCRjc1gMz5/EH+qWDZy/4guXb3/zyI3/msmUjp0A3ES3QVrgguGi/rsJdQuaKLud+QiCS4oV99Tf+9AFNsHwzoWN2DyPH9YYCnEJb4QJ9PGQIGT1NvYacvPr5p57WxMq3tz97Nnu42MbrEq9nlpAth3CBnF4jIXPH0E9viJImVr5h/stlz8osXhfyQzBmES2QS7jArOJJyNwzdOe/vP/0AU2sfLu8/0wnnkVTr6WtaOF4iKXbbE3u8giZC8YSbrxz8MxVTbCsHTh7zWXrhFSvq61ogTZLIWIwZCR7jhwT1DnA5LsmXm9+7uEf/sUdjx1y2TohZeCjjXJ4pl0IF2DISPYMY3pSY9BBRP/88OOPXjp45iIMc1+nH3j11j4GZZWAi2jlEPiurgV1Y8hI9gRj8bYgoFXCgPS2IVodr37+qZPfue2RD4vQ9Mw2hPPy/gdvxDlziRbIOTEfgjZC
+W7pNQnYfMiDd5iCIIKV4fciL+nYxMC/vP308DFFhf/+53//P3/rKN7+US7RAl8IFui6fkEEZ+ukswtm0DqlCl0oxtzYtWmJ/e9vDL7usWehaWLqaQyNkFAz5ZK4LDesIj/+vlxc+9eHXF2YqK+ZtiV06eDbrbx720e70usiuBAM/p9eSioR7Oc4tHtt/vPCTr/3gpYXrsA9eWmg8YGsXv2ZeitGHqNDrIrsSDPguJ7o1RGhynvft5245JKIl5nYlU7f49dLBM1sua2v6fGDQ6yK7jr47ddvQMMYHLy4caCtcENI3bn/k+5powfzvBWtLn54QBBLt7jYJmW/E83GbnZIzNNTAwHz72U//s4iWEbILblcS0haPH3vxJsxllUTrwNmPnj/ytW/kFNs+hQv15rousmvo60ncRWgo2JDLeI24FgxQeF6YoHe7kxAv0G1aEDbCwxIvC3WXc9gMLel73VxX7U9I7/QRJooo5B6k8FZEsFzSTNhyEssQAXabreg7RM9Zd0IGpcvBA6HCQGkrLCEiWDnCLNStaTnWw8twTX0LF+jhnPDocA4sG8Ecoxjexl40ltLWiABwfGhNQV20cppEGOGxTaYf8JAIj9cM7YI2q6qXdlxT2x0PLQiLNu/x3y8sHP7gpYUtzBHNuh5Knu45Q5OcggUgPrOGyW2OFQYRrgz1rgDX44tVzDCIqvoF7q92XNOHBfq2Vk5q/0E7hcduG0sltT18g8Br9dPyNrXe+1snQABCEcDckP9WzogXOlkj7ODIGBrmFizxBFsLT0sRGEK4Yg+rDMBr0AZLzCAAsbaLCRfO0YSrxrRyUvsRPBTt+NSH8SzCJRZ6R1qeprY7hEsbePC2fOGCuV1RjLgdx2LPf7jw8btzCALAAEP9cgoWkHJzeYJtvMohhGtlae3elU9sbK8urV/Hr5Cv7tvI0Q4xz6bOIF7awy0mXE28HVyXVgYstT/FxDg15GojXDDfw9T2N7VdIlzKwIHH
+ZYRoW0SrzuOCYPki981n7jjqds2ECAu8gtwhTRfhq3hv+OuSktC83a5Z3XfuMAQrMHglbcB1Q1C0gZJimhcVEy5YqmhUiWlqu8c8ttR5rrbC5Qu7tr+p7V7hAvC6/uXCz3z70nM3v1E3xwVh84Vrlo/ZgC4FC0CsUH5TgUlhlrIHEa7F9fOKcF1fXtxo095VAoGHHvoDBjrmbrQ8sLDdqoQr9ZMLMdGBpbQ76qQdC0sV+5hwId23qrqKUIfHiGnHSLuH1mt/64y6UCUllAk9LiNkjQZB14IFUO4sXlETxJtzm7Xgmru63hjLNz/xiiZcLcNFDBJt8IRtgbaPDdAwb5VwweruY1WYCEsZwHV1SAHjJ/VYtIGWt06otWNqx+1ck0O4wA9eWDgBAXv/Jf2tD9LNfvuWUhaGQkQw0LsULICyIRJus1OanCu1bdsi3iDO94Xli19e3bf+o7JwrTV++RKgDZzYYEPbaPnDtqgTjboHBDw87TixFOFCnbRjxdqUEUMT9rp5vTA/rJe+NRi1wpXBKzBidbzskf3Ej37zzEu/B8HKOdekgVCsL9ESUtusS+HCQ8FeuzkHHg5+fRAWYlJ++ZPnr97/C09dvOeGjTZeaMyzqWpzLX/YFnXCVeeFVIWlsBTRiXmSYin3D3m0Y2PEwu4qtPyd9a1RUDd4cngr4RwYbOuPDj7gdncG6t33HJKQIl5dCBfOiQeCtZprbxraRogJTNW5tfxhW8TK9S0muGh3Lb9vKf2i7oVDylxbU+Hqqj13B5On7s1PXDOhQuVTt+0A04QLk/9udyeEXsYQoA5VHmUu4fJDQfxtMo+XoQ5dDbRYub7FRLcuTITV9b8U8UtZmoHr0o6N0VV7zj8QqdWldbuOx7PoW5K2nRvzW4Fwpb6RaYzMm3UdgqYgdYkJSZt2rQoFm5BBuGIDvG14niJcsX5UFybC6oRLC9m0cuvancKVi9XFteOBaBW275zaODmEwH2E6Dwm8Wf9
+CFEdGMzwOMYgWoJ4Q6F4IR3t6jaTgVilhoIpoJyYsDZAGzhNPs+nERvAoYX3OsVTgtW1nbbwVPPk6u4hhSsXTYXLDpYMg6RLRAjGJFqCL1L4Pnt8z9d3fumRq9++/dz3sG0zVSDHwzvCfcggNBMy3duYh9OmXByrlRkaPCOflDARVle38JoQFmp1qvsIUlPh4uR8DKzZMUIVhorbXc5zdQkGdtO5nb5BKDf5jcbA8HuNLtsE8R4lFOxKkDMJV+xjMTDsmyWMTRWuMFysm1AXq7pm9KMwvywZCdPrpj2aChfKC/NCRKsI88N2n3ABTM4bsboK0bKT9DUrp8cqXBAEDOwxixYw4nReEy0x8byskLhQsI+XC2g3nMttzkpKeIYBiWtMvU8x4dIGtoi6tkYsJmRVwqWVI/1fO3/VNTURrpi3WOfVacfsTuFqSqa5kKxgYMMrcZujBr8MpAmW2LduP/d+F6FgCpkeSlVel28QEuSt8yBjwqWFUlJ/rQ6xelUJlyY20s+wBCLc17QsGNLF4M1VvVCoKh9ox6BccuTUX99tPYEBBpaGDaPmRLSAJla+vXXbQ++6rL2TSbjQJ7RBXWVV540JFwQvTJNQSvOuNO8JViUG2sJT8X5R53Bf1XVo+ZtYyqcatONy3NP5BgJhwrGPjp7aum7t5NZ2H2FMDFufAc8/C+8cOLOtCZZY7h+ZbULmaQB4RKnzTLDYuWPCBbRwTRMICGmsnCrh0vILWnlV966NcOE6U5wE7VgKlxUqES1nR05u1U0YtgbLJrCMwl8+gfmseRMtgAl4TbDE8CO0LmvvdDB/ifuF66kKf3zTPOcq4Up9c4g5tabCpc3X+cKEawv3Q6hjzCpcOGeKaAHt+L0tXAgNQ9ESy/A2Kgo+32hs8p1g7/3xT73c5du1rrm8/8Eb417XmavY77L2TgfC5QNRqgshtYdglXBp4qIZ2rSpcGlzaOGaNE2QYw/TWYSrSgg1tDIoXJpowY6c
+2noFnT5mONa3VNHRvoEV9t3nfva0yzKX4Lca//LQ+e8Z7+p/IFh/99mH/u+1Ox57Y0jRArhX7t8uwb2vErCwb1QJF6jz5nAu0FS4tMn8cK2ddh2x9Xgx4cL5YbE5uCbzt9rxe1u4gBGoq4pw1c7JhMIFjykUt9DwAuDNZz/zuiZc//j1j11DGShr7MsfQmQRaSje9s0orttck0vqHZzf/dsHsbd84UCNCY5QFy6KkMTKibV3ijeliRGuSyMmXD7anF2sPI3wWBiFC4MLQuWLVlvhwPG2zJObJTcc6ZeevfmiJlz4Pi8MfCuERuAmgndquG+BSKFov+q1ZnJNQ8zf9SxcEO6UgVYnXHXhorR1E+HCMbG8vmnhJMRHI0W4NBFuEi6Gx8IoXF2AyX0RwlB0YqEi5r1clhIY7ChjImQjEjPrUSUu24Cw2XobAetzLq9n4QIpAw33TsvnEwsXJUwEsXK0vhEL21JNezClCFdMhFPDRe1YClcX2CUNRrRMGPrDu05sHnLJE/zJefzFB7TdriQ0McN2nx4NrjFVtHwKb3TzuBZadsEcC1csXPQfcE2EKyYyqdakzBBNhFPDxfA4WN/3dO+Agfnrp791K/66pE6xQgYxESFzC2pzi8NEeFqKJOqFclDnqjCzLS2FC/cO852hVZEy0FKEK+ap+G3VRLhQby1vqmntmCpcbcLF8DgYhatrmoRTOYEYWC8M4uDEDP8jrUoo7A/mvrhw0XiCVzDv5n8poohNTjG03iPm9Dpqo5bClTowfbT8YR1ShAuEnoofJoImwqXla2KaYKe2TyxMTbnn2nEUrj7AoOwzjIsBwYFwxSb/sRjWiNW1cP4N4oX6Q7S68o6swENcM7aTCK3bnIXYwKyqo5Z/VuEKPZXwWlKFK+a9NTHNQ0oVLoDjw3wp4WJ4DIzC1Re5PZVcWI/HCBdE45U/uGcrFC3YuxcW/6kvr9EKaaY3kFaknSjPCIRCGzilt8UeqUISyxcS
+Ck740Eg9n/amEN5cDPTTMD8svCdNhEtbKpISLobHwChcfWFDNzMg3eYosd/iqgjXv7/w0//qsvQC2koErI3YZxCumKeCQR+KCLa1NUuw8BpShQsgr1hIrJwwryYaYdgZonlIocfXRLhmDRe1YyhcfWLDoZ48l1moWKoR8zA6BQIGT3XWEBXClyG0jS1LwMBGu2AQQQRi+TTPJiY4TUkVLq1udYNfm8wPQ7smwoX7oOWtCxe1YyhcfQPhyjmPkxtMzAfCdbWr79FPxc7NYV7OtF0TIWo5MS/EwsVU07zsPoUrJhihuIVoohQuRG0iXED7OFFduBjmh1G4hmCs812C8bAOYIX/a88cWnNJo8DOxxkBSw3/MgkXmHUpgRZSgj6FKxai1T0AUo5rKlyxh0AYgvpo+SlcQyAhUIYwpjMyzA91BuqV8gYyo3DhPsXmr2IGTyJWvz6FSxMXLXwNiU3Q15UNi4F21PJXzbdp+SlcQ5HhVX2njFm4hKo3kB3UH4NOW0ipGUSuSlRjgtOUWDn+dWveYt3EvKBN0Pui0VS4QOwBEHuIa3kpXEMy5vmueRAuAK/VtqMLv1cW1y/gV53wQynLH9t4t+rXnWYEnggELBQEDEhMNKe8fME9x/GhNSVWjt+ntP2pD0y5Tt/8FzUoJ9wPqyJ2TGwcaHlH+8DfM4x1vmtehEtAG973K89/A4JVtjV0dEJITsY63zVvwgUgUtPCtQ5viBCSmzHOd82jcOE3NClchPQIvv7GiNf37dfhnNy6hnkbt2sQMPc2dB2asrK0dm8oWpjzcrtnpk7Etf14GEm6ZuJh46+2PzZ9YJeEmP0xDx33DG9T6+6d1C92HqnXWOdgyUgwHe2ifPmgtZNbdQvzsoAObs6Hb4A1Vvb6Mi4n6I3lzzz15eWfe+LfbNi4uJ6l/nJPtEGOgS37XZLFLtdw6ZpBFJDPioOy31rwDbrApNtv65XjBdy70rHG7BdaRoTH3Pctm8f0O5dU
+wqsX5whJHHQQ11F2Op7pVPL0REcKLfa0TAVlhOfE8gK3ey6FCwO4bbuESNtogxxpst8lWTzhumLvYWBSR7kH1ss26RAr/yfzkGYLdKA8pOM4lyQPH1dH+xsKk76EbZdtArwp2R97QHp9g8JF4thOK50p6FASHoSGQSoDIdkQSjghNIPlrdI5C5t0VOR3/84FEIPQa8zBpG3MPfFDtJIAGHPJFrQd0urasLiP5Xa35ULA7PHl3/hEPqTjOJdkhKv4wRdfWH1PEPfbJVvs2je3T9sPtHoRMgU6KzoeBoftiB3NLfgiuNuEqwtvC/jt43ukoQC4ZEsb4QKFeDnPy+sLyIc0X7jc8VOhrNzrMH0idFJHxZOM1YuQwfE658TmNVTEINU8hxz47eN7QPjf3+eSLb4ooJ1987027x5MCQTSsA95XFKlcLnNSgqvdOc6RBz9OoGqehEyOOigZnBhotYMiGI9mfMkrqBzF/vG+9Ek0FWIKLgBbAe7/evC7eL/nd/ldNktIlya+aJTJRBIC/NH0my5brOSiZfoJv4hrMXx5farqhcho8J6LYEXIQYBc9lGhYhW6DHkZKcdJm/urhSCXkqLhIq2PSE2O+aFfn0L1+T+ujrsCHD5/lK4yNzgew+qKa/nhwSihYHXpWgBuX6cZzLvZNujeIEi2zazY0e4ZpvjAnI/cgkXxEryGrMi6t9zvx0pXGQukCdvnXUtEqkUA6ufj0rJteN/00476+2ckPv7hbbCJXNRYbnIh7SScDkxxT10SRZXV3iHNl3eVMas9OKBwkXGAgaD7ZBeqCLIQKszf8AMAc6PuvZZD7l2/O8LCv4P9wuzCheE2B6749mVhAPbSPevfyKm5hiIlA35PYGVekqYCIHC8WKTuhrvyxZoCOtFyCD4czFFJy2/ApfOW2f+gOmLYhAVa9aGOL9cu9ss6uOJf7gf1LWnXEdxbXoeCEnoUZr0KeGyYhcL88UrlDDRhbc+OF7yi8hV1Qvm
+n5+QzvCe4J7tvEkKhS1mXYZm4hFi0PuGNBlQQyDX7jan0Pa3ES7zUNmCV6S1tdk/JVwAeXGMCFjxd+f+igcWPrAEnNOW68JFrV6+hecnJDuxTojB5bK4EEV/oygW6/RtsOc14U0x0Itf2na7CCF7nTqPC9hwQs1XPMFze1sQLDzhtTk3QgiZCgURGrhdJRCSwbMSAYMXBm8op2jZkHAOBQveoPVeE+ptQ7cK71HC4roQuCqf1MdtTrZjJvcw5dzY7/6dQq5Na4eqfQDp2F9VPiElbIe18yCbv+OSegd1gKeVUwi7BvWd8kTNtiboGJiliXLkMw+CMJ/MgfnhukZVPjmH25xsx0zEIlYm6mjq6hbWFobtUOCsMGG/ubbovvBtaNguztA2VQJKiGXIpx06KDy/eRItW2dPtMLB5w86DM5SXm/OEAPUZbNUCZJPVT4p223KxH1hrh6uvkWa84K0MgvR2rm2ct3L0wSeOOG6klbcl8rD/6U27eYzpmQXUTz5+u8odlAHc2rzgA1pMcAC78K+SHBv4AQM4mIg7gx0tLU2QKsEyacqn5TrNkuYdPXtI9DK9K9TBM72FSc4/rX6wmXL8a5LE67i3hd5/frg/7rrJ2RC351lKLHMgQxoiJJLiqINTmCOLZYieO2uiYdGVT45n9ssYdIbCZfkD8/jzY1OhMgTJ2sQNxFqb990fiOKLomQ5miDYFbQYdExbed0T2oB2xj48ypaoAhvi0FnB3xwjT5uwE4JiSYUWppGVb7Y+YBJn0m4wvwT0dGFy36DCP6XsrT8YJLPiLhWJ0Jq0QbBLECQIEzoiEWH3flGVqzYxn5/bmReMddRmrB2VvqWByD73OYE2x4m3W93LU2jKl/sfMCk9yJc3v/2Gye0/EDO6RtC6nl+qJGe0QZBEyBGNoSo8D52Gxhg/uS1tSD0kXS3OUETCi1Noypf7HzApPciXNg2bSOfi/SFrCRcAPvUh8Ae6kekBXWDpQp5M+hP
+VO81MNBExHyPQQai25ygCYWWpiH5tK8Uip0PmPTehMs+yDCpjzI9EbOZI6D/TPIq10bIFHWDJYZ4Wrsh/GuLNmnvDd5S+IM8Nt1rd008NHbylX80A+dAOswllTDpMwlXWB/Ji/0uSRcz1x6eVQoX0MohJMosHtNeFS37csGIhi9GRVtMD/SJQBlvTNrXhtQymL2QSBMPDRwjxyOvPXfJ45v++TFg9jUSronwGPGVY6ywODHGfpvREBMcbLv00j57DSjXlOH3H9NeSd4ZIRZ0PK1DV7FXw0MZuDHz21EGqJYPg9Rls4h4xKxUblkQovl8zL5GwgVBmZrDc4Z0X3BQpttXFi5PZP19+N9LV2z+1veRAUDHi3V4DRuWmE7pNvcUxYA2nkEgSKEXJhTekPG8XH6bzxMIoYlwWS8r+PbS2PkFk6eRcAG5VpRtz2OuAdu+aIGYcAGvnqV9ONekXDGUr7QNISpNhMsNxOgA2UvA40S7pXqeXXioTc7fhq7OARHs6xrILiTlSWef9HtwXosQMlJShGuvzmsRQkZKnXAxRCSEjI4q4bLzEN7rb0IIGQVVwgVPa6++RSSEjJiYcDFEJISMlphwhaubCSFkNGhrubQ0QggZDaFIcUKeEDJ6QuHihDwhZPRgYal8uNX/nxBCRo1M0HOFPCFkboBwcfkDIWSuOHbgD9+979ALr3H5AyFkLlhdWruyurR+fXXf+o9X920wTCSEjJ+VpbV7rXAtrb+3vLjBt4mEkPGDpRDHDnztabdJCCHjp+pD1oQQMjrCxaeEEDJ66G0RQuYKeluEkLmD3hYhZK7gKnlCyFzg1mtdxZqt+2954r1jd754k9tFCCHjAyvijWBtu4Wmztamfn2YEEJGw8rS+omyaBXmdhNCyPjwPtZD4SKEzA9GqOz8ltjK4voFt4sQQsbJPTds3GhDxsX186uLa/yWU0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
+QgghhBBCyJ5lYeH/Aev8eE4+mU6OAAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+  </EmbeddedImages>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>272c4b43-6177-44f5-8699-9e315e3ec44e</rd:ReportID>
+</Report>
--- a/Empresas/186/Formatos/Factura.mrt
+++ b/Empresas/186/Formatos/Factura.mrt
--- a/Empresas/186/Formatos/NotaDevolucion.mrt
+++ b/Empresas/186/Formatos/NotaDevolucion.mrt
--- a/Empresas/186/Formatos/Pedido.mrt
+++ b/Empresas/186/Formatos/Pedido.mrt
--- a/Empresas/186/Formatos/Remision.mrt
+++ b/Empresas/186/Formatos/Remision.mrt
--- a/Empresas/186/Formatos/Salidas.rdlc
+++ b/Empresas/186/Formatos/Salidas.rdlc
--- a/Empresas/186/Formatos/Traslado.rdlc
+++ b/Empresas/186/Formatos/Traslado.rdlc
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -109,6 +109,78 @@
          <DataField>Embalaje</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
+        <Field Name="SectorCOFEPRIS">
+          <DataField>SectorCOFEPRIS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NombreIngredienteActivo">
+          <DataField>NombreIngredienteActivo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NomQuimico">
+          <DataField>NomQuimico</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="DenominacionGenerica">
+          <DataField>DenominacionGenerica</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="DenominacionDistintiva">
+          <DataField>DenominacionDistintiva</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fabricante">
+          <DataField>Fabricante</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FormaFarmaceutica">
+          <DataField>FormaFarmaceutica</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CondicionesTransporte">
+          <DataField>CondicionesTransporte</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="RegistroSanitarioAutorizacion">
+          <DataField>RegistroSanitarioAutorizacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PermisoImportacion">
+          <DataField>PermisoImportacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FolioImportacionVUCEM">
+          <DataField>FolioImportacionVUCEM</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NumCAS">
+          <DataField>NumCAS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="RazonSocialEmpImportacion">
+          <DataField>RazonSocialEmpImportacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NumRegistroPlagCOFEPRIS">
+          <DataField>NumRegistroPlagCOFEPRIS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="DatosFabricante">
+          <DataField>DatosFabricante</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="DatosFormulador">
+          <DataField>DatosFormulador</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="DatosMaquilador">
+          <DataField>DatosMaquilador</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="UsoAutorizado">
+          <DataField>UsoAutorizado</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
      </Fields>
      <rd:DataSetInfo>
        <rd:DataSetName>DataSet</rd:DataSetName>
@@ -226,10 +298,10 @@
                  <Width>2.51991cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>8.15613cm</Width>
+                  <Width>8.04092cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>2.60983cm</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>1.90464cm</Width>
@@ -511,7 +583,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>DESCRIPCIÓN</Value>
+                                <Value>Descripción</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -631,7 +703,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>PESO(KG)</Value>
+                                <Value>Peso(kg)</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -725,7 +797,7 @@
            <Top>6.39415cm</Top>
            <Left>0.38395cm</Left>
            <Height>1.12062cm</Height>
-            <Width>19.16442cm</Width>
+            <Width>19.15904cm</Width>
            <Style>
              <Border>
                <Color>#4f81bd</Color>
@@ -847,7 +919,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>MERCANCIAS</Value>
+                    <Value>Mercancias</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -890,7 +962,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>DISTANCIA</Value>
+                                <Value>Distancia</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1261,7 +1333,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>NOMBRE</Value>
+                                <Value>Nombre</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1301,7 +1373,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>FECHA</Value>
+                                <Value>Fecha</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1341,7 +1413,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>DIRECCIÓN</Value>
+                                <Value>Dirección</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1450,7 +1522,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>REMITENTES Y DESTINATARIOS</Value>
+                    <Value>Remitentes Y Destinatarios</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -1646,7 +1718,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>LICENCIA</Value>
+                                <Value>Licencia</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1686,7 +1758,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>NOMBRE OPERADOR</Value>
+                                <Value>Nombre Operador</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -1795,7 +1867,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>OPERADORES</Value>
+                    <Value>Operadores</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -1914,7 +1986,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>Versión CFDI:               Versión Carte Porte:</Value>
+                    <Value>Versión CFDI:</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>8pt</FontSize>
@@ -1935,15 +2007,7 @@
                    </Style>
                  </TextRun>
                  <TextRun>
-                    <Value xml:space="preserve">                                               </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>6pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value>=Parameters!CartaPorteVersion.Value</Value>
+                    <Value xml:space="preserve"> </Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>6pt</FontSize>
@@ -1956,9 +2020,9 @@
            </Paragraphs>
            <rd:DefaultName>Textbox45</rd:DefaultName>
            <Top>6.89767in</Top>
-            <Left>3.53738cm</Left>
+            <Left>3.68814cm</Left>
            <Height>2.89306cm</Height>
-            <Width>12.88876cm</Width>
+            <Width>12.51434cm</Width>
            <ZIndex>7</ZIndex>
            <Style>
              <Border>
@@ -1974,10 +2038,10 @@
            <Source>External</Source>
            <Value>=Parameters!QR.Value</Value>
            <Sizing>FitProportional</Sizing>
-            <Top>6.96712in</Top>
+            <Top>6.97962in</Top>
            <Left>0.18258in</Left>
-            <Height>1.08483in</Height>
-            <Width>1.14232in</Width>
+            <Height>1.2in</Height>
+            <Width>1.2in</Width>
            <ZIndex>8</ZIndex>
            <Style>
              <Border>
@@ -2207,7 +2271,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>TRANSPORTE</Value>
+                    <Value>Transporte</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -2418,7 +2482,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>DATOS DEL CLIENTE</Value>
+                    <Value>Datos Del Cliente</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -2460,7 +2524,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>CANTIDAD</Value>
+                                <Value>Cant.</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -2494,7 +2558,7 @@
            <TablixBody>
              <TablixColumns>
                <TablixColumn>
-                  <Width>3.03118cm</Width>
+                  <Width>2.65924cm</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>8.93664cm</Width>
@@ -2701,7 +2765,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>UNIDAD DE MEDIDA</Value>
+                                <Value>Unidad De Medida</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -2741,7 +2805,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>DESCRIPCIÓN</Value>
+                                <Value>Descripción</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -2821,7 +2885,7 @@
                          <Paragraph>
                            <TextRuns>
                              <TextRun>
-                                <Value>IMPORTE</Value>
+                                <Value>Importe</Value>
                                <Style>
                                  <FontFamily>Myriad Pro</FontFamily>
                                  <FontSize>8pt</FontSize>
@@ -2915,7 +2979,7 @@
            <Top>13.75012cm</Top>
            <Left>0.33883cm</Left>
            <Height>1.12062cm</Height>
-            <Width>19.20418cm</Width>
+            <Width>18.83224cm</Width>
            <ZIndex>13</ZIndex>
            <Style>
              <Border>
@@ -2930,7 +2994,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>CONCEPTOS</Value>
+                    <Value>Conceptos</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -3006,7 +3070,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>SUBTOTAL:</Value>
+                    <Value>SubTotal:</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -3086,7 +3150,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>DESCUENTOS:</Value>
+                    <Value>Descuentos:</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -3163,7 +3227,7 @@
              <Paragraph>
                <TextRuns>
                  <TextRun>
-                    <Value>TOTAL:</Value>
+                    <Value>Total:</Value>
                    <Style>
                      <FontFamily>Myriad Pro</FontFamily>
                      <FontSize>9pt</FontSize>
@@ -3488,7 +3552,7 @@
                              <Paragraph>
                                <TextRuns>
                                  <TextRun>
-                                    <Value>RELACIÓN</Value>
+                                    <Value>Relación</Value>
                                    <Style>
                                      <FontFamily>Myriad Pro</FontFamily>
                                      <FontSize>8pt</FontSize>
@@ -3813,7 +3877,7 @@
                  <Paragraph>
                    <TextRuns>
                      <TextRun>
-                        <Value>FOLIOS RELACIONADOS</Value>
+                        <Value>Folios Relacionados</Value>
                        <Style>
                          <FontFamily>Myriad Pro</FontFamily>
                          <FontSize>9pt</FontSize>
@@ -3863,9 +3927,9 @@
            <Value>=Parameters!QRCCP.Value</Value>
            <Sizing>FitProportional</Sizing>
            <Top>6.97962in</Top>
-            <Left>6.52254in</Left>
-            <Height>1.05705in</Height>
-            <Width>1.14232in</Width>
+            <Left>6.46004in</Left>
+            <Height>1.2in</Height>
+            <Width>1.2in</Width>
            <ZIndex>25</ZIndex>
            <Style>
              <Border>
@@ -3909,13 +3973,13 @@
            </Style>
          </Textbox>
        </ReportItems>
-        <Height>8.09222in</Height>
+        <Height>8.29014in</Height>
        <Style />
      </Body>
      <Width>7.72749in</Width>
      <Page>
        <PageHeader>
-          <Height>3.02245cm</Height>
+          <Height>2.58148cm</Height>
          <PrintOnFirstPage>true</PrintOnFirstPage>
          <ReportItems>
            <Textbox Name="Textbox2">
@@ -3938,7 +4002,7 @@
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox2</rd:DefaultName>
-              <Top>0.38703cm</Top>
+              <Top>0.06953cm</Top>
              <Left>4.85476cm</Left>
              <Height>0.78571cm</Height>
              <Width>9.73471cm</Width>
@@ -4044,7 +4108,7 @@
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>1.13cm</Top>
+              <Top>0.8125cm</Top>
              <Left>4.85476cm</Left>
              <Height>1.76898cm</Height>
              <Width>9.74971cm</Width>
@@ -4061,9 +4125,10 @@
              <Source>External</Source>
              <Value>=Parameters!LogoPath.Value</Value>
              <Sizing>FitProportional</Sizing>
-              <Left>0.16845in</Left>
-              <Height>0.46171in</Height>
-              <Width>1.23522in</Width>
+              <Top>0.06953cm</Top>
+              <Left>0.18258in</Left>
+              <Height>0.85754in</Height>
+              <Width>1.2in</Width>
              <ZIndex>2</ZIndex>
              <Style>
                <Border>
@@ -4077,7 +4142,7 @@
                <Paragraph>
                  <TextRuns>
                    <TextRun>
-                      <Value>CARTA PORTE - TRASLADO</Value>
+                      <Value>Carta Porte - Traslado</Value>
                      <Style>
                        <FontFamily>Myriad Pro</FontFamily>
                        <FontSize>9pt</FontSize>
@@ -4091,7 +4156,7 @@
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>0.38703cm</Top>
+              <Top>0.06953cm</Top>
              <Left>5.81924in</Left>
              <Height>0.5cm</Height>
              <Width>1.83161in</Width>
@@ -4130,7 +4195,7 @@
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>0.3607in</Top>
+              <Top>0.2357in</Top>
              <Left>5.81924in</Left>
              <Height>0.60856cm</Height>
              <Width>1.83161in</Width>
@@ -4146,6 +4211,65 @@
                <PaddingBottom>2pt</PaddingBottom>
              </Style>
            </Textbox>
+            <Textbox Name="Textbox54">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Versión Carte Porte</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>6pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!CartaPorteVersion.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>7pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox54</rd:DefaultName>
+              <Top>1.38363cm</Top>
+              <Left>14.9272cm</Left>
+              <Height>1.14493cm</Height>
+              <Width>4.50596cm</Width>
+              <ZIndex>5</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
          </ReportItems>
          <Style>
            <Border>
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -5552,7 +5552,7 @@ Partial Class Inventarios_EntradasSalidas
                            End If
                            Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1)
                            Dim tCveMovtoSalida As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual)
-                            If Not ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
+                            If Not ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, dttCosto.SUMD("Total"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
                                ErrorMovInv = True
                            End If
                        End If
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3675,7 +3675,7 @@ Partial Class Inventarios_RecepcionAlmacen
                    Msg.AppendFormat("<br/>La Orden de Compra se dividió en los siguientes productos:<br/>{0}", MensajeOC)
                End If
                If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then
-                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))
                    'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))

                End If
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -385,7 +385,7 @@ Partial Class OS_Asignaciones
            TmpDTOS = ObjOS.DtResultados
        End If

-        If ObjOS.GetDetalleMateriales(-1, CveOS, 1, False) Then
+        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
            TmpDTMaterialesOS = ObjOS.DtResultados
        End If
        Dim lrds As New List(Of ReportDataSource)
--- a/Ventas/CatEspecialidadesSubEspecialidades.aspx
+++ b/Ventas/CatEspecialidadesSubEspecialidades.aspx
@@ -0,0 +1,269 @@
+<%@ Page Title="Catálogo De Especialidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEspecialidadesSubEspecialidades.aspx.vb" Inherits="Ventas_CatEspecialidadesSubEspecialidades" %>
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+    <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo De Especialidades
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    <asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Always">
+        <ContentTemplate>          
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarSubEspecialidad" OnClick="LnkAgregarSubEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Sub Especialidad"></asp:LinkButton>
+            </li>
+             <li>
+                <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
+            </li>             
+        </ContentTemplate>
+         <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    
+    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
+        <ContentTemplate>
+            <ajax:TabContainer runat="server" ID="Tabs">
+
+
+                <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                                    <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+
+                                        <asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
+                                            DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
+                                            EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                            <Columns>
+                                                <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+
+                                            </Columns>
+                                        </asp:GridView>
+
+                                    </div>
+                                </div>
+
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <ajax:TabPanel ID="TabSubEspecialidad" runat="server" HeaderText="SubEspecialidades" ClientIDMode="Static">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpSubEspecialidad" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+
+                                        <asp:GridView ID="GvSubEspecialidad" runat="server" AutoGenerateColumns="False"
+                                            DataKeyNames="CveMedicoSubEspecialidad,CveMedicoEspecialidad,SubEspecialidad,Estatus"
+                                            EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                            <Columns>
+                                                <asp:TemplateField HeaderText="Sub Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlSubEspecialidad" runat="server" Text='<%# Eval("SubEspecialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                 <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="LnkEditarSubEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarSubEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="LnkEliminarSubEspecialidad" OnClick="LnkEliminarSubEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+
+                                            </Columns>
+                                        </asp:GridView>
+
+                                    </div>
+                                </div>
+
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+            </ajax:TabContainer>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+     <div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
+                            <asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
+                        <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+    <div id="DVAgregarSubEspecialidad" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalSubEspecialidad" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal1" runat="server">Agregar Sub Especialidad</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                               <div class="col-md-12">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad" Width="100%" CausesValidation="true" ></asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                        </div>
+                                    </div>
+
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtSubEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtSubEspecialidad" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtSubEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatusSubEspecialidad" runat="server" visible="false">
+                            <asp:CheckBox ID="ChkEstatusSubEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatusSubEspecialidad.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgergarSubEspecialidad" OnClick="BtnAgergarSubEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarSubEspecialidad" />
+                        <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+ 
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+
+  
+</asp:Content>
--- a/Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
+++ b/Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
@@ -0,0 +1,291 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports Microsoft.Extensions.Primitives
+
+Partial Class Ventas_CatEspecialidadesSubEspecialidades
+    Inherits ClsPaginas
+
+
+    Public Property CveMedicoEspecialidad As Integer
+        Get
+            If ViewState("CveMedicoEspecialidad") Is Nothing Then
+                ViewState("CveMedicoEspecialidad") = -1
+            End If
+            Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedicoEspecialidad") = value
+        End Set
+    End Property
+
+    Public Property CveMedicoSubEspecialidad As Integer
+        Get
+            If ViewState("CveMedicoSubEspecialidad") Is Nothing Then
+                ViewState("CveMedicoSubEspecialidad") = -1
+            End If
+            Return ViewState("CveMedicoSubEspecialidad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedicoSubEspecialidad") = value
+        End Set
+    End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaEspecialidad()
+            CargaSubEspecialidad()
+        End If
+    End Sub
+
+#Region "EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+
+        If Tabs.ActiveTabIndex = 0 Then
+            GvEspecialidad.Columns(4).Visible = False
+            Dim SbFiltros As New StringBuilder()
+
+            GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            GvEspecialidad.Columns(4).Visible = True
+        ElseIf Tabs.ActiveTabIndex = 1 Then
+            GvEspecialidad.Columns(5).Visible = False
+            Dim SbFiltros As New StringBuilder()
+
+            GvEspecialidad.ExportToExcelGembox("CatSubEspecialidades", UsuarioActual, "Catálogo De Sub Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            GvEspecialidad.Columns(5).Visible = True
+        End If
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+#Region "Especialidad"
+
+
+    Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
+        CveMedicoEspecialidad = -1
+        DVEstatusEspecialidad.Visible = False
+        LimpiarModalEspecialdiad()
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+    End Sub
+
+    Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        Dim ProcesoOK As Boolean = True
+
+        If CveMedicoEspecialidad > 0 Then
+            If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        Else
+            If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
+            RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
+        End If
+
+    End Sub
+
+    Sub LimpiarModalEspecialdiad()
+        TxtEspecialidad.Text = ""
+        ChkEstatusEspecialidad.Checked = True
+        UpModalEspecialidad.Update()
+    End Sub
+    Sub CargaEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvEspecialidad.DataSource = ObjVentas.DtResultados
+            DdlEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            GvEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvEspecialidad.DataBind()
+
+        DdlEspecialidad.DataBind()
+        DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+        UpEspecialidad.Update()
+
+    End Sub
+
+    Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+        ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+        DVEstatusEspecialidad.Visible = True
+        UpModalEspecialidad.Update()
+
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+
+
+    End Sub
+
+    Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+
+        Dim ObjVentas As New ClsVentas
+
+        If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert("Especialidad eliminada correctamente")
+        End If
+
+
+    End Sub
+#End Region
+
+
+
+#Region "SubEspecialidad"
+
+
+    Protected Sub LnkAgregarSubEspecialidad_Click(sender As Object, e As EventArgs)
+        CveMedicoSubEspecialidad = -1
+        DVEstatusSubEspecialidad.Visible = False
+        LimpiarModalSubEspecialdiad()
+        RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
+
+    End Sub
+
+    Protected Sub BtnAgergarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        Dim ProcesoOK As Boolean = True
+
+        If CveMedicoSubEspecialidad > 0 Then
+            If Not ObjVentas.UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad, DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, ChkEstatusSubEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        Else
+            If Not ObjVentas.AddMedicoSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaSubEspecialidad()
+            Alert($"SubEspecialidad {If(CveMedicoSubEspecialidad > 0, "actualizada", "agregada")} correctamente.")
+            RegistraScript("$('#DVAgregarSubEspecialidad').modal('hide');")
+        End If
+
+    End Sub
+
+    Sub LimpiarModalSubEspecialdiad()
+        DdlEspecialidad.SelectedValueExist(-1)
+        TxtSubEspecialidad.Text = ""
+        ChkEstatusSubEspecialidad.Checked = True
+        UpModalSubEspecialidad.Update()
+    End Sub
+    Sub CargaSubEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvSubEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            GvSubEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvSubEspecialidad.DataBind()
+
+        UpSubEspecialidad.Update()
+
+    End Sub
+
+    Protected Sub LnkEditarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        CveMedicoSubEspecialidad = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
+        Dim CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+
+        DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
+        TxtSubEspecialidad.Text = GvRow.DataKey("SubEspecialidad")
+        ChkEstatusSubEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+        DVEstatusSubEspecialidad.Visible = True
+        UpModalSubEspecialidad.Update()
+
+        RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
+
+
+
+    End Sub
+
+    Protected Sub LnkEliminarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveMedicoSubEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
+
+        Dim ObjVentas As New ClsVentas
+
+        If Not ObjVentas.RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaSubEspecialidad()
+            Alert("Sub Especialidad eliminada correctamente")
+        End If
+
+
+    End Sub
+#End Region
+
+
+
+
+
+
+
+
+End Class
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -20,7 +20,7 @@
                <asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
            </li>
            <li>
-                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
+                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" Visible="false" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
            </li>

             <li>
@@ -225,7 +225,7 @@
                            <div class="col-md-12">

                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
+                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
                                    EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                    <Columns>
                                        <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
@@ -311,7 +311,7 @@
        </ajax:TabPanel>


-              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">        
+              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">        
            <ContentTemplate>

                <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
@@ -471,12 +471,25 @@
                                            <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
                                        </div>
                                    </div>
+                                    <div class="col-md-6">
+                                       
+                                    </div>                                    
+                                </div>
+
+                                
+                                <div class="row">
                                    <div class="col-md-6">
                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                        </div>
                                    </div>
+                                    <div class="col-md-6">                                   
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%"  DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
+                                        </div>
+                                    </div>
                                </div>


@@ -512,12 +525,18 @@
                                            <label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
                                        </div>
                                    </div>
-                                    <div class="col-md-6">
+                                    <div class="col-md-3">
                                        <div class="form-group form-md-line-input input-iconright">
                                            <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                            <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
                                        </div>
                                    </div>
+                                    <div class="col-md-3">
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
+                                        </div>
+                                    </div>
                                </div>


@@ -560,7 +579,7 @@
                                    <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                    <asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                </div>
                            </div>
                        </div>
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -42,6 +42,7 @@ Partial Class Ventas_CatMedicos
            CargaCombos()
            CargaDatos()
            CargaEspecialidad()
+            CargaSubEspecialidad(-1)
            BtnConsultar_Click(Nothing, Nothing)
        End If
    End Sub
@@ -80,12 +81,12 @@ Partial Class Ventas_CatMedicos

        If CveMedico > 0 Then
            If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked,
-                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
+                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
                ProcesoOK = True
            End If
        Else
            If ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario,
-                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
+                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
                ProcesoOK = True
            End If
        End If
@@ -144,7 +145,7 @@ Partial Class Ventas_CatMedicos
    Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)

        LbAgregar.Text = "Agregar"
-        LtlTituloModal.Text = "Agregar Medico"
+        LtlTituloModal.Text = "Agregar Médico"

        TxtMedico.Text = ""
        TxtCedulaProfecional.Text = ""
@@ -158,6 +159,8 @@ Partial Class Ventas_CatMedicos
        TxtTelefono.Text = ""
        TxtCelular.Text = ""
        DdlEspecialidad.SelectedValueExist(-1)
+        DdlSubEspecialidad.SelectedValueExist(-1)
+        TxtTorre.Text = ""

        DVEstatus.Visible = False
        ChkEstatus.Checked = True
@@ -189,10 +192,13 @@ Partial Class Ventas_CatMedicos
        TxtCelular.Text = GvRow.DataKey("Celular")
        DdlEspecialidad.SelectedValueExist(-1)
        DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
+        CargaSubEspecialidad(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
+        DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
+        TxtTorre.Text = GvRow.DataKey("Torre")

        DVEstatus.Visible = True
        LbAgregar.Text = "Actualizar"
-        LtlTituloModal.Text = $"Actualizar Medico {TxtCedulaProfecional.Text}"
+        LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"

        UpModal.Update()
        RegistraScript("$('#DVAgregarMedico').modal();")
@@ -373,6 +379,7 @@ Partial Class Ventas_CatMedicos
        ChkEstatusEspecialidad.Checked = True
        UpModalEspecialidad.Update()
    End Sub
+
    Sub CargaEspecialidad()
        Dim ObjVentas As New ClsVentas

@@ -395,6 +402,26 @@ Partial Class Ventas_CatMedicos

    End Sub

+
+    Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            If CveMedicoEspecialidad > 0 Then
+                DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}")
+            Else
+                DdlSubEspecialidad.DataSource = ObjVentas.DtResultados
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        DdlSubEspecialidad.DataBind()
+        DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        UpModal.Update()
+
+    End Sub
+
    Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -440,6 +467,10 @@ Partial Class Ventas_CatMedicos



+    Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
+    End Sub
+



--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -735,7 +735,7 @@
                                                    <div class="col-md-10">
                                                        <div runat="server" class="form-group form-md-line-input input-iconright">
                                                            <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
-                                                              <asp:RequiredFieldValidator    ID="RfvDdlPrecioLista" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlPrecioLista" 
+                                                              <asp:RequiredFieldValidator    ID="RfvDdlPrecioLista" Visible="false"  InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlPrecioLista" 
                                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de Precio''</b> es necesario, por favor ingréselo." 
                                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                            <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2520,6 +2520,15 @@ Partial Class Clientes

            Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()

+
+            If Not ErrorProceso Then
+                If UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlAlmacenAsignado.SelectedValue.ToEntero = -1 Then 'limpiar ddl alamcen temporal que se  agrego temporalmente
+                    If Not GeneraGuardaAlmacenCliente(ObjClientes.IniciaTransacSQL) Then
+                        ErrorProceso = True
+                    End If
+                End If
+            End If
+
            If Not ErrorProceso Then
                'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
                If Me.CveCliente = -1 Then
@@ -2642,13 +2651,16 @@ Partial Class Clientes
            ObjClientes.RollBack()
            CargaPrecioLista()
            Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError)
+
+            If UsuarioActual.Empresa.Funcionalidad(404) = "30" And UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'limpiar ddl alamcen temporal que se  agrego temporalmente
+                CargaDdlAlmacen()
+            End If
        Else
            ObjClientes.Commit()

            If CveClienteNuevo > 0 Then
                ViewState("CveCliente") = CveClienteNuevo
            End If
-
        End If

        ObjClientes.Dispose()
@@ -5972,16 +5984,28 @@ Partial Class Clientes

        If UsuarioActual.CveEmpresa = 119 Then
            DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
-        End If
-
-
+        End If
+
+        CargaDdlAlmacen()
+
+    End Sub
+
+    Private Sub CargaDdlAlmacen()
+
+
+
        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
+            DdlAlmacenAsignado.SelectedValue = Nothing
+            DdlAlmacenAsignado.ClearSelection()
+            DdlAlmacenAsignado.Items.Clear()
+
            divAlmacenAsignado.Visible = True
            DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
            DdlAlmacenAsignado.DataBind()
            DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
-        End If
-
+
+        End If
    End Sub

    Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
@@ -10397,5 +10421,25 @@ Partial Class Clientes

    End Function

+    Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean
+
+        Dim respuesta As Boolean = True
+        Dim ObjInv As New ClsInventarios(transaccionSQL)
+
+        If ObjInv.AddAlmacen(TxtNombre.Text.Trim, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+
+            DdlAlmacenAsignado.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString))
+            DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString)
+
+            GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+
+        Else
+            respuesta = False
+        End If
+
+        Return respuesta
+
+    End Function
+
 End Class

--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -1163,131 +1163,194 @@


                                                        <div class="row">
-                                                            <label class="col-md-4 truncate">ClaveSector COFEPRIS:</label>
+                                                            <label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
                                                            <div class="col-md-8">
-                                                                <asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px"  DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                                                <asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px"  DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS" 
+                                                                    CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlClaveSectorCOFEPRIS_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
                                                            </div>
-                                                        </div>
+                                                        </div>                                                        

-                                                          <div class="row">
-                                                            <label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
-                                                            <div class="col-md-8">
-                                                                <asp:DropDownList ID="DdlClaveFormaFarmaceutica" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="FormaFarmaceuticaClave" DataValueField="CveFormaFarmaceutica" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                                            </div>
-                                                        </div>
-
-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" >
                                                          <label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtNombreIngredienteActivo" runat="server" ControlToValidate="TxtNombreIngredienteActivo" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Ingrediente Activo''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVNomQuimico" >
                                                          <label class="col-md-4 truncate">Nom Quimico:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtNomQuimico" runat="server" ControlToValidate="TxtNomQuimico" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nom Quimico''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVDenominacionGenerica" >
                                                          <label class="col-md-4 truncate">Denominacion Generica:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtDenominacionGenerica" runat="server" ControlToValidate="TxtDenominacionGenerica" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Denominacion Generica''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" >
                                                          <label class="col-md-4 truncate">Denominacion Distintiva:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtDenominacionDistintiva" runat="server" ControlToValidate="TxtDenominacionDistintiva" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Denominacion Distintiva''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVFabricante" >
                                                          <label class="col-md-4 truncate">Fabricante:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtFabricante" runat="server" ControlToValidate="TxtFabricante" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fabricante''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                          <div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" >
+                                                            <label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlClaveFormaFarmaceutica" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="FormaFarmaceuticaClave" DataValueField="CveFormaFarmaceutica" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                                                <asp:RequiredFieldValidator ID="RfvDdlClaveFormaFarmaceutica" runat="server" InitialValue="-1" ControlToValidate="DdlClaveFormaFarmaceutica" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave Forma Farmaceutica''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+
+                                                            </div>
+                                                        </div>
+
+                                                        <div class="row" runat="server" visible="false" id="DVCondicionesTransporte" >
                                                          <label class="col-md-4 truncate">Condiciones Transporte:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="TxtCondicionesTransporte" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Condiciones Transporte''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" >
                                                          <label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtRegistroSanitarioAutorizacion" runat="server" ControlToValidate="TxtRegistroSanitarioAutorizacion" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro Sanitario Autorizacion''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
-                                                          <label class="col-md-4 truncate">Permiso Importacion:</label>
-                                                          <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
-                                                          </div>
-                                                        </div>
+                                                     

-                                                        <div class="row">
-                                                          <label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
-                                                          <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
-                                                          </div>
-                                                        </div>
+                                                    

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVNumCAS" >
                                                          <label class="col-md-4 truncate">Num CAS:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtNumCAS" runat="server" ControlToValidate="TxtNumCAS" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num CAS''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
-                                                          <label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
-                                                          <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
-                                                          </div>
-                                                        </div>
+                                                       

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" >
                                                          <label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtNumRegistroPlagCOFEPRIS" runat="server" ControlToValidate="TxtNumRegistroPlagCOFEPRIS" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num Registro Plag COFEPRIS''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVDatosFabricante" >
                                                          <label class="col-md-4 truncate">Datos Fabricante:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtDatosFabricante" runat="server" ControlToValidate="TxtDatosFabricante" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Fabricante''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVDatosFormulador" >
                                                          <label class="col-md-4 truncate">Datos Formulador:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtDatosFormulador" runat="server" ControlToValidate="TxtDatosFormulador" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Formulador''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVDatosMaquilador" >
                                                          <label class="col-md-4 truncate">Datos Maquilador:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtDatosMaquilador" runat="server" ControlToValidate="TxtDatosMaquilador" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Maquilador''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

-                                                        <div class="row">
+                                                        <div class="row" runat="server" visible="false" id="DVUsoAutorizado" >
                                                          <label class="col-md-4 truncate">Uso Autorizado:</label>
                                                          <div class="col-md-8">
                                                            <asp:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtUsoAutorizado" runat="server" ControlToValidate="TxtUsoAutorizado" CssClass="help-block errorimput" Display="Dynamic"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Uso Autorizado''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          </div>
                                                        </div>

+
+
+
+
+                                                        <div class="row" runat="server" visible="true" id="DVPermisoImportacion" >
+                                                          <label class="col-md-4 truncate">Permiso Importacion:</label>
+                                                          <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtPermisoImportacion" runat="server" ControlToValidate="TxtPermisoImportacion" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Permiso Importacion:''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                          </div>
+                                                        </div>
+                                                        <div class="row" runat="server" visible="true" id="DVRazonSocialEmpImportacion" >
+                                                          <label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
+                                                          <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtRazonSocialEmpImportacion" runat="server" ControlToValidate="TxtRazonSocialEmpImportacion" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Razon Social Emp Importacion''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                          </div>
+                                                        </div>
+                                                        <div class="row" runat="server" visible="true" id="DVFolioImportacionVUCEM" >
+                                                          <label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
+                                                          <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtFolioImportacionVUCEM" runat="server" ControlToValidate="TxtFolioImportacionVUCEM" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
+                                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio Importacion VUCEM''</b> es necesario, por favor ingréselo." 
+                                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                          </div>
+                                                        </div>
+
+
+
                                                    </div>
                                                </div>
                                            </ContentTemplate>
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1,9 +1,11 @@
 Option Explicit On
 Option Strict On

+Imports System.Activities.Expressions
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.RH.Response
 Imports Extensiones
 Imports ZXing

@@ -1664,7 +1666,9 @@ Partial Class ProductosyServicios
        End Try

        If Not TieneError Then
-            GuardaDatosCartPorte()
+            If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
+                TieneError = True
+            End If
        End If

        If Not TieneError Then
@@ -3312,6 +3316,11 @@ Partial Class ProductosyServicios
            End If
        End If

+
+        If ValidaMaterialPeligrosoMensaje Then
+
+        End If
+
        ObjGrales.Dispose()

        If ValidaMaterialPeligrosoMensaje Then
@@ -3343,23 +3352,26 @@ Partial Class ProductosyServicios

        DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
        DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
+        TxtDimensiones.Text = ""
+        TxtPesoKg.Text = ""
+        'TxtNombreIngredienteActivo.Text = ""
+        'TxtNomQuimico.Text = ""
+        'TxtDenominacionGenerica.Text = ""
+        'TxtDenominacionDistintiva.Text = ""
+        'TxtFabricante.Text = ""
+        'TxtCondicionesTransporte.Text = ""
+        'TxtRegistroSanitarioAutorizacion.Text = ""
+        'TxtPermisoImportacion.Text = ""
+        'TxtFolioImportacionVUCEM.Text = ""
+        'TxtNumCAS.Text = ""
+        'TxtRazonSocialEmpImportacion.Text = ""
+        'TxtNumRegistroPlagCOFEPRIS.Text = ""
+        'TxtDatosFabricante.Text = ""
+        'TxtDatosFormulador.Text = ""
+        'TxtDatosMaquilador.Text = ""
+        'TxtUsoAutorizado.Text = ""

-        TxtNombreIngredienteActivo.Text = ""
-        TxtNomQuimico.Text = ""
-        TxtDenominacionGenerica.Text = ""
-        TxtDenominacionDistintiva.Text = ""
-        TxtFabricante.Text = ""
-        TxtCondicionesTransporte.Text = ""
-        TxtRegistroSanitarioAutorizacion.Text = ""
-        TxtPermisoImportacion.Text = ""
-        TxtFolioImportacionVUCEM.Text = ""
-        TxtNumCAS.Text = ""
-        TxtRazonSocialEmpImportacion.Text = ""
-        TxtNumRegistroPlagCOFEPRIS.Text = ""
-        TxtDatosFabricante.Text = ""
-        TxtDatosFormulador.Text = ""
-        TxtDatosMaquilador.Text = ""
-        TxtUsoAutorizado.Text = ""
+        MostrarOcultarControlesCCP(LimpiarControles:=True)

        UpCartaPorte.Update()

@@ -3411,30 +3423,147 @@ Partial Class ProductosyServicios
            TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
            TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString

+            MostrarOcultarControlesCCP(LimpiarControles:=False)
+
        End If

        UpCartaPorte.Update()

    End Sub

+    Private Sub MostrarOcultarControlesCCP(Optional LimpiarControles As Boolean = False)
+        DVClaveFormaFarmaceutica.Visible = False
+        DVNombreIngredienteActivo.Visible = False
+        DVNomQuimico.Visible = False
+        DVDenominacionGenerica.Visible = False
+        DVDenominacionDistintiva.Visible = False
+        DVFabricante.Visible = False
+        DVCondicionesTransporte.Visible = False
+        DVRegistroSanitarioAutorizacion.Visible = False
+        'DVPermisoImportacion.Visible = False '--------------
+        'DVFolioImportacionVUCEM.Visible = False '-----------
+        DVNumCAS.Visible = False
+        'DVRazonSocialEmpImportacion.Visible = False '---------
+        DVNumRegistroPlagCOFEPRIS.Visible = False
+        DVDatosFabricante.Visible = False
+        DVDatosFormulador.Visible = False
+        DVDatosMaquilador.Visible = False
+        DVUsoAutorizado.Visible = False
+
+        If LimpiarControles Then
+            DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
+            TxtNombreIngredienteActivo.Text = ""
+            TxtNomQuimico.Text = ""
+            TxtDenominacionGenerica.Text = ""
+            TxtDenominacionDistintiva.Text = ""
+            TxtFabricante.Text = ""
+            TxtCondicionesTransporte.Text = ""
+            TxtRegistroSanitarioAutorizacion.Text = ""
+            TxtPermisoImportacion.Text = ""
+            TxtFolioImportacionVUCEM.Text = ""
+            TxtNumCAS.Text = ""
+            TxtRazonSocialEmpImportacion.Text = ""
+            TxtNumRegistroPlagCOFEPRIS.Text = ""
+            TxtDatosFabricante.Text = ""
+            TxtDatosFormulador.Text = ""
+            TxtDatosMaquilador.Text = ""
+            TxtUsoAutorizado.Text = ""
+        End If
+
+
+        If DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 1 Then ' 1 - Medicamento 
+            DVDenominacionGenerica.Visible = True
+            DVDenominacionDistintiva.Visible = True
+            DVFabricante.Visible = True
+            DVClaveFormaFarmaceutica.Visible = True
+            DVCondicionesTransporte.Visible = True
+            DVRegistroSanitarioAutorizacion.Visible = True
+        ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 2 Then '2 - Precursores y químicos de uso dual 
+            DVNombreIngredienteActivo.Visible = True
+            DVNomQuimico.Visible = True
+            DVFabricante.Visible = True
+            DVClaveFormaFarmaceutica.Visible = True
+            DVCondicionesTransporte.Visible = True
+        ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 3 Then ' 3 - Psicotrópicos y estupefacientes
+            DVDenominacionGenerica.Visible = True
+            DVDenominacionDistintiva.Visible = True
+            DVFabricante.Visible = True
+            DVClaveFormaFarmaceutica.Visible = True
+            DVCondicionesTransporte.Visible = True
+            DVRegistroSanitarioAutorizacion.Visible = True
+        ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 4 Then ' 4 - Sustancias tóxicas
+            DVNomQuimico.Visible = True
+            DVNumCAS.Visible = True
+        ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 5 Then '  5 - Plaguicidas y fertilizantes
+            DVNumRegistroPlagCOFEPRIS.Visible = True
+            DVDatosFabricante.Visible = True
+            DVDatosFormulador.Visible = True
+            DVDatosMaquilador.Visible = True
+            DVUsoAutorizado.Visible = True
+        End If
+
+
+        UpCartaPorte.Update()
+    End Sub
+

    Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
        Dim Respuesta As Boolean = True
+        Dim CamposStringCCP As String = ""

-        If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 Or DdlEmbalaje.SelectedValue.ToEntero > 0 Or DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 Or DdlClaveFormaFarmaceutica.SelectedValue.ToEntero > 0 Then
+        CamposStringCCP = CamposStringCCP + TxtNombreIngredienteActivo.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtNomQuimico.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtNumCAS.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtRazonSocialEmpImportacion.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtNumRegistroPlagCOFEPRIS.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtDatosFabricante.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtDatosFormulador.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim()
+        CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim()
+
+        If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtDimensiones.Text = "" Or TxtPesoKg.Text = "") Then
+            Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg y Dimensiones  son requeridos", TipoMensaje.MsgAdvertencia)
+            Respuesta = False
+        Else
+
+            'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then
            Dim ObjPS As New ClsProductosServicios(transaccionSQL)
-
            If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero,
                TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
                TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
                TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then
                Respuesta = False
            End If
+            ' End If
+
        End If


+
+
+
+
+
        Return Respuesta

    End Function

+
+
+
+    Protected Sub DdlClaveSectorCOFEPRIS_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        MostrarOcultarControlesCCP(LimpiarControles:=True)
+
+    End Sub
+
+
+
 End Class
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -466,7 +466,7 @@
                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
                                        </td>
                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkMetodoPago" runat="server" Text="Metodo de Pago" />
+                                            <asp:CheckBox ID="ChkMetodoPago" runat="server" Text="Método de Pago" />
                                        </td>
                                        <td style="text-align: left;">
                                            <asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
@@ -477,7 +477,7 @@
                                            <asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
                                        </td>
                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número  de turnos" Visible="false" />
+                                            <asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
                                        </td>
                                        <td style="text-align: left;">
                                            
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15635,7 +15635,7 @@ Partial Class Ventas
            'SI ES REFACTURACION NO LIMPIAR EL FOLIO FISCAL
            If NuevaFactura <> 1 Then
                'SI ES UNA NOTA DE CREDITO NO TIMBRADA NO DEBE LIMPIAR 
-                If Not (DdlTipoComprobante.SelectedValue.ToString() = "Egs" AndAlso CveVenta > 0 AndAlso LblSeTimbro.Text = "No") Then
+                If Not (DdlTipoComprobante.SelectedValue.ToString().Contiene("Egs", "Dev") AndAlso CveVenta > 0 AndAlso LblSeTimbro.Text = "No") Then
                    HdnFolioFiscalNC.Value = "0"
                End If
            End If
@@ -31860,6 +31860,7 @@ Partial Class Ventas
        DdlDireccionEnvio.Enabled = True
        LnkOtraDireccion.Visible = True
        TxtAtencionA.Enabled = True
+        TxtDescripcionVenta.Enabled = True
        TxtFechaVencimientoCotizacion.Enabled = True

        TxtCantidad.Enabled = True
@@ -33627,7 +33628,7 @@ Partial Class Ventas
        ObjVentas.IniciaTransacSQL()

        If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then
+                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
            TieneError = True
        End If