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

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

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-06-01 18:46:41 -07:00
parent f0486bc754 3ef6d80cc6
commit 6324f02fe5
37 changed files with 651 additions and 403 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsInventarios.vb
View File

@@ -1149,12 +1149,6 @@ Public Class ClsInventarios
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then
Dim dr As DataRow = Data.Rows(0)
CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero
End If
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2952,7 +2946,7 @@ Public Class ClsInventarios
DataAdapter("Vta_UpdateDevolucionVentaDetalle") DataAdapter("Vta_UpdateDevolucionVentaDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVenta .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
.Add("@Valor", SqlDbType.Int).Value = Valor .Add("@Valor", SqlDbType.Int).Value = Valor
End With End With

21
App_Code/ClsNominas.vb
View File

@@ -522,10 +522,28 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function AutorizaNom_Nominas(CvePersonal As Integer, CvePeriodo As Integer, Optional Autorizado As Boolean = True) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_Nominas_Autoriza")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@Autorizado", SqlDbType.Bit).Value = Autorizado
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al autorizar la nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddNom_Nominas(FolioNom As Integer, CveNominaTipo As Integer, CvePersonal As Integer, CvePeriodo As Integer, SubTotal As Double, Descuento As Double, RetISR As Double, Total As Double, Public Function AddNom_Nominas(FolioNom As Integer, CveNominaTipo As Integer, CvePersonal As Integer, CvePeriodo As Integer, SubTotal As Double, Descuento As Double, RetISR As Double, Total As Double,
CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, Fecha As Date, MotivoDescuento As String, Observaciones As String, CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, Fecha As Date, MotivoDescuento As String, Observaciones As String,
Alfa1 As String, Alfa2 As String, Alfa3 As String, Num1 As Double, Num2 As Double, Num3 As Double, Alfa1 As String, Alfa2 As String, Alfa3 As String, Num1 As Double, Num2 As Double, Num3 As Double,
Fech1 As Date, Fech2 As Date, Fech3 As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Fech1 As Date, Fech2 As Date, Fech3 As Date, CveUsuario As Integer, CveEmpresa As Integer, Optional Autorizado As Boolean = True) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasAdd") DataAdapter("PA_Nom_NominasAdd")
@@ -555,6 +573,7 @@ Public Class ClsNominas
.Add("@Fech3", SqlDbType.VarChar).Value = IIf(Fech3.ToString = "01/01/0001 12:00:00 a.m.", "-1", Fech3.ToString) .Add("@Fech3", SqlDbType.VarChar).Value = IIf(Fech3.ToString = "01/01/0001 12:00:00 a.m.", "-1", Fech3.ToString)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Autorizado", SqlDbType.Bit).Value = Autorizado
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With
'SqlTypes.SqlDateTime.Null 'SqlTypes.SqlDateTime.Null

9
App_Code/ClsPaginas.vb
View File

@@ -851,14 +851,7 @@ Public Class ClsPaginas
Application("GlobalDTLeyendasFiscales") = value Application("GlobalDTLeyendasFiscales") = value
End Set End Set
End Property End Property
Property GlobalDTFolios() As DataTable
Get
GlobalDTFolios = DirectCast(Application("GlobalDTFolios"), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTFolios") = value
End Set
End Property
Property GlobalDTEstatusFactura() As DataTable Property GlobalDTEstatusFactura() As DataTable
Get Get
GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable) GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable)

30
App_Code/ClsRH.vb
View File

@@ -2298,10 +2298,36 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
Data = New DataTable
SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaAddUpd2")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya se registró la Asistencia para el empleado.", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar la Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region #End Region
#Region "Asistencias Detalles" #Region "Asistencias Detalles"
Public Function GetAsistenciasDetalle() As Boolean Public Function GetAsistenciasDetalle() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

8
App_Code/Modelos.vb
View File

@@ -6684,14 +6684,6 @@ Namespace Modelos
HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value
End Set End Set
End Property End Property
Property GlobalDTFolios() As DataTable
Get
GlobalDTFolios = DirectCast(HttpContext.Current.Application("GlobalDTFolios"), DataTable)
End Get
Set(value As DataTable)
HttpContext.Current.Application("GlobalDTFolios") = value
End Set
End Property
Property GlobalDTEstatusFactura() As DataTable Property GlobalDTEstatusFactura() As DataTable
Get Get
GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable) GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable)

163
Ashx/SIGFacturacion.ashx
View File

