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

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-01-03 00:14:35 -07:00
parent 540db5a324 6e6ba0dde9
commit eb7cd1b3bb
21 changed files with 537 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/CFDITimbre.vb
View File

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

11
App_Code/ClsClientes.vb
View File

@@ -1024,7 +1024,8 @@ Public Class ClsClientes
' Return Retorno ' Return Retorno
'End Function '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, 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteAdd") DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1059,6 +1060,9 @@ Public Class ClsClientes
.Add("@LG", SqlDbType.VarChar).Value = LG .Add("@LG", SqlDbType.VarChar).Value = LG
.Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
End With End With
Try Try
@@ -1077,7 +1081,8 @@ Public Class ClsClientes
Return Retorno Return Retorno
End Function 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, 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteUpdate") DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1115,6 +1120,8 @@ Public Class ClsClientes
.Add("@LG", SqlDbType.VarChar).Value = LG .Add("@LG", SqlDbType.VarChar).Value = LG
.Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
End With End With
Try Try

52
App_Code/ClsGenerales.vb
View File

@@ -2783,12 +2783,8 @@ Public Class ClsGenerales
Public Function GetSATUsosCFDI() As Boolean Public Function GetSATUsosCFDI() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_UsosCFDIGet") DataAdapter("PA_Gral_SAT_UsosCFDIGet")
With SqlAdapter.SelectCommand.Parameters
End With
'SqlTypes.SqlDateTime.Null
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2799,17 +2795,9 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function GetSATSectorCOFEPRIS() As Boolean Public Function GetSATSectorCOFEPRIS() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet") DataAdapter("PA_Gral_SAT_CP_SectorCOFEPRISGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2820,15 +2808,9 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function GetSATFormaFarmaceutica() As Boolean Public Function GetSATFormaFarmaceutica() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet") DataAdapter("PA_Gral_SAT_CP_FormaFarmaceuticaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2839,6 +2821,32 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function 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 #End Region
#Region "SAT CFDI COMERCIO EXTERIOR" #Region "SAT CFDI COMERCIO EXTERIOR"

48
App_Code/ClsPaginas.vb
View File

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

7
App_Code/ClsProductosServicios.vb
View File

@@ -2352,9 +2352,9 @@ Public Class ClsProductosServicios
End Function 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, 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, 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 Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosAddUpdate") DataAdapter("PA_ProductosServiciosComplementosAddUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -2370,7 +2370,7 @@ Public Class ClsProductosServicios
.Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva
.Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante
.Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica .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("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion
.Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion
.Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM
@@ -2381,6 +2381,7 @@ Public Class ClsProductosServicios
.Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador
.Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador
.Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado
.Add("@CveTipoMateria", SqlDbType.Int).Value = CveTipoMateria
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

48
App_Code/Timbrado.vb
View File

@@ -11,7 +11,7 @@ Imports System.Xml.Serialization
Imports Extensiones Imports Extensiones
Imports Newtonsoft.Json.Linq Imports Newtonsoft.Json.Linq
Imports Profact.TimbraCFDI33.Complementos Imports Profact.TimbraCFDI33.Complementos
Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30
Public Enum VersionTimbradoEnum As Integer Public Enum VersionTimbradoEnum As Integer
@@ -1717,7 +1717,7 @@ Public Class Timbrado
''DATOS GENERALES ''DATOS GENERALES
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte 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.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
ComCartaPorte.EntradaSalidaMercSpecified = False ComCartaPorte.EntradaSalidaMercSpecified = False
ComCartaPorte.ViaEntradaSalidaSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False
@@ -1803,6 +1803,44 @@ Public Class Timbrado
ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False
If concep.UUIDComercioExt <> "" Then ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt 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 Dim j As Integer = 0
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {} ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {}
For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
@@ -1822,7 +1860,7 @@ Public Class Timbrado
If Carta.FiguraTransporte IsNot Nothing Then If Carta.FiguraTransporte IsNot Nothing Then
If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
ComCartaPorte.IdCCP = Guid.NewGuid().ToString
'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02 'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02
ComCartaPorte.Mercancias.Autotransporte = New ProfactCartaPorte.CartaPorteMercanciasAutotransporte 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.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte)
ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM
ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM
ConfigVehicular.PesoBrutoVehicular = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular
ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular
@@ -2599,7 +2638,8 @@ Public Class Timbrado
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
If concep.ValorMercancia <= 0 Then concep.Moneda = "" 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, ""), 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) concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)

