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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-12-29 19:11:48 -07:00
parent a8d525c1f7 ea9df1491d
commit 4b2cde258d
42 changed files with 20121 additions and 8757 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
App_Code/ClsGenerales.vb
View File

@@ -2797,10 +2797,50 @@ Public Class ClsGenerales
End Try
Return Retorno
End Function
End Function
Public Function GetSATSectorCOFEPRIS() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los sectores COFEPRIS", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetSATFormaFarmaceutica() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las Formas Farmaceuticas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region "SAT CFDI COMERCIO EXTERIOR"
Public Function GetSATClavePedimento() As Boolean
Dim Retorno As Boolean = False

5
App_Code/ClsInventarios.vb
View File

@@ -153,6 +153,8 @@ Public Class ClsInventarios
End Get
End Property
Public Property CveAlmacenAgregado As Integer = -1
#End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -376,6 +378,7 @@ Public Class ClsInventarios
Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
Dim Retorno As Boolean = False
CveAlmacenAgregado = -1
DataAdapter("PA_Inv_AlmacenesAdd")
@@ -391,10 +394,12 @@ Public Class ClsInventarios
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
.Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
.Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
CveAlmacenAgregado = SqlAdapter.SelectCommand.Parameters("@CveAlmacenAgregado").Value.ToString.ToEntero
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then

51
App_Code/ClsPaginas.vb
View File

@@ -1292,6 +1292,43 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable
Get
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATSectorCOFEPRIS() Then
HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If
Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable
Get
Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATFormaFarmaceutica() Then
HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If
Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable
Get
Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}"
@@ -5809,6 +5846,11 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Tipo", TipoDocumento))
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
@@ -5909,6 +5951,11 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
params.Add(New ReportParameter("CveAlmacenTraspasoOrigen", Vta.CveAlmacenTraspasoOrigen.ToString))
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
Case "Pd2"
@@ -6220,7 +6267,7 @@ Public Class ClsPaginas
Dim paramsArray As New JArray()
For Each rds As ReportDataSource In DataSource
Dim Nombre As String = rds.Name
If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") Then
If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
Select Case rds.Name
Case "DsOC"
Nombre = "DtDetalle"
@@ -9424,6 +9471,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
PaginaDict.Add("/Ventas/CatEspecialidadesSubEspecialidades.aspx".ToUpper(), 1346)

63
App_Code/ClsProductosServicios.vb
View File

@@ -2331,4 +2331,67 @@ Public Class ClsProductosServicios
Return Retorno
End Function
#Region " P S C O M P L E M E N T O S"
Public Function GetProductosServiciosComplementos(CvePS As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String,
NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String,
RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String,
DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosAddUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
.Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
.Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
.Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
.Add("@CveSectorCOFEPRIS", SqlDbType.Int).Value = CveSectorCOFEPRIS
.Add("@NombreIngredienteActivo", SqlDbType.VarChar).Value = NombreIngredienteActivo
.Add("@NomQuimico", SqlDbType.VarChar).Value = NomQuimico
.Add("@DenominacionGenerica", SqlDbType.VarChar).Value = DenominacionGenerica
.Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva
.Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante
.Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica
.Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte
.Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion
.Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion
.Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM
.Add("@NumCAS", SqlDbType.VarChar).Value = NumCAS
.Add("@RazonSocialEmpImportacion", SqlDbType.VarChar).Value = RazonSocialEmpImportacion
.Add("@NumRegistroPlagCOFEPRIS", SqlDbType.VarChar).Value = NumRegistroPlagCOFEPRIS
.Add("@DatosFabricante", SqlDbType.VarChar).Value = DatosFabricante
.Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador
.Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador
.Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al guardar los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
End Class

13
App_Code/ClsRH.vb
View File

@@ -4,6 +4,7 @@ Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Imports Profact.TimbraCFDI40
Public Class ClsRH
@@ -147,41 +148,45 @@ Public Class ClsRH
Return retorno
End Function
#Region "CRUD_VacacionesEmpresas"
Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean
Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean
Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean
Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean
Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.")
Return retorno
End Function

27
App_Code/ClsTransportes.vb
View File

@@ -298,23 +298,22 @@ Public Class ClsTransportes
End Function
Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
If Activar Then
Dim Retorno As Boolean = False
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_ViajesPasajerosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
With SqlAdapter.SelectCommand.Parameters
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
Return Retorno
End If
End Function
#End Region

114
App_Code/ClsVentas.vb
View File

@@ -604,13 +604,14 @@ Public Class ClsVentas
End Function
Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
Pedido As String, OrdenCompra As String, FechaPago As String) As Boolean
Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasObservacionesUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
.Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
.Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
.Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones
@@ -1721,7 +1722,7 @@ Public Class ClsVentas
Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1,
Optional ServicioDomicilio As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_GetRepPS33")
DataAdapter("PA_Vta_GetRepPS")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
@@ -1755,7 +1756,6 @@ Public Class ClsVentas
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
.Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
.Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
End With
Try
@@ -6005,7 +6005,8 @@ Public Class ClsVentas
Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1,
Optional Torre As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosAdd")
@@ -6026,6 +6027,8 @@ Public Class ClsVentas
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@Torre", SqlDbType.VarChar).Value = Torre
End With
@@ -6040,7 +6043,8 @@ Public Class ClsVentas
End Function
Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1,
Optional Torre As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosUpdate")
@@ -6061,6 +6065,9 @@ Public Class ClsVentas
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@Torre", SqlDbType.VarChar).Value = Torre
End With
Try
@@ -6093,7 +6100,7 @@ Public Class ClsVentas
#End Region
#Region "ESPECIALIDADES"
#Region "E S P E C I A L I D A D E S"
Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
@@ -6182,6 +6189,101 @@ Public Class ClsVentas
#End Region
#Region "S U B E S P E C I A L I D A D E S"
Public Function GetMedicosSubEspecialidades(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosSubEspecialidadesGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las SubEspecialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddMedicoSubEspecialidad(CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosSubEspecialidadesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al guardar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosSubEspecialidadesUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosSubEspecialidadesRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region "PRODEDIMIENTOS"
Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean

1
App_Code/LogicNominas.vb
View File

@@ -20,6 +20,7 @@ Public Class LogicNominas
sw.Start()
End If
hasfiniquito = False
CvePAC = 4
Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
If Not cfdi.Timbrado Then

1
App_Code/Modelos.vb
View File

@@ -7959,6 +7959,7 @@ Namespace Modelos
Public Property ImprimeNombreSucursal As Integer
Public Property CobranzaCorreo As String
Public Property UsaProductoAlterno As Boolean = False
Public Property Documentacion As String = ""
End Class
<Serializable>

199
App_Code/Timbrado.vb
View File

@@ -29,7 +29,7 @@ Public Class Timbrado
Public Property CancelacionMensaje As String
Public Property CancelacionFecha As Date
Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
Public Const LigaVerificacionSATCCP As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/verificaccp/default.aspx"
Public Class AcuseCancelacionSAT
Public Property CodigoEstatus As String
Public Property EsCancelable As String
@@ -2507,103 +2507,34 @@ Public Class Timbrado
#Region "C O M P L E M E N T O C A R T A P O R T E"
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
''DATOS GENERALES
cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
'UBICACIONES
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
'origen
cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
Next
End If
'MERCANCIAS
If Carta.Mercancias IsNot Nothing Then
cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
If concep.ValorMercancia <= 0 Then concep.Moneda = ""
cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
Next
Next
End If
End If
'
If Carta.FiguraTransporte IsNot Nothing Then
If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
Next
End If
End If
If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
cfdi.CartaPortePartesTransporte("PT01")
cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
End If
Next
End If
End If
End If
'If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
' ''DATOS GENERALES
' cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
' cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
' 'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
' 'UBICACIONES
' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
' 'origen
' cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
' cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
' 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
' cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
' cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
' Next
' End If
' 'MERCANCIAS
' If Carta.Mercancias IsNot Nothing Then
' cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
' cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
' If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
' If concep.ValorMercancia <= 0 Then concep.Moneda = ""
' cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""),
' concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
' concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
' cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
' For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
' cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
' cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
' Next
' Next
' End If
@@ -2613,18 +2544,18 @@ Public Class Timbrado
' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
' cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
' cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
' cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
' cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
' cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
' cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
' cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
' cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
' Next
' End If
@@ -2632,10 +2563,10 @@ Public Class Timbrado
' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
' cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
' cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
' cfdi.CartaPorte30PartesTransporte("PT01")
' cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
' cfdi.CartaPortePartesTransporte("PT01")
' cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
' End If
' Next
' End If
@@ -2644,6 +2575,70 @@ Public Class Timbrado
'End If
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
''DATOS GENERALES
cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
'UBICACIONES
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
'origen
cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
Next
End If
'MERCANCIAS
If Carta.Mercancias IsNot Nothing Then
cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion)
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
If concep.ValorMercancia <= 0 Then concep.Moneda = ""
cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""),
concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado,
concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
Next
Next
End If
End If
'
If Carta.FiguraTransporte IsNot Nothing Then
If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
Next
End If
End If
If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
cfdi.CartaPorte30PartesTransporte("PT01")
cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
End If
Next
End If
End If
End If
#End Region
@@ -2652,7 +2647,6 @@ Public Class Timbrado
If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA,
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR,
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS,
@@ -2975,15 +2969,12 @@ Public Class Timbrado
sw.Start()
'Verifica el error
If cfdi.Mensaje = "" Then
Dim FolioFiscal As String
Dim SelloCfdi As String
UUID = cfdi.CfdiInfo.UUID
FolioFiscal = cfdi.CfdiInfo.UUID
SelloCfdi = cfdi.CfdiInfo.SelloCfdi
If FolioFiscal <> "" Then
If UUID <> "" Then
cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
@@ -2997,7 +2988,7 @@ Public Class Timbrado
Using ObjNomina2 As New ClsNominas()
If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
Retorno = ""
Else
Retorno = "Error"
@@ -3007,7 +2998,7 @@ Public Class Timbrado
Case "T"
Dim objGrales As New ClsGenerales
If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, UUID, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
Retorno = ""
Else
Retorno = "Error"
@@ -3015,7 +3006,7 @@ Public Class Timbrado
objGrales.Dispose()
Using ObjInv As New ClsInventarios()
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, UUID, MinFecha) Then
Retorno = ""
Else
Retorno = "Error"
@@ -3030,7 +3021,7 @@ Public Class Timbrado
Using ObjVentas As New ClsVentas()
If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
If ObjVentas.UpdateEstatusFactura(3, UUID, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
Retorno = ""
Else
Retorno = "Error"
@@ -3055,12 +3046,30 @@ Public Class Timbrado
Try
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
Dim qrCode As New GoFac.QrCode()
Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
File.WriteAllBytes(RutaCBB, bCBB)
bCBB = Nothing
Catch ex As Exception
OnError("Ocurrió un error al generar el QR", ex)
End Try
'genero el nuevo qr, de carta porte
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
Try
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}_CCP.jpg"
Dim qrCode As New GoFac.QrCode()
Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}")
File.WriteAllBytes(RutaCBB, bCBB)
bCBB = Nothing
Catch ex As Exception
OnError("Ocurrió un error al generar el QR", ex)
End Try
End If
Retorno = ""
Else
Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
@@ -3336,7 +3345,7 @@ Public Class Timbrado
Else
Retorno = result.mensaje
MensajeErrorCFDI = result.codigo
'If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
cfdi.EscribirXml(RutaArchivo & "\" & NombreArchivoXML)
End If
End If
Else

13
Ashx/CargaEventos.ashx
View File

@@ -1,12 +1,7 @@
<%@ WebHandler Language="VB" Class="CargaEventos" %>
Option Explicit On
Option Explicit Off
Option Strict On
Imports System
Imports System.Web
Imports System.Collections
Imports System.Collections.Generic
Imports System.Web.SessionState
Imports System.Data
Imports Extensiones
@@ -17,8 +12,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
context.Response.ContentType = "text/plain"
Dim CveUsuario = -1
Dim CveEmpresa = -1
Dim CveUsuario As Integer = -1
Dim CveEmpresa As Integer = -1
Dim FI As Date
Dim FF As Date
@@ -425,7 +420,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
Get
UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG", Nothing)), Usuario)
UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario)
End Get
End Property

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

