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

App_Code/CFDITimbre.vb

@@ -826,7 +826,7 @@ End Class
 
 <Serializable>
 Public Class CFDICartaPorte
-    Public Property TranspInternac As String = ""
+    Public Property TranspInternac As String = "No"
     Public Property EntradaSalidaMercancia As String = ""
     Public Property ViaEntradaSalida As String = ""
     Public Property RegimenAduanero As String = ""
@@ -963,6 +963,8 @@ Public Class CFDICartaPorteMercancia
     Public Property DatosFormulador As String = ""
     Public Property DatosMaquilador As String = ""
     Public Property UsoAutorizado As String = ""
+    Public Property TipoMateria As String = ""
+    Public Property TipoMateriaDescripcion As String = ""
     Public Property PesoenKg As Decimal = 0
     Public Property ValorMercancia As Decimal
     Public Property Moneda As String = ""

App_Code/ClsClientes.vb

@@ -1024,7 +1024,8 @@ Public Class ClsClientes
     '    Return Retorno
     'End Function
     Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean
+                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "",
+                                Optional CveAlmacenAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1059,6 +1060,9 @@ Public Class ClsClientes
             .Add("@LG", SqlDbType.VarChar).Value = LG
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
+            .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+
+
         End With
 
         Try
@@ -1077,7 +1081,8 @@ Public Class ClsClientes
         Return Retorno
     End Function
     Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean
+                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1",
+                                    Optional CveAlmacenAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1115,6 +1120,8 @@ Public Class ClsClientes
             .Add("@LG", SqlDbType.VarChar).Value = LG
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
+            .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+
         End With
 
         Try

App_Code/ClsGenerales.vb

@@ -2783,12 +2783,8 @@ Public Class ClsGenerales
 
     Public Function GetSATUsosCFDI() As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_UsosCFDIGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-        End With
-        'SqlTypes.SqlDateTime.Null
+        DataAdapter("PA_Gral_SAT_UsosCFDIGet")
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2799,17 +2795,9 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-
-
-
     Public Function GetSATSectorCOFEPRIS() As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-        End With
-
+        DataAdapter("PA_Gral_SAT_CP_SectorCOFEPRISGet")
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2820,15 +2808,9 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-
     Public Function GetSATFormaFarmaceutica() As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-        End With
-
+        DataAdapter("PA_Gral_SAT_CP_FormaFarmaceuticaGet")
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2839,6 +2821,32 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
+    Public Function GetSATCPTipoMateria() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_CP_TipoMateriaGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipo de materia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetSATCPCondicionesEspeciales() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_CP_CondicionesEspecialesGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las condiciones especiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 #Region "SAT CFDI COMERCIO EXTERIOR"

App_Code/ClsPaginas.vb

@@ -1293,10 +1293,9 @@ Public Class ClsPaginas
         End Set
     End Property
 
-
-    Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable
+    Public Shared Property GlobalDT_SAT_CP_SectorCOFEPRIS() As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
+            Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjGral As New ClsGenerales()
                 If ObjGral.GetSATSectorCOFEPRIS() Then