@@ -1,5 +1,5 @@
<%@ WebHandler Language="VB" Class="SIGFacturacion" %> <%@ WebHandler Language="VB" Class="SIGFacturacion" %>
Imports System Imports System
Imports System.Web Imports System.Web
Imports System.Net.Http Imports System.Net.Http
@@ -212,8 +212,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
json.Add(New JProperty("Almacen", ObsInv.ToString())) json.Add(New JProperty("Almacen", ObsInv.ToString()))
Return json Return json
End Function End Function
#Region "V A L I D A - D A T O S" #Region "V A L I D A - D A T O S"
Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
Dim UsuarioActual As Usuario = Nothing Dim UsuarioActual As Usuario = Nothing
@@ -247,8 +247,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
UsuarioActual.Empresa = ObjEmpresa.Empresa UsuarioActual.Empresa = ObjEmpresa.Empresa
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
End Sub End Sub
#End Region #End Region
#Region "D E F I N I R - O B J E T O S" #Region "D E F I N I R - O B J E T O S"
Private Function CreaFactura(Resp As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, DTRemisionesPS As DataTable, CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer, DatosRemisiones As JObject, FechaI As DateTime, FechaF As DateTime) As Modelos.Factura Private Function CreaFactura(Resp As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, DTRemisionesPS As DataTable, CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer, DatosRemisiones As JObject, FechaI As DateTime, FechaF As DateTime) As Modelos.Factura
@@ -750,7 +750,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
'RECARGAR GV 'RECARGAR GV
Return Row Return Row
End Function End Function
#End Region #End Region
#Region "E N V I O - C O R R E O" #Region "E N V I O - C O R R E O"
Private Sub EnviarCorreo(Objfactura As Modelos.Factura, UsuarioActual As Usuario) Private Sub EnviarCorreo(Objfactura As Modelos.Factura, UsuarioActual As Usuario)
@@ -894,9 +894,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
End If End If
End Try End Try
End If End If
End Sub End Sub
#End Region #End Region
Public Sub GuardaLogFacturacion(Str As String) Public Sub GuardaLogFacturacion(Str As String)
Dim ArchivoW As StreamWriter Dim ArchivoW As StreamWriter
Dim strLineaTMP As String Dim strLineaTMP As String
@@ -919,8 +919,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ArchivoW.Close() ArchivoW.Close()
ArchivoW.Dispose() ArchivoW.Dispose()
End Sub End Sub
#Region "G L O B A L - D T" #Region "G L O B A L - D T"
Public Property GlobalTipoCambio(Optional Fecha As Date = MinFecha) As Double Public Property GlobalTipoCambio(Optional Fecha As Date = MinFecha) As Double
Get Get
@@ -1105,10 +1105,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTPSATPS") = value HttpContext.Current.Application("GlobalDTPSATPS") = value
End Set End Set
End Property End Property
#Region "GLOBALES DE SAT COMERCIO EXTERIOR" #Region "GLOBALES DE SAT COMERCIO EXTERIOR"
Property GlobalDTClavePedimento() As DataTable Property GlobalDTClavePedimento() As DataTable
Get Get
GlobalDTClavePedimento = DirectCast(HttpContext.Current.Application("GlobalDTClavePedimento"), DataTable) GlobalDTClavePedimento = DirectCast(HttpContext.Current.Application("GlobalDTClavePedimento"), DataTable)
@@ -1218,10 +1218,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTColonia") = value HttpContext.Current.Application("GlobalDTColonia") = value
End Set End Set
End Property End Property
#End Region #End Region
Property GlobalDTPSATUM() As DataTable Property GlobalDTPSATUM() As DataTable
Get Get
GlobalDTPSATUM = DirectCast(HttpContext.Current.Application("GlobalDTPSATUM"), DataTable) GlobalDTPSATUM = DirectCast(HttpContext.Current.Application("GlobalDTPSATUM"), DataTable)
@@ -1605,15 +1605,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value
End Set End Set
End Property End Property
Property GlobalDTFolios() As DataTable
Get
GlobalDTFolios = DirectCast(HttpContext.Current.Application("GlobalDTFolios"), DataTable)
End Get
Set(value As DataTable)
HttpContext.Current.Application("GlobalDTFolios") = value
End Set
End Property
Property GlobalDTEstatusFactura() As DataTable Property GlobalDTEstatusFactura() As DataTable
Get Get
GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable) GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable)
@@ -2354,9 +2347,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTVtaCobranzaEstatus") = value HttpContext.Current.Application("GlobalDTVtaCobranzaEstatus") = value
End Set End Set
End Property End Property
#Region "***********************************************************************DT EVENTOS****************************************************************************************" #Region "***********************************************************************DT EVENTOS****************************************************************************************"
Property GlobalDTTiposEventos() As DataTable Property GlobalDTTiposEventos() As DataTable
Get Get
@@ -2392,9 +2385,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTOIEstatusEventos") = value HttpContext.Current.Application("GlobalDTOIEstatusEventos") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region " **********************************************************************DT PROSPECTOS*************************************************************************************" #Region " **********************************************************************DT PROSPECTOS*************************************************************************************"
Property GlobalDTProspectosCaracteristicasClasificaciones() As DataTable Property GlobalDTProspectosCaracteristicasClasificaciones() As DataTable
Get Get
@@ -2435,9 +2428,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTProspectosCaracteristicasOpciones") = value HttpContext.Current.Application("GlobalDTProspectosCaracteristicasOpciones") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************" #Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************"
Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable
Get Get
@@ -2530,10 +2523,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTTipoActivoFijo") = value HttpContext.Current.Application("GlobalDTTipoActivoFijo") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "***********************************************************************DT GENERALES**************************************************************************************" #Region "***********************************************************************DT GENERALES**************************************************************************************"
Property GlobalDTGralPaises() As DataTable Property GlobalDTGralPaises() As DataTable
Get Get
@@ -2621,10 +2614,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTGralColectivas") = value HttpContext.Current.Application("GlobalDTGralColectivas") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "***********************************************************************DT PROSPECTOS*************************************************************************************" #Region "***********************************************************************DT PROSPECTOS*************************************************************************************"
Property GlobalDTProspectosSupervisores(CveEmpresa As Integer) As DataTable Property GlobalDTProspectosSupervisores(CveEmpresa As Integer) As DataTable
Get Get
@@ -2833,8 +2826,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTProspectosTipos") = value HttpContext.Current.Application("GlobalDTProspectosTipos") = value
End Set End Set
End Property End Property
#Region " DT PROSPECTOS SOLICITUDES" #Region " DT PROSPECTOS SOLICITUDES"
Property GlobalDTProspectosSolicitudes(CveEmpresa As Integer) As DataTable Property GlobalDTProspectosSolicitudes(CveEmpresa As Integer) As DataTable
Get Get
@@ -2901,15 +2894,15 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTProspectosSolicitudesApoyos") = value HttpContext.Current.Application("GlobalDTProspectosSolicitudesApoyos") = value
End Set End Set
End Property End Property
#End Region #End Region
#End Region #End Region
#Region "**********************************************DT AMORTIZACIÓN CONTABLE PLAN DE DESARROLLO********************************************************************************" #Region "**********************************************DT AMORTIZACIÓN CONTABLE PLAN DE DESARROLLO********************************************************************************"
#Region "***********************************************************************DT AMORTIZACIÓN CONTABLE*********************************************************************************************" #Region "***********************************************************************DT AMORTIZACIÓN CONTABLE*********************************************************************************************"
Property GlobalDTAC_RubrosIngreso() As DataTable Property GlobalDTAC_RubrosIngreso() As DataTable
Get Get
GlobalDTAC_RubrosIngreso = DirectCast(HttpContext.Current.Application("GlobalDTAC_RubrosIngreso"), DataTable) GlobalDTAC_RubrosIngreso = DirectCast(HttpContext.Current.Application("GlobalDTAC_RubrosIngreso"), DataTable)
@@ -3165,11 +3158,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTAC_MatrizEgresos") = value HttpContext.Current.Application("GlobalDTAC_MatrizEgresos") = value
End Set End Set
End Property End Property
#End Region #End Region
Property GlobalDTAC_PD_EjeRector(CveEmpresa As Integer) As DataTable Property GlobalDTAC_PD_EjeRector(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
@@ -3248,9 +3241,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTAC_PD_Metas") = value HttpContext.Current.Application("GlobalDTAC_PD_Metas") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************" #Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************"
Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
Get Get
@@ -3287,11 +3280,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value HttpContext.Current.Application("GlobalDTOCEstatusUsuarios") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "F I N A N Z A S " #Region "F I N A N Z A S "
Property GlobalDTFinan_RazonesFinancieras() As DataTable Property GlobalDTFinan_RazonesFinancieras() As DataTable
Get Get
@@ -3300,10 +3293,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTFinan_RazonesFinancieras") = value HttpContext.Current.Application("GlobalDTFinan_RazonesFinancieras") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "***********************************************************************GLOBAL DT CONTABILIDAD****************************************************************************" #Region "***********************************************************************GLOBAL DT CONTABILIDAD****************************************************************************"
Property GlobalDTContaPlantillasPolizas(CveEmpresa As Integer, Optional TipoPlantilla As Integer = -1) As DataTable Property GlobalDTContaPlantillasPolizas(CveEmpresa As Integer, Optional TipoPlantilla As Integer = -1) As DataTable
Get Get
@@ -3357,9 +3350,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTContaConceptosContables") = value HttpContext.Current.Application("GlobalDTContaConceptosContables") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "**********************************************************************GLOBAL DT RH (RECURSOS HUMANOS)********************************************************************" #Region "**********************************************************************GLOBAL DT RH (RECURSOS HUMANOS)********************************************************************"
Property GlobalDTAsistenciaDetalle() As DataTable Property GlobalDTAsistenciaDetalle() As DataTable
Get Get
@@ -3511,13 +3504,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTTipoBuzon") = value HttpContext.Current.Application("GlobalDTTipoBuzon") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "*********** D T - C O M B U S T I B L E S ***********" #Region "*********** D T - C O M B U S T I B L E S ***********"
Property GlobalDTCombustibles(CveEmpresa As Integer) As DataTable Property GlobalDTCombustibles(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
@@ -3556,11 +3549,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
HttpContext.Current.Application("GlobalDTCombustiblesTipos") = value HttpContext.Current.Application("GlobalDTCombustiblesTipos") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "*********** D T - M A N T E N I M I E N T O S ***********" #Region "*********** D T - M A N T E N I M I E N T O S ***********"
Property GlobalDTMantenimientosTipos() As DataTable Property GlobalDTMantenimientosTipos() As DataTable
Get Get
GlobalDTMantenimientosTipos = DirectCast(HttpContext.Current.Application("GlobalDTMantenimientosTipos"), DataTable) GlobalDTMantenimientosTipos = DirectCast(HttpContext.Current.Application("GlobalDTMantenimientosTipos"), DataTable)
@@ -3599,13 +3592,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
HttpContext.Current.Application("GlobalDTMantenimientosTipos") = value HttpContext.Current.Application("GlobalDTMantenimientosTipos") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "*********** D T - T A L L E R E S ***********" #Region "*********** D T - T A L L E R E S ***********"
Property GlobalDTTalleresTipos() As DataTable Property GlobalDTTalleresTipos() As DataTable
Get Get
GlobalDTTalleresTipos = DirectCast(HttpContext.Current.Application("GlobalDTTalleresTipos"), DataTable) GlobalDTTalleresTipos = DirectCast(HttpContext.Current.Application("GlobalDTTalleresTipos"), DataTable)
@@ -3622,12 +3615,12 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTTalleres") = value HttpContext.Current.Application("GlobalDTTalleres") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "*********** D T - D I S T R I B U I D O R E S ***********" #Region "*********** D T - D I S T R I B U I D O R E S ***********"
Property GlobalDTDistribuidoresTipos() As DataTable Property GlobalDTDistribuidoresTipos() As DataTable
Get Get
GlobalDTDistribuidoresTipos = DirectCast(HttpContext.Current.Application("GlobalDTDistribuidoresTipos"), DataTable) GlobalDTDistribuidoresTipos = DirectCast(HttpContext.Current.Application("GlobalDTDistribuidoresTipos"), DataTable)
@@ -3644,11 +3637,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTDistribuidores") = value HttpContext.Current.Application("GlobalDTDistribuidores") = value
End Set End Set
End Property End Property
#End Region #End Region
Property GlobalDTOIRevision(CveEmpresa As Integer) As DataTable Property GlobalDTOIRevision(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
@@ -3739,8 +3732,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Set(value As DataTable) Set(value As DataTable)
HttpContext.Current.Application("GlobalDTPaqueterias") = value HttpContext.Current.Application("GlobalDTPaqueterias") = value
End Set End Set
End Property End Property
#End Region #End Region
End Class End Class

2
Compras/Compras.aspx.vb
View File

@@ -6591,7 +6591,7 @@ Partial Class Compras_Compras
Next Next
'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra 'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * 1).RoundSQL 'sumatoria de la factura SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL 'sumatoria de la factura
If SumatoriaOCINV.RoundSQL <> 0 Then If SumatoriaOCINV.RoundSQL <> 0 Then
' se abona el costo, cambiamos su naturaleza ' se abona el costo, cambiamos su naturaleza
'SumatoriaOCINV = -SumatoriaOCINV 'SumatoriaOCINV = -SumatoriaOCINV

26
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -19,6 +19,15 @@ Partial Class Contratos_FacturacionMasiva
ViewState("DTCicloComercial") = value ViewState("DTCicloComercial") = value
End Set End Set
End Property End Property
Private Property FolioVigentes As Boolean
Get
Return CType(ViewState("FolioVigentes"), Boolean)
End Get
Set(value As Boolean)
ViewState("FolioVigentes") = value
End Set
End Property
Private Property Mensaje As String Private Property Mensaje As String
Get Get
Return CType(ViewState("Mensaje"), String) Return CType(ViewState("Mensaje"), String)
@@ -100,6 +109,7 @@ Partial Class Contratos_FacturacionMasiva
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
FolioVigentes = False
CargaCombos() CargaCombos()
txtFechaI.Text = DateTime.Today.ToString("d") txtFechaI.Text = DateTime.Today.ToString("d")
txtFechaF.Text = DateTime.Today.ToString("d") txtFechaF.Text = DateTime.Today.ToString("d")
@@ -118,6 +128,8 @@ Partial Class Contratos_FacturacionMasiva
DdlSucursal.DataBind() DdlSucursal.DataBind()
End Sub End Sub
Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer) Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
ValidaFolio()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0") DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0")
@@ -127,9 +139,21 @@ Partial Class Contratos_FacturacionMasiva
GvCiclosComerciales.DataBind() GvCiclosComerciales.DataBind()
UpGv.Update() UpGv.Update()
End Sub End Sub
Private Sub ValidaFolio()
Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
If ObjFolios.DtResultados.Rows.Count > 0 Then
FolioVigentes = True
End If
End If
ObjFolios.Dispose()
End Sub
Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If GlobalDTFolios().FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto")} AND TipoDocto = 'Ing' ").Rows.Count = 0 Then '' Pendiente de aplicar validacion
If Not FolioVigentes Then
e.Row.FCCheckBox("chkDis").Enabled = False e.Row.FCCheckBox("chkDis").Enabled = False
e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios" e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios"
End If End If

2
Contratos/RepContratosCostos.aspx
View File

@@ -134,7 +134,7 @@
<asp:BoundField runat="server" HeaderText="Contrato Externo" DataField="ContratoExterno" /> <asp:BoundField runat="server" HeaderText="Contrato Externo" DataField="ContratoExterno" />
<asp:BoundField runat="server" HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField runat="server" HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField runat="server" HeaderText="PS" DataField="CodigoPS" /> <asp:BoundField runat="server" HeaderText="PS" DataField="CodigoPS" />
<asp:BoundField runat="server" HeaderText="Serie" DataField="SerieLote" /> <asp:BoundField runat="server" HeaderText="Serie" DataField="Serie" />
<asp:BoundField runat="server" HeaderText="Costo Almacén" DataField="Surtido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField runat="server" HeaderText="Costo Almacén" DataField="Surtido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>

23
GPS/FacturacionMasiva.aspx.vb
View File