83
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2145,6 +2145,7 @@ Partial Class PopUpVerFactura
'EMISOR
Dim LugarExpedicion As String = ""
Dim ImgCBB As String = ""
Dim ImgCCP As String = ""
'COMPROBANTE
Dim SerieFolio As String = ""
Dim Telefono As String = ""
@@ -2175,6 +2176,7 @@ Partial Class PopUpVerFactura
Dim PlacaVM As String = ""
Dim AnioModeloVM As String = ""
Dim PesoBrutoVehicular As String = ""
'TIMBRADO
Dim FolioFiscal As String = ""
Dim NoCertificadoSAT As String = ""
@@ -2270,23 +2272,62 @@ Partial Class PopUpVerFactura
Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
Dim RutaCCP As String = String.Format("{0}\CBB\{1}_CCP.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCCP As New System.IO.FileInfo(RutaCCP)
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version")
Dim VersionCCP As String = ""
Dim PrefijoCCP As String = ""
'Try
' 'XDocument doc = XDocument.Parse(Xml);
' 'String Version = doc.Descendants("cartaporte30:CartaPorte").First().Attribute("version").Value;
' Dim NodoVersionCCP As XmlNode = XMLDoc.Descendants("cartaporte30:CartaPorte")
' If NodoVersionCCP IsNot Nothing Then
' VersionCCP = ValorXML(NodoVersionCCP, "version")
' Else
' VersionCCP = "2.0"
' End If
'Catch ex As Exception
'End Try
If Version = "3.3" Then
cfdVer = "http://www.sat.gob.mx/cfd/3"
Else ' se considera que es la version 4.0
cfdVer = "http://www.sat.gob.mx/cfd/4"
End If
params.Add(New ReportParameter("CFDIVersion", Version))
namespaces.AddNamespace(Prefijo, cfdVer)
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30")
Dim Nodos30 = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces)
Dim Nodos20 = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces)
If Nodos30 IsNot Nothing Then
VersionCCP = "3.0"
PrefijoCCP = "cartaporte30"
End If
If Nodos20 IsNot Nothing Then
VersionCCP = "2.0"
PrefijoCCP = "cartaporte20"
End If
params.Add(New ReportParameter("CartaPorteVersion", VersionCCP))
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
If nodeComprobante IsNot Nothing Then
@@ -2320,24 +2361,25 @@ Partial Class PopUpVerFactura
End If
Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante/{0}:Complemento", Prefijo), namespaces)
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces)
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", PrefijoCCP), namespaces)
If nodeCartaPorte IsNot Nothing Then
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
End If
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces)
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", PrefijoCCP), namespaces)
If nodeAutotransporteFederal IsNot Nothing Then
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
End If
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces)
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", PrefijoCCP), namespaces)
If nodeIdentificacionVehicular IsNot Nothing Then
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
PesoBrutoVehicular = ValorXML(nodeIdentificacionVehicular, "PesoBrutoVehicular", "")
End If
Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces)
Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", PrefijoCCP), namespaces)
If nodeIdentificacionVehicular IsNot Nothing Then
AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")
@@ -2350,7 +2392,7 @@ Partial Class PopUpVerFactura
End If
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces)
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", PrefijoCCP), namespaces)
If nodeRemolques IsNot Nothing Then
If nodeRemolques.ChildNodes.Count = 1 Then
@@ -2370,7 +2412,7 @@ Partial Class PopUpVerFactura
' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
'End If
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces)
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeMercancias
Dim Row As DataRow = DtMercancias.NewRow
@@ -2385,7 +2427,7 @@ Partial Class PopUpVerFactura
DtMercancias.Rows.Add(Row)
Next
Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces)
Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", PrefijoCCP), namespaces)
If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
@@ -2396,7 +2438,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias))
End If
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces)
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeOperadores
Dim Row As DataRow = DtOperadores.NewRow
@@ -2408,7 +2450,7 @@ Partial Class PopUpVerFactura
Next
Dim DistanciaTotal As Decimal = 0
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces)
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeUbicaciones
Dim Row As DataRow = DtUbicaciones.NewRow
@@ -2419,7 +2461,7 @@ Partial Class PopUpVerFactura
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = $"{PrefijoCCP}:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
If nodeDomicilio IsNot Nothing Then
Dim Estado As String = ""
@@ -2515,6 +2557,23 @@ Partial Class PopUpVerFactura
ImgCBB = ""
End If
'FIXME OICCHECAR DESPUES DE SINCRONIZAR TIMBRADO
'If Not ImagenCCP.Exists Then
' Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
' CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
'End If
ImagenCCP = New System.IO.FileInfo(RutaCCP)
If ImagenCCP.Exists Then
ImgCCP = String.Format("file://{0}", ImagenCCP.FullName)
Else
ImgCCP = ""
End If
End If
If DtConceptos.Rows.Count > 0 Then
@@ -2550,9 +2609,12 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("PlacaVM", PlacaVM))
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
params.Add(New ReportParameter("PesoBrutoVehicular", PesoBrutoVehicular))
'TIMBRADO
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
params.Add(New ReportParameter("QR", ImgCBB))
params.Add(New ReportParameter("QRCCP", ImgCCP))
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
@@ -2981,6 +3043,7 @@ Partial Class PopUpVerFactura
Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString
Vta.RefDocto = dtVentas(0)("Ref").ToString
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero

8761
Empresas/13/Formatos/CartaPorteTimbrado.rdlc
View File

File diff suppressed because it is too large Load Diff

4048
Empresas/186/Formatos/Cotizacion.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

256
Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc Normal file
View File