21
App_Code/Timbres.vb
View File

@@ -304,7 +304,26 @@ Public Class Timbres
.ValorMercancia = drr("PU").ToString.ToDecimal, .ValorMercancia = drr("PU").ToString.ToDecimal,
.Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
.FraccionArrancelaria = "", .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} Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero}

2
Bancos/IE.aspx.vb
View File

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

BIN
Bin/Profact.TimbraCFDI.dll
View File

Binary file not shown.

2
Compras/Compras.aspx.vb
View File

@@ -1727,7 +1727,7 @@ Partial Class Compras_Compras
If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then 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) 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 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." BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."

104
Contabilidad2/RepAnexoCatalogoAnual.aspx
View File

@@ -50,21 +50,41 @@
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle magindate"> <div class="portlet-title portlet-filterT smalltitle magindate">
<div class="tools"> <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>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<ul class="list-inline" style="font-size: 12px;"> <div class="row">
<li>Ejercicio Inicio: <div class="col-md-1 truncate">
Cuenta
<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>
</li> <div class="col-md-3">
<li>Ejercicio Fin: <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 ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList> </asp:DropDownList>
</li>
<li>
<label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
<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:DropDownList ID="DdlPeriodo" runat="server" CssClass="select2me">
<asp:ListItem Text="Enero" Value="1"></asp:ListItem> <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem> <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -80,35 +100,43 @@
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem> <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</li> </div>
<li>SubProyecto: </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> <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me" ClientIDMode="Static">
</li> <asp:ListItem Text="1" Value="1"></asp:ListItem>
<li>Divisor: <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
<asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
<asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me" ClientIDMode="Static"> </asp:DropDownList>
<asp:ListItem Text="1" Value="1"></asp:ListItem>
<asp:ListItem Text="1,000" Value="1000"></asp:ListItem> </div>
<asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem> </div>
</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>
</div> </div>
</div> </div>
</div>
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

2
Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
View File

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

2
Inventarios/CatUnidades.aspx
View File

@@ -155,7 +155,7 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPesoBrutoVehicular" CssClass="form-control" runat="server" MaxLength="20"></asp:TextBox> <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>--%> <%--<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> <i></i>
</div> </div>

6
Inventarios/EntradasSalidas.aspx
View File

@@ -519,7 +519,7 @@
<div class="row rowpadding"> <div class="row rowpadding">
<label class="col-md-3">Unidad:</label> <label class="col-md-3">Unidad:</label>
<div class="col-md-9"> <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> <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> <ajax:ValidatorCalloutExtender ID="VceDdlUnidadCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUnidadCamion" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -529,7 +529,7 @@
<label class="col-md-3">Configuración:</label> <label class="col-md-3">Configuración:</label>
<div class="col-md-9"> <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 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: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> <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> <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"> <div class="row rowpadding" runat="server" id="DvRemolque1" visible="false">
<label class="col-md-3">Remolque 1:</label> <label class="col-md-3">Remolque 1:</label>
<div class="col-md-9"> <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> </div>
<div class="row rowpadding" runat="server" id="DvRemolque2" visible="false"> <div class="row rowpadding" runat="server" id="DvRemolque2" visible="false">

9
Inventarios/EntradasSalidas.aspx.vb
View File

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

2
Nomina/Nomina.aspx
View File

@@ -1195,7 +1195,7 @@
<asp:UpdatePanel runat="server" ID="UpFonacotGrid" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpFonacotGrid" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GVNomFonacot" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" <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"> DataKeyNames="CveFonacot,CvePersonal,NumeroCredito,Descripcion,Periodo,CveTipoCalculo,ImporteCredito,ImporteFijo,PagosHechos,MontoAcumulado,Saldo,CveEstatus,Observaciones,CveUsuarioIng">
<Columns> <Columns>
<asp:TemplateField HeaderText="Numero crédito"> <asp:TemplateField HeaderText="Numero crédito">

4
Ventas/Clientes.aspx
View File

@@ -881,7 +881,9 @@
</tr> </tr>
</table> </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> <Columns>
<asp:BoundField DataField="SucursalCliente" /> <asp:BoundField DataField="SucursalCliente" />