@@ -27,6 +27,14 @@ Partial Class Contratos_FacturacionMasiva
ViewState("Mensaje") = value ViewState("Mensaje") = value
End Set End Set
End Property End Property
Private Property FolioVigentes As Boolean
Get
Return CType(ViewState("FolioVigentes"), Boolean)
End Get
Set(value As Boolean)
ViewState("FolioVigentes") = value
End Set
End Property
Private Property ErrorList As List(Of String) Private Property ErrorList As List(Of String)
Get Get
Return CType(ViewState("ErrorList"), List(Of String)) Return CType(ViewState("ErrorList"), List(Of String))
@@ -79,6 +87,7 @@ Partial Class Contratos_FacturacionMasiva
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
FolioVigentes = False
CargaCombos() CargaCombos()
txtFechaI.Text = DateTime.Today.ToString("d") txtFechaI.Text = DateTime.Today.ToString("d")
txtFechaF.Text = DateTime.Today.ToString("d") txtFechaF.Text = DateTime.Today.ToString("d")
@@ -97,6 +106,7 @@ Partial Class Contratos_FacturacionMasiva
DdlSucursal.DataBind() DdlSucursal.DataBind()
End Sub End Sub
Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer) Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
ValidaFolio()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0") DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0")
@@ -106,9 +116,20 @@ Partial Class Contratos_FacturacionMasiva
GvCiclosComerciales.DataBind() GvCiclosComerciales.DataBind()
UpGv.Update() UpGv.Update()
End Sub End Sub
Private Sub ValidaFolio()
Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
If ObjFolios.DtResultados.Rows.Count > 0 Then
FolioVigentes = True
End If
End If
ObjFolios.Dispose()
End Sub
Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If GlobalDTFolios().FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto")} AND TipoDocto = 'Ing' ").Rows.Count = 0 Then If Not FolioVigentes Then
e.Row.FCCheckBox("chkDis").Enabled = False e.Row.FCCheckBox("chkDis").Enabled = False
e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios" e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios"
End If End If

19
Global.asax
View File

@@ -356,18 +356,13 @@
Dim ObjLeyendasFiscales As New ClsLeyendasFiscales() Dim ObjLeyendasFiscales As New ClsLeyendasFiscales()
If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
ObjLeyendasFiscales.Dispose() ObjLeyendasFiscales.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - F O L I O S
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim ObjFolios As New ClsGralFolios() 'F A C T U R A S
If ObjFolios.GetFolios() Then Application("GlobalDTFolios") = ObjFolios.DtResultados Else Application("GlobalDTFolios") = Nothing
ObjFolios.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A C T U R A S
Dim ObjEstatusFactura As New ClsEstatusFactura() Dim ObjEstatusFactura As New ClsEstatusFactura()
If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
ObjEstatusFactura.Dispose() ObjEstatusFactura.Dispose()

6
Inventarios/Apartados.aspx
View File

@@ -86,7 +86,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Cliente:</label> <label class="col-md-2">Cliente:</label>
<div class="col-md-3"> <div class="col-md-3">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" Width="100%" data-metodo="getcliente" IncluyeTodos="false" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
</ADS:Dropdownlost> </ADS:Dropdownlost>
</div> </div>
<label class="col-md-2">Vendedor:</label> <label class="col-md-2">Vendedor:</label>
@@ -203,7 +203,7 @@
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<br /> <br />
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -310,7 +310,7 @@
</div> </div>
<div class="col-md-1" style="max-width: 70px">Cliente</div> <div class="col-md-1" style="max-width: 70px">Cliente</div>
<div class="col-md-2"> <div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteDesapartado" OnSelectedIndexChanged="DdlClienteDesapartado_SelectedIndexChanged" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteDesapartado" OnSelectedIndexChanged="DdlClienteDesapartado_SelectedIndexChanged" Width="100%" IncluyeTodos="false" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
</ADS:Dropdownlost> </ADS:Dropdownlost>
<%--<asp:RequiredFieldValidator ID="RFVFClienteDesapartado" runat="server" ControlToValidate="DdlClienteDesapartado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCargarApartados"></asp:RequiredFieldValidator> <%--<asp:RequiredFieldValidator ID="RFVFClienteDesapartado" runat="server" ControlToValidate="DdlClienteDesapartado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCargarApartados"></asp:RequiredFieldValidator>

3
Inventarios/Apartados.aspx.vb
View File

@@ -466,7 +466,8 @@ Partial Class Inventarios_Apartados
Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1")) Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1"))
If Valido Then If Valido Then
AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Text <> "", TxtnSerie.Text, ""), Limpia:=FuncionalidadSinSerie) Dim StrSeccion As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=StrSeccion, Serie:=If(TxtnSerie.Text <> "", TxtnSerie.Text, ""), Limpia:=FuncionalidadSinSerie)
End If End If
End If End If

4
Inventarios/EntradasSalidas.aspx
View File

@@ -255,9 +255,9 @@
<div class="col-md-2 "> <div class="col-md-2 ">
<asp:DropDownList ID="DdlMoneda" runat="server" Style="max-width: 200px" CssClass="form-control input-sm select2me" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList> <asp:DropDownList ID="DdlMoneda" runat="server" Style="max-width: 200px" CssClass="form-control input-sm select2me" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate" style="width: 110px">Sección:</label> <label class="col-md-1 truncate" style="width: 110px"></label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSeccion" runat="server" CssClass="form-control input-sm" Style="max-width: 200px" DataTextField="Seccion" DataValueField="CveSeccion"></asp:DropDownList>
</div> </div>
</div> </div>
<div class="row" id="divGuia" runat="server" visible="False"> <div class="row" id="divGuia" runat="server" visible="False">

18
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -463,10 +463,6 @@ Partial Class Inventarios_EntradasSalidas
End If End If
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
DdlSeccion.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
DdlSeccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSeccion.DataBind()
DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
DdlSeccionAlmacen.DataBind() DdlSeccionAlmacen.DataBind()
@@ -825,7 +821,7 @@ Partial Class Inventarios_EntradasSalidas
'cargar también los movimentos detalle 'cargar también los movimentos detalle
If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
DdlSeccion.SelectedValueExist(Mov.CveSeccion.ToString)
DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle") DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
DtMovimientos.Columns("No").AutoIncrement = True DtMovimientos.Columns("No").AutoIncrement = True
@@ -929,7 +925,6 @@ Partial Class Inventarios_EntradasSalidas
TxtObservaciones.Enabled = True TxtObservaciones.Enabled = True
DdlMoneda.Enabled = True DdlMoneda.Enabled = True
TxtGuia.Enabled = True TxtGuia.Enabled = True
DdlSeccion.Enabled = True
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
DdlAlmacen.Enabled = False DdlAlmacen.Enabled = False
@@ -940,7 +935,7 @@ Partial Class Inventarios_EntradasSalidas
TxtObservaciones.Enabled = False TxtObservaciones.Enabled = False
DdlMoneda.Enabled = False DdlMoneda.Enabled = False
TxtGuia.Enabled = False TxtGuia.Enabled = False
DdlSeccion.Enabled = False
End If End If
UppGrid.Update() UppGrid.Update()
End Sub End Sub
@@ -2233,10 +2228,10 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
GvM.Columns(9).Visible = DtTemp.MAX("Serie").ToString <> "" GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
GvM.Columns(10).Visible = DtTemp.MAX("Lote").ToString <> "" GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToString <> "" GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString <> "" GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> ""
End If End If
@@ -4042,7 +4037,6 @@ Partial Class Inventarios_EntradasSalidas
If TxtRemision.Visible Then TxtRemision.Enabled = True If TxtRemision.Visible Then TxtRemision.Enabled = True
If DdlMoneda.Visible Then DdlMoneda.Enabled = True If DdlMoneda.Visible Then DdlMoneda.Enabled = True
If TxtGuia.Visible Then TxtGuia.Enabled = True If TxtGuia.Visible Then TxtGuia.Enabled = True
If DdlSeccion.Visible Then DdlSeccion.Enabled = True
If BtnEliminar.Visible Then BtnEliminar.Visible = False If BtnEliminar.Visible Then BtnEliminar.Visible = False

5
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -660,8 +660,9 @@ Partial Class Inventarios_EntregaAlmacen
Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
End If End If
If UsuarioActual.Empresa.FacturaProduccion Then
CargaDocumentos(CveVenta) CargaDocumentos(CveVenta)
End If
Else Else
Alert("No se encontraron productos pendientes por surtir. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("No se encontraron productos pendientes por surtir. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If End If

17
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -479,7 +479,8 @@ Partial Class Inventarios_RecepcionAlmacen
Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
If DdlAlmacen.SelectedValue <> "-1" Then If DdlAlmacen.SelectedValue <> "-1" Then
CargaCompra(CveCompraSurtir, CveProveedor)
CargaGVInv()
'For Each Gvr As GridViewRow In GvInv.Rows 'For Each Gvr As GridViewRow In GvInv.Rows
' If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then ' If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
' Dim Dr As DataRow = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("") ' Dim Dr As DataRow = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
@@ -1263,7 +1264,7 @@ Partial Class Inventarios_RecepcionAlmacen
If CBool(e.Row.DBCampo("AplicaSeccion")) Then If CBool(e.Row.DBCampo("AplicaSeccion")) Then
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
If DdlAlmacen.SelectedValue.ToEntero > 0 Then If DdlAlmacen.SelectedValue.ToEntero > 0 Then
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero) e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind() e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
End If End If
@@ -2192,7 +2193,7 @@ Partial Class Inventarios_RecepcionAlmacen
'ENTRADA ALMACÉN 'ENTRADA ALMACÉN
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G") MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G1")
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
InvFolio = ObjInventario.Folio.ToString InvFolio = ObjInventario.Folio.ToString
Dim DtDetalle As New DataTable Dim DtDetalle As New DataTable
@@ -2311,7 +2312,7 @@ Partial Class Inventarios_RecepcionAlmacen
CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G") MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G2")
FolioSalidaDirecta = ObjInventario.Folio FolioSalidaDirecta = ObjInventario.Folio
If Not CveMovtoSalidaDirecta > 0 Then If Not CveMovtoSalidaDirecta > 0 Then
@@ -2365,7 +2366,7 @@ Partial Class Inventarios_RecepcionAlmacen
If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero,
CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G") CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G3")
MovtosSalida.Add(CveMovtoSalidaActual) MovtosSalida.Add(CveMovtoSalidaActual)
FoliosSalida.Add(ObjInventario.Folio) FoliosSalida.Add(ObjInventario.Folio)
@@ -2447,7 +2448,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
FolioVirtual = ObjInventario.Folio FolioVirtual = ObjInventario.Folio
For Each RowUsado As DataRow In DtPSVirtual.Rows For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2590,7 +2591,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5")
FolioVirtual = ObjInventario.Folio FolioVirtual = ObjInventario.Folio
For Each RowUsado As DataRow In DtPSVirtual.Rows For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -3048,7 +3049,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ObjContaAC As ClsContPAQi = Nothing Dim ObjContaAC As ClsContPAQi = Nothing
'ENTRADA ALMACÉN 'ENTRADA ALMACÉN
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G") CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6")
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
InvFolio = ObjInventario.Folio.ToString InvFolio = ObjInventario.Folio.ToString
Dim DtDetalle As New DataTable Dim DtDetalle As New DataTable