@@ -0,0 +1,256 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Textbox Name="PS">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!PS.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>PS</rd:DefaultName>
<Top>0.14111cm</Top>
<Left>2.48778cm</Left>
<Height>1.1761cm</Height>
<Width>6.93443cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Lote">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Lote.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Lote</rd:DefaultName>
<Top>1.36307cm</Top>
<Left>3.92323cm</Left>
<Height>0.30367cm</Height>
<Width>3.91148cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="FechaCad">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!FechaCad.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
<Format>d/MM/yy</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>FechaCad</rd:DefaultName>
<Top>1.75846cm</Top>
<Left>5.45111cm</Left>
<Height>0.2878cm</Height>
<Width>2.3836cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Image Name="qr">
<Source>Database</Source>
<Value>=Parameters!QR.Value</Value>
<MIMEType>image/bmp</MIMEType>
<Sizing>FitProportional</Sizing>
<Top>0.03175cm</Top>
<Height>2.31083cm</Height>
<Width>2.42605cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>LOTE:</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.36307cm</Top>
<Left>2.52094cm</Left>
<Height>0.30367cm</Height>
<Width>1.2259cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>F. ELABORACIÓN:</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.75846cm</Top>
<Left>2.52094cm</Left>
<Height>0.2878cm</Height>
<Width>2.82222cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Image Name="Logo">
<Source>Embedded</Source>
<Value>Logo</Value>
<Sizing>FitProportional</Sizing>
<Top>1.5468cm</Top>
<Left>8.2016cm</Left>
<Height>0.74287cm</Height>
<Width>1.52823cm</Width>
<ZIndex>6</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
</ReportItems>
<Height>0.92351in</Height>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Body>
<Width>3.83898in</Width>
<Page>
<PageHeight>2.5cm</PageHeight>
<PageWidth>10cm</PageWidth>
<LeftMargin>0.02cm</LeftMargin>
<RightMargin>0.02cm</RightMargin>
<TopMargin>0.02cm</TopMargin>
<BottomMargin>0.02cm</BottomMargin>
<Style />
</Page>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="QR">
<DataType>String</DataType>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PS">
<DataType>String</DataType>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Lote">
<DataType>String</DataType>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FechaCad">
<DataType>String</DataType>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAAS4AAAC3CAYAAACsXrN8AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAB0CSURBVHhe7Z3djyXHWcaHG4S4sYU0s0qi4AjHIEXIu5sYLJDWWisXsGtHtjeeGaMIsUKQSNx4d7O7xt4Zz1o2/oDYWWMbGzlCi1AswwUziYlswOvdoAiZD6EVDmCHC+8fkItxUOByqae63jPVdd7qrj5d/XFmnp/0aqarq6urq6ueft/qOucsEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCJlH7rlh48bVxbXjK4trW6tLa1dWFtcvrO47d9jtJoSQcbG8uHHACNW11aX169O2dtFlI4SQcWA9raX17WnB8mxx/bzLTggh/XH0wc0Dd3118zDs6KnN40dObp6H3ferz7+lilVgd3/lr56WY3w7enLzgpZ+5NTmvXI+VwVCCJlmIk4nN09UCcmvPbj5KXfIAuazNKGasobzXb5Q+vVA3cI6EEL2CBj4oSiION3z4OaNLlstqcK1srR+wh3SCtQNdfS9PtSbQkbILkQGvHhTGPjYdrtnpniLqItVyTp8wwjvTIQMf7HtdhFC5hHxqiTEauJNpYAlEKpQlW3bZe8ceF7wwETE6IkRMidgsIoHksOrqsMI09VAqMpmxM1l7ZWwHYo3oDuhLdaauayEkKGwE9rGs+rb0/jCFy/eunLT4++XxAq2b/3HQ4lWCITr/p9/crqOXKpByDCIYCFEyh0K1oHzQSjx1y5EXVo/ATGAYN31u68/3Hd9qpgSLWtrV9xuQkgfTEKhAQRLwLljk+FIx363OTja6v7lTz522e0mhHSNFYyeQ8KQFGGCJzgWr2v5lidPh8J1751/
siYeo8tGCGmLm1C+iJAGSw+O3f7sUTuPFfFy+kK8PbcZZSxel9T3i59+8u77f/GZ7658fONphLaybwxtSsiuwXgF5Td2+x7932N3vniT2z0I8E6aeClDe10QJF9k8ZbR/VtCvFh6X4S0AB5BSbTEBn5Th8HdJEQd0uvSzh0TLiCeWZPrI4R4xITLhDqPuiy9Y72SGUKqIbyumGBWCRcQj5LiRcgMYAAtf+L8h75orSytfXTXb7/+pcmiyh7FQLwRt9mIvr2uqvPVCZeAa51FpAnZs0CQMPCwuNOfnJcJZQDhspPKPXgH4oW0Ecq+vC60S5VIpgoXQDkoz20SQmKIaKWKkXhC4oW55KzkEMc+vK46obFi37CNZjmGkD1HG5HAAIOANRG+OlBWrpCpS68rpZ6zilDONiBk15FrgKAMCKANJRuUd3n/Q4dhbjO7l5S7PCG13dp4TxQvQhS6GNQSdooXFvN2Lh08c/6dA2e23zl49rrYm7c9/DSEz2XJRm6vq4mgNJnf0sgRMhOya5B5KrfZCRjc1gMz5/EH+qWDZy/4guXb3/zyI3/msmUjp0A3ES3QVrgguGi/rsJdQuaKLud+QiCS4oV99Tf+9AFNsHwzoWN2DyPH9YYCnEJb4QJ9PGQIGT1NvYacvPr5p57WxMq3tz97Nnu42MbrEq9nlpAth3CBnF4jIXPH0E9viJImVr5h/stlz8osXhfyQzBmES2QS7jArOJJyNwzdOe/vP/0AU2sfLu8/0wnnkVTr6WtaOF4iKXbbE3u8giZC8YSbrxz8MxVTbCsHTh7zWXrhFSvq61ogTZLIWIwZCR7jhwT1DnA5LsmXm9+7uEf/sUdjx1y2TohZeCjjXJ4pl0IF2DISPYMY3pSY9BBRP/88OOPXjp45iIMc1+nH3j11j4GZZWAi2jlEPiurgV1Y8hI9gRj8bYgoFXCgPS2IVodr37+qZPfue2RD4vQ9Mw2hPPy/gdvxDlziRbIOTEfgjZC
W7pNQnYfMiDd5iCIIKV4fciL+nYxMC/vP308DFFhf/+53//P3/rKN7+US7RAl8IFui6fkEEZ+ukswtm0DqlCl0oxtzYtWmJ/e9vDL7usWehaWLqaQyNkFAz5ZK4LDesIj/+vlxc+9eHXF2YqK+ZtiV06eDbrbx720e70usiuBAM/p9eSioR7Oc4tHtt/vPCTr/3gpYXrsA9eWmg8YGsXv2ZeitGHqNDrIrsSDPguJ7o1RGhynvft5245JKIl5nYlU7f49dLBM1sua2v6fGDQ6yK7jr47ddvQMMYHLy4caCtcENI3bn/k+5powfzvBWtLn54QBBLt7jYJmW/E83GbnZIzNNTAwHz72U//s4iWEbILblcS0haPH3vxJsxllUTrwNmPnj/ytW/kFNs+hQv15rousmvo60ncRWgo2JDLeI24FgxQeF6YoHe7kxAv0G1aEDbCwxIvC3WXc9gMLel73VxX7U9I7/QRJooo5B6k8FZEsFzSTNhyEssQAXabreg7RM9Zd0IGpcvBA6HCQGkrLCEiWDnCLNStaTnWw8twTX0LF+jhnPDocA4sG8Ecoxjexl40ltLWiABwfGhNQV20cppEGOGxTaYf8JAIj9cM7YI2q6qXdlxT2x0PLQiLNu/x3y8sHP7gpYUtzBHNuh5Knu45Q5OcggUgPrOGyW2OFQYRrgz1rgDX44tVzDCIqvoF7q92XNOHBfq2Vk5q/0E7hcduG0sltT18g8Br9dPyNrXe+1snQABCEcDckP9WzogXOlkj7ODIGBrmFizxBFsLT0sRGEK4Yg+rDMBr0AZLzCAAsbaLCRfO0YSrxrRyUvsRPBTt+NSH8SzCJRZ6R1qeprY7hEsbePC2fOGCuV1RjLgdx2LPf7jw8btzCALAAEP9cgoWkHJzeYJtvMohhGtlae3elU9sbK8urV/Hr5Cv7tvI0Q4xz6bOIF7awy0mXE28HVyXVgYstT/FxDg15GojXDDfw9T2N7VdIlzKwIHH
ZYRoW0SrzuOCYPki981n7jjqds2ECAu8gtwhTRfhq3hv+OuSktC83a5Z3XfuMAQrMHglbcB1Q1C0gZJimhcVEy5YqmhUiWlqu8c8ttR5rrbC5Qu7tr+p7V7hAvC6/uXCz3z70nM3v1E3xwVh84Vrlo/ZgC4FC0CsUH5TgUlhlrIHEa7F9fOKcF1fXtxo095VAoGHHvoDBjrmbrQ8sLDdqoQr9ZMLMdGBpbQ76qQdC0sV+5hwId23qrqKUIfHiGnHSLuH1mt/64y6UCUllAk9LiNkjQZB14IFUO4sXlETxJtzm7Xgmru63hjLNz/xiiZcLcNFDBJt8IRtgbaPDdAwb5VwweruY1WYCEsZwHV1SAHjJ/VYtIGWt06otWNqx+1ck0O4wA9eWDgBAXv/Jf2tD9LNfvuWUhaGQkQw0LsULICyIRJus1OanCu1bdsi3iDO94Xli19e3bf+o7JwrTV++RKgDZzYYEPbaPnDtqgTjboHBDw87TixFOFCnbRjxdqUEUMT9rp5vTA/rJe+NRi1wpXBKzBidbzskf3Ej37zzEu/B8HKOdekgVCsL9ESUtusS+HCQ8FeuzkHHg5+fRAWYlJ++ZPnr97/C09dvOeGjTZeaMyzqWpzLX/YFnXCVeeFVIWlsBTRiXmSYin3D3m0Y2PEwu4qtPyd9a1RUDd4cngr4RwYbOuPDj7gdncG6t33HJKQIl5dCBfOiQeCtZprbxraRogJTNW5tfxhW8TK9S0muGh3Lb9vKf2i7oVDylxbU+Hqqj13B5On7s1PXDOhQuVTt+0A04QLk/9udyeEXsYQoA5VHmUu4fJDQfxtMo+XoQ5dDbRYub7FRLcuTITV9b8U8UtZmoHr0o6N0VV7zj8QqdWldbuOx7PoW5K2nRvzW4Fwpb6RaYzMm3UdgqYgdYkJSZt2rQoFm5BBuGIDvG14niJcsX5UFybC6oRLC9m0cuvancKVi9XFteOBaBW275zaODmEwH2E6Dwm8Wf9
CFEdGMzwOMYgWoJ4Q6F4IR3t6jaTgVilhoIpoJyYsDZAGzhNPs+nERvAoYX3OsVTgtW1nbbwVPPk6u4hhSsXTYXLDpYMg6RLRAjGJFqCL1L4Pnt8z9d3fumRq9++/dz3sG0zVSDHwzvCfcggNBMy3duYh9OmXByrlRkaPCOflDARVle38JoQFmp1qvsIUlPh4uR8DKzZMUIVhorbXc5zdQkGdtO5nb5BKDf5jcbA8HuNLtsE8R4lFOxKkDMJV+xjMTDsmyWMTRWuMFysm1AXq7pm9KMwvywZCdPrpj2aChfKC/NCRKsI88N2n3ABTM4bsboK0bKT9DUrp8cqXBAEDOwxixYw4nReEy0x8byskLhQsI+XC2g3nMttzkpKeIYBiWtMvU8x4dIGtoi6tkYsJmRVwqWVI/1fO3/VNTURrpi3WOfVacfsTuFqSqa5kKxgYMMrcZujBr8MpAmW2LduP/d+F6FgCpkeSlVel28QEuSt8yBjwqWFUlJ/rQ6xelUJlyY20s+wBCLc17QsGNLF4M1VvVCoKh9ox6BccuTUX99tPYEBBpaGDaPmRLSAJla+vXXbQ++6rL2TSbjQJ7RBXWVV540JFwQvTJNQSvOuNO8JViUG2sJT8X5R53Bf1XVo+ZtYyqcatONy3NP5BgJhwrGPjp7aum7t5NZ2H2FMDFufAc8/C+8cOLOtCZZY7h+ZbULmaQB4RKnzTLDYuWPCBbRwTRMICGmsnCrh0vILWnlV966NcOE6U5wE7VgKlxUqES1nR05u1U0YtgbLJrCMwl8+gfmseRMtgAl4TbDE8CO0LmvvdDB/ifuF66kKf3zTPOcq4Up9c4g5tabCpc3X+cKEawv3Q6hjzCpcOGeKaAHt+L0tXAgNQ9ESy/A2Kgo+32hs8p1g7/3xT73c5du1rrm8/8Eb417XmavY77L2TgfC5QNRqgshtYdglXBp4qIZ2rSpcGlzaOGaNE2QYw/TWYSrSgg1tDIoXJpowY6c
2noFnT5mONa3VNHRvoEV9t3nfva0yzKX4Lca//LQ+e8Z7+p/IFh/99mH/u+1Ox57Y0jRArhX7t8uwb2vErCwb1QJF6jz5nAu0FS4tMn8cK2ddh2x9Xgx4cL5YbE5uCbzt9rxe1u4gBGoq4pw1c7JhMIFjykUt9DwAuDNZz/zuiZc//j1j11DGShr7MsfQmQRaSje9s0orttck0vqHZzf/dsHsbd84UCNCY5QFy6KkMTKibV3ijeliRGuSyMmXD7anF2sPI3wWBiFC4MLQuWLVlvhwPG2zJObJTcc6ZeevfmiJlz4Pi8MfCuERuAmgndquG+BSKFov+q1ZnJNQ8zf9SxcEO6UgVYnXHXhorR1E+HCMbG8vmnhJMRHI0W4NBFuEi6Gx8IoXF2AyX0RwlB0YqEi5r1clhIY7ChjImQjEjPrUSUu24Cw2XobAetzLq9n4QIpAw33TsvnEwsXJUwEsXK0vhEL21JNezClCFdMhFPDRe1YClcX2CUNRrRMGPrDu05sHnLJE/zJefzFB7TdriQ0McN2nx4NrjFVtHwKb3TzuBZadsEcC1csXPQfcE2EKyYyqdakzBBNhFPDxfA4WN/3dO+Agfnrp791K/66pE6xQgYxESFzC2pzi8NEeFqKJOqFclDnqjCzLS2FC/cO852hVZEy0FKEK+ap+G3VRLhQby1vqmntmCpcbcLF8DgYhatrmoRTOYEYWC8M4uDEDP8jrUoo7A/mvrhw0XiCVzDv5n8poohNTjG03iPm9Dpqo5bClTowfbT8YR1ShAuEnoofJoImwqXla2KaYKe2TyxMTbnn2nEUrj7AoOwzjIsBwYFwxSb/sRjWiNW1cP4N4oX6Q7S68o6swENcM7aTCK3bnIXYwKyqo5Z/VuEKPZXwWlKFK+a9NTHNQ0oVLoDjw3wp4WJ4DIzC1Re5PZVcWI/HCBdE45U/uGcrFC3YuxcW/6kvr9EKaaY3kFaknSjPCIRCGzilt8UeqUISyxcS
Ck740Eg9n/amEN5cDPTTMD8svCdNhEtbKpISLobHwChcfWFDNzMg3eYosd/iqgjXv7/w0//qsvQC2koErI3YZxCumKeCQR+KCLa1NUuw8BpShQsgr1hIrJwwryYaYdgZonlIocfXRLhmDRe1YyhcfWLDoZ48l1moWKoR8zA6BQIGT3XWEBXClyG0jS1LwMBGu2AQQQRi+TTPJiY4TUkVLq1udYNfm8wPQ7smwoX7oOWtCxe1YyhcfQPhyjmPkxtMzAfCdbWr79FPxc7NYV7OtF0TIWo5MS/EwsVU07zsPoUrJhihuIVoohQuRG0iXED7OFFduBjmh1G4hmCs812C8bAOYIX/a88cWnNJo8DOxxkBSw3/MgkXmHUpgRZSgj6FKxai1T0AUo5rKlyxh0AYgvpo+SlcQyAhUIYwpjMyzA91BuqV8gYyo3DhPsXmr2IGTyJWvz6FSxMXLXwNiU3Q15UNi4F21PJXzbdp+SlcQ5HhVX2njFm4hKo3kB3UH4NOW0ipGUSuSlRjgtOUWDn+dWveYt3EvKBN0Pui0VS4QOwBEHuIa3kpXEMy5vmueRAuAK/VtqMLv1cW1y/gV53wQynLH9t4t+rXnWYEnggELBQEDEhMNKe8fME9x/GhNSVWjt+ntP2pD0y5Tt/8FzUoJ9wPqyJ2TGwcaHlH+8DfM4x1vmtehEtAG973K89/A4JVtjV0dEJITsY63zVvwgUgUtPCtQ5viBCSmzHOd82jcOE3NClchPQIvv7GiNf37dfhnNy6hnkbt2sQMPc2dB2asrK0dm8oWpjzcrtnpk7Etf14GEm6ZuJh46+2PzZ9YJeEmP0xDx33DG9T6+6d1C92HqnXWOdgyUgwHe2ifPmgtZNbdQvzsoAObs6Hb4A1Vvb6Mi4n6I3lzzz15eWfe+LfbNi4uJ6l/nJPtEGOgS37XZLFLtdw6ZpBFJDPioOy31rwDbrApNtv65XjBdy70rHG7BdaRoTH3Pctm8f0O5dU
wqsX5whJHHQQ11F2Op7pVPL0REcKLfa0TAVlhOfE8gK3ey6FCwO4bbuESNtogxxpst8lWTzhumLvYWBSR7kH1ss26RAr/yfzkGYLdKA8pOM4lyQPH1dH+xsKk76EbZdtArwp2R97QHp9g8JF4thOK50p6FASHoSGQSoDIdkQSjghNIPlrdI5C5t0VOR3/84FEIPQa8zBpG3MPfFDtJIAGHPJFrQd0urasLiP5Xa35ULA7PHl3/hEPqTjOJdkhKv4wRdfWH1PEPfbJVvs2je3T9sPtHoRMgU6KzoeBoftiB3NLfgiuNuEqwtvC/jt43ukoQC4ZEsb4QKFeDnPy+sLyIc0X7jc8VOhrNzrMH0idFJHxZOM1YuQwfE658TmNVTEINU8hxz47eN7QPjf3+eSLb4ooJ1987027x5MCQTSsA95XFKlcLnNSgqvdOc6RBz9OoGqehEyOOigZnBhotYMiGI9mfMkrqBzF/vG+9Ek0FWIKLgBbAe7/evC7eL/nd/ldNktIlya+aJTJRBIC/NH0my5brOSiZfoJv4hrMXx5farqhcho8J6LYEXIQYBc9lGhYhW6DHkZKcdJm/urhSCXkqLhIq2PSE2O+aFfn0L1+T+ujrsCHD5/lK4yNzgew+qKa/nhwSihYHXpWgBuX6cZzLvZNujeIEi2zazY0e4ZpvjAnI/cgkXxEryGrMi6t9zvx0pXGQukCdvnXUtEqkUA6ufj0rJteN/00476+2ckPv7hbbCJXNRYbnIh7SScDkxxT10SRZXV3iHNl3eVMas9OKBwkXGAgaD7ZBeqCLIQKszf8AMAc6PuvZZD7l2/O8LCv4P9wuzCheE2B6749mVhAPbSPevfyKm5hiIlA35PYGVekqYCIHC8WKTuhrvyxZoCOtFyCD4czFFJy2/ApfOW2f+gOmLYhAVa9aGOL9cu9ss6uOJf7gf1LWnXEdxbXoeCEnoUZr0KeGyYhcL88UrlDDRhbc+OF7yi8hV1Qvm
n5+QzvCe4J7tvEkKhS1mXYZm4hFi0PuGNBlQQyDX7jan0Pa3ES7zUNmCV6S1tdk/JVwAeXGMCFjxd+f+igcWPrAEnNOW68JFrV6+hecnJDuxTojB5bK4EEV/oygW6/RtsOc14U0x0Itf2na7CCF7nTqPC9hwQs1XPMFze1sQLDzhtTk3QgiZCgURGrhdJRCSwbMSAYMXBm8op2jZkHAOBQveoPVeE+ptQ7cK71HC4roQuCqf1MdtTrZjJvcw5dzY7/6dQq5Na4eqfQDp2F9VPiElbIe18yCbv+OSegd1gKeVUwi7BvWd8kTNtiboGJiliXLkMw+CMJ/MgfnhukZVPjmH25xsx0zEIlYm6mjq6hbWFobtUOCsMGG/ubbovvBtaNguztA2VQJKiGXIpx06KDy/eRItW2dPtMLB5w86DM5SXm/OEAPUZbNUCZJPVT4p223KxH1hrh6uvkWa84K0MgvR2rm2ct3L0wSeOOG6klbcl8rD/6U27eYzpmQXUTz5+u8odlAHc2rzgA1pMcAC78K+SHBv4AQM4mIg7gx0tLU2QKsEyacqn5TrNkuYdPXtI9DK9K9TBM72FSc4/rX6wmXL8a5LE67i3hd5/frg/7rrJ2RC351lKLHMgQxoiJJLiqINTmCOLZYieO2uiYdGVT45n9ssYdIbCZfkD8/jzY1OhMgTJ2sQNxFqb990fiOKLomQ5miDYFbQYdExbed0T2oB2xj48ypaoAhvi0FnB3xwjT5uwE4JiSYUWppGVb7Y+YBJn0m4wvwT0dGFy36DCP6XsrT8YJLPiLhWJ0Jq0QbBLECQIEzoiEWH3flGVqzYxn5/bmReMddRmrB2VvqWByD73OYE2x4m3W93LU2jKl/sfMCk9yJc3v/2Gye0/EDO6RtC6nl+qJGe0QZBEyBGNoSo8D52Gxhg/uS1tSD0kXS3OUETCi1Noypf7HzApPciXNg2bSOfi/SFrCRcAPvUh8Ae6kekBXWDpQp5M+hP
VO81MNBExHyPQQai25ygCYWWpiH5tK8Uip0PmPTehMs+yDCpjzI9EbOZI6D/TPIq10bIFHWDJYZ4Wrsh/GuLNmnvDd5S+IM8Nt1rd008NHbylX80A+dAOswllTDpMwlXWB/Ji/0uSRcz1x6eVQoX0MohJMosHtNeFS37csGIhi9GRVtMD/SJQBlvTNrXhtQymL2QSBMPDRwjxyOvPXfJ45v++TFg9jUSronwGPGVY6ywODHGfpvREBMcbLv00j57DSjXlOH3H9NeSd4ZIRZ0PK1DV7FXw0MZuDHz21EGqJYPg9Rls4h4xKxUblkQovl8zL5GwgVBmZrDc4Z0X3BQpttXFi5PZP19+N9LV2z+1veRAUDHi3V4DRuWmE7pNvcUxYA2nkEgSKEXJhTekPG8XH6bzxMIoYlwWS8r+PbS2PkFk6eRcAG5VpRtz2OuAdu+aIGYcAGvnqV9ONekXDGUr7QNISpNhMsNxOgA2UvA40S7pXqeXXioTc7fhq7OARHs6xrILiTlSWef9HtwXosQMlJShGuvzmsRQkZKnXAxRCSEjI4q4bLzEN7rb0IIGQVVwgVPa6++RSSEjJiYcDFEJISMlphwhaubCSFkNGhrubQ0QggZDaFIcUKeEDJ6QuHihDwhZPRgYal8uNX/nxBCRo1M0HOFPCFkboBwcfkDIWSuOHbgD9+979ALr3H5AyFkLlhdWruyurR+fXXf+o9X920wTCSEjJ+VpbV7rXAtrb+3vLjBt4mEkPGDpRDHDnztabdJCCHjp+pD1oQQMjrCxaeEEDJ66G0RQuYKeluEkLmD3hYhZK7gKnlCyFzg1mtdxZqt+2954r1jd754k9tFCCHjAyvijWBtu4Wmztamfn2YEEJGw8rS+omyaBXmdhNCyPjwPtZD4SKEzA9GqOz8ltjK4voFt4sQQsbJPTds3GhDxsX186uLa/yWU0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCyJ5lYeH/Aev8eE4+mU6OAAAAAElFTkSuQmCC</ImageData>
</EmbeddedImage>
</EmbeddedImages>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>272c4b43-6177-44f5-8699-9e315e3ec44e</rd:ReportID>
</Report>

