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

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

Browse Source
This commit is contained in:
rakcsle
2021-09-30 18:07:38 -07:00
parent 15ecbac41f 3dca188a41
commit fbdd47fcbd
26 changed files with 607 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
App_Code/ClsClientes.vb
View File

@@ -128,7 +128,8 @@ Public Class ClsClientes
Public Property CveFormaPago33 As Integer Public Property CveFormaPago33 As Integer
Public Property CveMetodoPago33 As Integer Public Property CveMetodoPago33 As Integer
Public Property CveClienteCorporativo As String Public Property CveClienteCorporativo As String
Public Property DesglosaIEPS As Boolean Public Property DesglosaIEPS As Boolean
Public Property NoDesglosaIVA As Boolean
Public Property AplicaComercioExterior As Boolean Public Property AplicaComercioExterior As Boolean
Public Property CveTipoOperacion As Integer Public Property CveTipoOperacion As Integer
Public Property CvePedimento As Integer Public Property CvePedimento As Integer
@@ -385,6 +386,7 @@ Public Class ClsClientes
_CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString
_DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean) _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean)
_NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean)
_AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean) _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean)
_CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero
@@ -513,18 +515,22 @@ Public Class ClsClientes
'SqlAdapter.Dispose() 'SqlAdapter.Dispose()
Return Retorno Return Retorno
End Function End Function
Public Function GetHistorialVentas(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Public Function GetHistorialVentas(CveCliente As Integer, CveEmpresa As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClienteHistorialVentas") DataAdapter("PA_ClienteHistorialVentas")
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
SqlAdapter.SelectCommand.Parameters.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
SqlAdapter.SelectCommand.Parameters.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
SqlAdapter.SelectCommand.Parameters.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -757,7 +763,7 @@ Public Class ClsClientes
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -878,6 +884,7 @@ Public Class ClsClientes
.Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo
.Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0)
.Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0)
.Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior
.Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion

36
App_Code/ClsCompras.vb
View File

@@ -438,12 +438,12 @@ Public Class ClsCompras
End Function End Function
Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer, Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer,
Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer, Cantidad As Decimal, PU As Decimal, IVA As Decimal, Total As Decimal, Descuento As Decimal, Observaciones As String, CveOCDetalle As Integer,
Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1,
Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1,
Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0, Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0,
Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0,
Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0,
Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -457,12 +457,12 @@ Public Class ClsCompras
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
.Add("@PU", SqlDbType.Float).Value = PU .Add("@PU", SqlDbType.Decimal).Value = PU
.Add("@IVA", SqlDbType.Float).Value = IVA .Add("@IVA", SqlDbType.Decimal).Value = IVA
.Add("@Total", SqlDbType.Float).Value = Total .Add("@Total", SqlDbType.Decimal).Value = Total
.Add("@Descuento", SqlDbType.Float).Value = Descuento .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
.Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos .Add("@OtrosGastos", SqlDbType.Decimal).Value = OtrosGastos
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle
.Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion
@@ -476,16 +476,16 @@ Public Class ClsCompras
.Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento
.Add("@Referencia", SqlDbType.VarChar).Value = Referencia .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
.Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@RetIVA", SqlDbType.Float).Value = RetIVA .Add("@RetIVA", SqlDbType.Decimal).Value = RetIVA
.Add("@RetISR", SqlDbType.Float).Value = RetISR .Add("@RetISR", SqlDbType.Decimal).Value = RetISR
.Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS .Add("@IEPSPS", SqlDbType.Decimal).Value = IEPSPS
.Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA .Add("@IEPSPSIVA", SqlDbType.Decimal).Value = IEPSPSIVA
.Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje .Add("@IVAPorcentaje", SqlDbType.Decimal).Value = IVAPorcentaje
.Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje .Add("@RetIVAPorcentaje", SqlDbType.Decimal).Value = RetIVAPorcentaje
.Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje .Add("@RetISRPorcentaje", SqlDbType.Decimal).Value = RetISRPorcentaje
.Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje .Add("@IEPSPSPorcentaje", SqlDbType.Decimal).Value = IEPSPSPorcentaje
.Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje .Add("@IEPSPSIVAPorcentaje", SqlDbType.Decimal).Value = IEPSPSIVAPorcentaje
.Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
.Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle

4
App_Code/ClsGenerales.vb
View File

@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_HistorialBitacoraGet") DataAdapter("PA_Gral_HistorialBitacoraGet")
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
.Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Fecha", SqlDbType.Date).Value = Fecha
End With End With
'SqlTypes.SqlDateTime.Null 'SqlTypes.SqlDateTime.Null

4
App_Code/ClsInventarios.vb
View File

@@ -131,8 +131,6 @@ Public Class ClsInventarios
Public Property ResponsableCarga As String Public Property ResponsableCarga As String
Public Property ResponsableRecibio As String Public Property ResponsableRecibio As String
Public Property Modulo As String Public Property Modulo As String
Public Property ConAplicacion As Boolean
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
FechaI = dr("FechaInicio").ToString FechaI = dr("FechaInicio").ToString
FechaF = dr("FechaFin").ToString FechaF = dr("FechaFin").ToString
Estatus = dr("Estatus").ToString Estatus = dr("Estatus").ToString
ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
Retorno = True Retorno = True
End If End If