@@ -1307,13 +1306,13 @@ Public Class ClsPaginas
             Return CType(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
+            Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS"
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable
+    Public Shared Property GlobalDT_SAT_CP_FormaFarmaceutica() As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
+            Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjGral As New ClsGenerales()
                 If ObjGral.GetSATFormaFarmaceutica() Then
@@ -1324,7 +1323,42 @@ Public Class ClsPaginas
             Return CType(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
+            Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
+    Public Shared Property GlobalDT_SAT_CP_TipoMateria() As DataTable
+        Get
+            Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjGral As New ClsGenerales()
+                If ObjGral.GetSATCPTipoMateria() Then
+                    HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
+                End If
+                ObjGral.Dispose()
+            End If
+            Return CType(HttpContext.Current.Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+    Public Shared Property GlobalDT_SAT_CP_CondicionesEspeciales() As DataTable
+        Get
+            Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjGral As New ClsGenerales()
+                If ObjGral.GetSATCPCondicionesEspeciales() Then
+                    HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
+                End If
+                ObjGral.Dispose()
+            End If
+            Return CType(HttpContext.Current.Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales"
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property

App_Code/ClsProductosServicios.vb

@@ -2352,9 +2352,9 @@ Public Class ClsProductosServicios
     End Function
 
     Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String,
-                                                            NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String,
+                                                            NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CveCondicionesEspTransporte As Integer,
                                                             RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String,
-                                                            DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean
+                                                            DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String, CveTipoMateria As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ProductosServiciosComplementosAddUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -2370,7 +2370,7 @@ Public Class ClsProductosServicios
             .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva
             .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante
             .Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica
-            .Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte
+            .Add("@CveCondicionesEspTransporte", SqlDbType.Int).Value = CveCondicionesEspTransporte
             .Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion
             .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion
             .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM
@@ -2381,6 +2381,7 @@ Public Class ClsProductosServicios
             .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador
             .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador
             .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado
+            .Add("@CveTipoMateria", SqlDbType.Int).Value = CveTipoMateria
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Timbrado.vb

@@ -11,7 +11,7 @@ Imports System.Xml.Serialization
 Imports Extensiones
 Imports Newtonsoft.Json.Linq
 Imports Profact.TimbraCFDI33.Complementos
-Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
+Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30
 
 
 Public Enum VersionTimbradoEnum As Integer
@@ -1717,7 +1717,7 @@ Public Class Timbrado
 
             ''DATOS GENERALES
             Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-            Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte()
+            Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte
             ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
             ComCartaPorte.EntradaSalidaMercSpecified = False
             ComCartaPorte.ViaEntradaSalidaSpecified = False
@@ -1803,6 +1803,44 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False
                         If concep.UUIDComercioExt <> "" Then ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt
 
+                        If concep.SectorCOFEPRIS <> "" Then
+                            'ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRIS = concep.SectorCOFEPRIS
+                            ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRISSpecified = True
+                        End If
+                        If concep.FechaCaducidad <> "" Then
+                            ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidad = concep.FechaCaducidad.ToDate
+                            ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidadSpecified = True
+                        End If
+                        If concep.FormaFarmaceutica <> "" Then
+                            ' ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceutica = concep.FormaFarmaceutica
+                            ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceuticaSpecified = True
+                        End If
+                        If concep.CondicionesEspTransp <> "" Then
+                            'ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTransp = concep.CondicionesEspTransp
+                            ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTranspSpecified = True
+                        End If
+
+                        ComCartaPorte.Mercancias.Mercancia(i).NombreIngredienteActivo = concep.NombreIngredienteActivo
+                        ComCartaPorte.Mercancias.Mercancia(i).NomQuimico = concep.NomQuimico
+                        ComCartaPorte.Mercancias.Mercancia(i).DenominacionGenericaProd = concep.DenominacionGenericaProd
+                        ComCartaPorte.Mercancias.Mercancia(i).DenominacionDistintivaProd = concep.DenominacionDistintivaProd
+                        ComCartaPorte.Mercancias.Mercancia(i).Fabricante = concep.Fabricante
+
+                        ComCartaPorte.Mercancias.Mercancia(i).LoteMedicamento = concep.LoteMedicamento
+
+
+                        ComCartaPorte.Mercancias.Mercancia(i).RegistroSanitarioFolioAutorizacion = concep.RegistroSanitarioFolioAutorizacion
+                        ComCartaPorte.Mercancias.Mercancia(i).PermisoImportacion = concep.PermisoImportacion
+                        ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM
+                        ComCartaPorte.Mercancias.Mercancia(i).NumCAS = concep.NumCAS
+                        ComCartaPorte.Mercancias.Mercancia(i).RazonSocialEmpImp = concep.RazonSocialEmpImp
+                        ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM
+                        ComCartaPorte.Mercancias.Mercancia(i).NumRegSanPlagCOFEPRIS = concep.NumRegSanPlagCOFEPRIS
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosFabricante = concep.DatosFabricante
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosFormulador = concep.DatosFormulador
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosMaquilador = concep.DatosMaquilador
+                        ComCartaPorte.Mercancias.Mercancia(i).UsoAutorizado = concep.UsoAutorizado
+
                         Dim j As Integer = 0
                         ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {}
                         For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
@@ -1822,7 +1860,7 @@ Public Class Timbrado
             If Carta.FiguraTransporte IsNot Nothing Then
 
                 If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
-
+                    ComCartaPorte.IdCCP = Guid.NewGuid().ToString
 
                     'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02
                     ComCartaPorte.Mercancias.Autotransporte = New ProfactCartaPorte.CartaPorteMercanciasAutotransporte
@@ -1835,6 +1873,7 @@ Public Class Timbrado
                     ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte)
                     ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM
                     ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM
+                    ConfigVehicular.PesoBrutoVehicular = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular
 
                     ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular
 
@@ -2599,7 +2638,8 @@ Public Class Timbrado
                     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.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion,
+                                                    If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", 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)

App_Code/Timbres.vb

@@ -304,7 +304,26 @@ Public Class Timbres
                                                                    .ValorMercancia = drr("PU").ToString.ToDecimal,
                                                                    .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
                                                                    .FraccionArrancelaria = "",
-                                                                   .UUIDComercioExt = ""
+                                                                   .UUIDComercioExt = "",
+                                                                   .SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString,
+                                                                   .NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString,
+                                                                   .NomQuimico = drr("NomQuimico").ToString,
+                                                                   .DenominacionGenericaProd = drr("DenominacionGenerica").ToString,
+                                                                   .DenominacionDistintivaProd = drr("DenominacionDistintiva").ToString,
+                                                                   .Fabricante = drr("Fabricante").ToString,
+                                                                   .CondicionesEspTransp = drr("ClaveCondicionesEspeciales").ToString,
+                                                                   .RegistroSanitarioFolioAutorizacion = drr("RegistroSanitarioAutorizacion").ToString,
+                                                                   .PermisoImportacion = drr("PermisoImportacion").ToString,
+                                                                   .FolioImpoVUCEM = drr("FolioImportacionVUCEM").ToString,
+                                                                   .NumCAS = drr("NumCAS").ToString,
+                                                                   .RazonSocialEmpImp = drr("RazonSocialEmpImportacion").ToString,
+                                                                   .NumRegSanPlagCOFEPRIS = drr("NumRegistroPlagCOFEPRIS").ToString,
+                                                                   .DatosFabricante = drr("DatosFabricante").ToString,
+                                                                   .DatosFormulador = drr("DatosFormulador").ToString,
+                                                                   .DatosMaquilador = drr("DatosMaquilador").ToString,
+                                                                   .UsoAutorizado = drr("UsoAutorizado").ToString,
+                                                                   .TipoMateria = drr("ClaveTipoMateria").ToString,
+                                                                   .TipoMateriaDescripcion = drr("TipoMateria").ToString
                                                                    }
 
                         Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero}

Bancos/IE.aspx.vb

@@ -4238,7 +4238,7 @@ Partial Class Bancos_IE
             ElseIf DdlProveedores.Visible Then
                 DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlProveedores.SelectedText}")
             ElseIf DdlPersonal.Visible Then
-                DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlPersonal.SelectedItem.Text}")
+                DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{If(DdlPersonal.SelectedItem IsNot Nothing, DdlPersonal.SelectedItem.Text, "")}")
             End If
             DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Fecha:{TxtFechaDocumento.Text}")
 