1575
Empresas/186/Formatos/Factura.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

1571
Empresas/186/Formatos/NotaDevolucion.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

1153
Empresas/186/Formatos/Pedido.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

1153
Empresas/186/Formatos/Remision.mrt Normal file
View File

File diff suppressed because it is too large Load Diff

8399
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

File diff suppressed because it is too large Load Diff

32
General/SaldosIniciales.aspx.vb
View File

@@ -958,27 +958,20 @@ Partial Class General_SaldosIniciales
ObjProv.IniciaTransacSQL()
For Each Row As DataRow In dt.Rows
For Each Row As DataRow In dt.FiltraParametros("RazonSocial <> ''").Rows
Dim Codigo As String = Row("Codigo").ToString()
Dim RazonSocial As String = Row("RazonSocial").ToString()
If RazonSocial.Trim.Length = 0 Then
Continue For
End If
Dim RFC As String = Row("RFC").ToString().Trim
Dim Dirrecion As String = $"{ Row("Población").ToString()}, { Row("Estado").ToString()} , Colonia { Row("Colonia").ToString()}, {Row("Calle").ToString()} #{Row("Número exterior").ToString()}"
'Dim NumExt As String = Row("Número exterior").ToString()
' Dim Colonia As String = Row("Colonia").ToString()
Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
' Dim Poblacion As String = Row("Población").ToString()
'Dim Estado As String = Row("Estado").ToString()
Dim Telefono As String = Row("Teléfono").ToString()
Dim ContactoMail As String = Row("Contacto").ToString()
@@ -1003,9 +996,6 @@ Partial Class General_SaldosIniciales
CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
End If
Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
Dim Moneda As String = Row("Moneda Preferente").ToString()
@@ -1075,10 +1065,7 @@ Partial Class General_SaldosIniciales
sbErrores.AppendLine($"Proveedor {RazonSocial} Tipo Operación {DIOTipoOperacion} invalida.<br>")
ErrorProv = True
End If
End If
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
CveMoneda = 1
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
@@ -1147,7 +1134,7 @@ Partial Class General_SaldosIniciales
If Not ErrorCuentaDeposito Then
Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then
If Not ObjGrales.AddCuentasDepositos(Banco, "", "", NumeroCuenta, ClabeInter, "", "", "", "", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then
'ErrorProv = True
End If
End If
@@ -1166,10 +1153,8 @@ Partial Class General_SaldosIniciales
End If
End If
Next
If Not ErrorProv Then
ObjProv.Commit()
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados
@@ -1676,8 +1661,19 @@ Partial Class General_SaldosIniciales
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
CveMoneda = 1
TipoCambio = "1"
ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
ElseIf Moneda.ToUpper.Contiene("DÓLAR", "DÓLARES", "DOLARES", "USD") Then
CveMoneda = 2
If TipoCambio.Trim.ToDecimal < 10 Then
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
TipoCambio = GlobalTipoCambio(Fecha.AddDays(-1)).ToString()
Else
TipoCambio = GlobalTipoCambio(Fecha).ToString()
End If
End If
End If
'Si no se especifica TC, se manda como pesos.

2
Nomina/CalculoISRAnual.aspx
View File

@@ -101,7 +101,7 @@
<asp:GridView ID="GVCalculoISRAnual" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCalculoISRAnual Widthall" AutoGenerateColumns="False"
DataKeyNames="CvePersonal,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
DataKeyNames="CvePersonal,Aplica,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
<Columns>
<asp:TemplateField HeaderText="Aplica">
<ItemTemplate>

4
Nomina/CatPeriodos.aspx.vb
View File

@@ -379,10 +379,12 @@ Partial Class Nomina_CatPeriodos
Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
Dim numero As Integer = TxtNumeroCM.Text.ToEntero()
Dim fechaInicio As String = TxtFechaInicioCM.Text
Dim fechaInicio As String = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd")
Using onom As New ClsNominas
If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
CargaDatos()
RegistraScript("$('#divCargaMasiva').modal('hide');")
Alert("Se cargo satisfactoriamente.")
End If
End Using

63
Nomina/Nomina.aspx
View File

@@ -2898,6 +2898,14 @@
<ajax:ValidatorCalloutExtender ID="VcoVacadiasVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvVacadiasVacaciones"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row">
<div class="col-md-4 truncate ">Ejercicio</div>
<div class="col-md-4">
<asp:TextBox ID="TxtEjercicioVacaciones" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvEjercicioVacaciones" runat="server" ControlToValidate="TxtEjercicioVacaciones" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dias Vacaciones''</b> es necesario, por favor ingréselo." ValidationGroup="VGMVacaEmpresa"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoEjercicioVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvEjercicioVacaciones"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="text-right">
<asp:Button ID="BtnVacaADD" OnClick="BtnVacaADD_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMVacaEmpresa" />
</div>
@@ -2915,20 +2923,49 @@
</div>
</div>
<div class="portlet-body">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Ejercicio: </label>
<div class="col-md-1">
<asp:TextBox ID="TxtEjercicioFiltroVacaciones" CssClass="form-control input-sm " runat="server"></asp:TextBox>
</div>
<div class="col-md-1">
<asp:LinkButton ID="LnkConsultartablasVacaciones" OnClick="LnkConsultartablasVacaciones_Click" runat="server" Text="Consultar" class="btn btn-primary" />
</div>
</div>
</div>
<div class="tools">
<%--<a href="javascript:;" class="expand" data-original-title="" title=""></a>--%>
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
<div style="width:340px">
<asp:GridView ID="GVVacacionesEmpresas" runat="server" GridLines="None" CssClass="table table-hover table-striped Widthall ScrollAD" AutoGenerateColumns="False"
DataKeyNames="CveEmpresa,Inicio,Fin,DiasVacaciones">
DataKeyNames="CveEmpresa,Inicio,Fin,DiasVacaciones,Ejercicio">
<Columns>
<asp:TemplateField HeaderText="Inicio">
<asp:TemplateField HeaderText="Ejercicio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate >
<asp:Label ID="lblEjercicio" runat="server" Text='<%# Eval("Ejercicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Inicio" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblinicio" runat="server" Text='<%# Eval("Inicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fin">
<asp:TemplateField HeaderText="Fin" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblfin" runat="server" Text='<%# Eval("Fin")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Dias Vacaciones">
<asp:TemplateField HeaderText="Dias Vacaciones" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="Label5" runat="server" Text='<%# Eval("DiasVacaciones")%>'> </asp:Label>
</ItemTemplate>
@@ -2946,6 +2983,7 @@
</Columns>
</asp:GridView>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
@@ -2953,7 +2991,22 @@
</ajax:TabPanel>
<ajax:TabPanel ID="TTFactorDesctInfonavit" runat="server" HeaderText="Factor descuento Infonavit">
<ContentTemplate>
<asp:GridView ID="GVFactorDesctInfonavit" runat="server" CssClass="table table-striped table-hover mysmallbtn Widthall GvNominas" GridLines="None"></asp:GridView>
<div style="width:440px">
<asp:GridView ID="GVFactorDesctInfonavit" runat="server" CssClass="table table-striped table-hover mysmallbtn Widthall GvNominas" GridLines="None" AutoGenerateColumns="false">
<Columns>
<asp:TemplateField HeaderText="Fecha Inicio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate >
<asp:Label ID="lblFechaInicio" runat="server" Text='<%# Eval("Fecha Inicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Factor Descuento" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblFactorDescuento" runat="server" Text='<%# Eval("Factor Descuento")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TTFactorSDI" runat="server" HeaderText="Factor SD" Visible="false">

31
Nomina/Nomina.aspx.cs
View File

@@ -13,6 +13,7 @@ using static Extensiones.ModExtensiones;
using Modelos;
using System.Text.RegularExpressions;
using iTextSharp.text.pdf.parser;
using Profact.TimbraCFDI40;
public partial class Nomina_Nomina2 : ClsPaginas
{
@@ -7225,7 +7226,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int chkImporteValor = 1;
string[] getcolumnas = new string[] { "CvePersonal", "Nombre", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0 AND SumaPercepciones > 0 AND Total >0", FiltroCvePersonal), "", getcolumnas);
DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0 AND SumaPercepciones > 0 AND Total >= 0", FiltroCvePersonal), "", getcolumnas);
DataTable dtconp = null;
//int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar
@@ -7245,7 +7246,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
string erroralturizar = "";
DataTable dtrFail = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0 AND SumaPercepciones > 0 AND Total <=0", FiltroCvePersonal), "", getcolumnas);
DataTable dtrFail = dtempleados.FiltraParametros(string.Format("(CvePersonal= {0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado = 0 AND SumaPercepciones > 0 AND Total < 0", FiltroCvePersonal), "", getcolumnas);
StringBuilder strbuilder = new StringBuilder();
foreach (DataRow itf in dtrFail.Rows)
{
@@ -7337,8 +7338,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
if (continuar)
{
objNomina.Commit();
@@ -9051,7 +9050,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
if (continuar)
{
Alert("las cuentas hán sido asignadas.");
Alert("Las cuentas han sido asignadas correctamente.");
RegistraScript("$('#ModalRegistraProvision').modal('hide');");
}
}
@@ -9688,11 +9687,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
protected void LnkConsultartablasVacaciones_Click(object sender, EventArgs e)
{
CargaVacacionesEmpresas();
}
protected void CargaVacacionesEmpresas()
{
int ejercicio = TxtEjercicioFiltroVacaciones.Text.Trim() == "" ? -1: TxtEjercicioFiltroVacaciones.Text.Trim().ToEntero();
using (ClsRH ObjVaca = new ClsRH())
{
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1);
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1, ejercicio);
GVVacacionesEmpresas.DataSource = ObjVaca.DtResultados;
ObjVaca.Dispose();
}
@@ -9707,18 +9711,19 @@ public partial class Nomina_Nomina2 : ClsPaginas
int diasVacaciones = TxtVacadiasVacaciones.Text.ToEntero();
int Cinicio = TxtVacaInicio.Text.ToEntero();
int Cfin = TxtVacaFin.Text.ToEntero();
int ejercicio = TxtEjercicioVacaciones.Text.ToEntero();
bool Continuar = false;
using (ClsRH ObjVaca = new ClsRH())
{
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones);
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones, ejercicio);
}
if (Continuar)
{
RegistraScript("$('#DModalVacacionesEmpresas').modal('hide');");
CargaVacacionesEmpresas();
upDatosVacaEmpre.Update();
Alert("El Vacaciones_Empresas Se ha agregado");
Alert("Las Vacaciones se han agregado.");
}
}
@@ -9728,10 +9733,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
int CcveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero();
int Cinicio = gvRow.DataKey("Inicio").ToEntero();
int Cfin = gvRow.DataKey("Fin").ToEntero();
int Ejercicio = gvRow.DataKey("Ejercicio").ToEntero();
bool Continuar = false;
using (ClsRH ObjVaca = new ClsRH())
{
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin);
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin, Ejercicio);
}
if (Continuar)
{
@@ -10893,7 +10899,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
public class cedulaSUAEmpleadosdatos
{
public string Clave { get; set; }
public string Fecha { get; set; }
public string Dias { get; set; }
@@ -10915,9 +10920,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
public string fechamovto { get; set; }
}
protected void LnkCargaMasiva_Click(object sender, EventArgs e)
{
@@ -10925,7 +10927,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero();
int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero();
int numero = TxtNumeroCM.Text.ToEntero();
string fechaInicio = TxtFechaInicioCM.Text;
string fechaInicio = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd");
using (ClsNominas onom = new ClsNominas())
{
@@ -10935,4 +10937,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
}
}
}