46
App_Code/ClsNominas.vb
View File

@@ -2483,6 +2483,52 @@ Public Class ClsNominas
End Try End Try
Return retorno Return retorno
End Function End Function
#Region "Prorrateo"
Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_Prorrateosubproyecto")
SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ProrrateosubproyectoAdd")
SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ProrrateosubproyectoRemove")
SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region "CRUD_Nom_PersonalIncapacidad" #Region "CRUD_Nom_PersonalIncapacidad"
Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean

5
App_Code/ClsPaginas.vb
View File

@@ -1352,7 +1352,7 @@ Public Class ClsPaginas
End Get End Get
End Property End Property
Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1,
Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1") As DataTable Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1", Optional CodigoSATPS As String = "-1") As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
@@ -1367,7 +1367,7 @@ Public Class ClsPaginas
Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)) Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow))
Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) 'Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo)) If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
Codigo = Codigo.ToUpper().Trim() Codigo = Codigo.ToUpper().Trim()
@@ -1375,6 +1375,7 @@ Public Class ClsPaginas
If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta)) If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS)) If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
If CodigoSATPS <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!SATClavePS) = CodigoSATPS))
Try Try
GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable

8
App_Code/ClsRH.vb
View File

@@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno Return Retorno
End Function End Function
Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado") SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@SDI", SqlDbType.Money).Value = SDI .Add("@SDI", SqlDbType.Money).Value = SDI
.Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
End With End With
@@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalUpdateSalarios") SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
.Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
.Add("@SDI", SqlDbType.Money).Value = SDI .Add("@SDI", SqlDbType.Money).Value = SDI
@@ -2448,7 +2450,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim xmlProductos As System.Xml.Linq.XDocument = Nothing Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
If registros IsNot Nothing AndAlso registros.Count > 0 Then If registros IsNot Nothing AndAlso registros.Count > 0 Then
xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha)))) xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo))))
End If End If
Data = New DataTable Data = New DataTable
SqlDataAdapter("PA_RH_AsistenciaDetalleUP") SqlDataAdapter("PA_RH_AsistenciaDetalleUP")

2
Compras/PopUpBuscarFolioC.aspx
View File

@@ -46,7 +46,7 @@
<tr style="text-align: left"> <tr style="text-align: left">
<td class="text-right"><b>Proveedor:</b></td> <td class="text-right"><b>Proveedor:</b></td>
<td> <td>
<asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="180px"></asp:DropDownList> <ADS:Dropdownlost ID="DdlProveedores" runat="server" UsaWebService="true" data-metodo="getproveedores" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</td> </td>
</tr> </tr>
<tr style="text-align: left"> <tr style="text-align: left">

10
Compras/PopUpBuscarFolioC.aspx.vb
View File

@@ -31,9 +31,9 @@ Partial Class Compras_PopUpBuscarFolioC
End Sub End Sub
Protected Sub CargaProveedor() Protected Sub CargaProveedor()
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() 'DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
If ValidarUnFiltroSeleccionado() Then If ValidarUnFiltroSeleccionado() Then
Dim ObjCompras As New ClsCompras() Dim ObjCompras As New ClsCompras()
If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs, If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then CveProveedor:=DdlProveedores.SelectedValue.ToEntero, TopSelect:=100) Then
If ObjCompras.DtResultados.Rows.Count > 0 Then If ObjCompras.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjCompras.DtResultados GV.DataSource = ObjCompras.DtResultados
@@ -112,7 +112,7 @@ Partial Class Compras_PopUpBuscarFolioC
If TxtDescripcion.Text.Trim.Length > 0 Then Return True If TxtDescripcion.Text.Trim.Length > 0 Then Return True
If TxtObservaciones.Text.Trim.Length > 0 Then Return True If TxtObservaciones.Text.Trim.Length > 0 Then Return True
If DdlTipoDocto.SelectedValue <> "-1" Then Return True If DdlTipoDocto.SelectedValue <> "-1" Then Return True
If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True If DdlProveedores.SelectedValue.ToEntero <> 0 Then Return True
Return False Return False
End Function End Function
End Class End Class

2
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -58,7 +58,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetConta_ConceptosContables() Then If ObjConta.GetConta_ConceptosContables() Then
DdlCconceptosContables.DataSource = ObjConta.DtResultados DdlCconceptosContables.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True ")
DdlConceptoGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True AND EsGlobal = True") DdlConceptoGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True AND EsGlobal = True")
End If End If

4
Contratos/RepContratosObraAvances.aspx
View File

@@ -70,8 +70,8 @@
<div class="col-md-1"> <div class="col-md-1">
Cliente: Cliente:
</div> </div>
<div class="col-md-1"> <div class="col-md-3">
<asp:DropDownList ID="DdlCliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" Class="select2me" Width="100PX" ></asp:DropDownList> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-1"> <div class="col-md-1">

31
Contratos/RepContratosObraAvances.aspx.vb
View File