Compras/Compras.aspx.vb

@@ -1727,7 +1727,7 @@ Partial Class Compras_Compras
                             If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True
 
                             If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-                                Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+                                Dim mensajeAdvertencia As String = String.Format("El XML que intenta registrar contiene partidas o artículos con código SAT ‘01010101’ el cual no es aceptado, hable con su proveedor para cancelar y/o refacturar un XML válido.<br/> Partidas o artículos con código ‘01010101’: </br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
                                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
                                 If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not UsuarioActual.CveUsuario.Contiene(1719, 1721) Then BtnGuardar.Enabled = False '' solo se activa para el usuario Sara.JAM
                                 BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."

Contabilidad2/RepAnexoCatalogoAnual.aspx

@@ -50,21 +50,41 @@
                 <div class="portlet solid  grey-cascade portlet-filter">
                     <div class="portlet-title portlet-filterT smalltitle magindate">
                         <div class="tools">
-                            <asp:Button ID="BtnCargaAsignados" runat="server" Text="Consultar" class="btn btn-default" />
+                            <asp:Button ID="BtnCargaAsignados" runat="server" Text="Consultar" CssClass="btn btn-default" />
+                            <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                             <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                         </div>
                         <div class="titlefiltros caption ">
-                            <ul class="list-inline" style="font-size: 12px;">
-                                <li>Ejercicio Inicio:              
-                                   
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
-                                </li>
-                                <li>Ejercicio Fin:              
-                                   
-                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
-                                </li>
-                                <li>
-                                    <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
+                              <div class="row">
+                                  <div class="col-md-1 truncate">
+                                      Cuenta
+                                  </div>
+                                  <div class="col-md-3">
+                                      <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="100%">
+                                          <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                      </asp:DropDownList>
 
+                                      <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                      <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+                                  </div>
+                                 
+                          
+                            <div class="col-md-1 truncate">
+                                 Ejercicio Inicio:              
+                                  </div>
+                                    <div class="col-md-1">  
+                                        <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    </div>
+                                        <div class="col-md-1 truncate">
+                                        Ejercicio Fin:              
+                                       </div>
+                                <div class="col-md-1">  
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                </div> 
+                                <div class="col-md-1 truncate">
+                                    <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
+                                    </div>
+                                <div class="col-md-1 truncate">
                                     <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -80,35 +100,43 @@
                                         <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                     </asp:DropDownList>
 
-                                </li>
-                                <li>SubProyecto:              
+                                </div>
+                            </div>    
+                                  
+ 
+                        </div>
+                     </div>
+                        <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                                <div class="row">
+                                    
+                                    <div class="col-md-1" id="divProyecto" runat="server">
+                                        <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                                    </div>
+                                    <div class="col-md-2">
+                                        <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                                        </asp:DropDownList>
+                                    </div>
+                                    <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                                    <div class="col-md-2">
+                                        <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                                        </asp:DropDownList>
+                                    </div>
+                                     <div class="col-md-1" id="div1" runat="server">
+                                         <asp:Label ID="LblDiv" runat="server">Divisor:</asp:Label>
+                                     </div>
+                                     <div class="col-md-1">                                                       
                                    
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="180px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                </li>
-                                <li>Divisor:              
-                                   
-                                    <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me" ClientIDMode="Static">
-                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
-                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </li>
-                                 <li>Cuenta:
-                                </li>
-                                <li>
-                                    <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
-                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
-
-
-                                </li>
-
-                            </ul>
+                                        <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me" ClientIDMode="Static">
+                                            <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
+                                            <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
+                                        </asp:DropDownList>
+                                 
+                                </div>
+                            </div>
                         </div>
                     </div>
-                </div>
+              
             </asp:Panel>
         </ContentTemplate>
     </asp:UpdatePanel>

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -217,7 +217,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             DtHeadersCount = DTHeaders.Rows.Count
             GvAnual.DataSource = Conta.DSResultados.Tables(1)
 
-            Dim Index = 2
+            Dim Index As Integer = 2
             For Index = 2 To GvAnual.Columns.Count - 1
                 GvAnual.Columns(Index).Visible = False
             Next Index

Inventarios/CatUnidades.aspx

@@ -155,7 +155,7 @@
                             <div class="col-md-6">
                                     <div class="form-group form-md-line-input input-iconright">
                                         <asp:TextBox ID="TxtPesoBrutoVehicular" CssClass="form-control" runat="server" MaxLength="20"></asp:TextBox>
-                                        <label for="<%= TxtPesoBrutoVehicular.ClientID.ToString()%>">Peso bruto vehicular:</label>
+                                        <label for="<%= TxtPesoBrutoVehicular.ClientID.ToString()%>">Peso bruto vehicular:(toneladas)</label>
                                         <%--<asp:RequiredFieldValidator runat="server" ID="RfvTxtNumermisoSCT" ControlToValidate="TxtNumermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>--%>
                                         <i></i>
                                     </div>

Inventarios/EntradasSalidas.aspx

@@ -519,7 +519,7 @@
                                          <div class="row rowpadding">
                                              <label class="col-md-3">Unidad:</label>
                                              <div class="col-md-9">
-                                                 <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" OnSelectedIndexChanged="DdlUnidadCamionActivoFijo_SelectedIndexChanged"></asp:DropDownList>
+                                                 <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" OnSelectedIndexChanged="DdlUnidadCamionActivoFijo_SelectedIndexChanged"></asp:DropDownList>
                                                  <asp:RequiredFieldValidator ID="RfvDdlUnidadCamion" runat="server" Enabled="false" ControlToValidate="DdlUnidadCamion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                  <ajax:ValidatorCalloutExtender ID="VceDdlUnidadCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUnidadCamion" Width="350px"></ajax:ValidatorCalloutExtender>
                                              </div>
@@ -529,7 +529,7 @@
                                              <label class="col-md-3">Configuración:</label>
                                              <div class="col-md-9">
                                                  <%--<asp:DropDownList runat="server" ID="DropDownList1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveActivoFijo" DataTextField="CodigoDescripcion"></asp:DropDownList>--%>
-                                                 <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">
+                                                 <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">
                                                  </asp:DropDownList>
                                                  <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" Enabled="false" ControlToValidate="DdlConfigAuto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                  <ajax:ValidatorCalloutExtender ID="VCERfvDdlConfigAuto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlConfigAuto" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -538,7 +538,7 @@
                                          <div class="row rowpadding" runat="server" id="DvRemolque1" visible="false">
                                              <label class="col-md-3">Remolque 1:</label>
                                              <div class="col-md-9">
-                                                 <asp:DropDownList runat="server" ID="DdlRemolque1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" OnSelectedIndexChanged="DdlRemolque1_SelectedIndexChanged"></asp:DropDownList>
+                                                 <asp:DropDownList runat="server" ID="DdlRemolque1" AutoPostBack="true" Width="100%" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" OnSelectedIndexChanged="DdlRemolque1_SelectedIndexChanged"></asp:DropDownList>
                                              </div>
                                          </div>
                                          <div class="row rowpadding" runat="server" id="DvRemolque2" visible="false">

Inventarios/EntradasSalidas.aspx.vb

@@ -699,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
-        'CargarCamiones()
+        CargarCamiones()
         DdlClienteCarta.setEsWebService(True)
 
     End Sub
@@ -5895,20 +5895,17 @@ Partial Class Inventarios_EntradasSalidas
 
 
     Public Sub CargarCamiones()
-
-        DdlConfigAuto.Items.Clear()
-        DdlUnidadCamion.Items.Clear()
         DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
-        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
         DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))