2
OS/Asignaciones.aspx.vb
View File

@@ -385,7 +385,7 @@ Partial Class OS_Asignaciones
TmpDTOS = ObjOS.DtResultados
End If
If ObjOS.GetDetalleMateriales(-1, CveOS, 1, False) Then
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
TmpDTMaterialesOS = ObjOS.DtResultados
End If
Dim lrds As New List(Of ReportDataSource)

200
Sistemas/CatModulos.aspx
View File

@@ -75,7 +75,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveModulo, DesPadre, Modulo, Liga, PopUp, Ancho, Alto, Orden, Estilo, Incluye, Agrupacion, CvePadre,CvePlataforma" EmptyDataText="No se encontraron módulos" ToolTip="Módulos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveModulo, DesPadre, Modulo, Liga, PopUp, Ancho, Alto, Orden, Estilo, Incluye, Agrupacion, CvePadre,CvePlataforma" EmptyDataText="No se encontraron módulos" ToolTip="Módulos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Clave">
<ItemTemplate>
@@ -105,19 +105,7 @@
<ItemTemplate>
&nbsp;<asp:Label ID="E" runat="server" Text='<%# Eval("PopUp", "{0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ancho">
<ItemTemplate>
<asp:Label ID="F" runat="server" Text='<%# Eval("Ancho", "{0}") %>'></asp:Label>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Alto">
<ItemTemplate>
<asp:Label ID="G" runat="server" Text='<%# Eval("Alto", "{0}") %>'></asp:Label>&nbsp;
</ItemTemplate>
</asp:TemplateField>
</asp:TemplateField>
<asp:TemplateField HeaderText="Orden">
<ItemTemplate>
<asp:Label ID="H" runat="server" Text='<%# Eval("Orden", "{0}") %>'></asp:Label>&nbsp;
@@ -126,20 +114,8 @@
<asp:TemplateField HeaderText="Estilo">
<ItemTemplate>
<asp:Label ID="Estilo" runat="server" Text='<%# Eval("Estilo", "{0}") %>'></asp:Label>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Incluye" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
&nbsp;<asp:Label ID="I" runat="server" Text='<%# Eval("Incluye", "{0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Agrupación" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
&nbsp;<asp:Label ID="J" runat="server" Text='<%# Eval("Agrupacion", "{0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label ID="K" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Label>
@@ -177,73 +153,113 @@
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Modulos</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClave" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtClave" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Clave''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtClave.ClientID.ToString()%>">Clave:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClave" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtClave" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Clave''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtClave.ClientID.ToString()%>">Clave:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboPadres" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Padres" DataValueField="CveModulo" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= CboPadres.ClientID.ToString()%>">Padre:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboPadres" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Padres" DataValueField="CveModulo" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= CboPadres.ClientID.ToString()%>">Padre:</label>
<div class="row">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDescripcion" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
</div>
</div>
<div class="row">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtLiga" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtLiga.ClientID.ToString()%>">Liga:</label>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAncho" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAncho" runat="server" ControlToValidate="TxtAncho" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Ancho''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtAncho.ClientID.ToString()%>">Ancho:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAlto" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAlto" runat="server" ControlToValidate="TxtAlto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Alto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtAlto.ClientID.ToString()%>">Alto:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDescripcion" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtLiga" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtLiga.ClientID.ToString()%>">Liga:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboPopUp" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboPopUp.ClientID.ToString()%>">Pop Up:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAncho" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAncho" runat="server" ControlToValidate="TxtAncho" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Ancho''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtAncho.ClientID.ToString()%>">Ancho:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAlto" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAlto" runat="server" ControlToValidate="TxtAlto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Alto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtAlto.ClientID.ToString()%>">Alto:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOrden" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVOrden" runat="server" ControlToValidate="TxtOrden" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Orden''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEstilo" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtEstilo.ClientID.ToString()%>">Estilo:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboIncluye" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboIncluye.ClientID.ToString()%>">Incluye:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboAgrupacion" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboAgrupacion.ClientID.ToString()%>">Agrupación:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPlataforma" AppendDataBoundItems="true" DataTextField="Plataforma" DataValueField="CvePlataforma" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="240px">
<%-- <asp:ListItem Selected="True" Text="SIG" Value="1"></asp:ListItem>
<asp:ListItem Text="PyME" Value="2"></asp:ListItem>
<asp:ListItem Text="GPS" Value="3"></asp:ListItem>
<asp:ListItem Text="App" Value="4"></asp:ListItem>--%>
</asp:DropDownList>
<label for="<%= DdlPlataforma.ClientID.ToString()%>">Plataforma:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOrden" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVOrden" runat="server" ControlToValidate="TxtOrden" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Orden''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboPopUp" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboPopUp.ClientID.ToString()%>">Pop Up:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEstilo" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtEstilo.ClientID.ToString()%>">Estilo:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboIncluye" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboIncluye.ClientID.ToString()%>">Incluye:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="CboAgrupacion" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
</asp:DropDownList>
<label for="<%= CboAgrupacion.ClientID.ToString()%>">Agrupación:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPlataforma" AppendDataBoundItems="true" DataTextField="Plataforma" DataValueField="CvePlataforma" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="240px">
<%-- <asp:ListItem Selected="True" Text="SIG" Value="1"></asp:ListItem>
<asp:ListItem Text="PyME" Value="2"></asp:ListItem>
<asp:ListItem Text="GPS" Value="3"></asp:ListItem>
<asp:ListItem Text="App" Value="4"></asp:ListItem>--%>
</asp:DropDownList>
<label for="<%= DdlPlataforma.ClientID.ToString()%>">Plataforma:</label>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />

18
Sistemas/CatModulos.aspx.vb
View File

@@ -87,18 +87,18 @@ Partial Class CatModulos
'e.Row.Cells(14).Width = Unit.Pixel(68)
If e.Row.DBCampo("PopUp") = "N" Then e.Row.FCLabel("E").Text = "No" Else e.Row.FCLabel("E").Text = "Si"
If e.Row.DBCampo("Incluye") = "N" Then e.Row.FCLabel("I").Text = "No" Else e.Row.FCLabel("I").Text = "Si"
If e.Row.DBCampo("Agrupacion") = "N" Then e.Row.FCLabel("J").Text = "No" Else e.Row.FCLabel("J").Text = "Si"
'If e.Row.DBCampo("Incluye") = "N" Then e.Row.FCLabel("I").Text = "No" Else e.Row.FCLabel("I").Text = "Si"
'If e.Row.DBCampo("Agrupacion") = "N" Then e.Row.FCLabel("J").Text = "No" Else e.Row.FCLabel("J").Text = "Si"
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
If e.Row.RowState = DataControlRowState.Normal OrElse e.Row.RowState = DataControlRowState.Alternate Then

7
Sistemas/DefinicionEmpresa.aspx
View File

@@ -414,7 +414,7 @@
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Envio de Correos</span>
<span class="caption-subject bold uppercase">Recepción de Correos</span>
</div>
<div class="actions">
<div class="btn-group">
@@ -488,9 +488,6 @@
</div>
</div>
</div>
</div>
<div class="col-md-6">
@@ -498,7 +495,7 @@
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Recepción de Correos</span>
<span class="caption-subject bold uppercase">Envío de Correos</span>
</div>
<div class="actions">
<div class="btn-group">

3
Sistemas/DefinicionEmpresa.aspx.vb
View File

@@ -390,9 +390,6 @@ Partial Class Sistemas_DefinicionEmpresa
BtnGuardar.Text = "Guardar Cambios"
'Plantilla Correo
End If
End Sub

36
Sistemas/Empresa.aspx
View File