@@ -19,12 +19,15 @@ Partial Class RepContratosObraAvances
Private Sub CargaDatos() Private Sub CargaDatos()
Dim CveCliente As Integer = -1
Dim Con As New ClsContratos Dim Con As New ClsContratos
Dim DTDatos As New DataTable If DdlCliente.SelectedValue.ToEntero > 0 Then CveCliente = DdlCliente.SelectedValue.ToEntero
If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, CveCliente, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GVDatos.DataSource = Con.DtResultados GVDatos.DataSource = Con.DtResultados
DTDatos = Con.DtResultados If Con.DtResultados.Rows.Count > 0 Then
Indicadores(Con.DtResultados)
End If
Else Else
GVDatos.DataSource = Nothing GVDatos.DataSource = Nothing
End If End If
@@ -35,9 +38,7 @@ Partial Class RepContratosObraAvances
UpDatos.Update() UpDatos.Update()
If DTDatos.Rows.Count > 0 Then
Indicadores(DTDatos)
End If
End Sub End Sub
@@ -88,15 +89,15 @@ Partial Class RepContratosObraAvances
End Sub End Sub
Private Sub CargaClientes() Private Sub CargaClientes()
Dim dt As DataTable = Nothing 'Dim dt As DataTable = Nothing
Dim Cli As New ClsClientes 'Dim Cli As New ClsClientes
If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then 'If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
dt = Cli.DtResultados ' dt = Cli.DtResultados
End If 'End If
Cli.Dispose() 'Cli.Dispose()
DdlCliente.DataSource = dt 'DdlCliente.DataSource = dt
DdlCliente.DataBind() 'DdlCliente.DataBind()
DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
#End Region #End Region

5
General/ExcelToBD.aspx.cs
View File

@@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page
DdlWorkBooks.DataBind(); DdlWorkBooks.DataBind();
if (workBooks.Count > 0) if (workBooks.Count > 0)
{ {
DdlWorkBooks.SelectedIndex = 0; DdlWorkBooks.SelectedIndex = 1;
DdlWorkBooks_SelectedIndexChanged(null, null); DdlWorkBooks_SelectedIndexChanged(null, null);
} }
LnkContinuar_Click(null, null);
} }
protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e) protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e)
@@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
columnas = workSheet.LastRowUsed().CellCount(); columnas = workSheet.LastRowUsed().CellCount();
TxtFilas.Text = Filas.ToString(); TxtFilas.Text = Filas.ToString();
TxtInicia.Text = "2"; TxtInicia.Text = "2";
TxtColumnas.Text = "62";// columnas.ToString(); TxtColumnas.Text = "48";//"62";// columnas.ToString();
} }
} }

24
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -2229,6 +2229,14 @@ Partial Class Inventarios_RecepcionAlmacen
Return False Return False
End If End If
If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
Return False
End If
End If
'VERIFICA EXISTENCIAS 'VERIFICA EXISTENCIAS
If TipoMovimiento > 1 Then If TipoMovimiento > 1 Then
Dim MensajeExistencias As New StringBuilder Dim MensajeExistencias As New StringBuilder
@@ -2263,14 +2271,6 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
Return False
End If
End If
Return True Return True
End Function End Function
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -3883,6 +3883,14 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
End If End If
'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
ErrorMovInv = True
Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
End If
End If
Else Else
ErrorMovInv = True ErrorMovInv = True

9
Nomina/ChecadorAsistencia.aspx
View File