6
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -608,7 +608,7 @@ Partial Class Inventarios_ResguardoMaterial
Private Sub CargaGvMLiberacion() Private Sub CargaGvMLiberacion()
GvM.Columns(5).Visible = False GvM.Columns(5).Visible = False
For Each Dr As DataRow In DtMovimientosLiberacion.Rows For Each Dr As DataRow In DtMovimientosLiberacion.Rows
If Dr("SerieLote").ToString <> "" Then If Dr("Serie").ToString <> "" Then
GvM.Columns(5).Visible = True GvM.Columns(5).Visible = True
Exit For Exit For
End If End If
@@ -777,7 +777,7 @@ Partial Class Inventarios_ResguardoMaterial
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
TieneError = True TieneError = True
Exit For Exit For
@@ -796,7 +796,7 @@ Partial Class Inventarios_ResguardoMaterial
Else Else
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de entrada" MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -855,7 +855,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacenDestino").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

2
Nomina/Nomina.aspx.vb
View File

@@ -229,7 +229,7 @@ Partial Class Nomina_Nomina
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
If UsuarioActual.CveEmpresa = 80 OrElse UsuarioActual.CveEmpresa = 72 Then If UsuarioActual.CveEmpresa = 80 OrElse UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 119 Then
Response.Redirect("/Nomina/Nomina2.aspx") Response.Redirect("/Nomina/Nomina2.aspx")
End If End If
CargaTiposPeriodo() CargaTiposPeriodo()

105
Nomina/Nomina2.aspx
View File

@@ -4,9 +4,10 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
span.font-black{ span.font-black {
color:#333; color: #333;
} }
.GvConceptos { .GvConceptos {
border: 1px solid #E87E04; border: 1px solid #E87E04;
} }
@@ -69,19 +70,25 @@
<asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server">Cargar Nomina</asp:HyperLink> <asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server"><i class="fa fa-upload" aria-hidden="true"></i>Cargar Nomina</asp:HyperLink>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server">Tablas</asp:LinkButton> <asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server"><i class="fa fa-columns" aria-hidden="true"></i>Tablas</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton> <asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga Asistencia</asp:LinkButton>
</li>
<li>
<asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Asistencia</asp:HyperLink>
</li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<li> <li>
<asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server">Lista de Raya</asp:LinkButton> <asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de Raya</asp:LinkButton>
</li> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -204,7 +211,7 @@
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom "> <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound" <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None"
data-rows="2"> data-rows="1">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
@@ -385,7 +392,7 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption "> <div class="caption ">
<i class="fa fa-user font-yellow-gold"></i> <i class="fa fa-user font-yellow-gold"></i>
<span class="caption-subject bold font-black uppercase">Trabajador :<asp:Label ID="LblEmpleado" runat="server" Text=""></asp:Label></span> <span class="caption-subject bold font-black uppercase">Trabajador :<asp:Label ID="LblEmpleado" runat="server" Text=""></asp:Label></span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -394,40 +401,53 @@
<div class="portlet-body " style="padding: 0px;"> <div class="portlet-body " style="padding: 0px;">
<div class="row"> <div class="row">
<div class="col-md-2 bold">No. Trabajador</div> <div class="col-md-2 bold">No. Trabajador</div>
<div class="col-md-4"><asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label></div>
<div class="col-md-2 bold">Días Trabajados</div> <div class="col-md-2 bold">Días Trabajados</div>
<div class="col-md-4"><asp:Label ID="LblDiasLaborados" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblDiasLaborados" runat="server"></asp:Label></div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Afi IMSS </div> <div class="col-md-2 bold">Afi IMSS </div>
<div class="col-md-4"><asp:Label ID="LblNSS" runat="server"></asp:Label> </div> <div class="col-md-4">
<asp:Label ID="LblNSS" runat="server"></asp:Label>
</div>
<div class="col-md-2 bold">Faltas</div> <div class="col-md-2 bold">Faltas</div>
<div class="col-md-4"><asp:Label ID="LblDiasFaltados" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblDiasFaltados" runat="server"></asp:Label></div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">R.F.C.</div> <div class="col-md-2 bold">R.F.C.</div>
<div class="col-md-4"><asp:Label ID="LblRFC" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblRFC" runat="server"></asp:Label></div>
<div class="col-md-2 bold">Retardos</div> <div class="col-md-2 bold">Retardos</div>
<div class="col-md-4"><asp:Label ID="LblDiasRetardos" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblDiasRetardos" runat="server"></asp:Label></div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Curp</div> <div class="col-md-2 bold">Curp</div>
<div class="col-md-4"><asp:Label ID="LblCURP" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblCURP" runat="server"></asp:Label></div>
<div class="col-md-2 bold">Días Vacaciones</div> <div class="col-md-2 bold">Días Vacaciones</div>
<div class="col-md-4"><asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label></div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Tipo de Pago</div> <div class="col-md-2 bold">Tipo de Pago</div>
<div class="col-md-4"><asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label></div>
<div class="col-md-2 bold">Días Incapacidad</div> <div class="col-md-2 bold">Días Incapacidad</div>
<div class="col-md-4"><asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label></div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-2 bold">Fecha de Pago</div> <div class="col-md-2 bold">Fecha de Pago</div>
<div class="col-md-4"><asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label></div> <div class="col-md-4">
<asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label></div>
<div class="col-md-2 bold">Periodo del</div> <div class="col-md-2 bold">Periodo del</div>
<div class="col-md-4"><asp:Label ID="LblFecha" runat="server"></asp:Label></div> <div class="col-md-4">
</div> <asp:Label ID="LblFecha" runat="server"></asp:Label></div>
</div>
</div> </div>
</div> </div>
@@ -917,7 +937,6 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DModalNominas" class="modal ADS fade" role="dialog"> <div id="DModalNominas" class="modal ADS fade" role="dialog">
@@ -959,6 +978,48 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DModalCargaASistenciaMasiva" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpModalAsistenciaMasiva" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content rowpadding">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Cargar asistencia del periodo</h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input" >
<asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlEjerciciosCM">Ejercicio:</asp:Label>
</div>
<div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo:</asp:Label>
</div>
<div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlPeriodoCM" runat="server" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlPeriodoCM">Periodo:</asp:Label>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkCargarAsistenciaMasiva" OnClick="LnkCargarAsistenciaMasiva_Click" CssClass="btn btn-primary" runat="server">Cargar</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
@@ -971,7 +1032,7 @@
} }
function FiltrarTabla(idtxt, idtable, idcontador) { function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', ''); } if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', ''); }
else { $('table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').css('display', 'none'); $('table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').css('display', ''); } else { $('table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):not(.Titulos)').css('display', 'none'); $('table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').css('display', ''); }
if ($('' + idcontador).length > 0) { if ($('' + idcontador).length > 0) {
$('' + idcontador).html('(' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):visible').length + '/' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').length + ')'); $('' + idcontador).html('(' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):visible').length + '/' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').length + ')');
} }

165
Nomina/Nomina2.aspx.cs
View File