-
     End Sub
 
     Private Sub EmitirTimbrado(CveTimbre As Integer, TipoDocto As String, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)

Nomina/Nomina.aspx

@@ -1195,7 +1195,7 @@
                                             <asp:UpdatePanel runat="server" ID="UpFonacotGrid" UpdateMode="Conditional">
                                                 <ContentTemplate>
                                                     <asp:GridView ID="GVNomFonacot" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall"
-                                                        AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="No ahi créditos fonacot registrados."
+                                                        AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron créditos fonacot registrados."
                                                         DataKeyNames="CveFonacot,CvePersonal,NumeroCredito,Descripcion,Periodo,CveTipoCalculo,ImporteCredito,ImporteFijo,PagosHechos,MontoAcumulado,Saldo,CveEstatus,Observaciones,CveUsuarioIng">
                                                         <Columns>
                                                             <asp:TemplateField HeaderText="Numero crédito">

Ventas/Clientes.aspx

@@ -881,7 +881,9 @@
                                                 </tr>
                                             </table>
 
-                                            <asp:GridView ID="GVSucursales" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteSucursal,Correo,CorreoCotizacion" EmptyDataText="No se encontraron Sucursales Registradas" ToolTip="Listado de Sucursales del Cliente" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
+                                            <asp:GridView ID="GVSucursales" runat="server" AutoGenerateColumns="False" 
+                                                DataKeyNames="CveClienteSucursal,Correo,CorreoCotizacion,CveAlmacenAsignado" 
+                                                EmptyDataText="No se encontraron Sucursales Registradas" ToolTip="Listado de Sucursales del Cliente" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
                                                 <Columns>
                                                     <asp:BoundField DataField="SucursalCliente" />
 

Ventas/Clientes.aspx.vb

@@ -661,6 +661,19 @@ Partial Class Clientes
     End Property
 
 
+    Property CveAlmacenAsignadoSucursal As Integer
+        Get
+            If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
+                ViewState("CveAlmacenAsignadoSucursal") = -1
+            End If
+            Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacenAsignadoSucursal") = value
+        End Set
+    End Property
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -1234,7 +1247,7 @@ Partial Class Clientes
             DdlPrecioLista.DataBind()
             DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
 
-            If CveFuncionalidad404.Contiene(30) Then
+            If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then
                 DivCrearPrecioLista.Visible = True
                 DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
                 DdlPrecioListaClonar.DataBind()
@@ -2523,7 +2536,7 @@ Partial Class Clientes
 
             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
+                    If Not GeneraGuardaAlmacenAsignado(TxtNombre.Text.Trim, ObjClientes.IniciaTransacSQL) Then
                         ErrorProceso = True
                     End If
                 End If
@@ -2569,13 +2582,28 @@ Partial Class Clientes
                         If Not ErrorProceso Then
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
-                                    If Not ObjClientes.AddSucursal(CveClienteNuevo, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(),
+
+                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
+                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                                        CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
+                                        If Not CveAlmacenAsignadoSucursal > 0 Then
+                                            ErrorProceso = True
+                                            Alert($"Se presento un erro al agregar el almacen de la sucursal {Row("SucursalCliente").ToString()}", TipoMensaje.MsgAdvertencia)
+                                            Exit For
+                                        End If
+                                    End If
+
+                                    If Not ErrorProceso Then
+                                        If Not ObjClientes.AddSucursal(CveClienteNuevo, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(),
                                                             Row("PaisSucursal").ToString(), Row("NumExtSucursal").ToString(), Row("NumIntSucursal").ToString(), Row("TelefonoSucursal").ToString(), Row("CorreoSucursal").ToString(), Row("CorreoCotiziacionSucursal").ToString(), Row("ContactoSucursal").ToString(),
                                                            Row("CveVendedorSucursal").ToString().ToEntero(), Row("NumCuenta").ToString(), Row("CveMetodoPago").ToString().ToEntero(), Row("LimiteCredito").ToString().ToDecimal(), Row("CveResponsableCobranza").ToString().ToEntero(),
-                                                           Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString()) Then
-                                        ErrorProceso = True
-                                        Exit For
+                                                           Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString(), CveAlmacenAsignado:=CveAlmacenAsignadoSucursal) Then
+                                            ErrorProceso = True
+                                            Exit For
+                                        End If
                                     End If