@@ -4,6 +4,9 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.GvBitacora th:nth-child(n+2){
text-align: left;
}
.AdsCHeader .GvNominas th:nth-child(1), .AdsCHeader .GvNominas th:nth-child(1),
.AdsCHeader .GvNominas td:nth-child(1) { .AdsCHeader .GvNominas td:nth-child(1) {
text-align: left; text-align: left;
@@ -128,7 +131,7 @@
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False"> <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
<Columns> <Columns>
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
@@ -139,8 +142,8 @@
<asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<%--<asp:BoundField DataField="Asistencia" HeaderText="Fecha" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%> <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<%--<asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%> <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
</Columns> </Columns>

6
Nomina/ChecadorAsistencia.aspx.cs
View File

@@ -191,10 +191,10 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
DataTable dtCon = generateTable(); DataTable dtCon = generateTable();
GvNominas.DataSource = dtCon; GvNominas.DataSource = dtCon;
GvNominas.DataBind(); GvNominas.DataBind();
DateTime fechai = TxtFecha.Text.ToDateTime(); DateTime fechai = TxtRpdFechaInicio.Text.ToDateTime();
DateTime fechaf = fechai.AddDays(1); DateTime fechaf = TxtRpdFechaFin.Text.ToDateTime().AddDays(1);
using (ClsGenerales ObjGral = new ClsGenerales()) { using (ClsGenerales ObjGral = new ClsGenerales()) {
if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechai.ToString("yyyy/MM/dd"))) if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechaf.ToString("yyyy/MM/dd")))
{ {
//Alert("Entre"); //Alert("Entre");
GvBitacora.DataSource = ObjGral.DtResultados; GvBitacora.DataSource = ObjGral.DtResultados;

185
Nomina/Nomina.aspx
View File

@@ -186,10 +186,10 @@
<asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton> <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton> <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton> <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink> <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink>
@@ -198,7 +198,10 @@
<asp:HyperLink ID="LnkProvisionNominaAsimilados" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión Asimilados</asp:HyperLink> <asp:HyperLink ID="LnkProvisionNominaAsimilados" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión Asimilados</asp:HyperLink>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton> <asp:LinkButton ID="LnkOpenProrrateo" OnClick="LnkOpenProrrateo_Click" runat="server"><i class="fa fa-percent"></i> Prorrateo</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkAsistenciaIncidencias" Visible="true" OnClick="LnkAsistenciaIncidencias_Click" runat="server"><i class="fa fa-check-square"></i>Incidencias asistencia </asp:LinkButton> <asp:LinkButton ID="LnkAsistenciaIncidencias" Visible="true" OnClick="LnkAsistenciaIncidencias_Click" runat="server"><i class="fa fa-check-square"></i>Incidencias asistencia </asp:LinkButton>
@@ -245,6 +248,10 @@
<li> <li>
<asp:HyperLink ID="HypPDFSTimbrados" Visible="false" onclick="GETPDF(-1,0)" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Recibos timbrados</asp:HyperLink> <asp:HyperLink ID="HypPDFSTimbrados" Visible="false" onclick="GETPDF(-1,0)" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Recibos timbrados</asp:HyperLink>
</li> </li>
<li>
<asp:LinkButton ID="LnkOpenCancelarTimbre" OnClick="LnkOpenCancelarTimbre_Click" runat="server"><i class="fa fa-download"></i> CancelarTimbre</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="LnkListaRaya" /> <asp:PostBackTrigger ControlID="LnkListaRaya" />
@@ -909,7 +916,7 @@
</div> </div>
</div> </div>
<div class="portlet light xspadding bordered " id="pnlBitacora"> <div class="portlet light xspadding bordered " id="pnlBitacora">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption "> <div class="caption ">
@@ -919,23 +926,23 @@
<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>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a> <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body " style="padding: 0px;"> <div class="portlet-body " style="padding: 0px;">
<asp:GridView ID="GvBitacora" OnRowDataBound="GvBitacora_RowDataBound" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False"> <asp:GridView ID="GvBitacora" OnRowDataBound="GvBitacora_RowDataBound" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
<Columns> <Columns>
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal> <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -3431,6 +3438,146 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DModalProrrateo" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpModalProrrateo" class="modal-dialog" style="width:900px;" 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">Prorrateo</h4>
</div>
<div class="modal-body">
<div class="portlet light bordered xspadding" id="portletprorrateo">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Agregar prorrateo</span>
</div>
<div class="tools">
<a href="javascript:;" class="expand" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body" style="display:none">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPRPersonal" DataTextField="CodigoNombreCompleto" DataValueField="CvePersonal" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlPRPersonal" Enabled="false" Text="Empleado"></asp:Label>
</div>
<div class="row">
<div class="col-md-6" runat="server" id="divPRddlproyeto">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPRProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label ID="LblPRProyecto" runat="server" Text="Proyecto:" AssociatedControlID="DdlPRProyecto"></asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPRSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label ID="LblPRSubProyeccto" AssociatedControlID="DdlPRSubProyecto" runat="server" Text="SubProyecto:"></asp:Label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control " ID="TxtPorcentaje" runat="server" Text="0"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPorcentaje" Text="Porcentaje"></asp:Label>
</div>
<div class="text-right">
<asp:LinkButton ID="LnkAgregarProrrateo" OnClick="LnkAgregarProrrateo_Click" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton>
</div>
</div>
</div>
<asp:GridView ID="GVProrrateo" OnRowDataBound="GVProrrateo_RowDataBound" DataKeyNames="CvePersonal,CveSubProyecto,Porcentaje" runat="server" GridLines="None" Width="100%" CellSpacing="0"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False">
<Columns>
<asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="NombreCompleto" HeaderText="Empleado" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="SubProyecto" HeaderText="Centro de costos" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Porcentaje" DataFormatString="{0:P2}" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="right" HeaderStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderStyle-Width="30">
<ItemTemplate>
<div style="min-width: 30px; text-align: right; white-space: nowrap; padding-right: 10px;">
<asp:LinkButton runat="server" ID="LnkEliminarProrrateo" OnClick="LnkEliminarProrrateo_Click" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el prorrateo?" data-btn-ok-label="si" />
</div>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<asp:Panel runat="server" ClientIDMode="Static" ID="DmodalCancelartimbre" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpCancelarFolioFiscal" 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">Cancelar timbre fiscal</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-8">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFolioFiscal" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPeriodo">Folio Fiscal</asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTotal" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtTotal">Total</asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRFCEmisor" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Emisor</asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRFCReceptor" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Receptor</asp:Label>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelarFolioFiscal_Click" CssClass="btn btn-success" runat="server">Cancelar folio fiscal</asp:LinkButton>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Panel>
<asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
<asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" /> <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

185
Nomina/Nomina.aspx.cs
View File

@@ -193,11 +193,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (!IsPostBack) if (!IsPostBack)
{ {
DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100); LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100);
TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}"; TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}";
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto); CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);
CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto); CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
divddlproyeto.Visible = DdlProyecto.Visible; divddlproyeto.Visible = DdlProyecto.Visible;
divPRddlproyeto.Visible = DdlPRProyecto.Visible;
PnlProyecto.Visible = DdlProyecto.Visible; PnlProyecto.Visible = DdlProyecto.Visible;
if (PnlProyecto.Visible) if (PnlProyecto.Visible)
{ {
@@ -1128,7 +1132,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int CveNomina = gvRow.DataKey("CveNomina").ToEntero(); int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
LogicNominas lognom = new LogicNominas(); LogicNominas lognom = new LogicNominas();
Usuario UsuarioActual = null; Usuario UsuarioActual = null;
if (EsProduccion ==false) if (EsProduccion == false)
{ {
//Usuario UsuarioActual = null; //Usuario UsuarioActual = null;
@@ -1196,34 +1200,53 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (CveNomina > 0) if (CveNomina > 0)
{ {
ClsNominas Nom = new ClsNominas(); using (ClsNominas Nom = new ClsNominas())
if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
{ {
Timbrado ObjTimbrado = new Timbrado();
string FolioFiscal = Nom.FolioFiscal; if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
decimal Total = Nom.Total.ToString().ToDecimal();
string RFCReceptor = Nom.RFC;
string RFCEmisor = UsuarioActual.Empresa.RFC;
if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
{ {
Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0); Timbrado ObjTimbrado = new Timbrado();
Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion); string FolioFiscal = Nom.FolioFiscal;
} decimal Total = Nom.Total.ToString().ToDecimal();
else string RFCReceptor = Nom.RFC;
{ string RFCEmisor = UsuarioActual.Empresa.RFC;
string SerieFolio = Nom.SerieFolio;
ObjTimbrado.MensajeErrorCFDI.GuardaLog(); if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
Alert($"no se pudo cancelar el folio fiscal<br>{ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia); {
try
{
string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta);
string archivo = string.Format("{0}{1}.xml", ruta, SerieFolio);
int contador = 1;
string archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
while (System.IO.File.Exists(archivonew))
{
archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
}
File.Move(archivo, archivonew);
}
catch (Exception)
{
Alert("Ocurrió un error al mover el archivo fiscal cancelado");
}
Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
}
else
{
ObjTimbrado.MensajeErrorCFDI.GuardaLog();
Alert($"no se pudo cancelar el folio fiscal<br>{ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia);
}
} }
} }
Nom.Dispose();
cargaDatos(); cargaDatos();
} }
} }
@@ -7200,4 +7223,124 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
} }
protected void LnkCancelarFolioFiscal_Click(object sender, EventArgs e)
{
Timbrado ObjTimbrado = new Timbrado();
string FolioFiscal = TxtFolioFiscal.Text;
decimal Total = TxtTotal.Text.ToDecimal();
string RFCReceptor = TxtRFCReceptor.Text;
string RFCEmisor = TxtRFCEmisor.Text;
if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
{
Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
}
else
{
Alert(ObjTimbrado.MensajeErrorCFDI, TipoMensaje.MsgAdvertencia);
}
ObjTimbrado = null;
}
protected void LnkOpenCancelarTimbre_Click(object sender, EventArgs e)
{
RegistraScript(string.Format("$('#{0}').modal();", DmodalCancelartimbre.ClientID));
}
protected void LnkOpenProrrateo_Click(object sender, EventArgs e)
{
using (ClsRH onom = new ClsRH())
{
if (onom.GetPersonal(-1, UsuarioActual.CveEmpresa))
{
DdlPRPersonal.DataSource = onom.DtResultados;
DdlPRPersonal.DataBind();
}
}
using (ClsNominas onom = new ClsNominas())
{
GVProrrateo.DataSource = null;
if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
{
GVProrrateo.DataSource = onom.DtResultados;
}
GVProrrateo.DataBind();
}
RegistraScript(string.Format("$('#DModalProrrateo').modal();"));
UpModalProrrateo.Update();
}
protected void LnkEliminarProrrateo_Click(object sender, EventArgs e)
{
GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer);
int CvePersonal, CveSubProyecto;
CvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
CveSubProyecto = gvrow.DataKey("CveSubProyecto").ToEntero();
using (ClsNominas onom = new ClsNominas())
{
if (onom.ProrrateosubproyectoRemove(CvePersonal, CveSubProyecto))
{
GVProrrateo.DataSource = null;
if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
{
GVProrrateo.DataSource = onom.DtResultados;
}
GVProrrateo.DataBind();
Alert("Se ha eliminado satisfactoriamente.");
}
}
}
protected void GVProrrateo_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
int CvePersonal, CveSubProyecto;
decimal Porcentaje;
CvePersonal = e.Row.DataKey("CvePersonal").ToEntero();
CveSubProyecto = e.Row.DataKey("CveSubProyecto").ToEntero();
Porcentaje = e.Row.DataKey("Porcentaje").ToDecimal();
if (CveSubProyecto > 0)
{
}
else
{
e.Row.FindControl("LnkEliminarProrrateo").Visible = false;
e.Row.CssClass = Porcentaje == 1 ? "info" : "danger";
}
}
}
protected void LnkAgregarProrrateo_Click(object sender, EventArgs e)
{
int CvePersonal, CveSubProyecto;
decimal Porcentaje;
CvePersonal = DdlPRPersonal.SelectedValue.ToEntero();
CveSubProyecto = DdlPRSubProyecto.SelectedValue.ToEntero();
Porcentaje = TxtPorcentaje.Text.ToDecimal();
using (ClsNominas onom = new ClsNominas())
{
if (onom.ProrrateosubproyectoAdd(CvePersonal, CveSubProyecto, Porcentaje))
{
GVProrrateo.DataSource = null;
if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
{
GVProrrateo.DataSource = onom.DtResultados;
}
GVProrrateo.DataBind();
Alert("Se ha agregado satisfactoriamente.");
}
}
UpModalProrrateo.Update();
}
} }