@@ -151,22 +151,33 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
} }
DdlEjercicios.DataSource = dtejercicio; DdlEjercicios.DataSource = dtejercicio;
DdlEjerciciosCM.DataSource = dtejercicio;
DdlEjercicios.DataBind(); DdlEjercicios.DataBind();
DdlEjerciciosCM.DataBind();
ListItem litem = null;
if ((dtejercicio != null) && dtejercicio.Rows.Count > 0) if ((dtejercicio != null) && dtejercicio.Rows.Count > 0)
{ {
if (dtejercicio.COUNT("Ejercicio", string.Format("Ejercicio={0}", EjercicioActual)) == 0) if (dtejercicio.COUNT("Ejercicio", string.Format("Ejercicio={0}", EjercicioActual)) == 0)
{ {
DdlEjercicios.Items.Insert(0, new ListItem(EjercicioActual.ToString(), EjercicioActual.ToString())); litem = new ListItem(EjercicioActual.ToString(), EjercicioActual.ToString());
DdlEjercicios.Items.Insert(0, litem);
DdlEjerciciosCM.Items.Insert(0, litem);
} }
if (dtejercicio.COUNT("Ejercicio", string.Format("Ejercicio={0}", (EjercicioActual - 1))) == 0) if (dtejercicio.COUNT("Ejercicio", string.Format("Ejercicio={0}", (EjercicioActual - 1))) == 0)
{ {
DdlEjercicios.Items.Insert(1, new ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString())); litem = new ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString());
DdlEjercicios.Items.Insert(1, litem);
DdlEjerciciosCM.Items.Insert(1, litem);
} }
} }
else else
{ {
DdlEjercicios.Items.Add(new ListItem(EjercicioActual.ToString(), EjercicioActual.ToString())); litem = new ListItem(EjercicioActual.ToString(), EjercicioActual.ToString());
DdlEjercicios.Items.Add(new ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString())); DdlEjercicios.Items.Insert(0, litem);
DdlEjerciciosCM.Items.Insert(0, litem);
litem = new ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString());
DdlEjercicios.Items.Insert(0, litem);
DdlEjerciciosCM.Items.Insert(0, litem);
} }
if (DdlEjercicios.Items.Count > 0) if (DdlEjercicios.Items.Count > 0)
@@ -177,6 +188,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
private void CargaTiposPeriodo() private void CargaTiposPeriodo()
{ {
DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo.FiltraParametros("Estatus = 'Activo'"); DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo.FiltraParametros("Estatus = 'Activo'");
DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource;
DdlTipoPeriodoCM.DataBind();
DdlTipoPeriodo.DataBind(); DdlTipoPeriodo.DataBind();
DdlTipoPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlTipoPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1"));
if (DdlTipoPeriodo.Items.Count > 0) if (DdlTipoPeriodo.Items.Count > 0)
@@ -700,37 +713,38 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
try try
{ {
using (System.Data.Odbc.OdbcConnection conn = new System.Data.Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + fileItem.FileUrl)) //using (System.Data.Odbc.OdbcConnection conn = new System.Data.Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + fileItem.FileUrl))
{ //{
conn.Open(); // conn.Open();
string exceltableName = "Nomina"; // string exceltableName = "Nomina";
DataTable tables = conn.GetSchema("Tables"); // DataTable tables = conn.GeaaffotSchema("Tables");
if (tables.FiltraParametros(string.Format("TABLE_NAME LIKE'%{0}%'", exceltableName)).Rows.Count == 0) // if (tables.FiltraParametros(string.Format("TABLE_NAME LIKE'%{0}%'", exceltableName)).Rows.Count == 0)
{ // {
continuar = false; // continuar = false;
stringError = "El documento no contiene la hoja nomina"; // stringError = "El documento no contiene la hoja nomina";
} // }
else // else
{ // {
exceltableName = tables.FiltroPrimero(string.Format("TABLE_NAME LIKE'%{0}%'", exceltableName))["TABLE_NAME"].ToString(); // exceltableName = tables.FiltroPrimero(string.Format("TABLE_NAME LIKE'%{0}%'", exceltableName))["TABLE_NAME"].ToString();
} // }
if (continuar) // if (continuar)
{ // {
using (System.Data.Odbc.OdbcCommand cmd = conn.CreateCommand()) // using (System.Data.Odbc.OdbcCommand cmd = conn.CreateCommand())
{ // {
cmd.CommandType = CommandType.Text; // cmd.CommandType = CommandType.Text;
cmd.CommandText = $"SELECT * FROM [{exceltableName}] WHERE LEN(Codigo)>0 AND Codigo <> 'Codigo'"; // cmd.CommandText = $"SELECT * FROM [{exceltableName}] WHERE LEN(Codigo)>0 AND Codigo <> 'Codigo'";
using (System.Data.Odbc.OdbcDataAdapter da = new System.Data.Odbc.OdbcDataAdapter(cmd)) // using (System.Data.Odbc.OdbcDataAdapter da = new System.Data.Odbc.OdbcDataAdapter(cmd))
{ // {
da.Fill(DTEXcel); // da.Fill(DTEXcel);
} // }
} // }
} // }
} //}
DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true).FiltraParametros(" LEN(Codigo)>0 AND Codigo <> 'Codigo'");
} }
catch (Exception ex) catch (Exception ex)
@@ -738,7 +752,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
continuar = false; continuar = false;
stringError = "Ocurrio un Error al procesar el excel "; stringError = "Ocurrio un Error al procesar el excel ";
string.Format(stringError, ex.ToString()).GuardaLog(); string.Format("{0} \r\n{0}", stringError, ex.ToString()).GuardaLog();
} }
} }
if (continuar && DTEXcel.Rows.Count == 0) if (continuar && DTEXcel.Rows.Count == 0)
@@ -795,7 +809,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
else else
{ {
if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, SubTotal, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, SubTotal, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina",
"", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, false))
{ {
CveNomina = objNomina.CveNomina; CveNomina = objNomina.CveNomina;
} }
@@ -859,6 +873,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (rollback) if (rollback)
{ {
objpersonal.RollBack(); objpersonal.RollBack();
continuar = false;
} }
else else
{ {
@@ -972,7 +987,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
LblDiasLaborados.Text = DiasLaborados; LblDiasLaborados.Text = DiasLaborados;
LblDiasFaltados.Text = DiasFaltados; LblDiasFaltados.Text = DiasFaltados;
LblDiasVacaciones.Text = DiasVacaciones; LblDiasVacaciones.Text = DiasVacaciones;
LblFecha.Text = string.Format("{0} al {1}",FechaInicio, FechaFin); LblFecha.Text = string.Format("{0} al {1}", FechaInicio, FechaFin);
LblDiasRetardos.Text = DiasRetardos; LblDiasRetardos.Text = DiasRetardos;
LblDiasIncapacidad.Text = DiasIncapacidad; LblDiasIncapacidad.Text = DiasIncapacidad;
#endregion #endregion
@@ -3193,11 +3208,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0}", CvePersonal)); dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0}", CvePersonal));
@@ -3205,8 +3215,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
CveConcepto = rcon["CveConcepto"].ToString().ToEntero(); CveConcepto = rcon["CveConcepto"].ToString().ToEntero();
ImporteConcepto = rcon["ImporteConcepto"].ToString().ToDecimal(); ImporteConcepto = rcon["Importe"].ToString().ToDecimal();
ImporteGravadoConcepto = rcon["ImporteGravadoConcepto"].ToString().ToDecimal(); ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal();
ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto; ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto;
if (continuar) if (continuar)
{ {
@@ -3221,6 +3231,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
} }
if (continuar)
{
continuar = objNomina.AutorizaNom_Nominas(-1, CvePeriodoSeleccionado, true);
}
if (continuar) if (continuar)
{ {
objNomina.Commit(); objNomina.Commit();
@@ -3235,4 +3253,69 @@ public partial class Nomina_Nomina2 : ClsPaginas
dtconp.Dispose(); dtconp.Dispose();
Alert("Termine"); Alert("Termine");
} }
protected void LnkCargaAsistenciaMasiva_Click(object sender, EventArgs e)
{
RegistraScript("$('#DModalCargaASistenciaMasiva').modal();");
}
protected void LnkCargarAsistenciaMasiva_Click(object sender, EventArgs e)
{
using (ClsRH ObjPersonal = new ClsRH())
{
ObjPersonal.IniciaTransacSQL();
bool OcurrioError = false;
if (!ObjPersonal.AddAsistenciaMasiva2(DdlPeriodoCM.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
OcurrioError = true;
if (OcurrioError)
{
ObjPersonal.RollBack();
Alert("Ocurrió un error al guardar las Asistencias.", ModExtensiones.TipoMensaje.MsgError);
}
else
{
ObjPersonal.Commit();
Alert("Las Asistencias se guardaron correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
}
}
}
private void cargaPeriodosCM()
{
int tipoPeriodo = DdlTipoPeriodoCM.SelectedValue.ToEntero();
int ejercicio = DdlEjerciciosCM.SelectedValue.ToEntero();
DataTable dtPeriodos = null;
if (tipoPeriodo > 0)
{
using (ClsNominas objperiodos = new ClsNominas())
{
if (objperiodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1))
{
dtPeriodos = objperiodos.DtResultados;
}
}
}
DdlPeriodoCM.DataSource = dtPeriodos;
DdlPeriodoCM.DataBind();
DdlPeriodoCM.Items.Insert(0, new ListItem("Seleccione", "-1"));
UpModalAsistenciaMasiva.Update();
}
protected void DdlEjerciciosCM_SelectedIndexChanged(object sender, EventArgs e)
{
cargaPeriodosCM();
}
protected void DdlTipoPeriodoCM_SelectedIndexChanged(object sender, EventArgs e)
{
cargaPeriodosCM();
}
protected void DdlTipoPeriodoCM_SelectedIndexChanged1(object sender, EventArgs e)
{
}
} }

16
OI/CircularDetalleB.aspx.cs
View File

