Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Oscar Irigoyen
@@ -465,7 +465,7 @@ Public Class ClsSisEmpresas
|
||||
_Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
|
||||
_Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
|
||||
|
||||
_Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString
|
||||
_Empresa._RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
|
||||
|
||||
Else
|
||||
'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)
|
||||
|
||||
@@ -97,36 +97,24 @@ Public Class Empresa
|
||||
Public Property Soporte_PWD As String
|
||||
Public Property Soporte_Tipo As String
|
||||
Public Property Timbres As Integer
|
||||
Private Property RutaArchivos As String
|
||||
Public Property _RutaArchivos As String
|
||||
|
||||
Public Property Ruta As String
|
||||
Public ReadOnly Property Ruta As String
|
||||
Get
|
||||
If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
|
||||
Return RutaArchivos
|
||||
If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
|
||||
Return _RutaArchivos
|
||||
Else
|
||||
Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
RutaArchivos = value
|
||||
End Set
|
||||
'Set(ByVal value As String)
|
||||
' _RutaArchivos = value
|
||||
'End Set
|
||||
End Property
|
||||
'Public Property IdCuentaIVAxTrasladar As Integer
|
||||
'Public Property IdCuentaIVATrasladado As Integer
|
||||
'Public Property IdCuentaPerdidaCambiaria As Integer
|
||||
'Public Property IdCuentaGananciaCambiaria As Integer
|
||||
' Public Property ContaContabilizacionNC As Integer
|
||||
|
||||
Public Property PV_TerminalTipo As Integer
|
||||
Public Property PlantillaMailVenta As String
|
||||
Public Property AsuntoPlantillaMailVenta As String
|
||||
|
||||
'Nuevas
|
||||
'Public Property IdCuentaIVAxAcreditar As Integer
|
||||
'Public Property IdCuentaIVAAcreditable As Integer
|
||||
'Public Property IdCuentaRetIVACirculacion As Integer
|
||||
'Public Property IdCuentaRetISRCirculacion As Integer
|
||||
'Public Property IdCuentaDSV As Integer
|
||||
'Public Property IdCuentaImpuestosLocales As Integer
|
||||
Public Property AsuntoPlantillaMailVenta As String
|
||||
Public Property IdCtaProveedor As Integer
|
||||
Public Property IdCtaCliente As Integer
|
||||
Public Property IdCtaDeudores As Integer
|
||||
|
||||
@@ -294,7 +294,7 @@ Partial Class PopUpVerFactura
|
||||
'endimg
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
||||
ImprimirPDF("Formatos\Agro\ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
Private Sub rfctxtvalidar()
|
||||
Dim numeroPeriodo As Integer = 0
|
||||
@@ -464,9 +464,9 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
|
||||
Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
|
||||
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
|
||||
rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
|
||||
rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
|
||||
End If
|
||||
ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
@@ -622,7 +622,7 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
|
||||
ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
|
||||
Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
|
||||
@@ -774,7 +774,7 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
|
||||
Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
|
||||
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
|
||||
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
|
||||
'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
|
||||
'ResultadoMail = 3
|
||||
End If
|
||||
ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
|
||||
ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -856,7 +856,7 @@ Partial Class PopUpVerFactura
|
||||
'endimg
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
||||
ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -986,9 +986,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
|
||||
Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
|
||||
'If CvetypeImpresion = 2 Then
|
||||
' ruta = "GPS/PalletEtiqueta_2.rdlc"
|
||||
' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
|
||||
'End If
|
||||
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
@@ -1084,9 +1084,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
|
||||
Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
|
||||
'If CvetypeImpresion = 2 Then
|
||||
' ruta = "GPS/PalletEtiqueta_2.rdlc"
|
||||
' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
|
||||
'End If
|
||||
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
|
||||
End Sub
|
||||
|
||||
63
Global.asax
63
Global.asax
@@ -24,16 +24,9 @@
|
||||
Sub Application_Start(sender As Object, e As EventArgs)
|
||||
Stimulsoft.Base.StiLicense.Key = "6vJhGtLLLz2GNviWmUTrhSqnOItdDwjBylQzQcAOiHmhQEs54hwXWiqhb7jE6yoykR4jHwP3Mz0nuxn0JR9fNMeDKv" + "sS5s+rCYr7Ex4DRTHaUJIUDqrvGmvWyMjzUl9RAEz/XG8RenfJvoEilBZ9Wqq8Uu/n92YhChB4PbAh9FeH3abSU3PF" + "LuVa6GydYWQvZGpHhFs98Idp754TAgWZatzcF3Ksp6q4laYxnyUY0cA0hYejanRBjIT1Nu59xmlOKE7EGIb9wKlLn/" + "XnW8k8PUNuReOk7ATeHO07JSMLikmvIytkWET2bXDmBI43tAX3fLUE+KlOe7FR/hvfQ6oqqtVRlSZ22QBanel09+XE" + "X8aVC8b+WuRv1nInJeQHBD9zF8b67n4ouKRgv2/vSxopOhCZXdaqdyO4ct+FmSC8cAAcMIGeiKnc5ww8Cq44ClTqJl" + "V2qsCjoS4bb8Nzd2Gy+q/TG/D3dAEKSpPGUx2EEksora/kIkNooq6+bgyH7hqCG2bHKaSQwr2g0keNrYIUcTIwROn1" + "cnQDetzsBqX4lvu64VZWq5+cQD+dyPJwOS6M"
|
||||
|
||||
'Dim Licence As String = String.Format("{0}/Bin/ASS151026R37.license", AppDomain.CurrentDomain.BaseDirectory)
|
||||
'Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream(System.IO.File.ReadAllBytes(Licence))
|
||||
|
||||
'HyperSoft.ElectronicDocument.Download.Activation.Activation.LoadActivationFile(stream)
|
||||
|
||||
|
||||
Dim sessionData As New Dictionary(Of String, HttpSessionState)()
|
||||
Application("s") = sessionData
|
||||
|
||||
|
||||
'BANDERA PARA VALIDACION DE CFDI
|
||||
Application("GlobalValidarCFDI") = True
|
||||
|
||||
@@ -42,39 +35,18 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now))
|
||||
Using ObjAC As New ClsAC
|
||||
'If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
|
||||
'If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
|
||||
'If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
|
||||
If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
|
||||
If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
|
||||
'If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
|
||||
'If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
|
||||
'If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
|
||||
If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
|
||||
If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
|
||||
If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
|
||||
If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
|
||||
If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
|
||||
'If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
|
||||
If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
|
||||
'If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
|
||||
If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
|
||||
If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
|
||||
' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing
|
||||
'If ObjAC.GetProyectosProceso() Then Application("GlobalDTAC_ProyectosProceso") = ObjAC.DtResultados Else Application("GlobalDTAC_ProyectosProceso") = Nothing
|
||||
'If ObjAC.GetFuncion() Then Application("GlobalDTAC_Funcion") = ObjAC.DtResultados Else Application("GlobalDTAC_Funcion") = Nothing
|
||||
'If ObjAC.GetSubFuncion() Then Application("GlobalDTAC_SubFuncion") = ObjAC.DtResultados Else Application("GlobalDTAC_SubFuncion") = Nothing
|
||||
'If ObjAC.GetSubProgramas() Then Application("GlobalDTAC_SubProgramas") = ObjAC.DtResultados Else Application("GlobalDTAC_SubProgramas") = Nothing
|
||||
'If ObjAC.GetUbicaciones() Then Application("GlobalDTAC_Ubicaciones") = ObjAC.DtResultados Else Application("GlobalDTAC_Ubicaciones") = Nothing
|
||||
' If ObjAC.GetOG() Then Application("GlobalDTAC_OG") = ObjAC.DtResultados Else Application("GlobalDTAC_OG") = Nothing
|
||||
' If ObjAC.GetClasificadorOG() Then Application("GlobalDTAC_ClasificadorOG") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificadorOG") = Nothing
|
||||
'If ObjAC.GetProgramas() Then Application("GlobalDTAC_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_Programas") = Nothing
|
||||
' If ObjAC.GetCuentas() Then Application("GlobalDTAC_Cuentas") = ObjAC.DtResultados Else Application("GlobalDTAC_Cuentas") = Nothing
|
||||
' If ObjAC.GetDependencias() Then Application("GlobalDTAC_Dependencias") = ObjAC.DtResultados Else Application("GlobalDTAC_Dependencias") = Nothing
|
||||
'If ObjAC.GetFinalidad() Then Application("GlobalDTAC_Finalidad") = ObjAC.DtResultados Else Application("GlobalDTAC_Finalidad") = Nothing
|
||||
End Using
|
||||
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
|
||||
Using Finan As New ClsFinanzas
|
||||
|
||||
@@ -82,23 +54,6 @@
|
||||
|
||||
End Using
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C A R G A - N O M
|
||||
|
||||
'Using ObjNom As New ClsNominas()
|
||||
' 'If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
|
||||
' 'If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
|
||||
' 'If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
|
||||
' 'If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
|
||||
' 'If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
|
||||
' 'If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
|
||||
' 'If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
|
||||
' 'If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
|
||||
' 'If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
|
||||
'End Using
|
||||
|
||||
' GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -110,20 +65,18 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'G L O B A L E S A P L I C A C I Ó N
|
||||
|
||||
|
||||
Using ObjGral As New ClsGenerales
|
||||
If ObjGral.GetTipoCambio(-1, Now) Then
|
||||
If ObjGral.DtResultados.Rows.Count > 0 Then
|
||||
Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
|
||||
End If
|
||||
End If
|
||||
End Using
|
||||
GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
|
||||
'Using ObjGral As New ClsGenerales
|
||||
' If ObjGral.GetTipoCambio(-1, Now) Then
|
||||
' If ObjGral.DtResultados.Rows.Count > 0 Then
|
||||
' Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
|
||||
' End If
|
||||
' End If
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
|
||||
|
||||
|
||||
BundleConfig.RegistrarBundles(BundleTable.Bundles)
|
||||
|
||||
@@ -2810,7 +2810,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
LblEmpleado.Text = Nombre;
|
||||
LblEmpleado.NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", SRCvePersonal);
|
||||
TabPersonal.ActiveTabIndex = 0;
|
||||
DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
DdlTipoAsistenciasB.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
|
||||
DdlTipoAsistenciasB.DataBind();
|
||||
cargaasistenciaSR();
|
||||
mostrarConceptos();
|
||||
@@ -2964,7 +2964,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples");
|
||||
|
||||
// Carga Tipos de Asistencia
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataBind();
|
||||
if (e.Row.DBCampo("CveAsistenciasInasistencias") != "-1")
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias");
|
||||
@@ -7099,7 +7099,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
DdlAsisSubProyecto.SelectedValueExist("-1");
|
||||
if (DdlTipoAsistencias.Items.Count == 1)
|
||||
{
|
||||
DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
|
||||
DdlTipoAsistencias.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
|
||||
DdlTipoAsistencias.DataBind();
|
||||
|
||||
}
|
||||
@@ -8898,7 +8898,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
int CvePersonal = 0;
|
||||
string Codigo;
|
||||
DateTime FechaAsis;
|
||||
DataTable dtasis = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
|
||||
DataTable dtasis = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
|
||||
List<string> listaerrores = new List<string>();
|
||||
using (ClsRH ObjPersonal = new ClsRH())
|
||||
{
|
||||
|
||||
@@ -1323,7 +1323,7 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTiposAsistencia()
|
||||
DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
|
||||
DdlTipoAsistencias.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -1548,7 +1548,7 @@ Partial Class RH_Personal
|
||||
e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
|
||||
|
||||
'Carga Tipos de Asistencia
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
|
||||
If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
|
||||
|
||||
|
||||
@@ -236,24 +236,24 @@ Partial Class Sistemas_CatSesiones
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRH()
|
||||
Dim ObjRH As New ClsRH
|
||||
If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
|
||||
If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
|
||||
If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
|
||||
If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
|
||||
If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
|
||||
If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
|
||||
If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
|
||||
If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
|
||||
If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
|
||||
If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
|
||||
If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
|
||||
If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
|
||||
If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
|
||||
If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
|
||||
If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
|
||||
If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
|
||||
ObjRH.Dispose()
|
||||
'Dim ObjRH As New ClsRH
|
||||
'If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
|
||||
'If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
|
||||
'If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
|
||||
'If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
|
||||
'If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
|
||||
'If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
|
||||
'If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
|
||||
'If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
|
||||
'If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
|
||||
'If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
|
||||
'If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
|
||||
'If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
|
||||
'If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
|
||||
'If ObjRH.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
|
||||
'If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
|
||||
'If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
|
||||
'ObjRH.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user