@@ -62,7 +62,7 @@
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -291,7 +291,7 @@
<div class="col-md-6">
<div class="portlet light smmallpadding bordered" id="BiInform" runat="server">
<div class="portlet light xspadding bordered" id="BiInform" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -328,7 +328,7 @@
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -407,7 +407,7 @@
<asp:UpdatePanel runat="server" ID="UpmodalFiel" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet light smmallpadding bordered" id="Div2" runat="server">
<div class="portlet light xspadding bordered" id="Div2" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -499,7 +499,7 @@
</ContentTemplate>
</asp:UpdatePanel>
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -542,11 +542,11 @@
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Envio de Correos</span>
<span class="caption-subject bold uppercase">Recepción de Correos</span>
</div>
<div class="actions">
<div class="btn-group">
@@ -602,11 +602,11 @@
</div>
</div>
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Recepción de Correos</span>
<span class="caption-subject bold uppercase">Envío de Correos</span>
</div>
<div class="actions">
<div class="btn-group">
@@ -663,7 +663,7 @@
</div>
</div>
<div class="col-md-6">
<div class="portlet light smmallpadding traspasorow bordered">
<div class="portlet light xspadding traspasorow bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -738,7 +738,7 @@
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -811,7 +811,7 @@
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered ">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -851,7 +851,7 @@
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -912,7 +912,7 @@
</div>
<div class="col-md-6">
<div class="portlet light smmallpadding bordered" id="Div1" runat="server">
<div class="portlet light xspadding bordered" id="Div1" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -943,7 +943,7 @@
</table>
</div>
</div>
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -1001,7 +1001,7 @@
<div class="row">
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -1054,7 +1054,7 @@
</div>
</div>
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
@@ -1126,7 +1126,7 @@
</div>
<div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>

269
Ventas/CatEspecialidadesSubEspecialidades.aspx Normal file
View File

@@ -0,0 +1,269 @@
<%@ Page Title="Catálogo De Especialidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEspecialidadesSubEspecialidades.aspx.vb" Inherits="Ventas_CatEspecialidadesSubEspecialidades" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo De Especialidades
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Always">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarSubEspecialidad" OnClick="LnkAgregarSubEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Sub Especialidad"></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
<ContentTemplate>
<ajax:TabContainer runat="server" ID="Tabs">
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
<ContentTemplate>
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<asp:LinkButton ID="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabSubEspecialidad" runat="server" HeaderText="SubEspecialidades" ClientIDMode="Static">
<ContentTemplate>
<asp:UpdatePanel ID="UpSubEspecialidad" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvSubEspecialidad" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedicoSubEspecialidad,CveMedicoEspecialidad,SubEspecialidad,Estatus"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Sub Especialidad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlSubEspecialidad" runat="server" Text='<%# Eval("SubEspecialidad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<asp:LinkButton ID="LnkEditarSubEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarSubEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkEliminarSubEspecialidad" OnClick="LnkEliminarSubEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
<label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
<asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
<label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="DVAgregarSubEspecialidad" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalSubEspecialidad" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="Literal1" runat="server">Agregar Sub Especialidad</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad" Width="100%" CausesValidation="true" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtSubEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtSubEspecialidad" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
<label for="<%= TxtSubEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="DVEstatusSubEspecialidad" runat="server" visible="false">
<asp:CheckBox ID="ChkEstatusSubEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
<label for="<%= ChkEstatusSubEspecialidad.ClientID.ToString()%>">Activo:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgergarSubEspecialidad" OnClick="BtnAgergarSubEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarSubEspecialidad" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

291
Ventas/CatEspecialidadesSubEspecialidades.aspx.vb Normal file
View File

@@ -0,0 +1,291 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports Microsoft.Extensions.Primitives
Partial Class Ventas_CatEspecialidadesSubEspecialidades
Inherits ClsPaginas
Public Property CveMedicoEspecialidad As Integer
Get
If ViewState("CveMedicoEspecialidad") Is Nothing Then
ViewState("CveMedicoEspecialidad") = -1
End If
Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveMedicoEspecialidad") = value
End Set
End Property
Public Property CveMedicoSubEspecialidad As Integer
Get
If ViewState("CveMedicoSubEspecialidad") Is Nothing Then
ViewState("CveMedicoSubEspecialidad") = -1
End If
Return ViewState("CveMedicoSubEspecialidad").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveMedicoSubEspecialidad") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaEspecialidad()
CargaSubEspecialidad()
End If
End Sub
#Region "EXCEL"
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
If Tabs.ActiveTabIndex = 0 Then
GvEspecialidad.Columns(4).Visible = False
Dim SbFiltros As New StringBuilder()
GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvEspecialidad.Columns(4).Visible = True
ElseIf Tabs.ActiveTabIndex = 1 Then
GvEspecialidad.Columns(5).Visible = False
Dim SbFiltros As New StringBuilder()
GvEspecialidad.ExportToExcelGembox("CatSubEspecialidades", UsuarioActual, "Catálogo De Sub Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvEspecialidad.Columns(5).Visible = True
End If
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
#End Region
#Region "Especialidad"
Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
CveMedicoEspecialidad = -1
DVEstatusEspecialidad.Visible = False
LimpiarModalEspecialdiad()
RegistraScript("$('#DVAgregarEspecialidad').modal();")
End Sub
Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas
Dim ProcesoOK As Boolean = True
If CveMedicoEspecialidad > 0 Then
If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
Else
If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaEspecialidad()
Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
End If
End Sub
Sub LimpiarModalEspecialdiad()
TxtEspecialidad.Text = ""
ChkEstatusEspecialidad.Checked = True
UpModalEspecialidad.Update()
End Sub
Sub CargaEspecialidad()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
GvEspecialidad.DataSource = ObjVentas.DtResultados
DdlEspecialidad.DataSource = ObjVentas.DtResultados
Else
GvEspecialidad.DataSource = Nothing
End If
ObjVentas.Dispose()
GvEspecialidad.DataBind()
DdlEspecialidad.DataBind()
DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpEspecialidad.Update()
End Sub
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
DVEstatusEspecialidad.Visible = True
UpModalEspecialidad.Update()
RegistraScript("$('#DVAgregarEspecialidad').modal();")
End Sub
Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
Dim ProcesoOK As Boolean = True
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
Dim ObjVentas As New ClsVentas
If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaEspecialidad()
Alert("Especialidad eliminada correctamente")
End If
End Sub
#End Region
#Region "SubEspecialidad"
Protected Sub LnkAgregarSubEspecialidad_Click(sender As Object, e As EventArgs)
CveMedicoSubEspecialidad = -1
DVEstatusSubEspecialidad.Visible = False
LimpiarModalSubEspecialdiad()
RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
End Sub
Protected Sub BtnAgergarSubEspecialidad_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas
Dim ProcesoOK As Boolean = True
If CveMedicoSubEspecialidad > 0 Then
If Not ObjVentas.UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad, DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, ChkEstatusSubEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
Else
If Not ObjVentas.AddMedicoSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaSubEspecialidad()
Alert($"SubEspecialidad {If(CveMedicoSubEspecialidad > 0, "actualizada", "agregada")} correctamente.")
RegistraScript("$('#DVAgregarSubEspecialidad').modal('hide');")
End If
End Sub
Sub LimpiarModalSubEspecialdiad()
DdlEspecialidad.SelectedValueExist(-1)
TxtSubEspecialidad.Text = ""
ChkEstatusSubEspecialidad.Checked = True
UpModalSubEspecialidad.Update()
End Sub
Sub CargaSubEspecialidad()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
GvSubEspecialidad.DataSource = ObjVentas.DtResultados
Else
GvSubEspecialidad.DataSource = Nothing
End If
ObjVentas.Dispose()
GvSubEspecialidad.DataBind()
UpSubEspecialidad.Update()
End Sub
Protected Sub LnkEditarSubEspecialidad_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveMedicoSubEspecialidad = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
Dim CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
TxtSubEspecialidad.Text = GvRow.DataKey("SubEspecialidad")
ChkEstatusSubEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
DVEstatusSubEspecialidad.Visible = True
UpModalSubEspecialidad.Update()
RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
End Sub
Protected Sub LnkEliminarSubEspecialidad_Click(sender As Object, e As EventArgs)
Dim ProcesoOK As Boolean = True
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveMedicoSubEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
Dim ObjVentas As New ClsVentas
If Not ObjVentas.RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaSubEspecialidad()
Alert("Sub Especialidad eliminada correctamente")
End If
End Sub
#End Region
End Class

31
Ventas/CatMedicos.aspx
View File

@@ -20,7 +20,7 @@
<asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" Visible="false" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
</li>
<li>
@@ -225,7 +225,7 @@
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
@@ -311,7 +311,7 @@
</ajax:TabPanel>
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">
<ContentTemplate>
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
@@ -471,12 +471,25 @@
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
</div>
</div>
<div class="col-md-6">
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
<asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%" DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
</div>
</div>
</div>
@@ -512,12 +525,18 @@
<label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
</div>
</div>
<div class="col-md-6">
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
</div>
</div>
</div>
@@ -560,7 +579,7 @@
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
<label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
<label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
</div>

39
Ventas/CatMedicos.aspx.vb
View File

@@ -42,6 +42,7 @@ Partial Class Ventas_CatMedicos
CargaCombos()
CargaDatos()
CargaEspecialidad()
CargaSubEspecialidad(-1)
BtnConsultar_Click(Nothing, Nothing)
End If
End Sub
@@ -80,12 +81,12 @@ Partial Class Ventas_CatMedicos
If CveMedico > 0 Then
If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
ProcesoOK = True
End If
Else
If ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
ProcesoOK = True
End If
End If
@@ -144,7 +145,7 @@ Partial Class Ventas_CatMedicos
Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)
LbAgregar.Text = "Agregar"
LtlTituloModal.Text = "Agregar Medico"
LtlTituloModal.Text = "Agregar Médico"
TxtMedico.Text = ""
TxtCedulaProfecional.Text = ""
@@ -158,6 +159,8 @@ Partial Class Ventas_CatMedicos
TxtTelefono.Text = ""
TxtCelular.Text = ""
DdlEspecialidad.SelectedValueExist(-1)
DdlSubEspecialidad.SelectedValueExist(-1)
TxtTorre.Text = ""
DVEstatus.Visible = False
ChkEstatus.Checked = True
@@ -189,10 +192,13 @@ Partial Class Ventas_CatMedicos
TxtCelular.Text = GvRow.DataKey("Celular")
DdlEspecialidad.SelectedValueExist(-1)
DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
CargaSubEspecialidad(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
TxtTorre.Text = GvRow.DataKey("Torre")
DVEstatus.Visible = True
LbAgregar.Text = "Actualizar"
LtlTituloModal.Text = $"Actualizar Medico {TxtCedulaProfecional.Text}"
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
UpModal.Update()
RegistraScript("$('#DVAgregarMedico').modal();")
@@ -373,6 +379,7 @@ Partial Class Ventas_CatMedicos
ChkEstatusEspecialidad.Checked = True
UpModalEspecialidad.Update()
End Sub
Sub CargaEspecialidad()
Dim ObjVentas As New ClsVentas
@@ -395,6 +402,26 @@ Partial Class Ventas_CatMedicos
End Sub
Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
If CveMedicoEspecialidad > 0 Then
DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}")
Else
DdlSubEspecialidad.DataSource = ObjVentas.DtResultados
End If
End If
ObjVentas.Dispose()
DdlSubEspecialidad.DataBind()
DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpModal.Update()
End Sub
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -440,6 +467,10 @@ Partial Class Ventas_CatMedicos
Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
End Sub