+
+
                                 End If
                             Next
                         End If
@@ -2971,11 +2999,13 @@ Partial Class Clientes
 #End Region
 
 #Region "S U C U R S A L E S"
-    Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
+    Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
+
         ChkEstatusSucursal.Checked = True
         DivEstatusSucursal.Visible = False
         TxtNumeroCuenta.Text = ""
         DdlMetodoPagoSucursal.SelectedIndex = 0
+        CveAlmacenAsignadoSucursal = -1
         UpAgregarSucursal.Update()
         Me.CveClienteSuc = -1
         Me.Actualizar = False
@@ -3008,70 +3038,93 @@ Partial Class Clientes
         End If
         Return Retorno
     End Function
-    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
-        Dim ObjCliente As New ClsClientes
-
+    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
+
+
         Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
         Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
-
-        If CveCliente > 0 Then
-            If Actualizar Then
-
-                Dim Estatus As Boolean = ChkEstatusSucursal.Checked
-
-                If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
-                                             TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                              DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then
-                    GVSucursales.EditIndex = -1
-                    ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
-                    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
-                End If
-                ObjCliente.Dispose()
-
-                If ViewState("Orden").ToString() <> String.Empty Then
-                    CargaGrid(ViewState("Orden").ToString(), 0)
-                Else
-                    CargaGrid("", 0)
-                End If
-
-            Else
-                If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
-                                          DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                           DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then
-                    TxtNombreSucursal.Text = ""
-                    TxtCiudadSucursal.Text = ""
-                    TxtColoniaSucursal.Text = ""
-                    TxtCPSucursal.Text = ""
-                    TxtDireccionSucursal.Text = ""
-                    TxtEstadoSucursal.Text = ""
-                    TxtLocalidadSucursal.Text = ""
-                    TxtPaisSucursal.Text = ""
-                    TxtNumExtSucursal.Text = ""
-                    TxtNumIntSucursal.Text = ""
-                    TxtTelefonoSucursal.Text = ""
-                    TxtCorreoSucursal.Text = ""
-                    TxtCorreoSucursalCotizacion.Text = ""
-                    TxtContactoSucursal.Text = ""
-                    DdlVendedorSucursal.SelectedIndex = 0
-                    DdlMetodoPagoSucursal.SelectedIndex = 0
-                    TxtNumeroCuenta.Text = ""
-                    TxtLimiteCreditoSucursal.Text = ""
-                    DdlResponsableSucursal.SelectedIndex = 0
-                    DdlSucursalUsoCFDI.SelectedIndex = 0
-                    DdlSucursalFormaPago33.SelectedIndex = 0
-                    DdlSucursalMetodoPago33.SelectedIndex = 0
-                    Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion)
-                    ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
-
-                    If ViewState("Orden").ToString() <> String.Empty Then
-                        CargaGrid(ViewState("Orden").ToString(), 0)
-                    Else
-                        CargaGrid("", 0)
-                    End If
-                End If
-            End If
-
+        Dim CveAlmacenAgregadoSucursal As Integer = -1
+
+
+        If CveCliente > 0 Then
+
+            Dim ProcesoOK As Boolean = True
+            Dim ObjCliente As New ClsClientes
+            ObjCliente.IniciaTransacSQL()
+
+            If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
+                If Not CveAlmacenAgregadoSucursal > 0 Then
+                    ProcesoOK = False
+                End If
+            End If
+
+            If ProcesoOK Then
+                If Actualizar Then
+                    Dim Estatus As Boolean = ChkEstatusSucursal.Checked
+                    If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
+                                                 TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
+                                                  DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
+                        GVSucursales.EditIndex = -1
+                        ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
+                        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+                    Else
+                        ProcesoOK = False
+                    End If
+                    ObjCliente.Dispose()
+
+                Else
+                    If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
+                                              DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
+                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
+                        TxtNombreSucursal.Text = ""
+                        TxtCiudadSucursal.Text = ""
+                        TxtColoniaSucursal.Text = ""
+                        TxtCPSucursal.Text = ""
+                        TxtDireccionSucursal.Text = ""
+                        TxtEstadoSucursal.Text = ""
+                        TxtLocalidadSucursal.Text = ""
+                        TxtPaisSucursal.Text = ""
+                        TxtNumExtSucursal.Text = ""
+                        TxtNumIntSucursal.Text = ""
+                        TxtTelefonoSucursal.Text = ""
+                        TxtCorreoSucursal.Text = ""
+                        TxtCorreoSucursalCotizacion.Text = ""
+                        TxtContactoSucursal.Text = ""
+                        DdlVendedorSucursal.SelectedIndex = 0
+                        DdlMetodoPagoSucursal.SelectedIndex = 0
+                        TxtNumeroCuenta.Text = ""
+                        TxtLimiteCreditoSucursal.Text = ""
+                        DdlResponsableSucursal.SelectedIndex = 0
+                        DdlSucursalUsoCFDI.SelectedIndex = 0
+                        DdlSucursalFormaPago33.SelectedIndex = 0
+                        DdlSucursalMetodoPago33.SelectedIndex = 0
+                        Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion)
+                        ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
+                    Else
+                        ProcesoOK = False
+                    End If
+                End If
+            End If
+
+
+            If ProcesoOK Then
+
+                ObjCliente.Commit()
+
+                If ViewState("Orden").ToString() <> String.Empty Then
+                    CargaGrid(ViewState("Orden").ToString(), 0)
+                Else
+                    CargaGrid("", 0)
+                End If
+            Else
+                ObjCliente.RollBack()
+            End If
+
+
+            ObjCliente.Dispose()
+
         Else
             AddSucursalTemp()
         End If