4
PortalCliente/PortalCliente.aspx.vb
View File

@@ -272,7 +272,7 @@ Partial Class Ventas_PortalCliente
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes() Dim ObjClientes As New ClsClientes()
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=CveClienteSucursal) Then If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=CveClienteSucursal) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Generales 'Carga Generales
LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0) LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
@@ -1726,7 +1726,7 @@ Partial Class Ventas_PortalCliente
Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
If ObjClientes.GetHistorialVentas(CveCliente, TopPedidos, CveClienteSucursal:=-1, TipoDocto:="Pd2", CveEstatusFactura:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, TopPedidos, CveClienteSucursal:=-1, TipoDocto:="Pd2", CveEstatusFactura:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then
GvPedidos.DataSource = ObjClientes.DtResultados GvPedidos.DataSource = ObjClientes.DtResultados
If ObjClientes.DtResultados.Rows.Count < 21 Then If ObjClientes.DtResultados.Rows.Count < 21 Then
LnkVerMasPedidos.Visible = False LnkVerMasPedidos.Visible = False

4
RH/ActualizacionMasiva.aspx.vb
View File

@@ -205,7 +205,7 @@ Partial Class RH_ActualizacionMasiva
' ObjPersonal.RollBack() ' ObjPersonal.RollBack()
' Exit For ' Exit For
'End If 'End If
If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(),, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
Row.FCCheckBox("ChkCalcularSDI").Checked) Then Row.FCCheckBox("ChkCalcularSDI").Checked) Then
@@ -361,7 +361,7 @@ Partial Class RH_ActualizacionMasiva
If Not IsNothing(drow) Then If Not IsNothing(drow) Then
Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero() Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
contador = contador + 1 contador = contador + 1
Else Else