268
Ventas/Clientes.aspx.vb
View File

@@ -661,6 +661,19 @@ Partial Class Clientes
End Property 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 Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
@@ -1234,7 +1247,7 @@ Partial Class Clientes
DdlPrecioLista.DataBind() DdlPrecioLista.DataBind()
DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1")) 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 DivCrearPrecioLista.Visible = True
DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
DdlPrecioListaClonar.DataBind() DdlPrecioListaClonar.DataBind()
@@ -2523,7 +2536,7 @@ Partial Class Clientes
If Not ErrorProceso Then 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 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 ErrorProceso = True
End If End If
End If End If
@@ -2569,13 +2582,28 @@ Partial Class Clientes
If Not ErrorProceso Then If Not ErrorProceso Then
For Each Row As DataRow In TempDTSucursales.Rows For Each Row As DataRow In TempDTSucursales.Rows
If Not CveCliente > 0 Then 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("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("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 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 ErrorProceso = True
Exit For Exit For
End If
End If End If
End If End If
Next Next
End If End If
@@ -2971,11 +2999,13 @@ Partial Class Clientes
#End Region #End Region
#Region "S U C U R S A L E S" #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 ChkEstatusSucursal.Checked = True
DivEstatusSucursal.Visible = False DivEstatusSucursal.Visible = False
TxtNumeroCuenta.Text = "" TxtNumeroCuenta.Text = ""
DdlMetodoPagoSucursal.SelectedIndex = 0 DdlMetodoPagoSucursal.SelectedIndex = 0
CveAlmacenAsignadoSucursal = -1
UpAgregarSucursal.Update() UpAgregarSucursal.Update()
Me.CveClienteSuc = -1 Me.CveClienteSuc = -1
Me.Actualizar = False Me.Actualizar = False
@@ -3008,70 +3038,93 @@ Partial Class Clientes
End If End If
Return Retorno Return Retorno
End Function End Function
Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
Dim ObjCliente As New ClsClientes
Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") 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 LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text) Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
Dim CveAlmacenAgregadoSucursal As Integer = -1
If CveCliente > 0 Then
If Actualizar Then
If CveCliente > 0 Then
Dim Estatus As Boolean = ChkEstatusSucursal.Checked
Dim ProcesoOK As Boolean = True
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, Dim ObjCliente As New ClsClientes
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(), ObjCliente.IniciaTransacSQL()
DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then
GVSucursales.EditIndex = -1 If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
ViewState("DTSucursalesCliente") = ObjCliente.DtResultados CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) If Not CveAlmacenAgregadoSucursal > 0 Then
End If ProcesoOK = False
ObjCliente.Dispose() End If
End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString(), 0) If ProcesoOK Then
Else If Actualizar Then
CargaGrid("", 0) Dim Estatus As Boolean = ChkEstatusSucursal.Checked
End If 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(),
Else DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
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, GVSucursales.EditIndex = -1
DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
TxtNombreSucursal.Text = "" Else
TxtCiudadSucursal.Text = "" ProcesoOK = False
TxtColoniaSucursal.Text = "" End If
TxtCPSucursal.Text = "" ObjCliente.Dispose()
TxtDireccionSucursal.Text = ""
TxtEstadoSucursal.Text = "" Else
TxtLocalidadSucursal.Text = "" 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,
TxtPaisSucursal.Text = "" DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
TxtNumExtSucursal.Text = "" DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
TxtNumIntSucursal.Text = "" TxtNombreSucursal.Text = ""
TxtTelefonoSucursal.Text = "" TxtCiudadSucursal.Text = ""
TxtCorreoSucursal.Text = "" TxtColoniaSucursal.Text = ""
TxtCorreoSucursalCotizacion.Text = "" TxtCPSucursal.Text = ""
TxtContactoSucursal.Text = "" TxtDireccionSucursal.Text = ""
DdlVendedorSucursal.SelectedIndex = 0 TxtEstadoSucursal.Text = ""
DdlMetodoPagoSucursal.SelectedIndex = 0 TxtLocalidadSucursal.Text = ""
TxtNumeroCuenta.Text = "" TxtPaisSucursal.Text = ""
TxtLimiteCreditoSucursal.Text = "" TxtNumExtSucursal.Text = ""
DdlResponsableSucursal.SelectedIndex = 0 TxtNumIntSucursal.Text = ""
DdlSucursalUsoCFDI.SelectedIndex = 0 TxtTelefonoSucursal.Text = ""
DdlSucursalFormaPago33.SelectedIndex = 0 TxtCorreoSucursal.Text = ""
DdlSucursalMetodoPago33.SelectedIndex = 0 TxtCorreoSucursalCotizacion.Text = ""
Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion) TxtContactoSucursal.Text = ""
ViewState("DTSucursalesCliente") = ObjCliente.DtResultados DdlVendedorSucursal.SelectedIndex = 0
DdlMetodoPagoSucursal.SelectedIndex = 0
If ViewState("Orden").ToString() <> String.Empty Then TxtNumeroCuenta.Text = ""
CargaGrid(ViewState("Orden").ToString(), 0) TxtLimiteCreditoSucursal.Text = ""
Else DdlResponsableSucursal.SelectedIndex = 0
CargaGrid("", 0) DdlSucursalUsoCFDI.SelectedIndex = 0
End If DdlSucursalFormaPago33.SelectedIndex = 0
End If DdlSucursalMetodoPago33.SelectedIndex = 0
End If 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 Else
AddSucursalTemp() AddSucursalTemp()
End If End If
@@ -3080,12 +3133,10 @@ Partial Class Clientes
txtLt.Text = "" txtLt.Text = ""
UpModalDivMapa.Update() UpModalDivMapa.Update()
UpAgregarSucursal.Update() UpAgregarSucursal.Update()
CargaDdlSucursalCliente()
ObjCliente.Dispose()
CargaDdlSucursalCliente()
Me.Actualizar = False Me.Actualizar = False
Me.CveClienteSuc = -1 Me.CveClienteSuc = -1
RegistraScript("hideDivEC();") RegistraScript("hideDivEC();")
@@ -3116,7 +3167,7 @@ Partial Class Clientes
If Not CveCliente > 0 Then If Not CveCliente > 0 Then
e.Row.Cells(3).Visible = False e.Row.Cells(1).Visible = False
End If End If
End If End If
@@ -3162,8 +3213,8 @@ Partial Class Clientes
Me.Actualizar = True Me.Actualizar = True
'Me.DivRFCSucursal.Visible = False '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 Dim ObjCliente As New ClsClientes
@@ -3203,6 +3254,8 @@ Partial Class Clientes
txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString() txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
HDMAPOP.Value = "2" HDMAPOP.Value = "2"
CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
UpAgregarSucursal.Update() UpAgregarSucursal.Update()
UpModalDivMapa.Update() UpModalDivMapa.Update()
@@ -5431,8 +5484,20 @@ Partial Class Clientes
TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String")) TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String"))
TempDTSucursales.Columns.Add("LT", Type.GetType("System.String")) TempDTSucursales.Columns.Add("LT", Type.GetType("System.String"))
TempDTSucursales.Columns.Add("LG", 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 If
End Sub End Sub
@@ -5458,15 +5523,20 @@ Partial Class Clientes
RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero() RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero()
RowSucursal("CveUsuario") = UsuarioActual.CveUsuario RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
RowSucursal("FechaIng") = NowADS().ToShortDateString() RowSucursal("FechaIng") = NowADS().ToShortDateString()
RowSucursal("Usuario") = UsuarioActual.Usuario RowSucursal("Usuario") = UsuarioActual.Usuario
RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero() RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero()
RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.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("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) TempDTSucursales.Rows.Add(RowSucursal)
GVSucursales.DataSource = TempDTSucursales GVSucursales.DataSource = TempDTSucursales
@@ -9738,6 +9808,14 @@ Partial Class Clientes
Protected Sub DdlTipoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
TabSistema.Enabled = DdlTipoCliente.SelectedValue = "1" 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() UpDatos.Update()
End Sub End Sub
@@ -9866,8 +9944,9 @@ Partial Class Clientes
Return retorno Return retorno
End Function 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 Class MResult
Public Property isSuccess As Boolean Public Property isSuccess As Boolean
Public Property message As String Public Property message As String
@@ -10421,12 +10500,12 @@ Partial Class Clientes
End Function 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 respuesta As Boolean = True
Dim ObjInv As New ClsInventarios(transaccionSQL) 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.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString))
DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString) DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString)
@@ -10441,5 +10520,20 @@ Partial Class Clientes
End Function 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 End Class