@@ -3080,12 +3133,10 @@ Partial Class Clientes
         txtLt.Text = ""
 
         UpModalDivMapa.Update()
-
-
         UpAgregarSucursal.Update()
-        CargaDdlSucursalCliente()
-        ObjCliente.Dispose()
 
+        CargaDdlSucursalCliente()
+
         Me.Actualizar = False
         Me.CveClienteSuc = -1
         RegistraScript("hideDivEC();")
@@ -3116,7 +3167,7 @@ Partial Class Clientes
 
 
             If Not CveCliente > 0 Then
-                e.Row.Cells(3).Visible = False
+                e.Row.Cells(1).Visible = False
             End If
         End If
 
@@ -3162,8 +3213,8 @@ Partial Class Clientes
 
         Me.Actualizar = True
         'Me.DivRFCSucursal.Visible = False
-        Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-
+        Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
+        CveAlmacenAsignadoSucursal = -1
 
         Dim ObjCliente As New ClsClientes
 
@@ -3203,6 +3254,8 @@ Partial Class Clientes
             txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
+            CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
+
 
             UpAgregarSucursal.Update()
             UpModalDivMapa.Update()
@@ -5431,8 +5484,20 @@ Partial Class Clientes
             TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String"))
             TempDTSucursales.Columns.Add("LT", Type.GetType("System.String"))
             TempDTSucursales.Columns.Add("LG", Type.GetType("System.String"))
-            TempDTSucursales.Columns.Add()
-
+            TempDTSucursales.Columns.Add("CveAlmacenAsignado", Type.GetType("System.Int32"))
+            TempDTSucursales.Columns.Add("CveUsoCFDI", Type.GetType("System.Int32"))
+            TempDTSucursales.Columns.Add("CveFormaPago33", Type.GetType("System.Int32"))
+            TempDTSucursales.Columns.Add("CveMetodoPago33", Type.GetType("System.Int32"))
+            TempDTSucursales.Columns.Add("Correo", Type.GetType("System.String"))
+            TempDTSucursales.Columns.Add("CorreoCotizacion", Type.GetType("System.String"))
+            TempDTSucursales.Columns.Add("LimiteCredito", Type.GetType("System.Decimal"))
+            TempDTSucursales.Columns.Add("CveResponsableCobranza", Type.GetType("System.Int32"))
+
+            TempDTSucursales.Columns.Add()
+
+
+
+
         End If
     End Sub
 
@@ -5458,15 +5523,20 @@ Partial Class Clientes
         RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero()
         RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
         RowSucursal("FechaIng") = NowADS().ToShortDateString()
-        RowSucursal("Usuario") = UsuarioActual.Usuario
-
+        RowSucursal("Usuario") = UsuarioActual.Usuario
+
+
         RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero()
         RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero()
-        RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero()
-
+        RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero()
+
+        RowSucursal("LimiteCredito") = TxtLimiteCreditoSucursal.Text.ToDecimal
+        RowSucursal("CveResponsableCobranza") = DdlResponsableSucursal.SelectedValue.ToEntero
+
+
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
-        RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
-
+        RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
+
         TempDTSucursales.Rows.Add(RowSucursal)
 
         GVSucursales.DataSource = TempDTSucursales
@@ -9738,6 +9808,14 @@ Partial Class Clientes
     Protected Sub DdlTipoCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
         TabSistema.Enabled = DdlTipoCliente.SelectedValue = "1"
 
+        Dim CveFuncionalidad404 As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
+        If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then
+            DivCrearPrecioLista.Visible = True
+        Else
+            DivCrearPrecioLista.Visible = True
+        End If
+
+
         UpDatos.Update()
     End Sub
 
@@ -9866,8 +9944,9 @@ Partial Class Clientes
         Return retorno
     End Function
 
-    Public Property Token As String = "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJDdmVQbGF0YWZvcm1hIjoiMSIsIkN2ZVVzdWFyaW8iOiIxNTM4IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVSb2wiOiIxIiwiRmVjaGEiOiJzw6FiYWRvLCAyMCBkZSBtYXJ6byBkZSAyMDIxIiwibmJmIjoxNjE2MjYzMzg2LCJleHAiOjE2MTYyNzQxODYsImlhdCI6MTYxNjI2MzM4Nn0.N_4yHZ0J41GgcXbAFfvyLvXiV-U8nRm85LoZhG1riNc"
-
+    Public Property Token As String = "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJDdmVQbGF0YWZvcm1hIjoiMSIsIkN2ZVVzdWFyaW8iOiIxNTM4IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVSb2wiOiIxIiwiRmVjaGEiOiJzw6FiYWRvLCAyMCBkZSBtYXJ6byBkZSAyMDIxIiwibmJmIjoxNjE2MjYzMzg2LCJleHAiOjE2MTYyNzQxODYsImlhdCI6MTYxNjI2MzM4Nn0.N_4yHZ0J41GgcXbAFfvyLvXiV-U8nRm85LoZhG1riNc"
+
+
     Public Class MResult
         Public Property isSuccess As Boolean
         Public Property message As String
@@ -10421,12 +10500,12 @@ Partial Class Clientes
 
     End Function
 
