Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -2799,6 +2799,46 @@ Public Class ClsGenerales
|
|||||||
Return Retorno
|
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
|
#End Region
|
||||||
|
|
||||||
#Region "SAT CFDI COMERCIO EXTERIOR"
|
#Region "SAT CFDI COMERCIO EXTERIOR"
|
||||||
|
|||||||
@@ -153,6 +153,8 @@ Public Class ClsInventarios
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Public Property CveAlmacenAgregado As Integer = -1
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
|
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
|
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
|
Dim Retorno As Boolean = False
|
||||||
|
CveAlmacenAgregado = -1
|
||||||
|
|
||||||
DataAdapter("PA_Inv_AlmacenesAdd")
|
DataAdapter("PA_Inv_AlmacenesAdd")
|
||||||
|
|
||||||
@@ -391,10 +394,12 @@ Public Class ClsInventarios
|
|||||||
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
|
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
|
||||||
.Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
|
.Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
|
||||||
.Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
|
.Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
|
||||||
|
.Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
|
CveAlmacenAgregado = SqlAdapter.SelectCommand.Parameters("@CveAlmacenAgregado").Value.ToString.ToEntero
|
||||||
Retorno = True
|
Retorno = True
|
||||||
Catch Ex1 As SqlException
|
Catch Ex1 As SqlException
|
||||||
If Ex1.Message.Contains("Número: 2627;") Then
|
If Ex1.Message.Contains("Número: 2627;") Then
|
||||||
|
|||||||
@@ -1292,6 +1292,43 @@ Public Class ClsPaginas
|
|||||||
HttpContext.Current.Application(AppNombre) = value
|
HttpContext.Current.Application(AppNombre) = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
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
|
Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable
|
||||||
Get
|
Get
|
||||||
Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}"
|
Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}"
|
||||||
@@ -5809,6 +5846,11 @@ Public Class ClsPaginas
|
|||||||
params.Add(New ReportParameter("Tipo", TipoDocumento))
|
params.Add(New ReportParameter("Tipo", TipoDocumento))
|
||||||
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
|
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
|
||||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
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)
|
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", 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("Ref", TipoDocumentoRef))
|
||||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
||||||
params.Add(New ReportParameter("CveAlmacenTraspasoOrigen", Vta.CveAlmacenTraspasoOrigen.ToString))
|
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)
|
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
||||||
Case "Pd2"
|
Case "Pd2"
|
||||||
@@ -6220,7 +6267,7 @@ Public Class ClsPaginas
|
|||||||
Dim paramsArray As New JArray()
|
Dim paramsArray As New JArray()
|
||||||
For Each rds As ReportDataSource In DataSource
|
For Each rds As ReportDataSource In DataSource
|
||||||
Dim Nombre As String = rds.Name
|
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
|
Select Case rds.Name
|
||||||
Case "DsOC"
|
Case "DsOC"
|
||||||
Nombre = "DtDetalle"
|
Nombre = "DtDetalle"
|
||||||
@@ -9424,6 +9471,8 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
|
PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
|
||||||
PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
|
PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
|
||||||
PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
|
PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
|
||||||
|
PaginaDict.Add("/Ventas/CatEspecialidadesSubEspecialidades.aspx".ToUpper(), 1346)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -2331,4 +2331,67 @@ Public Class ClsProductosServicios
|
|||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
End Class
|
||||||
|
|||||||
@@ -4,6 +4,7 @@ Option Explicit On
|
|||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports System.Data.SqlClient
|
Imports System.Data.SqlClient
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
|
Imports Profact.TimbraCFDI40
|
||||||
|
|
||||||
|
|
||||||
Public Class ClsRH
|
Public Class ClsRH
|
||||||
@@ -147,41 +148,45 @@ Public Class ClsRH
|
|||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
End Function
|
||||||
#Region "CRUD_VacacionesEmpresas"
|
#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
|
Dim retorno As Boolean = False
|
||||||
DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure)
|
DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure)
|
||||||
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
||||||
addParameters("@Inicio", SqlDbType.Int, inicio)
|
addParameters("@Inicio", SqlDbType.Int, inicio)
|
||||||
addParameters("@Fin", SqlDbType.Int, fin)
|
addParameters("@Fin", SqlDbType.Int, fin)
|
||||||
|
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
|
||||||
retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.")
|
retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.")
|
||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
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
|
Dim retorno As Boolean = False
|
||||||
DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure)
|
DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure)
|
||||||
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
||||||
addParameters("@Inicio", SqlDbType.Int, inicio)
|
addParameters("@Inicio", SqlDbType.Int, inicio)
|
||||||
addParameters("@Fin", SqlDbType.Int, fin)
|
addParameters("@Fin", SqlDbType.Int, fin)
|
||||||
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
|
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
|
||||||
|
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
|
||||||
retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.")
|
retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.")
|
||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
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
|
Dim retorno As Boolean = False
|
||||||
DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure)
|
DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure)
|
||||||
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
||||||
addParameters("@Inicio", SqlDbType.Int, inicio)
|
addParameters("@Inicio", SqlDbType.Int, inicio)
|
||||||
addParameters("@Fin", SqlDbType.Int, fin)
|
addParameters("@Fin", SqlDbType.Int, fin)
|
||||||
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
|
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
|
||||||
|
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
|
||||||
retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.")
|
retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.")
|
||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
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
|
Dim retorno As Boolean = False
|
||||||
DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure)
|
DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure)
|
||||||
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
|
||||||
addParameters("@Inicio", SqlDbType.Int, inicio)
|
addParameters("@Inicio", SqlDbType.Int, inicio)
|
||||||
addParameters("@Fin", SqlDbType.Int, fin)
|
addParameters("@Fin", SqlDbType.Int, fin)
|
||||||
|
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
|
||||||
retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.")
|
retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.")
|
||||||
Return retorno
|
Return retorno
|
||||||
End Function
|
End Function
|
||||||
|
|||||||
@@ -298,23 +298,22 @@ Public Class ClsTransportes
|
|||||||
End Function
|
End Function
|
||||||
Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
|
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")
|
DataAdapter("PA_Trans_ViajesPasajerosUpdate")
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
|
.Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
|
||||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
Retorno = True
|
Retorno = True
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
|
||||||
Return Retorno
|
|
||||||
End If
|
|
||||||
End Function
|
End Function
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|||||||
@@ -604,13 +604,14 @@ Public Class ClsVentas
|
|||||||
End Function
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_VentasObservacionesUpdate")
|
DataAdapter("PA_Vta_VentasObservacionesUpdate")
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
|
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
|
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
|
||||||
|
.Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
|
||||||
.Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
|
.Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
|
||||||
.Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
|
.Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
|
||||||
.Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones
|
.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 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
|
Optional ServicioDomicilio As Integer = -1) As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_GetRepPS33")
|
DataAdapter("PA_Vta_GetRepPS")
|
||||||
|
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||||
@@ -1755,7 +1756,6 @@ Public Class ClsVentas
|
|||||||
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
|
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
|
||||||
.Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
|
.Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
|
||||||
.Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
|
.Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_MedicosAdd")
|
DataAdapter("PA_Vta_MedicosAdd")
|
||||||
@@ -6026,6 +6027,8 @@ Public Class ClsVentas
|
|||||||
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
|
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
|
||||||
.Add("@Celular", SqlDbType.VarChar).Value = Celular
|
.Add("@Celular", SqlDbType.VarChar).Value = Celular
|
||||||
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
|
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
|
||||||
|
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
|
||||||
|
.Add("@Torre", SqlDbType.VarChar).Value = Torre
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
@@ -6040,7 +6043,8 @@ Public Class ClsVentas
|
|||||||
End Function
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_MedicosUpdate")
|
DataAdapter("PA_Vta_MedicosUpdate")
|
||||||
@@ -6061,6 +6065,9 @@ Public Class ClsVentas
|
|||||||
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
|
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
|
||||||
.Add("@Celular", SqlDbType.VarChar).Value = Celular
|
.Add("@Celular", SqlDbType.VarChar).Value = Celular
|
||||||
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
|
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
|
||||||
|
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
|
||||||
|
.Add("@Torre", SqlDbType.VarChar).Value = Torre
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
@@ -6093,7 +6100,7 @@ Public Class ClsVentas
|
|||||||
|
|
||||||
#End Region
|
#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
|
Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
|
||||||
|
|
||||||
@@ -6182,6 +6189,101 @@ Public Class ClsVentas
|
|||||||
|
|
||||||
#End Region
|
#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"
|
#Region "PRODEDIMIENTOS"
|
||||||
|
|
||||||
Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
|
Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
|
||||||
|
|||||||
@@ -20,6 +20,7 @@ Public Class LogicNominas
|
|||||||
sw.Start()
|
sw.Start()
|
||||||
End If
|
End If
|
||||||
hasfiniquito = False
|
hasfiniquito = False
|
||||||
|
CvePAC = 4
|
||||||
Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
|
Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
|
||||||
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
|
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
|
||||||
If Not cfdi.Timbrado Then
|
If Not cfdi.Timbrado Then
|
||||||
|
|||||||
@@ -7959,6 +7959,7 @@ Namespace Modelos
|
|||||||
Public Property ImprimeNombreSucursal As Integer
|
Public Property ImprimeNombreSucursal As Integer
|
||||||
Public Property CobranzaCorreo As String
|
Public Property CobranzaCorreo As String
|
||||||
Public Property UsaProductoAlterno As Boolean = False
|
Public Property UsaProductoAlterno As Boolean = False
|
||||||
|
Public Property Documentacion As String = ""
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
<Serializable>
|
<Serializable>
|
||||||
|
|||||||
@@ -29,7 +29,7 @@ Public Class Timbrado
|
|||||||
Public Property CancelacionMensaje As String
|
Public Property CancelacionMensaje As String
|
||||||
Public Property CancelacionFecha As Date
|
Public Property CancelacionFecha As Date
|
||||||
Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
|
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 Class AcuseCancelacionSAT
|
||||||
Public Property CodigoEstatus As String
|
Public Property CodigoEstatus As String
|
||||||
Public Property EsCancelable 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"
|
#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
|
'If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||||
|
|
||||||
' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||||
|
|
||||||
' ''DATOS GENERALES
|
' ''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
|
' 'UBICACIONES
|
||||||
' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
|
' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
|
||||||
' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
|
' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
|
||||||
' 'origen
|
' '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.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
|
' Next
|
||||||
|
|
||||||
' End If
|
' End If
|
||||||
|
|
||||||
' 'MERCANCIAS
|
' 'MERCANCIAS
|
||||||
' If Carta.Mercancias IsNot Nothing Then
|
' 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
|
' If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
|
||||||
' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
|
' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
|
||||||
' If concep.ValorMercancia <= 0 Then concep.Moneda = ""
|
' If concep.ValorMercancia <= 0 Then concep.Moneda = ""
|
||||||
' cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""),
|
' cfdi.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)
|
||||||
' 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
|
' 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
|
||||||
' Next
|
' Next
|
||||||
' End If
|
' End If
|
||||||
@@ -2613,18 +2544,18 @@ Public Class Timbrado
|
|||||||
|
|
||||||
' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
|
' 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.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
|
||||||
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
|
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
|
||||||
' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
|
' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
|
||||||
|
|
||||||
' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
|
' 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
|
' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
|
||||||
' cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa)
|
' cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
|
||||||
' Next
|
' Next
|
||||||
|
|
||||||
' End If
|
' End If
|
||||||
@@ -2632,10 +2563,10 @@ Public Class Timbrado
|
|||||||
|
|
||||||
' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
|
' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
|
||||||
' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
|
' 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
|
' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
|
||||||
' cfdi.CartaPorte30PartesTransporte("PT01")
|
' cfdi.CartaPortePartesTransporte("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.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
|
' End If
|
||||||
' Next
|
' Next
|
||||||
' End If
|
' End If
|
||||||
@@ -2644,6 +2575,70 @@ Public Class Timbrado
|
|||||||
|
|
||||||
'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)
|
||||||
|
|
||||||
|
'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
|
#End Region
|
||||||
|
|
||||||
@@ -2652,7 +2647,6 @@ Public Class Timbrado
|
|||||||
|
|
||||||
If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
|
If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
|
||||||
|
|
||||||
|
|
||||||
cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA,
|
cfdi.Pago20Totales(ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIVA,
|
||||||
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR,
|
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesISR,
|
||||||
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS,
|
ObjCFDITimbre.ComplementoPagos20.TotalRetencionesIEPS,
|
||||||
@@ -2975,15 +2969,12 @@ Public Class Timbrado
|
|||||||
sw.Start()
|
sw.Start()
|
||||||
'Verifica el error
|
'Verifica el error
|
||||||
If cfdi.Mensaje = "" Then
|
If cfdi.Mensaje = "" Then
|
||||||
|
|
||||||
Dim FolioFiscal As String
|
|
||||||
Dim SelloCfdi As String
|
Dim SelloCfdi As String
|
||||||
|
|
||||||
UUID = cfdi.CfdiInfo.UUID
|
UUID = cfdi.CfdiInfo.UUID
|
||||||
FolioFiscal = cfdi.CfdiInfo.UUID
|
|
||||||
SelloCfdi = cfdi.CfdiInfo.SelloCfdi
|
SelloCfdi = cfdi.CfdiInfo.SelloCfdi
|
||||||
|
|
||||||
If FolioFiscal <> "" Then
|
If UUID <> "" Then
|
||||||
|
|
||||||
cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
|
cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
|
||||||
|
|
||||||
@@ -2997,7 +2988,7 @@ Public Class Timbrado
|
|||||||
|
|
||||||
Using ObjNomina2 As New ClsNominas()
|
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 = ""
|
Retorno = ""
|
||||||
Else
|
Else
|
||||||
Retorno = "Error"
|
Retorno = "Error"
|
||||||
@@ -3007,7 +2998,7 @@ Public Class Timbrado
|
|||||||
Case "T"
|
Case "T"
|
||||||
|
|
||||||
Dim objGrales As New ClsGenerales
|
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 = ""
|
Retorno = ""
|
||||||
Else
|
Else
|
||||||
Retorno = "Error"
|
Retorno = "Error"
|
||||||
@@ -3015,7 +3006,7 @@ Public Class Timbrado
|
|||||||
objGrales.Dispose()
|
objGrales.Dispose()
|
||||||
|
|
||||||
Using ObjInv As New ClsInventarios()
|
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 = ""
|
Retorno = ""
|
||||||
Else
|
Else
|
||||||
Retorno = "Error"
|
Retorno = "Error"
|
||||||
@@ -3030,7 +3021,7 @@ Public Class Timbrado
|
|||||||
|
|
||||||
Using ObjVentas As New ClsVentas()
|
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 = ""
|
Retorno = ""
|
||||||
Else
|
Else
|
||||||
Retorno = "Error"
|
Retorno = "Error"
|
||||||
@@ -3055,12 +3046,30 @@ Public Class Timbrado
|
|||||||
Try
|
Try
|
||||||
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
|
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
|
||||||
Dim qrCode As New GoFac.QrCode()
|
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)
|
File.WriteAllBytes(RutaCBB, bCBB)
|
||||||
bCBB = Nothing
|
bCBB = Nothing
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
OnError("Ocurrió un error al generar el QR", ex)
|
OnError("Ocurrió un error al generar el QR", ex)
|
||||||
End Try
|
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 = ""
|
Retorno = ""
|
||||||
Else
|
Else
|
||||||
Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
|
Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
|
||||||
@@ -3336,7 +3345,7 @@ Public Class Timbrado
|
|||||||
Else
|
Else
|
||||||
Retorno = result.mensaje
|
Retorno = result.mensaje
|
||||||
MensajeErrorCFDI = result.codigo
|
MensajeErrorCFDI = result.codigo
|
||||||
'If cfdi.Xml <> "" Then cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
|
cfdi.EscribirXml(RutaArchivo & "\" & NombreArchivoXML)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
|||||||
@@ -1,12 +1,7 @@
|
|||||||
<%@ WebHandler Language="VB" Class="CargaEventos" %>
|
<%@ WebHandler Language="VB" Class="CargaEventos" %>
|
||||||
Option Explicit On
|
Option Explicit Off
|
||||||
Option Strict On
|
Option Strict On
|
||||||
|
|
||||||
Imports System
|
|
||||||
Imports System.Web
|
|
||||||
Imports System.Collections
|
|
||||||
Imports System.Collections.Generic
|
|
||||||
Imports System.Web.SessionState
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
|
|
||||||
@@ -17,8 +12,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
|
|||||||
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
||||||
context.Response.ContentType = "text/plain"
|
context.Response.ContentType = "text/plain"
|
||||||
|
|
||||||
Dim CveUsuario = -1
|
Dim CveUsuario As Integer = -1
|
||||||
Dim CveEmpresa = -1
|
Dim CveEmpresa As Integer = -1
|
||||||
Dim FI As Date
|
Dim FI As Date
|
||||||
Dim FF 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
|
ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
|
||||||
Get
|
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 Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
|||||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
@@ -2145,6 +2145,7 @@ Partial Class PopUpVerFactura
|
|||||||
'EMISOR
|
'EMISOR
|
||||||
Dim LugarExpedicion As String = ""
|
Dim LugarExpedicion As String = ""
|
||||||
Dim ImgCBB As String = ""
|
Dim ImgCBB As String = ""
|
||||||
|
Dim ImgCCP As String = ""
|
||||||
'COMPROBANTE
|
'COMPROBANTE
|
||||||
Dim SerieFolio As String = ""
|
Dim SerieFolio As String = ""
|
||||||
Dim Telefono As String = ""
|
Dim Telefono As String = ""
|
||||||
@@ -2175,6 +2176,7 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
Dim PlacaVM As String = ""
|
Dim PlacaVM As String = ""
|
||||||
Dim AnioModeloVM As String = ""
|
Dim AnioModeloVM As String = ""
|
||||||
|
Dim PesoBrutoVehicular As String = ""
|
||||||
'TIMBRADO
|
'TIMBRADO
|
||||||
Dim FolioFiscal As String = ""
|
Dim FolioFiscal As String = ""
|
||||||
Dim NoCertificadoSAT 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 RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
|
||||||
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
|
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 Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
|
||||||
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
||||||
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
||||||
Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version")
|
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
|
If Version = "3.3" Then
|
||||||
cfdVer = "http://www.sat.gob.mx/cfd/3"
|
cfdVer = "http://www.sat.gob.mx/cfd/3"
|
||||||
Else ' se considera que es la version 4.0
|
Else ' se considera que es la version 4.0
|
||||||
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
params.Add(New ReportParameter("CFDIVersion", Version))
|
||||||
|
|
||||||
namespaces.AddNamespace(Prefijo, cfdVer)
|
namespaces.AddNamespace(Prefijo, cfdVer)
|
||||||
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
||||||
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
||||||
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
||||||
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
|
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
|
||||||
namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
|
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)
|
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
|
||||||
If nodeComprobante IsNot Nothing Then
|
If nodeComprobante IsNot Nothing Then
|
||||||
@@ -2320,24 +2361,25 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante/{0}:Complemento", Prefijo), namespaces)
|
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
|
If nodeCartaPorte IsNot Nothing Then
|
||||||
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
|
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
|
||||||
End If
|
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
|
If nodeAutotransporteFederal IsNot Nothing Then
|
||||||
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
|
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
|
||||||
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
|
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
|
||||||
End If
|
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
|
If nodeIdentificacionVehicular IsNot Nothing Then
|
||||||
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
|
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
|
||||||
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
|
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
|
||||||
|
PesoBrutoVehicular = ValorXML(nodeIdentificacionVehicular, "PesoBrutoVehicular", "")
|
||||||
End If
|
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
|
If nodeIdentificacionVehicular IsNot Nothing Then
|
||||||
AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
|
AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
|
||||||
NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")
|
NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")
|
||||||
@@ -2350,7 +2392,7 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
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 IsNot Nothing Then
|
||||||
If nodeRemolques.ChildNodes.Count = 1 Then
|
If nodeRemolques.ChildNodes.Count = 1 Then
|
||||||
@@ -2370,7 +2412,7 @@ Partial Class PopUpVerFactura
|
|||||||
' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
|
' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
|
||||||
'End If
|
'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
|
For Each node As XmlNode In nodeMercancias
|
||||||
Dim Row As DataRow = DtMercancias.NewRow
|
Dim Row As DataRow = DtMercancias.NewRow
|
||||||
|
|
||||||
@@ -2385,7 +2427,7 @@ Partial Class PopUpVerFactura
|
|||||||
DtMercancias.Rows.Add(Row)
|
DtMercancias.Rows.Add(Row)
|
||||||
Next
|
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
|
If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
|
||||||
Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
|
Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
|
||||||
Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
|
Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
|
||||||
@@ -2396,7 +2438,7 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias))
|
params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias))
|
||||||
End If
|
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
|
For Each node As XmlNode In nodeOperadores
|
||||||
Dim Row As DataRow = DtOperadores.NewRow
|
Dim Row As DataRow = DtOperadores.NewRow
|
||||||
|
|
||||||
@@ -2408,7 +2450,7 @@ Partial Class PopUpVerFactura
|
|||||||
Next
|
Next
|
||||||
|
|
||||||
Dim DistanciaTotal As Decimal = 0
|
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
|
For Each node As XmlNode In nodeUbicaciones
|
||||||
Dim Row As DataRow = DtUbicaciones.NewRow
|
Dim Row As DataRow = DtUbicaciones.NewRow
|
||||||
|
|
||||||
@@ -2419,7 +2461,7 @@ Partial Class PopUpVerFactura
|
|||||||
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
|
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
|
||||||
Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
|
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
|
If nodeDomicilio IsNot Nothing Then
|
||||||
|
|
||||||
Dim Estado As String = ""
|
Dim Estado As String = ""
|
||||||
@@ -2515,6 +2557,23 @@ Partial Class PopUpVerFactura
|
|||||||
ImgCBB = ""
|
ImgCBB = ""
|
||||||
End If
|
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
|
End If
|
||||||
|
|
||||||
If DtConceptos.Rows.Count > 0 Then
|
If DtConceptos.Rows.Count > 0 Then
|
||||||
@@ -2550,9 +2609,12 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
params.Add(New ReportParameter("PlacaVM", PlacaVM))
|
params.Add(New ReportParameter("PlacaVM", PlacaVM))
|
||||||
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
|
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
|
||||||
|
params.Add(New ReportParameter("PesoBrutoVehicular", PesoBrutoVehicular))
|
||||||
|
|
||||||
'TIMBRADO
|
'TIMBRADO
|
||||||
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
||||||
params.Add(New ReportParameter("QR", ImgCBB))
|
params.Add(New ReportParameter("QR", ImgCBB))
|
||||||
|
params.Add(New ReportParameter("QRCCP", ImgCCP))
|
||||||
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
||||||
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
|
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
|
||||||
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
|
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
|
||||||
@@ -2981,6 +3043,7 @@ Partial Class PopUpVerFactura
|
|||||||
Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
|
Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
|
||||||
Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
|
Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
|
||||||
Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
|
Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
|
||||||
|
Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString
|
||||||
|
|
||||||
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
||||||
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
4048
Empresas/186/Formatos/Cotizacion.mrt
Normal file
4048
Empresas/186/Formatos/Cotizacion.mrt
Normal file
File diff suppressed because it is too large
Load Diff
256
Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc
Normal file
256
Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc
Normal 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
1575
Empresas/186/Formatos/Factura.mrt
Normal file
File diff suppressed because it is too large
Load Diff
1571
Empresas/186/Formatos/NotaDevolucion.mrt
Normal file
1571
Empresas/186/Formatos/NotaDevolucion.mrt
Normal file
File diff suppressed because it is too large
Load Diff
1153
Empresas/186/Formatos/Pedido.mrt
Normal file
1153
Empresas/186/Formatos/Pedido.mrt
Normal file
File diff suppressed because it is too large
Load Diff
1153
Empresas/186/Formatos/Remision.mrt
Normal file
1153
Empresas/186/Formatos/Remision.mrt
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -958,27 +958,20 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
ObjProv.IniciaTransacSQL()
|
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 Codigo As String = Row("Codigo").ToString()
|
||||||
Dim RazonSocial As String = Row("RazonSocial").ToString()
|
Dim RazonSocial As String = Row("RazonSocial").ToString()
|
||||||
|
|
||||||
If RazonSocial.Trim.Length = 0 Then
|
If RazonSocial.Trim.Length = 0 Then
|
||||||
Continue For
|
Continue For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim RFC As String = Row("RFC").ToString().Trim
|
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 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 NumExt As String = Row("Número exterior").ToString()
|
||||||
|
|
||||||
|
|
||||||
' Dim Colonia As String = Row("Colonia").ToString()
|
' Dim Colonia As String = Row("Colonia").ToString()
|
||||||
Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
|
Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
|
||||||
|
|
||||||
' Dim Poblacion As String = Row("Población").ToString()
|
' Dim Poblacion As String = Row("Población").ToString()
|
||||||
|
|
||||||
'Dim Estado As String = Row("Estado").ToString()
|
'Dim Estado As String = Row("Estado").ToString()
|
||||||
Dim Telefono As String = Row("Teléfono").ToString()
|
Dim Telefono As String = Row("Teléfono").ToString()
|
||||||
Dim ContactoMail As String = Row("Contacto").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()
|
CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
|
Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
|
||||||
Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
|
Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
|
||||||
Dim Moneda As String = Row("Moneda Preferente").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>")
|
sbErrores.AppendLine($"Proveedor {RazonSocial} Tipo Operación {DIOTipoOperacion} invalida.<br>")
|
||||||
ErrorProv = True
|
ErrorProv = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
|
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
|
||||||
CveMoneda = 1
|
CveMoneda = 1
|
||||||
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
|
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
|
||||||
@@ -1147,7 +1134,7 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
If Not ErrorCuentaDeposito Then
|
If Not ErrorCuentaDeposito Then
|
||||||
Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
|
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
|
'ErrorProv = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1166,10 +1153,8 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorProv Then
|
If Not ErrorProv Then
|
||||||
ObjProv.Commit()
|
ObjProv.Commit()
|
||||||
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados
|
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
|
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
|
||||||
CveMoneda = 1
|
CveMoneda = 1
|
||||||
TipoCambio = "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
|
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
|
End If
|
||||||
|
|
||||||
'Si no se especifica TC, se manda como pesos.
|
'Si no se especifica TC, se manda como pesos.
|
||||||
|
|||||||
@@ -101,7 +101,7 @@
|
|||||||
|
|
||||||
|
|
||||||
<asp:GridView ID="GVCalculoISRAnual" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCalculoISRAnual Widthall" AutoGenerateColumns="False"
|
<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>
|
<Columns>
|
||||||
<asp:TemplateField HeaderText="Aplica">
|
<asp:TemplateField HeaderText="Aplica">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
|
|||||||
@@ -379,10 +379,12 @@ Partial Class Nomina_CatPeriodos
|
|||||||
Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
|
Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
|
||||||
Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
|
Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
|
||||||
Dim numero As Integer = TxtNumeroCM.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
|
Using onom As New ClsNominas
|
||||||
If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||||
|
CargaDatos()
|
||||||
|
RegistraScript("$('#divCargaMasiva').modal('hide');")
|
||||||
Alert("Se cargo satisfactoriamente.")
|
Alert("Se cargo satisfactoriamente.")
|
||||||
End If
|
End If
|
||||||
End Using
|
End Using
|
||||||
|
|||||||
@@ -2898,6 +2898,14 @@
|
|||||||
<ajax:ValidatorCalloutExtender ID="VcoVacadiasVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvVacadiasVacaciones"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VcoVacadiasVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvVacadiasVacaciones"></ajax:ValidatorCalloutExtender>
|
||||||
</div>
|
</div>
|
||||||
</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">
|
<div class="text-right">
|
||||||
<asp:Button ID="BtnVacaADD" OnClick="BtnVacaADD_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMVacaEmpresa" />
|
<asp:Button ID="BtnVacaADD" OnClick="BtnVacaADD_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMVacaEmpresa" />
|
||||||
</div>
|
</div>
|
||||||
@@ -2915,20 +2923,49 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body">
|
<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"
|
<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>
|
<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>
|
<ItemTemplate>
|
||||||
<asp:Label ID="lblinicio" runat="server" Text='<%# Eval("Inicio")%>'> </asp:Label>
|
<asp:Label ID="lblinicio" runat="server" Text='<%# Eval("Inicio")%>'> </asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Fin">
|
<asp:TemplateField HeaderText="Fin" ItemStyle-HorizontalAlign="right">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="lblfin" runat="server" Text='<%# Eval("Fin")%>'> </asp:Label>
|
<asp:Label ID="lblfin" runat="server" Text='<%# Eval("Fin")%>'> </asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Dias Vacaciones">
|
<asp:TemplateField HeaderText="Dias Vacaciones" ItemStyle-HorizontalAlign="right">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="Label5" runat="server" Text='<%# Eval("DiasVacaciones")%>'> </asp:Label>
|
<asp:Label ID="Label5" runat="server" Text='<%# Eval("DiasVacaciones")%>'> </asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
@@ -2946,6 +2983,7 @@
|
|||||||
</Columns>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
@@ -2953,7 +2991,22 @@
|
|||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
<ajax:TabPanel ID="TTFactorDesctInfonavit" runat="server" HeaderText="Factor descuento Infonavit">
|
<ajax:TabPanel ID="TTFactorDesctInfonavit" runat="server" HeaderText="Factor descuento Infonavit">
|
||||||
<ContentTemplate>
|
<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>
|
</ContentTemplate>
|
||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
<ajax:TabPanel ID="TTFactorSDI" runat="server" HeaderText="Factor SD" Visible="false">
|
<ajax:TabPanel ID="TTFactorSDI" runat="server" HeaderText="Factor SD" Visible="false">
|
||||||
|
|||||||
@@ -13,6 +13,7 @@ using static Extensiones.ModExtensiones;
|
|||||||
using Modelos;
|
using Modelos;
|
||||||
using System.Text.RegularExpressions;
|
using System.Text.RegularExpressions;
|
||||||
using iTextSharp.text.pdf.parser;
|
using iTextSharp.text.pdf.parser;
|
||||||
|
using Profact.TimbraCFDI40;
|
||||||
|
|
||||||
public partial class Nomina_Nomina2 : ClsPaginas
|
public partial class Nomina_Nomina2 : ClsPaginas
|
||||||
{
|
{
|
||||||
@@ -7225,7 +7226,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
int chkImporteValor = 1;
|
int chkImporteValor = 1;
|
||||||
string[] getcolumnas = new string[] { "CvePersonal", "Nombre", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
|
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;
|
DataTable dtconp = null;
|
||||||
//int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar
|
//int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar
|
||||||
|
|
||||||
@@ -7245,7 +7246,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
string erroralturizar = "";
|
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();
|
StringBuilder strbuilder = new StringBuilder();
|
||||||
foreach (DataRow itf in dtrFail.Rows)
|
foreach (DataRow itf in dtrFail.Rows)
|
||||||
{
|
{
|
||||||
@@ -7337,8 +7338,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
if (continuar)
|
if (continuar)
|
||||||
{
|
{
|
||||||
objNomina.Commit();
|
objNomina.Commit();
|
||||||
@@ -9051,7 +9050,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
if (continuar)
|
if (continuar)
|
||||||
{
|
{
|
||||||
Alert("las cuentas hán sido asignadas.");
|
Alert("Las cuentas han sido asignadas correctamente.");
|
||||||
RegistraScript("$('#ModalRegistraProvision').modal('hide');");
|
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()
|
protected void CargaVacacionesEmpresas()
|
||||||
{
|
{
|
||||||
|
int ejercicio = TxtEjercicioFiltroVacaciones.Text.Trim() == "" ? -1: TxtEjercicioFiltroVacaciones.Text.Trim().ToEntero();
|
||||||
using (ClsRH ObjVaca = new ClsRH())
|
using (ClsRH ObjVaca = new ClsRH())
|
||||||
{
|
{
|
||||||
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1);
|
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1, ejercicio);
|
||||||
GVVacacionesEmpresas.DataSource = ObjVaca.DtResultados;
|
GVVacacionesEmpresas.DataSource = ObjVaca.DtResultados;
|
||||||
ObjVaca.Dispose();
|
ObjVaca.Dispose();
|
||||||
}
|
}
|
||||||
@@ -9707,18 +9711,19 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
int diasVacaciones = TxtVacadiasVacaciones.Text.ToEntero();
|
int diasVacaciones = TxtVacadiasVacaciones.Text.ToEntero();
|
||||||
int Cinicio = TxtVacaInicio.Text.ToEntero();
|
int Cinicio = TxtVacaInicio.Text.ToEntero();
|
||||||
int Cfin = TxtVacaFin.Text.ToEntero();
|
int Cfin = TxtVacaFin.Text.ToEntero();
|
||||||
|
int ejercicio = TxtEjercicioVacaciones.Text.ToEntero();
|
||||||
bool Continuar = false;
|
bool Continuar = false;
|
||||||
using (ClsRH ObjVaca = new ClsRH())
|
using (ClsRH ObjVaca = new ClsRH())
|
||||||
{
|
{
|
||||||
|
|
||||||
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones);
|
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones, ejercicio);
|
||||||
}
|
}
|
||||||
if (Continuar)
|
if (Continuar)
|
||||||
{
|
{
|
||||||
RegistraScript("$('#DModalVacacionesEmpresas').modal('hide');");
|
RegistraScript("$('#DModalVacacionesEmpresas').modal('hide');");
|
||||||
CargaVacacionesEmpresas();
|
CargaVacacionesEmpresas();
|
||||||
upDatosVacaEmpre.Update();
|
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 CcveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero();
|
||||||
int Cinicio = gvRow.DataKey("Inicio").ToEntero();
|
int Cinicio = gvRow.DataKey("Inicio").ToEntero();
|
||||||
int Cfin = gvRow.DataKey("Fin").ToEntero();
|
int Cfin = gvRow.DataKey("Fin").ToEntero();
|
||||||
|
int Ejercicio = gvRow.DataKey("Ejercicio").ToEntero();
|
||||||
bool Continuar = false;
|
bool Continuar = false;
|
||||||
using (ClsRH ObjVaca = new ClsRH())
|
using (ClsRH ObjVaca = new ClsRH())
|
||||||
{
|
{
|
||||||
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin);
|
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin, Ejercicio);
|
||||||
}
|
}
|
||||||
if (Continuar)
|
if (Continuar)
|
||||||
{
|
{
|
||||||
@@ -10893,7 +10899,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
public class cedulaSUAEmpleadosdatos
|
public class cedulaSUAEmpleadosdatos
|
||||||
{
|
{
|
||||||
|
|
||||||
public string Clave { get; set; }
|
public string Clave { get; set; }
|
||||||
public string Fecha { get; set; }
|
public string Fecha { get; set; }
|
||||||
public string Dias { get; set; }
|
public string Dias { get; set; }
|
||||||
@@ -10915,9 +10920,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
public string fechamovto { get; set; }
|
public string fechamovto { get; set; }
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
protected void LnkCargaMasiva_Click(object sender, EventArgs e)
|
protected void LnkCargaMasiva_Click(object sender, EventArgs e)
|
||||||
{
|
{
|
||||||
|
|
||||||
@@ -10925,7 +10927,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero();
|
int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero();
|
||||||
int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero();
|
int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero();
|
||||||
int numero = TxtNumeroCM.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())
|
using (ClsNominas onom = new ClsNominas())
|
||||||
{
|
{
|
||||||
@@ -10935,4 +10937,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
@@ -385,7 +385,7 @@ Partial Class OS_Asignaciones
|
|||||||
TmpDTOS = ObjOS.DtResultados
|
TmpDTOS = ObjOS.DtResultados
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjOS.GetDetalleMateriales(-1, CveOS, 1, False) Then
|
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
|
||||||
TmpDTMaterialesOS = ObjOS.DtResultados
|
TmpDTMaterialesOS = ObjOS.DtResultados
|
||||||
End If
|
End If
|
||||||
Dim lrds As New List(Of ReportDataSource)
|
Dim lrds As New List(Of ReportDataSource)
|
||||||
|
|||||||
@@ -75,7 +75,7 @@
|
|||||||
|
|
||||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<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>
|
<Columns>
|
||||||
<asp:TemplateField HeaderText="Clave">
|
<asp:TemplateField HeaderText="Clave">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
@@ -105,18 +105,6 @@
|
|||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="E" runat="server" Text='<%# Eval("PopUp", "{0}") %>'></asp:Label>
|
<asp:Label ID="E" runat="server" Text='<%# Eval("PopUp", "{0}") %>'></asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField HeaderText="Ancho">
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Label ID="F" runat="server" Text='<%# Eval("Ancho", "{0}") %>'></asp:Label>
|
|
||||||
</ItemTemplate>
|
|
||||||
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField HeaderText="Alto">
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Label ID="G" runat="server" Text='<%# Eval("Alto", "{0}") %>'></asp:Label>
|
|
||||||
</ItemTemplate>
|
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Orden">
|
<asp:TemplateField HeaderText="Orden">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
@@ -127,18 +115,6 @@
|
|||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="Estilo" runat="server" Text='<%# Eval("Estilo", "{0}") %>'></asp:Label>
|
<asp:Label ID="Estilo" runat="server" Text='<%# Eval("Estilo", "{0}") %>'></asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField HeaderText="Incluye" ItemStyle-HorizontalAlign="Center">
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Label ID="I" runat="server" Text='<%# Eval("Incluye", "{0}") %>'></asp:Label>
|
|
||||||
</ItemTemplate>
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField HeaderText="Agrupación" ItemStyle-HorizontalAlign="Center">
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Label ID="J" runat="server" Text='<%# Eval("Agrupacion", "{0}") %>'></asp:Label>
|
|
||||||
</ItemTemplate>
|
|
||||||
|
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Fecha">
|
<asp:TemplateField HeaderText="Fecha">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
@@ -177,73 +153,113 @@
|
|||||||
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Modulos</asp:Literal></h4>
|
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Modulos</asp:Literal></h4>
|
||||||
</div>
|
</div>
|
||||||
<div class="modal-body">
|
<div class="modal-body">
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="row">
|
||||||
<asp:TextBox ID="TxtClave" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
<div class="col-md-6">
|
||||||
<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>
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<label for="<%= TxtClave.ClientID.ToString()%>">Clave:</label>
|
<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>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="row">
|
||||||
<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="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>
|
||||||
<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>
|
<div class="row">
|
||||||
<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>
|
<div class="col-md-6">
|
||||||
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
</div>
|
<asp:TextBox ID="TxtOrden" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<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>
|
||||||
<asp:TextBox ID="TxtLiga" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
|
||||||
<label for="<%= TxtLiga.ClientID.ToString()%>">Liga:</label>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="col-md-6">
|
||||||
<asp:DropDownList ID="CboPopUp" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
|
<asp:DropDownList ID="CboPopUp" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Width="55px">
|
||||||
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
|
<asp:ListItem Selected="True" Text="No" Value="N"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
<asp:ListItem Text="Si" Value="S"></asp:ListItem>
|
||||||
<label for="<%= CboPopUp.ClientID.ToString()%>">Pop Up:</label>
|
</asp:DropDownList>
|
||||||
</div>
|
<label for="<%= CboPopUp.ClientID.ToString()%>">Pop Up:</label>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
</div>
|
||||||
<asp:TextBox ID="TxtAncho" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
</div>
|
||||||
<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>
|
</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>
|
||||||
<div class="modal-footer">
|
<div class="modal-footer">
|
||||||
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
|
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
|
||||||
|
|||||||
@@ -87,18 +87,18 @@ Partial Class CatModulos
|
|||||||
'e.Row.Cells(14).Width = Unit.Pixel(68)
|
'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("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("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("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(0).HorizontalAlign = HorizontalAlign.Center
|
||||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||||
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
||||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
||||||
|
|
||||||
If e.Row.RowState = DataControlRowState.Normal OrElse e.Row.RowState = DataControlRowState.Alternate Then
|
If e.Row.RowState = DataControlRowState.Normal OrElse e.Row.RowState = DataControlRowState.Alternate Then
|
||||||
|
|
||||||
|
|||||||
@@ -414,7 +414,7 @@
|
|||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<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>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
@@ -488,9 +488,6 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
|
||||||
@@ -498,7 +495,7 @@
|
|||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<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>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
|
|||||||
@@ -390,9 +390,6 @@ Partial Class Sistemas_DefinicionEmpresa
|
|||||||
BtnGuardar.Text = "Guardar Cambios"
|
BtnGuardar.Text = "Guardar Cambios"
|
||||||
'Plantilla Correo
|
'Plantilla Correo
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -62,7 +62,7 @@
|
|||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -291,7 +291,7 @@
|
|||||||
|
|
||||||
<div class="col-md-6">
|
<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="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<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="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -407,7 +407,7 @@
|
|||||||
|
|
||||||
<asp:UpdatePanel runat="server" ID="UpmodalFiel" UpdateMode="Conditional">
|
<asp:UpdatePanel runat="server" ID="UpmodalFiel" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<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="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -499,7 +499,7 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -542,11 +542,11 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<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>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
@@ -602,11 +602,11 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<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>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
@@ -663,7 +663,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<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="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -738,7 +738,7 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -811,7 +811,7 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="portlet light smmallpadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -851,7 +851,7 @@
|
|||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -912,7 +912,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="col-md-6">
|
<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="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -943,7 +943,7 @@
|
|||||||
</table>
|
</table>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -1001,7 +1001,7 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -1054,7 +1054,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -1126,7 +1126,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
|
||||||
<div class="portlet light smmallpadding bordered">
|
<div class="portlet light xspadding bordered">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
|
|||||||
269
Ventas/CatEspecialidadesSubEspecialidades.aspx
Normal file
269
Ventas/CatEspecialidadesSubEspecialidades.aspx
Normal 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
291
Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
Normal 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
|
||||||
@@ -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>
|
<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>
|
||||||
<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>
|
||||||
|
|
||||||
<li>
|
<li>
|
||||||
@@ -225,7 +225,7 @@
|
|||||||
<div class="col-md-12">
|
<div class="col-md-12">
|
||||||
|
|
||||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
|
<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">
|
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
|
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
|
||||||
@@ -311,7 +311,7 @@
|
|||||||
</ajax:TabPanel>
|
</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>
|
<ContentTemplate>
|
||||||
|
|
||||||
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
|
||||||
@@ -471,12 +471,25 @@
|
|||||||
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
|
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp: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>
|
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
|
||||||
</div>
|
</div>
|
||||||
</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>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
@@ -512,12 +525,18 @@
|
|||||||
<label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
|
<label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-3">
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<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>
|
<asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
||||||
<label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
|
<label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
|
||||||
</div>
|
</div>
|
||||||
</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>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
@@ -560,7 +579,7 @@
|
|||||||
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
<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"
|
<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>
|
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>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -42,6 +42,7 @@ Partial Class Ventas_CatMedicos
|
|||||||
CargaCombos()
|
CargaCombos()
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
CargaEspecialidad()
|
CargaEspecialidad()
|
||||||
|
CargaSubEspecialidad(-1)
|
||||||
BtnConsultar_Click(Nothing, Nothing)
|
BtnConsultar_Click(Nothing, Nothing)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
@@ -80,12 +81,12 @@ Partial Class Ventas_CatMedicos
|
|||||||
|
|
||||||
If CveMedico > 0 Then
|
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,
|
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
|
ProcesoOK = True
|
||||||
End If
|
End If
|
||||||
Else
|
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,
|
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
|
ProcesoOK = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -144,7 +145,7 @@ Partial Class Ventas_CatMedicos
|
|||||||
Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)
|
Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
LbAgregar.Text = "Agregar"
|
LbAgregar.Text = "Agregar"
|
||||||
LtlTituloModal.Text = "Agregar Medico"
|
LtlTituloModal.Text = "Agregar Médico"
|
||||||
|
|
||||||
TxtMedico.Text = ""
|
TxtMedico.Text = ""
|
||||||
TxtCedulaProfecional.Text = ""
|
TxtCedulaProfecional.Text = ""
|
||||||
@@ -158,6 +159,8 @@ Partial Class Ventas_CatMedicos
|
|||||||
TxtTelefono.Text = ""
|
TxtTelefono.Text = ""
|
||||||
TxtCelular.Text = ""
|
TxtCelular.Text = ""
|
||||||
DdlEspecialidad.SelectedValueExist(-1)
|
DdlEspecialidad.SelectedValueExist(-1)
|
||||||
|
DdlSubEspecialidad.SelectedValueExist(-1)
|
||||||
|
TxtTorre.Text = ""
|
||||||
|
|
||||||
DVEstatus.Visible = False
|
DVEstatus.Visible = False
|
||||||
ChkEstatus.Checked = True
|
ChkEstatus.Checked = True
|
||||||
@@ -189,10 +192,13 @@ Partial Class Ventas_CatMedicos
|
|||||||
TxtCelular.Text = GvRow.DataKey("Celular")
|
TxtCelular.Text = GvRow.DataKey("Celular")
|
||||||
DdlEspecialidad.SelectedValueExist(-1)
|
DdlEspecialidad.SelectedValueExist(-1)
|
||||||
DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
|
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
|
DVEstatus.Visible = True
|
||||||
LbAgregar.Text = "Actualizar"
|
LbAgregar.Text = "Actualizar"
|
||||||
LtlTituloModal.Text = $"Actualizar Medico {TxtCedulaProfecional.Text}"
|
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
|
||||||
|
|
||||||
UpModal.Update()
|
UpModal.Update()
|
||||||
RegistraScript("$('#DVAgregarMedico').modal();")
|
RegistraScript("$('#DVAgregarMedico').modal();")
|
||||||
@@ -373,6 +379,7 @@ Partial Class Ventas_CatMedicos
|
|||||||
ChkEstatusEspecialidad.Checked = True
|
ChkEstatusEspecialidad.Checked = True
|
||||||
UpModalEspecialidad.Update()
|
UpModalEspecialidad.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub CargaEspecialidad()
|
Sub CargaEspecialidad()
|
||||||
Dim ObjVentas As New ClsVentas
|
Dim ObjVentas As New ClsVentas
|
||||||
|
|
||||||
@@ -395,6 +402,26 @@ Partial Class Ventas_CatMedicos
|
|||||||
|
|
||||||
End Sub
|
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)
|
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -735,7 +735,7 @@
|
|||||||
<div class="col-md-10">
|
<div class="col-md-10">
|
||||||
<div runat="server" class="form-group form-md-line-input input-iconright">
|
<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: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."
|
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>
|
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||||
<label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
|
<label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
|
||||||
|
|||||||
@@ -2520,6 +2520,15 @@ Partial Class Clientes
|
|||||||
|
|
||||||
Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()
|
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
|
If Not ErrorProceso Then
|
||||||
'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
|
'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
|
||||||
If Me.CveCliente = -1 Then
|
If Me.CveCliente = -1 Then
|
||||||
@@ -2642,13 +2651,16 @@ Partial Class Clientes
|
|||||||
ObjClientes.RollBack()
|
ObjClientes.RollBack()
|
||||||
CargaPrecioLista()
|
CargaPrecioLista()
|
||||||
Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError)
|
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
|
Else
|
||||||
ObjClientes.Commit()
|
ObjClientes.Commit()
|
||||||
|
|
||||||
If CveClienteNuevo > 0 Then
|
If CveClienteNuevo > 0 Then
|
||||||
ViewState("CveCliente") = CveClienteNuevo
|
ViewState("CveCliente") = CveClienteNuevo
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjClientes.Dispose()
|
ObjClientes.Dispose()
|
||||||
@@ -5974,14 +5986,26 @@ Partial Class Clientes
|
|||||||
DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
|
DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
CargaDdlAlmacen()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CargaDdlAlmacen()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||||
|
|
||||||
|
DdlAlmacenAsignado.SelectedValue = Nothing
|
||||||
|
DdlAlmacenAsignado.ClearSelection()
|
||||||
|
DdlAlmacenAsignado.Items.Clear()
|
||||||
|
|
||||||
divAlmacenAsignado.Visible = True
|
divAlmacenAsignado.Visible = True
|
||||||
DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
||||||
DdlAlmacenAsignado.DataBind()
|
DdlAlmacenAsignado.DataBind()
|
||||||
DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
|
DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
|
||||||
End If
|
|
||||||
|
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
||||||
@@ -10397,5 +10421,25 @@ Partial Class Clientes
|
|||||||
|
|
||||||
End Function
|
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
|
End Class
|
||||||
|
|
||||||
|
|||||||
@@ -1151,15 +1151,143 @@
|
|||||||
<div class="row form-md-line-input">
|
<div class="row form-md-line-input">
|
||||||
<label class="col-md-4 truncate">Peso en Kg:</label>
|
<label class="col-md-4 truncate">Peso en Kg:</label>
|
||||||
<div class="col-md-8">
|
<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>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-4 truncate">Dimensiones:</label>
|
<label class="col-md-4 truncate">Dimensiones:</label>
|
||||||
<div class="col-md-8">
|
<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>
|
</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>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
|||||||
@@ -2,6 +2,7 @@
|
|||||||
Option Strict On
|
Option Strict On
|
||||||
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlClient
|
||||||
Imports System.IO
|
Imports System.IO
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports ZXing
|
Imports ZXing
|
||||||
@@ -192,6 +193,7 @@ Partial Class ProductosyServicios
|
|||||||
CargarAlias()
|
CargarAlias()
|
||||||
CargaExistencias()
|
CargaExistencias()
|
||||||
End If
|
End If
|
||||||
|
CargaDatosCartaPorte()
|
||||||
Else
|
Else
|
||||||
'Configuración de Modalidad Insert
|
'Configuración de Modalidad Insert
|
||||||
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
|
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
|
||||||
@@ -367,6 +369,7 @@ Partial Class ProductosyServicios
|
|||||||
CargaUnidadesMedida()
|
CargaUnidadesMedida()
|
||||||
CargarMetodosInv()
|
CargarMetodosInv()
|
||||||
CargarMarcas()
|
CargarMarcas()
|
||||||
|
CargaCombosPSComplementos()
|
||||||
'CargaPSAdicional(DdlPSAdicional)
|
'CargaPSAdicional(DdlPSAdicional)
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||||
@@ -452,6 +455,18 @@ Partial Class ProductosyServicios
|
|||||||
|
|
||||||
End Sub
|
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()
|
Private Sub CargaPanelLlantas()
|
||||||
Dim ObjGral As New ClsGenerales()
|
Dim ObjGral As New ClsGenerales()
|
||||||
@@ -1648,6 +1663,12 @@ Partial Class ProductosyServicios
|
|||||||
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
|
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
If Not TieneError Then
|
||||||
|
If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
|
||||||
|
TieneError = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
If Not TieneError Then
|
If Not TieneError Then
|
||||||
ObjProductosServicios.Commit()
|
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)
|
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
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ObjGrales.Dispose()
|
ObjGrales.Dispose()
|
||||||
|
|
||||||
If ValidaMaterialPeligrosoMensaje Then
|
If ValidaMaterialPeligrosoMensaje Then
|
||||||
@@ -3321,11 +3340,29 @@ Partial Class ProductosyServicios
|
|||||||
|
|
||||||
DdlMaterialPeligroso.txtText.Value = ""
|
DdlMaterialPeligroso.txtText.Value = ""
|
||||||
DdlMaterialPeligroso.txtValue.Value = ""
|
DdlMaterialPeligroso.txtValue.Value = ""
|
||||||
|
|
||||||
|
|
||||||
DdlEmbalaje.txtText.Value = ""
|
DdlEmbalaje.txtText.Value = ""
|
||||||
DdlEmbalaje.txtValue.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()
|
UpCartaPorte.Update()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -3334,8 +3371,6 @@ Partial Class ProductosyServicios
|
|||||||
Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
|
Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
|
DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
|
||||||
|
|
||||||
|
|
||||||
If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
|
If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
|
||||||
TxtFechaVigenciaRSCO.Text = ""
|
TxtFechaVigenciaRSCO.Text = ""
|
||||||
End If
|
End If
|
||||||
@@ -3343,4 +3378,78 @@ Partial Class ProductosyServicios
|
|||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
|
|
||||||
End Sub
|
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
|
End Class
|
||||||
|
|||||||
@@ -466,7 +466,7 @@
|
|||||||
<asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
|
<asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
|
||||||
</td>
|
</td>
|
||||||
<td style="text-align: left;">
|
<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>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
|
<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" />
|
<asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
|
||||||
</td>
|
</td>
|
||||||
<td style="text-align: left;">
|
<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>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
|
|
||||||
|
|||||||
@@ -2682,8 +2682,8 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
|
If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
|
||||||
|
|
||||||
GvPS.DataSource = ObjVentas.DtResultados
|
GvPS.DataSource = ObjVentas.DtResultados
|
||||||
|
TmpDT = ObjVentas.DtResultados
|
||||||
GvPS.DataBind()
|
GvPS.DataBind()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -31860,6 +31860,7 @@ Partial Class Ventas
|
|||||||
DdlDireccionEnvio.Enabled = True
|
DdlDireccionEnvio.Enabled = True
|
||||||
LnkOtraDireccion.Visible = True
|
LnkOtraDireccion.Visible = True
|
||||||
TxtAtencionA.Enabled = True
|
TxtAtencionA.Enabled = True
|
||||||
|
TxtDescripcionVenta.Enabled = True
|
||||||
TxtFechaVencimientoCotizacion.Enabled = True
|
TxtFechaVencimientoCotizacion.Enabled = True
|
||||||
|
|
||||||
TxtCantidad.Enabled = True
|
TxtCantidad.Enabled = True
|
||||||
@@ -33627,7 +33628,7 @@ Partial Class Ventas
|
|||||||
ObjVentas.IniciaTransacSQL()
|
ObjVentas.IniciaTransacSQL()
|
||||||
|
|
||||||
If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
|
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
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user