4
RH/CalculoSBC.aspx.cs
View File

@@ -126,7 +126,7 @@ public partial class RH_CalculoSBC : ClsPaginas
double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble(); double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
{ {
} }
@@ -144,7 +144,7 @@ public partial class RH_CalculoSBC : ClsPaginas
/* /*
Using ObjPersonal As ClsRH = New ClsRH() Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"),UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
* */ * */
} }

4
RH/CatPersonal.aspx.vb
View File

@@ -1141,8 +1141,8 @@ Partial Class RH_CatPersonal
-1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "", -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1", DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1, 0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151 TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
,CveMedioTransporte:= DdlMedioTransporte.SelectedValue.ToEntero() CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
) Then ) Then
Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0) Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
continuar = True continuar = True

4
RH/Personal.aspx.vb
View File

@@ -6466,7 +6466,7 @@ Partial Class RH_Personal
calcularSDI() calcularSDI()
Using ObjPersonal As ClsRH = New ClsRH() Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
TxtSalarioDiario.Text = TxtFISalariodiario.Text TxtSalarioDiario.Text = TxtFISalariodiario.Text
TxtSalarioDiarioM.Text = TxtFISalariodiario.Text TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text 'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
@@ -6496,7 +6496,7 @@ Partial Class RH_Personal
TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
Using ObjPersonal As ClsRH = New ClsRH() Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text TxtSalarioDiario.Text = TxtSalarioDiarioM.Text

171
Ventas/Clientes.aspx.vb
View File