82
Ventas/ProductosServicios.aspx
View File

@@ -1160,7 +1160,11 @@
<asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox> <asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox>
</div> </div>
</div> </div>
<div class="row" >
<div class="col-md-12">
<hr />
</div>
</div>
<div class="row"> <div class="row">
<label class="col-md-4 truncate">Clave Sector COFEPRIS:</label> <label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
@@ -1173,7 +1177,7 @@
<div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" > <div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" >
<label class="col-md-4 truncate">Nombre Ingrediente Activo:</label> <label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1181,9 +1185,9 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVNomQuimico" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1191,7 +1195,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVDenominacionGenerica" > <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"> <div class="col-md-8">
<asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <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" <asp:RequiredFieldValidator ID="RfvTxtDenominacionGenerica" runat="server" ControlToValidate="TxtDenominacionGenerica" CssClass="help-block errorimput" Display="Dynamic"
@@ -1201,7 +1205,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" > <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"> <div class="col-md-8">
<asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <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" <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" > <div class="row" runat="server" visible="false" id="DVFabricante" >
<label class="col-md-4 truncate">Fabricante:</label> <label class="col-md-4 truncate">Fabricante:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1221,7 +1225,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" > <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"> <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: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" <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" > <div class="row" runat="server" visible="false" id="DVCondicionesTransporte" >
<label class="col-md-4 truncate">Condiciones Transporte:</label> <label class="col-md-4 truncate">Condiciones Transporte:</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <asp:DropDownList ID="DdlCondicionesEspTransporte" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="CondicionesEspecialesClave" DataValueField="CveCondicionesEspeciales"
<asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="TxtCondicionesTransporte" CssClass="help-block errorimput" Display="Dynamic" 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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVNumCAS" > <div class="row" runat="server" visible="false" id="DVNumCAS" >
<label class="col-md-4 truncate">Num CAS:</label> <label class="col-md-4 truncate">Num CAS:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" > <div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" >
<label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label> <label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1280,7 +1279,7 @@
<div class="row" runat="server" visible="false" id="DVDatosFabricante" > <div class="row" runat="server" visible="false" id="DVDatosFabricante" >
<label class="col-md-4 truncate">Datos Fabricante:</label> <label class="col-md-4 truncate">Datos Fabricante:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1290,7 +1289,7 @@
<div class="row" runat="server" visible="false" id="DVDatosFormulador" > <div class="row" runat="server" visible="false" id="DVDatosFormulador" >
<label class="col-md-4 truncate">Datos Formulador:</label> <label class="col-md-4 truncate">Datos Formulador:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1300,7 +1299,7 @@
<div class="row" runat="server" visible="false" id="DVDatosMaquilador" > <div class="row" runat="server" visible="false" id="DVDatosMaquilador" >
<label class="col-md-4 truncate">Datos Maquilador:</label> <label class="col-md-4 truncate">Datos Maquilador:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1310,47 +1309,52 @@
<div class="row" runat="server" visible="false" id="DVUsoAutorizado" > <div class="row" runat="server" visible="false" id="DVUsoAutorizado" >
<label class="col-md-4 truncate">Uso Autorizado:</label> <label class="col-md-4 truncate">Uso Autorizado:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div>
<div class="row" >
<div class="col-md-12">
<hr />
</div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVPermisoImportacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVRazonSocialEmpImportacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVFolioImportacionVUCEM" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</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>
</div> </div>
</ContentTemplate> </ContentTemplate>

37
Ventas/ProductosServicios.aspx.vb
View File

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

115
Ventas/Ventas.aspx.vb
View File

@@ -3386,9 +3386,15 @@ Partial Class Ventas
End If 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 EsVentaMedica = True
CargaTiposVenta() 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
End If End If
@@ -24722,7 +24728,7 @@ Partial Class Ventas
End If End If
If Not dt.Columns(8).ColumnName = "Tiempo Entrega" Then 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 Exit Sub
End If End If
@@ -24767,57 +24773,64 @@ Partial Class Ventas
CveSubProyecto = -1 CveSubProyecto = -1
End If End If
If Codigo <> "" Then 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)
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 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 CvePS > 0 Then
If PrecioUnitario <= 0 Then If PrecioUnitario <= 0 Then