-    Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean
+    Private Function GeneraGuardaAlmacenAsignado(NombreAlmacen As String, 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
+        If ObjInv.AddAlmacen(NombreAlmacen, 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)
@@ -10441,5 +10520,20 @@ Partial Class Clientes
 
     End Function
 
+    Private Function GeneraGuardaAlmacenAsignadoSucursal(NombreAlmacen As String, ByRef transaccionSQL As SqlTransaction) As Integer
+
+        Dim CveAlmacenAgregado As Integer = -1
+        Dim ObjInv As New ClsInventarios(transaccionSQL)
+
+        If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+            CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
+            GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+        End If
+
+        Return CveAlmacenAgregado
+
+    End Function
+
 End Class
 
+

Ventas/ProductosServicios.aspx

@@ -1160,7 +1160,11 @@
                                                                 <asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox>
                                                             </div>
                                                         </div>
-
+                                                        <div class="row" >
+                                                            <div class="col-md-12">
+                                                                <hr />
+                                                            </div>
+                                                        </div>
 
                                                         <div class="row">
                                                             <label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
@@ -1173,7 +1177,7 @@
                                                         <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:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="1000"></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>
@@ -1181,9 +1185,9 @@
                                                         </div>
 
                                                         <div class="row" runat="server" visible="false" id="DVNomQuimico" >
-                                                          <label class="col-md-4 truncate">Nom Quimico:</label>
+                                                          <label class="col-md-4 truncate">Nom Químico:</label>
                                                           <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                            <asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="150"></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>
@@ -1191,7 +1195,7 @@
                                                         </div>
 
                                                         <div class="row" runat="server" visible="false" id="DVDenominacionGenerica" >
-                                                          <label class="col-md-4 truncate">Denominacion Generica:</label>
+                                                          <label class="col-md-4 truncate">Denominación Genérica:</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"
@@ -1201,7 +1205,7 @@
                                                         </div>
 
                                                         <div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" >
-                                                          <label class="col-md-4 truncate">Denominacion Distintiva:</label>
+                                                          <label class="col-md-4 truncate">Denominación 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"
@@ -1213,7 +1217,7 @@
                                                         <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:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="240"></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>
@@ -1221,7 +1225,7 @@
                                                         </div>
 
                                                           <div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" >
-                                                            <label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
+                                                            <label class="col-md-4 truncate">Clave Forma Farmaceútica:</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"
@@ -1234,43 +1238,38 @@
                                                         <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"
+                                                             <asp:DropDownList ID="DdlCondicionesEspTransporte" runat="server" CssStyle="width: 100%;" Width="200px"  DataTextField="CondicionesEspecialesClave" DataValueField="CveCondicionesEspeciales" 
+                                                                    CssClass="form-control input-sm select2me" ></asp:DropDownList>
+                                                              <asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="DdlCondicionesEspTransporte" 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" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" >
-                                                          <label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
+                                                          <label class="col-md-4 truncate">Registro Sanitario Autorización:</label>
                                                           <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                            <asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="15"></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> 
 
                                                         <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:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="15"></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> 
 
                                                         <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:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="60"></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>
@@ -1280,7 +1279,7 @@
                                                         <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:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></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>
@@ -1290,7 +1289,7 @@
                                                         <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:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></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>
@@ -1300,7 +1299,7 @@
                                                         <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:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></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>
@@ -1310,47 +1309,52 @@
                                                         <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:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="1000"></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" >
+                                                            <div class="col-md-12">
+                                                                <hr />
+                                                            </div>
                                                         </div>
 
-
-
-
-
                                                         <div class="row" runat="server" visible="true" id="DVPermisoImportacion" >
-                                                          <label class="col-md-4 truncate">Permiso Importacion:</label>
+                                                          <label class="col-md-4 truncate">Permiso Importación:</label>
                                                           <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                            <asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="6"></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>
+                                                          <label class="col-md-4 truncate">Razon Social Emp Importación:</label>
                                                           <div class="col-md-8">
-                                                            <asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
+                                                            <asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="80"></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>
+                                                          <label class="col-md-4 truncate">Folio Importación 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:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="25"></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 class="row">
+                                                             <label class="col-md-4 truncate">Tipo Materia:</label>
+                                                             <div class="col-md-8">
+                                                                 <asp:DropDownList ID="DdlTipoMateria" runat="server" CssStyle="width: 100%;" Width="200px"  DataTextField="TipoMateriaClave" DataValueField="CveTipoMateria" 
+                                                                     CssClass="form-control input-sm select2me" ></asp:DropDownList>
+                                                             </div>
+                                                         </div>
                                                     </div>
                                                 </div>
                                             </ContentTemplate>

Ventas/ProductosServicios.aspx.vb

@@ -459,14 +459,21 @@ Partial Class ProductosyServicios
 
     Private Sub CargaCombosPSComplementos()
 
-        DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS
+        DdlClaveSectorCOFEPRIS.DataSource = GlobalDT_SAT_CP_SectorCOFEPRIS
         DdlClaveSectorCOFEPRIS.DataBind()
         DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
 
-        DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica
+        DdlClaveFormaFarmaceutica.DataSource = GlobalDT_SAT_CP_FormaFarmaceutica
         DdlClaveFormaFarmaceutica.DataBind()
         DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1"))
 
+        DdlCondicionesEspTransporte.DataSource = GlobalDT_SAT_CP_CondicionesEspeciales
+        DdlCondicionesEspTransporte.DataBind()
+        DdlCondicionesEspTransporte.Items.Insert(0, New ListItem("-", "-1"))
+
+        DdlTipoMateria.DataSource = GlobalDT_SAT_CP_TipoMateria
+        DdlTipoMateria.DataBind()
+        DdlTipoMateria.Items.Insert(0, New ListItem("-", "-1"))
 
     End Sub
 
@@ -3411,7 +3418,7 @@ Partial Class ProductosyServicios
             TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString
             TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString
             TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString
-            TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString
+            'TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString
             TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString
             TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString
             TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString
@@ -3422,6 +3429,8 @@ Partial Class ProductosyServicios
             TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
             TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
             TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
+            DdlCondicionesEspTransporte.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveCondicionesEspTransporte").ToString)
+            DdlTipoMateria.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveTipoMateria").ToString)
 
             MostrarOcultarControlesCCP(LimpiarControles:=False)
 
@@ -3457,7 +3466,6 @@ Partial Class ProductosyServicios
             TxtDenominacionGenerica.Text = ""
             TxtDenominacionDistintiva.Text = ""
             TxtFabricante.Text = ""
-            TxtCondicionesTransporte.Text = ""
             TxtRegistroSanitarioAutorizacion.Text = ""
             TxtPermisoImportacion.Text = ""
             TxtFolioImportacionVUCEM.Text = ""
@@ -3501,8 +3509,6 @@ Partial Class ProductosyServicios
             DVDatosMaquilador.Visible = True
             DVUsoAutorizado.Visible = True
         End If
-
-
         UpCartaPorte.Update()
     End Sub
 
@@ -3516,7 +3522,7 @@ Partial Class ProductosyServicios
         CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim()
-        CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
+        ' CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim()
@@ -3528,29 +3534,22 @@ Partial Class ProductosyServicios
         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)