@@ -129,7 +129,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
string Correo = gvuser.DataKey("Correo"); string Correo = gvuser.DataKey("Correo");
if (ChkOk.Checked && Correo.Length >0) if (ChkOk.Checked && Correo.Length >0)
{ {
UsuariosCorreos = string.Format("{1}{0}" + ";", UsuariosCorreos, Correo); UsuariosCorreos = string.Format("{1};{0}" , UsuariosCorreos, Correo);
} }
} }
TxtCorreo.Text = UsuariosCorreos; TxtCorreo.Text = UsuariosCorreos;
@@ -161,8 +161,20 @@ public partial class OI_CircularDetalleB : ClsPaginas
GuardarArchivo(CircularInsertado); GuardarArchivo(CircularInsertado);
Alert("Ingresado correctamente"); Alert("Ingresado correctamente");
CveCircular = CircularInsertado; CveCircular = CircularInsertado;
if (CveCircular > 0) if (CveCircular > 0)
{ {
string[] correos;
correos = TxtCorreo.Text.Split(';');
byte[] ArchivoBytes = ArchivoBytesArrya(HkArchivo.Text);
int Contador = 0;
foreach (string Correo in correos)
{
MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
Contador += 1;
}
BtnGuardar.Text = "Actualizar"; BtnGuardar.Text = "Actualizar";
BtnEliminar.Visible = true; BtnEliminar.Visible = true;
} }
@@ -274,7 +286,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
{ {
foreach (string Correo in correos) foreach (string Correo in correos)
{ {
MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text, ArchivoBytes, HkArchivo.Text); MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
Contador += 1; Contador += 1;
} }
Alert("El correo se envió correctamente"); Alert("El correo se envió correctamente");

6
OI/ConvocatoriaDetalle.aspx
View File

@@ -219,13 +219,13 @@
<ajax:ValidatorCalloutExtender ID="VcoFechaI" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaI" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoFechaI" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-sm-6"> <div class="col-sm-6" style ="display:none;">
<div class="input-group form-group form-md-line-input date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;"> <div class="input-group form-group form-md-line-input date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
<asp:TextBox ID="txtFechaF" runat="server" autocomplete="false" CssClass="form-control ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px " placeholder=""></asp:TextBox> <asp:TextBox ID="txtFechaF" runat="server" autocomplete="false" CssClass="form-control ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px " placeholder=""></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVtxtFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <%--<asp:RequiredFieldValidator ID="RFVtxtFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>--%>
<asp:Label AssociatedControlID="txtFechaF" runat="server" Text="Fecha Fin"></asp:Label> <asp:Label AssociatedControlID="txtFechaF" runat="server" Text="Fecha Fin"></asp:Label>
<%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%> <%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
<ajax:ValidatorCalloutExtender ID="VcoFechaF" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <%--<ajax:ValidatorCalloutExtender ID="VcoFechaF" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaF" Width="350px"></ajax:ValidatorCalloutExtender>--%>
</div> </div>
</div> </div>
</div> </div>

55
OI/ConvocatoriaDetalle.aspx.cs
View File

@@ -322,9 +322,9 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
} }
string fechaFin = ""; string fechaFin = "";
DateTime dfechaF; DateTime dfechaF;
if ((dfechaF=txtFechaF.Text.ToDateTimeExcat()).Year <= 1999) if ((dfechaF = txtFechaI.Text.ToDateTimeExcat()).Year <= 1999)
{ {
if ((dfechaF = txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy")).Year <= 1999) if ((dfechaF = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy")).Year <= 1999)
{ {
errorMessage = "No se ingresó una fecha fin valida"; errorMessage = "No se ingresó una fecha fin valida";
@@ -353,8 +353,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\"";
} }
if (EsNuevo) if (EsNuevo)
{ {
bool Continuar = false; bool Continuar = false;
if (errorMessage.Length == 0) if (errorMessage.Length == 0)
{ {
@@ -373,7 +373,6 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
if (Continuar) if (Continuar)
{ {
objOI.Commit(); objOI.Commit();
enviarConvocatoria(CveEvento);
//ObjEventosCorreo o = objOI.objCorreo; //ObjEventosCorreo o = objOI.objCorreo;
//string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); //string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara);
//EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); //EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, "");
@@ -386,6 +385,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
} }
if (Continuar && CveEvento > 0) if (Continuar && CveEvento > 0)
{ {
enviarConvocatoria(CveEvento);
if (rutaarchivoOri.Length > 0) if (rutaarchivoOri.Length > 0)
{ {
string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta); string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta);
@@ -407,7 +407,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
} }
else else
{ {
bool Continuar = true; bool Continuar = true;
using (ClsOIEventos objOI = new ClsOIEventos()) using (ClsOIEventos objOI = new ClsOIEventos())
{ {
@@ -416,7 +416,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
if (Continuar) if (Continuar)
{ {
Continuar= objOI.UpdateEventoMinuta(asunto, descripcion, TxtOrdendeldia.Text.Replace("< ", "<"), dfechaF, "-1", RCveEvento); Continuar = objOI.UpdateEventoMinuta(asunto, descripcion, TxtOrdendeldia.Text.Replace("< ", "<"), dfechaF, "-1", RCveEvento);
} }
if (Continuar) if (Continuar)
{ {
@@ -520,7 +520,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
LnkOpenModalAsistencia.Visible = true; LnkOpenModalAsistencia.Visible = true;
UpAcciones.Update(); UpAcciones.Update();
this.Alert(string.Format("Se ha iniciado la minuta<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); this.Alert(string.Format("Se ha iniciado la minuta<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0);
LnkOpenModalAsistencia_Click(null,null); LnkOpenModalAsistencia_Click(null, null);
} }
} }
@@ -565,7 +565,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
} }
else else
{ {
Alert("se ingresó la asistencia correctamente."); Alert("se ingresó la asistencia correctamente.");
} }
RegistraScript(string.Format("$('#{0}').modal('hide');", iddivTomarAsistencia)); RegistraScript(string.Format("$('#{0}').modal('hide');", iddivTomarAsistencia));
@@ -585,6 +585,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
{ {
return string.Format("{0}/{1}", HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""), addstr); return string.Format("{0}/{1}", HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""), addstr);
} }
string UsuarioDemail = "";
private string MailgetBodyConvocatoria(int RCveEvento) private string MailgetBodyConvocatoria(int RCveEvento)
{ {
@@ -599,6 +600,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
{ {
System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0];
UsuarioDe = drow["NombreRegistro"].ToString(); UsuarioDe = drow["NombreRegistro"].ToString();
UsuarioDemail= drow["NombreRegistro"].ToString();
Folio = drow["Folio"].ToString().ToEntero(); Folio = drow["Folio"].ToString().ToEntero();
Link = GetDominio(string.Format("OI/ConvocatoriaDetalle.aspx?CveEvento={0}", RCveEvento)); Link = GetDominio(string.Format("OI/ConvocatoriaDetalle.aspx?CveEvento={0}", RCveEvento));
Asunto = drow["Asunto"].ToString(); Asunto = drow["Asunto"].ToString();
@@ -687,7 +689,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
StrMail.Append(" </div>"); StrMail.Append(" </div>");
StrMail.Append(" <br />"); StrMail.Append(" <br />");
StrMail.Append(" <br />"); StrMail.Append(" <br />");
StrMail.Append(" <br />"); StrMail.Append(" <br />");
StrMail.Append($" <a href=\"{Link}\" style=\"padding: 10px 20px; text-align: center;\">Minuta</a>"); StrMail.Append($" <a href=\"{Link}\" style=\"padding: 10px 20px; text-align: center;\">Minuta</a>");
StrMail.Append(" <br />"); StrMail.Append(" <br />");
@@ -731,11 +733,40 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail(); ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail); Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
} }
protected void LnkEnviarCorreo_Click(object sender, EventArgs e) protected void LnkEnviarCorreo_Click(object sender, EventArgs e)
{ {
enviarConvocatoria(RCveEvento); enviarConvocatoria(RCveEvento);
Alert("Se Envió por correo la convocatoria", ModExtensiones.TipoMensaje.MsgInformacion); Alert("Se Envió por correo la convocatoria", ModExtensiones.TipoMensaje.MsgInformacion);
}
public string GenerateIcsContent(DateTime dateStart,
DateTime dateEnd, string email, string location,
string summary, string description)
{
string DateFormat = "yyyyMMddTHHmmssZ";
var s = dateStart.ToUniversalTime().ToString(DateFormat);
var e = dateEnd.ToUniversalTime().ToString(DateFormat);
var iCal = string.Format(@"BEGIN:VCALENDAR
VERSION:2.0
METHOD:PUBLISH
BEGIN:VEVENT
ORGANIZER:MAILTO:{0}
DTSTART:{1}
DTEND:{2}
LOCATION:{3}
UID:{4}
DTSTAMP:{4}
SUMMARY:{5}
DESCRIPTION:{6}
PRIORITY:5
CLASS:PUBLIC
END:VEVENT
END:VCALENDAR", email, s, e, location,
DateTime.Now.ToUniversalTime().ToString(DateFormat),
summary, description);
return iCal;
} }
} }

2
OI/MinutaDetalle.aspx.cs
View File

@@ -1025,7 +1025,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail(); ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC,Archivos: LSRutasMail); Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() +";"+ TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC,Archivos: LSRutasMail);
//Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion); //Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion);
Retorno = true; Retorno = true;
} }

4
OI/RepReuniones.aspx
View File

@@ -20,10 +20,10 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li> <li>
<asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Minuta</asp:HyperLink> <asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Convocatoria</asp:HyperLink>
</li> </li>
<li> <li>
<asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Convocatoria</asp:HyperLink> <asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Minuta</asp:HyperLink>
</li> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">

6
OI/RepReuniones.aspx.cs
View File