@@ -683,10 +683,10 @@ Partial Class Clientes
CargaCombos() CargaCombos()
CreaDTVentas() CreaDTVentas()
CreaDtPago() CreaDtPago()
RegistraScript("CargaHeader();") RegistraScript("CargaHeader();")
CargaEstados()
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
TabFiscalContable.Visible = True TabFiscalContable.Visible = True
TabRetenciones.Visible = False TabRetenciones.Visible = False
@@ -767,7 +767,7 @@ Partial Class Clientes
'Configuración de Modalidad Update 'Configuración de Modalidad Update
BtnGuardar.Text = "Guardar Cambios" BtnGuardar.Text = "Guardar Cambios"
LtlTitulo.Text = "Consulta del Cliente:" LtlTitulo.Text = "Consulta del Cliente:"
CargaDatosContrato() 'CargaDatosContrato()
'ImgAddVenta 'ImgAddVenta
@@ -813,8 +813,9 @@ Partial Class Clientes
Tab.ActiveTabIndex = Request("ATI").ToEntero() Tab.ActiveTabIndex = Request("ATI").ToEntero()
End If End If
'CargaCuentasyConceptos() 'CargaCuentasyConceptos()
Else Else
'Configuración de Modalidad Insert 'Configuración de Modalidad Insert
CargaEstados()
If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -1376,14 +1377,14 @@ Partial Class Clientes
If ObjCorporativo.GetCorporativo(UsuarioActual.CveEmpresa, 1) Then If ObjCorporativo.GetCorporativo(UsuarioActual.CveEmpresa, 1) Then
If ObjCorporativo.DtResultados.Rows.Count > 0 Then If ObjCorporativo.DtResultados.Rows.Count > 0 Then
Dim dt As DataTable = ObjCorporativo.DtResultados Dim dt As DataTable = ObjCorporativo.DtResultados
DdlCorporativo.DataSource = dt DdlCorporativo.DataSource = dt
DdlCorporativo.DataBind()
DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else Else
DdlCorporativo.DataSource = Nothing DdlCorporativo.DataSource = Nothing
End If End If
End If End If
ObjCorporativo.Dispose() ObjCorporativo.Dispose()
DdlCorporativo.DataBind()
End Sub End Sub
Protected Sub CargaCuentasExistentes() Protected Sub CargaCuentasExistentes()
'SELECTED VALUES 'SELECTED VALUES
@@ -1409,36 +1410,36 @@ Partial Class Clientes
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus:=-1, TipoCliente:=-1) Then If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus:=-1, TipoCliente:=-1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
Existe = True Existe = True
Retorno = True Retorno = True
CargaDdlSucursalCliente() CargaDdlSucursalCliente()
CargaDocumentosVenta(CveCliente) CargaDocumentosVenta(CveCliente)
Dim RetSC As Boolean = CargaSucursalesCliente() Dim RetSC As Boolean = CargaSucursalesCliente()
CargaUsuariosPortal()
CargaPersonalAsignado() 'CargaPersonalAsignado()
CargaUsuariosPortal() 'CargaOrdenesServiciosCliente()
CargaOrdenesServiciosCliente()
CargaImpuestosLocales() CargaImpuestosLocales()
CargaCuentasContablesDdls() CargaCuentasContablesDdls()
CargaResponsables() CargaResponsables()
CargaCondicionesEntrega() CargaCondicionesEntrega()
'CargaClasificaciones() 'CargaClasificaciones()
CargaGridRetenciones() ' CargaGridRetenciones()
' CargaDocs() ' CargaDocs()
CargaCombos() CargaCombos()
CargaDocumentacionCliente() CargaDocumentacionCliente()
'CargaMetodosPago33() 'CargaMetodosPago33()
'CargaFormaPago33() 'CargaFormaPago33()
'CargaComboCFDI() 'CargaComboCFDI()
CargarPagosNoBancarios() 'CargarPagosNoBancarios()
If UsuarioActual.TienePermisoProceso(279) Then If UsuarioActual.TienePermisoProceso(279) Then
LnkPorcentajeMarcas.Visible = True LnkPorcentajeMarcas.Visible = True
LnkPorcentajePrecios.Visible = True LnkPorcentajePrecios.Visible = True
End If End If
If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS. If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS.
@@ -1447,7 +1448,7 @@ Partial Class Clientes
CargaCuentasEquipos() CargaCuentasEquipos()
End If End If
CargaCuentasCaracteristicas() CargaCuentasCaracteristicas()
If ObjClientes.Pais = "" Then ObjClientes.Pais = "México" If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
@@ -1583,9 +1584,9 @@ Partial Class Clientes
HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString() = "", "0", ObjClientes.DtResultados(0)("LT").ToString()) HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString() = "", "0", ObjClientes.DtResultados(0)("LT").ToString())
HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString()) HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString())
DdlPais.SelectedValueExist(ObjClientes.CvePais) DdlPais.SelectedValueExist(ObjClientes.CvePais)
CargaEstado()
CargaEstado()
CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString()) CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString())
@@ -1638,6 +1639,9 @@ Partial Class Clientes
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0) 'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0) 'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
'DIAS DE PAGO 'DIAS DE PAGO
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c}) Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
@@ -1676,27 +1680,31 @@ Partial Class Clientes
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
TxtCelular.Text = ObjClientes.Celular TxtCelular.Text = ObjClientes.Celular
TxtExtOtro.Text = ObjClientes.ExtOtros TxtExtOtro.Text = ObjClientes.ExtOtros
If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString() If UsuarioActual.CveEmpresa.Contiene(119, 4, 7, 11, 12, 122, 145) Then
If ObjClientes.IdCtaContAnticipos > 0 Then
DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString())) If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString() If ObjClientes.IdCtaContAnticipos > 0 Then
End If DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString() DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString() End If
If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString() If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString() If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
ActivarRegistroAutomatico() If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString()
If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
'7eleven ActivarRegistroAutomatico()
End If
'7eleven
TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
'FORD 'FORD
@@ -1723,18 +1731,27 @@ Partial Class Clientes
If Not ObjClientes.Estatus Then If Not ObjClientes.Estatus Then
Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia) Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
End If End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
CargaEventoBitacora()
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then CargaEventoBitacora()
' CargaCuentasConceptos() 'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
' divCuentas.Visible = True ' CargaCuentasConceptos()
' divCuentasContp.Visible = False ' divCuentas.Visible = True
'Else ' divCuentasContp.Visible = False
' divCuentas.Visible = False 'Else
' divCuentasContp.Visible = True ' divCuentas.Visible = False
' divCuentasContp.Visible = True
'End If 'End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos() CargaCuentasConceptos()
divCuentas.Visible = True divCuentas.Visible = True
@@ -1801,14 +1818,14 @@ Partial Class Clientes
ObjClientes.Dispose() ObjClientes.Dispose()
watch.Stop() watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString()) ' Alert(watch.ElapsedMilliseconds.ToString())
Return Retorno Return Retorno
End Function End Function
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes() Dim ObjClientes As New ClsClientes()
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Grid 'Carga Grid
@@ -2057,6 +2074,8 @@ Partial Class Clientes
ObjMovtos.Dispose() ObjMovtos.Dispose()
GvBancos.DataBind() GvBancos.DataBind()
CargarPagosNoBancarios()
UpBancos.Update() UpBancos.Update()
End Sub End Sub
@@ -5786,7 +5805,7 @@ Partial Class Clientes
If ObjContabilidad.GetCuentas(Id, "-1", -1) Then If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo") Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
End If End If
ObjContabilidad.Dispose()
Return Retorno Return Retorno
End Function End Function
Private Sub SetValues() Private Sub SetValues()
@@ -8408,20 +8427,20 @@ Partial Class Clientes
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Productos 'Carga Productos
DdlPSFiltro.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlPSFiltro.setEsWebService(True)
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
DdlPSFiltro.SelectedText = "" DdlPSFiltro.SelectedText = ""
DdlPSFiltro.SelectedValue = "-1" DdlPSFiltro.SelectedValue = "-1"
Else 'Else
DdlPSFiltro.ddl.Items.Clear() ' DdlPSFiltro.ddl.Items.Clear()
DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
DdlPSFiltro.ddl.DataBind() ' DdlPSFiltro.ddl.DataBind()
DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If 'End If
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto() CargaTipoCentroCosto()
End Sub End Sub
@@ -10380,9 +10399,9 @@ Partial Class Clientes
Dim ObjVentas As New ClsVentas() Dim ObjVentas As New ClsVentas()
If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
GvClentesPersonalEntrega.DataBind()
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
GvClentesPersonalEntrega.DataBind()
End Sub End Sub
Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
@@ -10438,7 +10457,7 @@ Partial Class Clientes
Private Sub CargaResumenHistorial() Private Sub CargaResumenHistorial()
Dim ObjClientes As New ClsClientes() Dim ObjClientes As New ClsClientes()
If ObjClientes.GetHistorialVentas(CveCliente, -1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, -1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
Dim Cantidad As Double Dim Cantidad As Double

31
Ventas/Ventas.aspx.vb
View File

@@ -2435,15 +2435,15 @@ Partial Class Ventas
LnkImprimirFormatoTelcel.Visible = True LnkImprimirFormatoTelcel.Visible = True
End If End If
If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then 'If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
Dim ObjInventario As New ClsInventarios ' Dim ObjInventario As New ClsInventarios
If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then ' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then ' If ObjInventario.DtResultados.Rows.Count > 0 Then
DivDevAlm.Visible = True ' DivDevAlm.Visible = True
End If ' End If
End If ' End If
ObjInventario.Dispose() ' ObjInventario.Dispose()
End If 'End If
End If End If
@@ -2770,7 +2770,7 @@ Partial Class Ventas
CargaFormatoSucursal() CargaFormatoSucursal()
InicializaDevolucionAlmacen() InicializaDevolucionAlmacen()
CargaOtrosConceptos() 'CargaOtrosConceptos()
CargaFacturaOC() CargaFacturaOC()
'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE 'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
@@ -6003,7 +6003,7 @@ Partial Class Ventas
DivVentasUsados.Visible = True DivVentasUsados.Visible = True
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
If ObjClientes.GetHistorialVentas(CveCliente, CveClienteSucursal:=-1, TipoDocto:="Ing", CveEstatusFactura:=-1) Then If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, CveClienteSucursal:=-1, TipoDocto:="Ing", CveEstatusFactura:=-1) Then
DdlVentaUsado.DataSource = ObjClientes.DtResultados.FiltraParametros("UsadoMarcado = 0") DdlVentaUsado.DataSource = ObjClientes.DtResultados.FiltraParametros("UsadoMarcado = 0")
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
@@ -6089,7 +6089,7 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaFacturasARelacionar() Private Sub CargaFacturasARelacionar()
Using ObjClientes As New ClsClientes Using ObjClientes As New ClsClientes
If ObjClientes.GetHistorialVentas(Me.CveCliente, TipoDocto:="Ing") Then If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ing") Then
DdlFacturaARelacionar.DataSource = ObjClientes.DtResultados DdlFacturaARelacionar.DataSource = ObjClientes.DtResultados
End If End If
End Using End Using
@@ -6738,7 +6738,7 @@ Partial Class Ventas
Dim CveSATNC = "84111506" Dim CveSATNC = "84111506"
Dim dtt As New DataTable Dim dtt As New DataTable
dtt = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC dtt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CodigoSATPS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC
If dtt IsNot Nothing Then If dtt IsNot Nothing Then
DdlNCPS.DataSource = dtt DdlNCPS.DataSource = dtt
@@ -21376,6 +21376,11 @@ Partial Class Ventas
If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
CargaGVInv(ObjInv.DtResultados) CargaGVInv(ObjInv.DtResultados)
If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
DivDevAlm.Visible = True
End If
End If End If
End If End If
ObjInv.Dispose() ObjInv.Dispose()

8
vwd.webinfo
View File

@@ -320,6 +320,14 @@