2
Ventas/Clientes.aspx
View File

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

56
Ventas/Clientes.aspx.vb
View File

@@ -2520,6 +2520,15 @@ Partial Class Clientes
Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()
If Not ErrorProceso Then
If UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlAlmacenAsignado.SelectedValue.ToEntero = -1 Then 'limpiar ddl alamcen temporal que se agrego temporalmente
If Not GeneraGuardaAlmacenCliente(ObjClientes.IniciaTransacSQL) Then
ErrorProceso = True
End If
End If
End If
If Not ErrorProceso Then
'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
If Me.CveCliente = -1 Then
@@ -2642,13 +2651,16 @@ Partial Class Clientes
ObjClientes.RollBack()
CargaPrecioLista()
Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError)
If UsuarioActual.Empresa.Funcionalidad(404) = "30" And UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'limpiar ddl alamcen temporal que se agrego temporalmente
CargaDdlAlmacen()
End If
Else
ObjClientes.Commit()
If CveClienteNuevo > 0 Then
ViewState("CveCliente") = CveClienteNuevo
End If
End If
ObjClientes.Dispose()
@@ -5972,16 +5984,28 @@ Partial Class Clientes
If UsuarioActual.CveEmpresa = 119 Then
DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
End If
End If
CargaDdlAlmacen()
End Sub
Private Sub CargaDdlAlmacen()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
DdlAlmacenAsignado.SelectedValue = Nothing
DdlAlmacenAsignado.ClearSelection()
DdlAlmacenAsignado.Items.Clear()
divAlmacenAsignado.Visible = True
DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenAsignado.DataBind()
DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
End If
End If
End Sub
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
@@ -10397,5 +10421,25 @@ Partial Class Clientes
End Function
Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean
Dim respuesta As Boolean = True
Dim ObjInv As New ClsInventarios(transaccionSQL)
If ObjInv.AddAlmacen(TxtNombre.Text.Trim, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
DdlAlmacenAsignado.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString))
DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString)
GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
Else
respuesta = False
End If
Return respuesta
End Function
End Class

132
Ventas/ProductosServicios.aspx
View File

@@ -1151,15 +1151,143 @@
<div class="row form-md-line-input">
<label class="col-md-4 truncate">Peso en Kg:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPesoKg" runat="server" Width="60px" Class="form-control input-sm"></asp:TextBox>
<asp:TextBox ID="TxtPesoKg" runat="server" Width="200px" Class="form-control input-sm"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Dimensiones:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDimensiones" runat="server" Width="120px" 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 class="row">
<label class="col-md-4 truncate">ClaveSector COFEPRIS:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS" CssClass="form-control input-sm select2me"></asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlClaveFormaFarmaceutica" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="FormaFarmaceuticaClave" DataValueField="CveFormaFarmaceutica" CssClass="form-control input-sm select2me"></asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Nom Quimico:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Denominacion Generica:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Denominacion Distintiva:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Fabricante:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Condiciones Transporte:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Permiso Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Num CAS:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Fabricante:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Formulador:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Maquilador:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Uso Autorizado:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
</div>
</div>
</ContentTemplate>

121
Ventas/ProductosServicios.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports Extensiones
Imports ZXing
@@ -192,6 +193,7 @@ Partial Class ProductosyServicios
CargarAlias()
CargaExistencias()
End If
CargaDatosCartaPorte()
Else
'Configuración de Modalidad Insert
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -367,6 +369,7 @@ Partial Class ProductosyServicios
CargaUnidadesMedida()
CargarMetodosInv()
CargarMarcas()
CargaCombosPSComplementos()
'CargaPSAdicional(DdlPSAdicional)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -452,6 +455,18 @@ Partial Class ProductosyServicios
End Sub
Private Sub CargaCombosPSComplementos()
DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS
DdlClaveSectorCOFEPRIS.DataBind()
DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica
DdlClaveFormaFarmaceutica.DataBind()
DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1"))
End Sub
Private Sub CargaPanelLlantas()
Dim ObjGral As New ClsGenerales()
@@ -1648,6 +1663,12 @@ Partial Class ProductosyServicios
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
End Try
If Not TieneError Then
If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
TieneError = True
End If
End If
If Not TieneError Then
ObjProductosServicios.Commit()
Alert("El Producto/Servicio se guardo correctamente." + If(GeneraServicioAF = 1, " Recargue la pagina de ventas para poder utilizar el servicio", ""), TipoMensaje.MsgInformacion, AccionJS)
@@ -3293,8 +3314,6 @@ Partial Class ProductosyServicios
End If
End If
ObjGrales.Dispose()
If ValidaMaterialPeligrosoMensaje Then
@@ -3321,11 +3340,29 @@ Partial Class ProductosyServicios
DdlMaterialPeligroso.txtText.Value = ""
DdlMaterialPeligroso.txtValue.Value = ""
DdlEmbalaje.txtText.Value = ""
DdlEmbalaje.txtValue.Value = ""
DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
TxtNombreIngredienteActivo.Text = ""
TxtNomQuimico.Text = ""
TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = ""
TxtNumCAS.Text = ""
TxtRazonSocialEmpImportacion.Text = ""
TxtNumRegistroPlagCOFEPRIS.Text = ""
TxtDatosFabricante.Text = ""
TxtDatosFormulador.Text = ""
TxtDatosMaquilador.Text = ""
TxtUsoAutorizado.Text = ""
UpCartaPorte.Update()
End Sub
@@ -3334,8 +3371,6 @@ Partial Class ProductosyServicios
Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
TxtFechaVigenciaRSCO.Text = ""
End If
@@ -3343,4 +3378,78 @@ Partial Class ProductosyServicios
UpDatos.Update()
End Sub
Private Sub CargaDatosCartaPorte()
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetProductosServiciosComplementos(CvePS) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
DdlMaterialPeligroso.txtText.Value = ObjPS.DtResultados.Rows(0)("MaterialPeligroso").ToString
DdlMaterialPeligroso.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveMaterialPeligroso").ToString
DdlEmbalaje.txtText.Value = ObjPS.DtResultados.Rows(0)("Embalaje").ToString
DdlEmbalaje.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveEmbalaje").ToString
DdlClaveSectorCOFEPRIS.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveSectorCOFEPRIS").ToString)
DdlClaveFormaFarmaceutica.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveFormaFarmaceutica").ToString)
TxtPesoKg.Text = ObjPS.DtResultados.Rows(0)("PesoKg").ToString
TxtDimensiones.Text = ObjPS.DtResultados.Rows(0)("Dimensiones").ToString
TxtNombreIngredienteActivo.Text = ObjPS.DtResultados.Rows(0)("NombreIngredienteActivo").ToString
TxtNomQuimico.Text = ObjPS.DtResultados.Rows(0)("NomQuimico").ToString
TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString
TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString
TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString
TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString
TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString
TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString
TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString
TxtNumCAS.Text = ObjPS.DtResultados.Rows(0)("NumCAS").ToString
TxtRazonSocialEmpImportacion.Text = ObjPS.DtResultados.Rows(0)("RazonSocialEmpImportacion").ToString
TxtNumRegistroPlagCOFEPRIS.Text = ObjPS.DtResultados.Rows(0)("NumRegistroPlagCOFEPRIS").ToString
TxtDatosFabricante.Text = ObjPS.DtResultados.Rows(0)("DatosFabricante").ToString
TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
End If
UpCartaPorte.Update()
End Sub
Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
Dim Respuesta As Boolean = True
If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 Or DdlEmbalaje.SelectedValue.ToEntero > 0 Or DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 Or DdlClaveFormaFarmaceutica.SelectedValue.ToEntero > 0 Then
Dim ObjPS As New ClsProductosServicios(transaccionSQL)
If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero,
TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then
Respuesta = False
End If
End If
Return Respuesta
End Function
' Private Function validaGuardadoCCP()
' TxtPesoKg.Text.Trim, DdlMaterialPeligroso.SelectedValue, DdlEmbalaje.SelectedValue, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue,
'TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
'TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
'TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text
' Return False
' End Function
End Class

4
Ventas/RepProductosServiciosDetalle.aspx
View File

@@ -466,7 +466,7 @@
<asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkMetodoPago" runat="server" Text="Metodo de Pago" />
<asp:CheckBox ID="ChkMetodoPago" runat="server" Text="Método de Pago" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
@@ -477,7 +477,7 @@
<asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
<asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
</td>
<td style="text-align: left;">

5
Ventas/Ventas.aspx.vb
View File

@@ -2682,8 +2682,8 @@ Partial Class Ventas
End If
If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
GvPS.DataSource = ObjVentas.DtResultados
TmpDT = ObjVentas.DtResultados
GvPS.DataBind()
End If
@@ -31860,6 +31860,7 @@ Partial Class Ventas
DdlDireccionEnvio.Enabled = True
LnkOtraDireccion.Visible = True
TxtAtencionA.Enabled = True
TxtDescripcionVenta.Enabled = True
TxtFechaVencimientoCotizacion.Enabled = True
TxtCantidad.Enabled = True
@@ -33627,7 +33628,7 @@ Partial Class Ventas
ObjVentas.IniciaTransacSQL()
If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then
TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
TieneError = True
End If