@@ -245,9 +245,10 @@ public partial class OI_RepReuniones : ClsPaginas
ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
ClsSisMail Mail = new ClsSisMail(); ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() , Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail); Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
} }
private string Asuntoconvocatoria; private string Asuntoconvocatoria;
private string CorreoExternoconvocatoria;
private string MailgetBodyConvocatoria(int RCveEvento) private string MailgetBodyConvocatoria(int RCveEvento)
{ {
@@ -264,7 +265,8 @@ public partial class OI_RepReuniones : ClsPaginas
UsuarioDe = drow["NombreRegistro"].ToString(); UsuarioDe = drow["NombreRegistro"].ToString();
Folio = drow["Folio"].ToString().ToEntero(); Folio = drow["Folio"].ToString().ToEntero();
Link = GetDominio(string.Format("OI/ConvocatoriaDetalle.aspx?CveEvento={0}", RCveEvento)); Link = GetDominio(string.Format("OI/ConvocatoriaDetalle.aspx?CveEvento={0}", RCveEvento));
Asuntoconvocatoria = string.Format("Convocatoria: {0}", drow["Asunto"].ToString()); Asuntoconvocatoria = string.Format("⏰ {1} te ha invitado a una reunión, {0}", drow["Asunto"].ToString(), UsuarioDe);
CorreoExternoconvocatoria =drow["CorreoExterno"].ToString();
Asunto = drow["Asunto"].ToString(); Asunto = drow["Asunto"].ToString();
Descripcion = drow["Descripcion"].ToString(); Descripcion = drow["Descripcion"].ToString();
Acuerdos = drow["Acuerdos"].ToString(); Acuerdos = drow["Acuerdos"].ToString();

16
OI/TareaDetalle.aspx
View File

@@ -145,21 +145,21 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkAgregarCheckList" OnClick="LnkAgregarCheckList_Click" runat="server"><i class="fa fa-plus"></i> Agregar CheckList</asp:LinkButton></li> <asp:LinkButton ID="LnkAgregarCheckList" OnClick="LnkAgregarCheckList_Click" runat="server"><i class="fa fa-plus"></i> Agregar checkList</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkcambiarEstatus" OnClick="LnkcambiarEstatus_Click" runat="server"><i class="fa fa-exchange"></i>Cambiar Estatus</asp:LinkButton></li> <asp:LinkButton ID="LnkcambiarEstatus" OnClick="LnkcambiarEstatus_Click" runat="server"><i class="fa fa-exchange"></i>Cambiar estatus</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkAgregarActividad" OnClick="LnkAgregarActividad_Click" runat="server"><i class="fa fa-plus"></i> Agregar bitácora</asp:LinkButton></li> <asp:LinkButton ID="LnkAgregarActividad" OnClick="LnkAgregarActividad_Click" runat="server"><i class="fa fa-plus"></i> Agregar bitácora</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkAgregarTema" OnClick="LnkAgregarTema_Click" runat="server"><i class="fa fa-plus"></i> Agregar Tema</asp:LinkButton></li> <asp:LinkButton ID="LnkAgregarTema" OnClick="LnkAgregarTema_Click" runat="server"><i class="fa fa-plus"></i> Agregar tema</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkUpFile" OnClick="LnkUpFile_Click" Visible="false" runat="server"><i class="fa fa-plus"></i> Agregar Archivo</asp:LinkButton></li> <asp:LinkButton ID="LnkUpFile" OnClick="LnkUpFile_Click" Visible="false" runat="server"><i class="fa fa-plus"></i> Agregar archivo</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkUpUsuarios" OnClick="LnkUpUsuarios_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Actualizar Miembros</asp:LinkButton></li> <asp:LinkButton ID="LnkUpUsuarios" OnClick="LnkUpUsuarios_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Actualizar miembros</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkReasignar" OnClick="LnkReasignar_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Reasignar</asp:LinkButton></li> <asp:LinkButton ID="LnkReasignar" OnClick="LnkReasignar_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Reasignar</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkUpVinculo" OnClick="LnkUpVinculo_Click" Visible="false" runat="server"><i class="fa fa-pencil"></i> Agregar Vinculo</asp:LinkButton></li> <asp:LinkButton ID="LnkUpVinculo" OnClick="LnkUpVinculo_Click" Visible="false" runat="server"><i class="fa fa-pencil"></i> Agregar vinculo</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" Visible="false" runat="server"><i class="fa fa-remove"></i> Eliminar</asp:LinkButton></li> <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" Visible="false" runat="server"><i class="fa fa-remove"></i> Eliminar</asp:LinkButton></li>
@@ -520,10 +520,10 @@
<span class="caption-subject bold uppercase">Bitácora</span> <span class="caption-subject bold uppercase">Bitácora</span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="expand" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body rowpadding" style="display: none;"> <div class="portlet-body rowpadding" >
<asp:UpdatePanel ID="UpActividades" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpActividades" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvActividades" <asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvActividades"

4
OI/TareaDetalle.aspx.cs
View File

@@ -393,7 +393,7 @@ public partial class OI_TareaDetalle : ClsPaginas
if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0) if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0)
{ {
LnkUpVinculo.Visible = true; LnkUpVinculo.Visible = true;
LnkUpVinculo.Text = "<i class=\"fa fa-plus\"></i> Agregar Relación"; LnkUpVinculo.Text = "<i class=\"fa fa-plus\"></i> Agregar relación";
PnlUsuarios.Visible = true; PnlUsuarios.Visible = true;
portletMiembros.Visible = false; portletMiembros.Visible = false;
@@ -553,7 +553,7 @@ public partial class OI_TareaDetalle : ClsPaginas
else else
{ {
LnkUpVinculo.Visible = true; LnkUpVinculo.Visible = true;
LnkUpVinculo.Text = "<i class=\"fa fa-pencil\"></i> Actualizar Relación"; LnkUpVinculo.Text = "<i class=\"fa fa-pencil\"></i> Actualizar relación";
} }
titulo = ""; titulo = "";
link = "";//EP.[CveTipoEvento] CveTipoEventoPadre,EP.Asunto AS AsuntoPadre link = "";//EP.[CveTipoEvento] CveTipoEventoPadre,EP.Asunto AS AsuntoPadre

6
Planeacion/CatFolios.aspx.vb
View File

@@ -91,7 +91,7 @@ Partial Class CatFolios
Dim ObjFolios As New ClsGralFolios Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios() Then If ObjFolios.GetFolios() Then
ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTFolios = ObjFolios.DtResultados
GvDatos.DataSource = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataSource = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GvDatos.DataBind() GvDatos.DataBind()
Else Else
@@ -153,7 +153,7 @@ Partial Class CatFolios
If ObjFolios.RemoveFolios(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then If ObjFolios.RemoveFolios(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTFolios = ObjFolios.DtResultados
Alert("La Aprobación de Folios se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Aprobación de Folios se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjFolios.Dispose() ObjFolios.Dispose()
@@ -194,7 +194,7 @@ Partial Class CatFolios
Session("FileUpload") = "" Session("FileUpload") = ""
Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion) Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTFolios = ObjFolios.DtResultados
ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

238
RH/Asistencias.aspx
View File

@@ -10,45 +10,41 @@
Registro de Asistencias Registro de Asistencias
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:Panel ID="PnlMasivo" runat="server" Visible="False">
<li>
<asp:HyperLink ID="HypCargaAsistenciaMasiva" data-toggle="modal" data-target="#DModalCargaASistenciaMasiva" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de asistencia</asp:HyperLink>
</li>
</asp:Panel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="" id="PorletAsistencia"> <div class="portlet solid grey-cascade portlet-filter" style="" id="PorletAsistencia">
<div class="portlet-title portlet-filterT" style=""> <div class="portlet-title portlet-filterT" style="">
<div class="portlet-body" style="font-size:120%">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="collapse"></a>
<a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
</div>
<div class="titlefiltros caption ">
<ul class="list-inline"> <ul class="list-inline">
<li>Cliente: <li>Cliente:
<asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" /> <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
<asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;"> <asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</li> </li>
<li>Proyecto: <li>Proyecto:
<asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</li> </li>
<li>SubProyecto: <li>SubProyecto:
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</li> </li>
</ul>
</div>
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
<a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
</div>
</div>
<div class="portlet-body" style="display: none;font-size:120%">
<ul class="list-inline">
<li style="width: 297px;">&nbsp;&nbsp;Turno:
<asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</li>
<li>F. Asistencia: <li>F. Asistencia:
<asp:TextBox ID="TxtFechaAsistencia" runat="server" MaxLength="10" Width="70px" Height="30px"></asp:TextBox> <asp:TextBox ID="TxtFechaAsistencia" runat="server" MaxLength="10" Width="70px" Height="30px"></asp:TextBox>
&nbsp;<asp:ImageButton runat="server" ID="ImgFechaAsistencia" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" /> &nbsp;<asp:ImageButton runat="server" ID="ImgFechaAsistencia" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
@@ -60,133 +56,153 @@
&nbsp; &nbsp;
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
</li> </li>
<li style="width: 185px;">&nbsp;&nbsp;Turno:
<asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</li>
</ul>
</div>
</div>
<div class="portlet-body" style="font-size: 120%">
<ul class="list-inline">
</ul> </ul>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<table width="100%"> <table style="width: 100%;">
<tr> <tr>
<td width="48%">&nbsp;</td>
<td> <td>
<asp:UpdatePanel ID="UPP" runat="server"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="PnlMasivo" runat="server" Visible="False"> <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="margin-top: -10px; text-align: center;" GridLines="None">
<table width="200px" border="0"> <Columns>
<tr> <asp:TemplateField>
<td>Tipo:</td> <HeaderTemplate>N°</HeaderTemplate>
<td> <ItemTemplate>
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 110px !important;"> <asp:Literal ID="LtlCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Personal</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPersonal" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Asistencia</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% de Pago</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtPorPago" runat="server" MaxLength="3" Text="100" Width="74px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Dobles</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtHorasDobles" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Triples</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtHorasTriples" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Motivo H. Extras</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlMotivoHoraExtra" runat="server" AppendDataBoundItems="true" DataTextField="MotivoHoraExtra" DataValueField="CveMotivoHoraExtra" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList></td> </asp:DropDownList>
</tr> </ItemTemplate>
<tr> </asp:TemplateField>
<td>Periodo:</td> <asp:TemplateField>
<td> <HeaderTemplate>Obs.</HeaderTemplate>
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;"> <ItemTemplate>
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:TextBox ID="TxtObservaciones" runat="server" Width="84px" MaxLength="150"></asp:TextBox>
</asp:DropDownList></td> </ItemTemplate>
</tr> </asp:TemplateField>
<tr> </Columns>
<td colspan="2" style="text-align: center;"> <RowStyle CssClass="Texto" />
<asp:Button ID="BtnCargaMasiva" runat="server" Text="Carga Masiva" class="btn btn-primary" /> <AlternatingRowStyle CssClass="TextoAlterno" />
</td> <HeaderStyle CssClass="Titulos" />
</tr> </asp:GridView>
<div class="text-right"><asp:Button ID="BtnGuardar" Visible="false" runat="server" Text="Guardar Asistencia" class="btn btn-primary" /></div>
</table>
</asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>
<td align="left"> <td style="width: 250px;text-align:left;vertical-align: top;">
<table class="table table-striped table-advance table-hover"> <table class="table table-striped table-advance table-hover">
<thead> <thead>
<tr class="Titulos"> <tr class="Titulos">
<th>#</th> <th>#</th>
<th align="left">&nbsp;Notación</th> <th style="text-align:left;">&nbsp;Notación</th>
</tr> </tr>
</thead> </thead>
<tr> <tr>
<td>1&nbsp;</td> <td>1&nbsp;</td>
<td align="left">&nbsp;Sin registrar asistencia</td> <td style="text-align:left;">&nbsp;Sin registrar asistencia</td>
</tr> </tr>
<tr> <tr>
<td>2&nbsp;</td> <td>2&nbsp;</td>
<td align="left" style="background-color: #ADD8E6">&nbsp;Se registró asistencia</td> <td style="text-align:left;background-color: #ADD8E6">&nbsp;Se registró asistencia</td>
</tr> </tr>
<tr> <tr>
<td>3&nbsp;</td> <td>3&nbsp;</td>
<td align="left" style="color: #FF0000">&nbsp;Se registró asistencia y fue modificada</td> <td style="text-align:left;color: #FF0000">&nbsp;Se registró asistencia y fue modificada</td>
</tr> </tr>
</table> </table>
</td> </td>
</tr> </tr>
</table> </table>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <div id="DModalCargaASistenciaMasiva" class="modal ADS fade" role="dialog">
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"> <asp:UpdatePanel ID="UPP" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<Columns> <ContentTemplate>
<asp:TemplateField> <div class="modal-content rowpadding">
<HeaderTemplate>N°</HeaderTemplate> <div class="modal-header">
<ItemTemplate> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<asp:Literal ID="LtlCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Literal> <span aria-hidden="true">&times;</span>
</ItemTemplate> </button>
</asp:TemplateField> <h4 class="modal-title" runat="server" style="text-align: left">Cargar asistencia del periodo</h4>
<asp:TemplateField> </div>
<HeaderTemplate>Personal</HeaderTemplate> <div class="modal-body">
<ItemTemplate> <div class="form-group form-md-line-input">
<asp:Literal ID="LtlPersonal" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal> <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Asistencia</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% de Pago</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtPorPago" runat="server" MaxLength="3" Text="100" Width="74px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Dobles</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtHorasDobles" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Triples</HeaderTemplate>
<ItemTemplate>
<asp:TextBox ID="TxtHorasTriples" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Motivo H. Extras</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlMotivoHoraExtra" runat="server" AppendDataBoundItems="true" DataTextField="MotivoHoraExtra" DataValueField="CveMotivoHoraExtra" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</ItemTemplate> <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo">Tipo:</asp:Label>
</asp:TemplateField> </div>
<asp:TemplateField> <div class="form-group form-md-line-input">
<HeaderTemplate>Obs.</HeaderTemplate> <asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
<ItemTemplate> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:TextBox ID="TxtObservaciones" runat="server" Width="84px" MaxLength="150"></asp:TextBox> </asp:DropDownList>
</ItemTemplate> <asp:Label runat="server" AssociatedControlID="DdlPeriodo">Periodo:</asp:Label>
</asp:TemplateField> </div>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> </div>
<HeaderStyle CssClass="Titulos" /> <div class="modal-footer">
</asp:GridView> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar Asistencia" class="btn btn-primary" /> <ContentTemplate>
</ContentTemplate> <asp:LinkButton ID="BtnCargaMasiva" OnClick="BtnCargaMasiva_Click" CssClass="btn btn-primary" runat="server">Cargar</asp:LinkButton>
</asp:UpdatePanel> </ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <script type="text/javascript">
function CargaClientes() { function CargaClientes() {
$("#BtnCargarClientes").click(); $("#BtnCargarClientes").click();
} }

3
RH/Asistencias.aspx.vb
View File

@@ -71,6 +71,7 @@ Partial Class RH_Asistencias
End If End If
objpersonal.Dispose() objpersonal.Dispose()
GV.DataBind() GV.DataBind()
BtnGuardar.Visible = (GV.Rows.Count > 0)
UpDatos.Update() UpDatos.Update()
Else Else
Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & TxtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia) Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & TxtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia)
@@ -150,7 +151,7 @@ Partial Class RH_Asistencias
End Sub End Sub
Protected Sub BtnCargaMasiva_Click(sender As Object, e As EventArgs) Handles BtnCargaMasiva.Click Protected Sub BtnCargaMasiva_Click(sender As Object, e As EventArgs)
Dim ObjPersonal As New ClsRH() Dim ObjPersonal As New ClsRH()
ObjPersonal.IniciaTransacSQL() ObjPersonal.IniciaTransacSQL()
Dim OcurrioError As Boolean = False Dim OcurrioError As Boolean = False

3
Sistemas/CatSesiones.aspx
View File

@@ -20,8 +20,7 @@
<asp:ListItem Text="Proyectos" Value="GlobalDTProyectos"></asp:ListItem> <asp:ListItem Text="Proyectos" Value="GlobalDTProyectos"></asp:ListItem>
<asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem> <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
<asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem> <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
<asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem> <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
<asp:ListItem Text="Folios" Value="GlobalDTFolios"></asp:ListItem>
<%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%> <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
<asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem> <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>
<asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem> <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>

14
Sistemas/CatSesiones.aspx.vb
View File

@@ -24,8 +24,6 @@ Partial Class Sistemas_CatSesiones
CargaSubProyectos() CargaSubProyectos()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSubProyectosUsuarios" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSubProyectosUsuarios" Then
CargaSubProyectos() CargaSubProyectos()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTFolios" Then
CargaFolios()
'ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSucursales" Then 'ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSucursales" Then
' CargaSucursales() ' CargaSucursales()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCompProveedores" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCompProveedores" Then
@@ -341,18 +339,6 @@ Partial Class Sistemas_CatSesiones
'Fin Carga Proyectos 'Fin Carga Proyectos
End Sub End Sub
Private Sub CargaFolios()
'Carga Folios
Dim ObjFolios As New ClsGralFolios()
If ObjFolios.GetFolios() Then
Application("GlobalDTFolios") = ObjFolios.DtResultados
Else
Application("GlobalDTFolios") = Nothing
End If
ObjFolios.Dispose()
'Fin Carga Folios
End Sub
'Private Sub CargaSucursales() 'Private Sub CargaSucursales()
' 'Carga Sucursales ' 'Carga Sucursales
' Dim ObjSucursales As New ClsSucursales() ' Dim ObjSucursales As New ClsSucursales()

25
Ventas/Ventas.aspx.vb
View File

@@ -5152,7 +5152,9 @@ Partial Class Ventas
CargarAlmacenes() CargarAlmacenes()
CargaDocumentacionCliente() If UsuarioActual.Empresa.FacturaProduccion Then
CargaDocumentacionCliente()
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});" BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -7029,7 +7031,7 @@ Partial Class Ventas
'MARCA LO PENDIENTE A NIVEL DETALLE 'MARCA LO PENDIENTE A NIVEL DETALLE
Dim DtMovDetalles As DataTable = Nothing Dim DtMovDetalles As DataTable = Nothing
If ObjInventario.GetSaldoVentaDetalle(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then If ObjInventario.GetSaldoVentaDetalle(CveDevolucion, UsuarioActual.CveEmpresa) Then
DtMovDetalles = ObjInventario.DtResultados.Copy() DtMovDetalles = ObjInventario.DtResultados.Copy()
End If End If
@@ -7037,9 +7039,9 @@ Partial Class Ventas
For Each Row As DataRow In DtMovDetalles.Rows For Each Row As DataRow In DtMovDetalles.Rows
Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToEntero() Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToEntero()
If SaldoAlmacen < 0 Then If SaldoAlmacen < 0 Then
ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalle").ToString().ToEntero(), 1) ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 1)
ElseIf SaldoAlmacen = 0 Then ElseIf SaldoAlmacen = 0 Then
ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalle").ToString().ToEntero(), 0) ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 0)
End If End If
Next Next
End If End If
@@ -10186,7 +10188,7 @@ Partial Class Ventas
Exit For Exit For
Else Else
ViewState("SeGuardoPrePoliza") = True ViewState("SeGuardoPrePoliza") = True
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContClientes, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit For Exit For
End If End If
@@ -19451,6 +19453,7 @@ Partial Class Ventas
Private Sub CancelarDocumento(Optional EsRefacturacion As Boolean = False) Private Sub CancelarDocumento(Optional EsRefacturacion As Boolean = False)
Dim LigaRedirigir As String = ""
'Si es cancelacion de una refactura ignoramos las condiciones 'Si es cancelacion de una refactura ignoramos las condiciones
If Me.CveEstatus = 13 Then If Me.CveEstatus = 13 Then
CancelarRefacturada() CancelarRefacturada()
@@ -19495,11 +19498,9 @@ Partial Class Ventas
Else Else
If EsRefacturacion Then If EsRefacturacion Then
If resp.CveEstatus = 20 Then If resp.CveEstatus = 20 Then
ObjFacturaCancelacion.Dispose() LigaRedirigir = $"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}"
Server.Transfer($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}")
ElseIf resp.CveEstatus.Contiene(4, 5) Then ElseIf resp.CveEstatus.Contiene(4, 5) Then
ObjFacturaCancelacion.Dispose() LigaRedirigir = $"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1"
Server.Transfer($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
Else Else
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
End If End If
@@ -19507,8 +19508,6 @@ Partial Class Ventas
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
End If End If
End If End If
ObjFacturaCancelacion.CveAlmacen = -1
Else Else
Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError) Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError)
End If End If
@@ -19520,6 +19519,10 @@ Partial Class Ventas
UpEstatus.Update() UpEstatus.Update()
If Not String.IsNullOrEmpty(LigaRedirigir) Then
Response.Redirect(LigaRedirigir)
End If
End Sub End Sub