+        If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
+            Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg 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,
+                TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, DdlCondicionesEspTransporte.SelectedValue.ToEntero,
                 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
+                TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text, DdlTipoMateria.SelectedValue.ToEntero) Then
                 Respuesta = False
             End If
-            ' End If
-
+            ' End If 
         End If
 
-
-
-
-
-
-
         Return Respuesta
 
     End Function

Ventas/Ventas.aspx.vb

@@ -3386,9 +3386,15 @@ Partial Class Ventas
             End If
 
 
-            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso Request("VM") IsNot Nothing AndAlso IsNumeric(Request("VM")) AndAlso Request("VM").ToEntero() = 1 Then
+            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 EsVentaMedica = True
                 CargaTiposVenta()
+
+                If CveCliente > 0 Then
+                    DdlClientesWS.txtValue.Value = CveCliente.ToString
+                    DdlClientesWS.txtText.Value = LblCliente.Text
+                    DdlClientesWS.SelectedValue = CveCliente.ToString
+                End If
             End If
 
         End If
@@ -24722,7 +24728,7 @@ Partial Class Ventas
             End If
 
             If Not dt.Columns(8).ColumnName = "Tiempo Entrega" Then
-                Alert("El nombre de la octava columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError)
+                Alert("El nombre de la novena columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
 
@@ -24767,57 +24773,64 @@ Partial Class Ventas
                         CveSubProyecto = -1
                     End If
 
-                    If Codigo <> "" Then
-
-                        Using ObjPS As New ClsProductosServicios
-                            If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then
-                                If ObjPS.CvePS > 0 Then
-                                    CvePS = ObjPS.CvePS
-                                    CveUM = ObjPS.CveUnidadMedida
-                                    CveClasificacion = ObjPS.CveClasificacion
-                                Else
-                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                                End If
-                            Else
-                                RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                            End If
-                        End Using
-
-                    ElseIf CodigoBarras <> "" Then
-
-                        Using ObjPS As New ClsProductosServicios
-                            If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then
-                                If ObjPS.CvePS > 0 Then
-                                    CvePS = ObjPS.CvePS
-                                    CveUM = ObjPS.CveUnidadMedida
-                                    CveClasificacion = ObjPS.CveClasificacion
-                                Else
-                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                                End If
-                            Else
-                                RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                            End If
-                        End Using
-
-                    ElseIf ProductoServicio <> "" Then
-
-                        Using ObjPS As New ClsProductosServicios
-                            If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then
-                                If ObjPS.CvePS > 0 Then
-                                    CvePS = ObjPS.CvePS
-                                    CveUM = ObjPS.CveUnidadMedida
-                                    CveClasificacion = ObjPS.CveClasificacion
-                                Else
-                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                                End If
-                            Else
-                                RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
-                            End If
-                        End Using
-                    Else
-                        RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                    If CveSubProyecto <= 0 Then
+                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Proyecto, NumRow, "Proyecto", RowNoEncontrados)
                     End If
 
+                    If CveSubProyecto > 0 Then
+                        If Codigo <> "" Then
+
+                            Using ObjPS As New ClsProductosServicios
+                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then
+                                    If ObjPS.CvePS > 0 Then
+                                        CvePS = ObjPS.CvePS
+                                        CveUM = ObjPS.CveUnidadMedida
+                                        CveClasificacion = ObjPS.CveClasificacion
+                                    Else
+                                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                    End If
+                                Else
+                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                End If
+                            End Using
+
+                        ElseIf CodigoBarras <> "" Then
+
+                            Using ObjPS As New ClsProductosServicios
+                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then
+                                    If ObjPS.CvePS > 0 Then
+                                        CvePS = ObjPS.CvePS
+                                        CveUM = ObjPS.CveUnidadMedida
+                                        CveClasificacion = ObjPS.CveClasificacion
+                                    Else
+                                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                    End If
+                                Else
+                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                End If
+                            End Using
+
+                        ElseIf ProductoServicio <> "" Then
+
+                            Using ObjPS As New ClsProductosServicios
+                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then
+                                    If ObjPS.CvePS > 0 Then
+                                        CvePS = ObjPS.CvePS
+                                        CveUM = ObjPS.CveUnidadMedida
+                                        CveClasificacion = ObjPS.CveClasificacion
+                                    Else
+                                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                    End If
+                                Else
+                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                End If
+                            End Using
+                        Else
+                            RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                        End If
+                    End If
+
+
                     If CvePS > 0 Then
 
                         If PrecioUnitario <= 0 Then