12
asmx/WSApp.asmx
View File

@@ -633,7 +633,7 @@ Public Class WSApp
Dim retorno As String = "[]" Dim retorno As String = "[]"
Dim CvePS = -1 Dim CvePS = -1
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSExistencias(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then If ObjPS.GetPSExistenciasWS(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
If CveClasificacion > 0 Then If CveClasificacion > 0 Then
retorno = ObjPS.DtResultados.FiltraParametros($"CveClasificacion = {CveClasificacion}").ToJson() retorno = ObjPS.DtResultados.FiltraParametros($"CveClasificacion = {CveClasificacion}").ToJson()
Else Else
@@ -1122,7 +1122,7 @@ Public Class WSApp
TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.Columns.Add("NoIdentificacion", GetType(String))
TmpDT.Columns.Add("CveTipoPS", GetType(Integer)) TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer)) TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
TmpDT.Columns.Add("SerieLote", GetType(String)) TmpDT.Columns.Add("Serie", GetType(String))
TmpDT.Columns.Add("CuentaPredial", GetType(String)) TmpDT.Columns.Add("CuentaPredial", GetType(String))
TmpDT.Columns.Add("Obs", GetType(String)) TmpDT.Columns.Add("Obs", GetType(String))
TmpDT.Columns.Add("TiempoEntrega", GetType(String)) TmpDT.Columns.Add("TiempoEntrega", GetType(String))
@@ -1210,7 +1210,7 @@ Public Class WSApp
TmpDT.Columns.Add("CveUM", GetType(Integer)) TmpDT.Columns.Add("CveUM", GetType(Integer))
TmpDT.Columns.Add("Cantidad", GetType(Decimal)) TmpDT.Columns.Add("Cantidad", GetType(Decimal))
TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer)) TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
TmpDT.Columns.Add("SerieLote", GetType(String)) TmpDT.Columns.Add("Serie", GetType(String))
TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer)) TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
For Each Dr As DataRow In DtDetalle.FiltraParametros("CveTipoPS = 2").Rows For Each Dr As DataRow In DtDetalle.FiltraParametros("CveTipoPS = 2").Rows
@@ -1219,7 +1219,7 @@ Public Class WSApp
ss("CveUM") = Dr("CveUM") ss("CveUM") = Dr("CveUM")
ss("Cantidad") = Dr("Cantidad") ss("Cantidad") = Dr("Cantidad")
ss("CveTipoInvPS") = Dr("CveTipoInvPS") ss("CveTipoInvPS") = Dr("CveTipoInvPS")
ss("SerieLote") = Dr("SerieLote") ss("Serie") = Dr("Serie")
ss("CveVentaDetalle") = -1 ss("CveVentaDetalle") = -1
TmpDT.Rows.Add(ss) TmpDT.Rows.Add(ss)
@@ -1228,7 +1228,7 @@ Public Class WSApp
Return TmpDT Return TmpDT
End Function End Function
Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CvePrecioLista As Integer, CveSubProyecto As Integer, Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CvePrecioLista As Integer, CveSubProyecto As Integer,
Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0,
@@ -1290,7 +1290,7 @@ Public Class WSApp
Row("Proyecto") = DrSubProyecto("Proyecto").ToString() Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
Row("CveSubProyecto") = CveSubProyecto Row("CveSubProyecto") = CveSubProyecto
Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString() Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
Row("SerieLote") = SerieLote Row("Serie") = Serie
Row("TiempoEntrega") = TiempoEntrega Row("TiempoEntrega") = TiempoEntrega
Row("Orden") = TmpDT.Rows.Count + 1 Row("Orden") = TmpDT.Rows.Count + 1
Row("Cantidad") = PS.Cantidad Row("Cantidad") = PS.Cantidad