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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-10-04 12:08:40 -07:00
parent 6db3834d1e 73a48bd376
commit bdc0488168
29 changed files with 2775 additions and 407 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsClientes.vb
View File

@@ -1552,7 +1552,7 @@ Public Class ClsClientes
Return Retorno Return Retorno
End Function End Function
Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClientesNoFrecuenteAdd") DataAdapter("PA_ClientesNoFrecuenteAdd")
@@ -1574,6 +1574,7 @@ Public Class ClsClientes
.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("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
End With End With

34
App_Code/ClsInventarios.vb
View File

@@ -1700,10 +1700,32 @@ Public Class ClsInventarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RepTraspasoAlmacen")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
.Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
.Add("@Recibido", SqlDbType.Bit).Value = Recibido
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Reporte de Traspaso de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region #End Region
#Region " INVENTARIOS - EXISTENCIAS " #Region " INVENTARIOS - EXISTENCIAS "
Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
@@ -1889,8 +1911,8 @@ Public Class ClsInventarios
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
@@ -1965,11 +1987,11 @@ Public Class ClsInventarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region " INVENTARIOS - INVENTARIO FISICO " #Region " INVENTARIOS - INVENTARIO FISICO "
Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer) As Boolean Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

1
App_Code/ClsPaginas.vb
View File

@@ -4091,6 +4091,7 @@ Public Class ClsPaginas
' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202) ' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202)
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891) PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892) PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
#End Region #End Region
#Region "MF" #Region "MF"
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801) PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)

45
App_Code/ClsRH.vb
View File

@@ -3299,7 +3299,8 @@ Public Class ClsRH
.Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno
.Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
.Add("@CveUsuario", SqlDbType.Int).Value = RHRequerido.CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = RHRequerido.CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa
.Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento
End With End With
Try Try
@@ -3320,7 +3321,9 @@ Public Class ClsRH
.Add("@CveRequerimiento", SqlDbType.Int).Value = RHRequerido.CveRequerimiento .Add("@CveRequerimiento", SqlDbType.Int).Value = RHRequerido.CveRequerimiento
.Add("@CveSubProyecto", SqlDbType.Int).Value = RHRequerido.CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = RHRequerido.CveSubProyecto
.Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno
.Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
.Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa
.Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento
End With End With
Try Try
@@ -3332,12 +3335,16 @@ Public Class ClsRH
Return Retorno Return Retorno
End Function End Function
Public Function RemovePersonalRequerido(CveRequerimiento As Integer) As Boolean Public Function RemovePersonalRequerido(CveRequerimiento As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_PersonalRequeridoRemove") DataAdapter("PA_RH_PersonalRequeridoRemove")
SqlAdapter.SelectCommand.Parameters.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento With SqlAdapter.SelectCommand.Parameters
.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
@@ -3354,12 +3361,12 @@ Public Class ClsRH
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "ClsRHReportePersonalNecesidades" #Region "ClsRHReportePersonalNecesidades"
Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer, CveDepartamento As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_Rep_NecesidadesPersonal") DataAdapter("PA_RH_Rep_NecesidadesPersonal")
@@ -3369,6 +3376,7 @@ Public Class ClsRH
.Add("@CveSubProyecto", SqlDbType.Int).Value = tCveSubProyeto .Add("@CveSubProyecto", SqlDbType.Int).Value = tCveSubProyeto
.Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
End With End With
Try Try
@@ -3378,9 +3386,9 @@ Public Class ClsRH
OnError("Ocurrió un error al obtener el Reporte de Necesidades de Personal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener el Reporte de Necesidades de Personal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "ClsRHReporteRotacionPersonal" #Region "ClsRHReporteRotacionPersonal"
Public Function GetReporteRotacionPersonal(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean Public Function GetReporteRotacionPersonal(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean
@@ -4287,7 +4295,7 @@ Public Class ClsRH
End Function End Function
Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_PersonalFamiliaresAdd") DataAdapter("PA_RH_PersonalFamiliaresAdd")
@@ -4302,7 +4310,9 @@ Public Class ClsRH
.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("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@Beneficiario", SqlDbType.Bit).Value = Beneficiario
End With End With
Try Try
@@ -4318,7 +4328,7 @@ Public Class ClsRH
End Function End Function
Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_PersonalFamiliaresUpdate") DataAdapter("PA_RH_PersonalFamiliaresUpdate")
@@ -4335,6 +4345,9 @@ Public Class ClsRH
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@Beneficiario", SqlDbType.Int).Value = Beneficiario
End With End With
Try Try

98
App_Code/ClsVentas.vb
View File

@@ -2452,13 +2452,13 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function GetRepCotizacionesSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Public Function GetRepCotizacionesSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepCotizacionesSinFacturarGet") DataAdapter("PA_Vta_RepCotizacionesSinFacturarGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -2474,13 +2474,13 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function GetRepRemisionesNCSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Public Function GetRepRemisionesNCSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepRemisionesNCGet") DataAdapter("PA_Vta_RepRemisionesNCGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -3973,6 +3973,92 @@ Public Class ClsVentas
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region " U S A D O S "
Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasUsadosAdd", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Cantidad", SqlDbType.Float).Value = Cantidad
.Add("@PU", SqlDbType.Money).Value = PU
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al relacionar las ventas con los usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetVentasUsados(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasUsadosGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetVentasUsadosDetalle(CveVenta As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasUsadosDetalleGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasUsadosRecibidoUpdate", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Recibido", SqlDbType.Bit).Value = Recibido
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el recibo de los usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region "IDisposable Support" #Region "IDisposable Support"

84
App_Code/Modelos.vb
View File

@@ -1230,7 +1230,7 @@ Namespace Modelos
End If End If
If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta, ObjVentas) Then
ErrorList.Add("Error al guardar usados") ErrorList.Add("Error al guardar usados")
End If End If
@@ -1408,7 +1408,7 @@ Namespace Modelos
End If End If
End If End If
If ErrorList.Count = 0 Then If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
'Agregamos las remisiones a la tabla 'Agregamos las remisiones a la tabla
If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
Dim CveVentaDetalle As Integer = 0 Dim CveVentaDetalle As Integer = 0
@@ -1480,7 +1480,7 @@ Namespace Modelos
'inventarios 'inventarios
GuardarVentaInventarios(factura, ObjInventario, ObjConta) GuardarVentaInventarios(factura, ObjInventario, ObjConta)
GuardaRecepcionUsados(factura, ObjInventario, ObjConta) 'GuardaRecepcionUsados(factura, ObjInventario, ObjConta)
If ErrorList.Count = 0 Then If ErrorList.Count = 0 Then
'estimaciones 'estimaciones
@@ -1755,36 +1755,50 @@ Namespace Modelos
DtVentasNC.Rows.Add(Dr) DtVentasNC.Rows.Add(Dr)
End If End If
End Sub End Sub
Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer) As Boolean Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas) As Boolean
Dim Resultado As Boolean = True Dim Resultado As Boolean = True
If ClienteEsDistribuidor Then 'If ClienteEsDistribuidor Then
If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
Dim ObjAcum As New ClsAcumuladores(SqlTransaccion) Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
For Each drow As DataRow In DtDetalle.Rows
For Each drow As DataRow In DtDetalle.Rows If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then
If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then If ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, 2, CveVenta, UsuarioActual.CveUsuario,
If ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, 2, CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0D, "") Then
UsuarioActual.CveEmpresa, 0D, "") Then Else
Else Resultado = False
Resultado = False Exit For
Exit For End If
End If Else
Else Resultado = True
Resultado = True End If
End If Next
Next
Else If TipoDocto.Contiene("Rem") Then
ErrorList.Add("El cliente es Distribuidor y no se tiene un producto o servicio asigando como PS Acumulador") If DtRecepcionUsados IsNot Nothing Then
Resultado = False For Each drow As DataRow In DtRecepcionUsados.Rows
End If If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal) Then
Else Resultado = False
Resultado = True Exit For
End If End If
Next
Else
Resultado = False
End If
End If
Else
ErrorList.Add("El cliente es Distribuidor y no se tiene un producto o servicio asigando como PS Acumulador")
Resultado = False
End If
'Else
' Resultado = True
'End If
Return Resultado Return Resultado
End Function End Function
@@ -8585,6 +8599,7 @@ Namespace Modelos
CveTurno = -1 CveTurno = -1
CveUsuario = -1 CveUsuario = -1
CveEmpresa = -1 CveEmpresa = -1
CveDepartamento = -1
End Sub End Sub
Public Property CveRequerimiento As Integer Public Property CveRequerimiento As Integer
Public Property CveProyecto As Integer Public Property CveProyecto As Integer
@@ -8598,7 +8613,8 @@ Namespace Modelos
Public Property FechaActualizacion As DateTime Public Property FechaActualizacion As DateTime
Public Property CveUsuario As Integer Public Property CveUsuario As Integer
Public Property Usuario As String Public Property Usuario As String
Public Property CveEmpresa As Integer Public Property CveEmpresa As Integer
Public Property CveDepartamento As Integer
End Class End Class
#End Region #End Region

554
Compras/Compras.aspx.vb
View File

@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
CostoIndirectoAcum176 += ImporteCI176 CostoIndirectoAcum176 += ImporteCI176
'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio 'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176) SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit For Exit For
End If End If
@@ -6278,10 +6278,10 @@ Partial Class Compras_Compras
End If End If
'falta el registro de la NC cuando es
Dim RegistroCuentaPuente As Boolean = False Dim RegistroCuentaPuente As Boolean = False
'NC CON PRODUCTOS - CUENTA PUENTE 'NC CON PRODUCTOS - CUENTA PUENTE
If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
@@ -6315,27 +6315,31 @@ Partial Class Compras_Compras
End If End If
Dim ContienePSNeteoBonif As Boolean = False
For Each Dr As DataRow In TmpDT.Rows
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
ContienePSNeteoBonif = True
Exit For
End If
Next
If ContienePSNeteoBonif Then If UsuarioActual.CveEmpresa.Contiene(119) Then
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal Dim ContienePSNeteoBonif As Boolean = False
importeMN = importeMovimiento * tipoCambioActual * Multiplicador For Each Dr As DataRow In TmpDT.Rows
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ContienePSNeteoBonif = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then Exit For
End If
Next
If ContienePSNeteoBonif Then
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
Else
ErrorPrepoliza = True
End If End If
End If End If
End If End If
@@ -6593,8 +6597,8 @@ Partial Class Compras_Compras
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera
@@ -6611,7 +6615,7 @@ Partial Class Compras_Compras
End If End If
importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
@@ -9514,6 +9518,15 @@ Partial Class Compras_Compras
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
Select Case ConceptoContable Select Case ConceptoContable
'Case 5
' IdCtaContable = 1244
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
' ErrorPrepoliza = True
' End If
' IdCtaContable = 1243
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
' ErrorPrepoliza = True
' End If
Case 6 Case 6
Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0 Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = "" Dim ConceptoPersonal As String = "", Concepto As String = ""
@@ -9617,7 +9630,7 @@ Partial Class Compras_Compras
CveCuenta = 0 CveCuenta = 0
'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
@@ -9802,11 +9815,11 @@ Partial Class Compras_Compras
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
UpFacturar.Update() UpFacturar.Update()
End Sub End Sub
#End Region #End Region
#Region "CargaXML" #Region "CargaXML"
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
If o Is Nothing Then If o Is Nothing Then
@@ -10011,10 +10024,10 @@ Partial Class Compras_Compras
'End Try 'End Try
End Sub End Sub
#End Region #End Region
#Region "GV'S" #Region "GV'S"
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -10279,9 +10292,9 @@ Partial Class Compras_Compras
End If End If
End Sub End Sub
#End Region #End Region
#Region "METODOS" #Region "METODOS"
Private Sub GeneraGlobalDT(data As Object) Private Sub GeneraGlobalDT(data As Object)
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
@@ -10714,66 +10727,66 @@ Partial Class Compras_Compras
CargarUMAlias() CargarUMAlias()
End Sub End Sub
#End Region #End Region
#Region " ALGO DE AF QUE NUNCA SE USABA " #Region " ALGO DE AF QUE NUNCA SE USABA "
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated 'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then ' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF ' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind() ' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing ' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind() ' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1")) ' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing ' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
' e.Row.FCDropDownList("DdlAF").DataBind() ' e.Row.FCDropDownList("DdlAF").DataBind()
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1")) ' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
' End If ' End If
'End Sub 'End Sub
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound 'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' If e.Row.RowIndex = 0 Then ' If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(20) ' e.Row.Cells(0).Width = Unit.Pixel(20)
' e.Row.Cells(1).Width = Unit.Pixel(140) ' e.Row.Cells(1).Width = Unit.Pixel(140)
' e.Row.Cells(2).Width = Unit.Pixel(250) ' e.Row.Cells(2).Width = Unit.Pixel(250)
' End If ' End If
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right ' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left ' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left ' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
' End If ' End If
'End Sub 'End Sub
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) 'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
' Dim Array() As String = Nothing ' Dim Array() As String = Nothing
' Dim DdlGVSubTipoAF As DropDownList = Nothing ' Dim DdlGVSubTipoAF As DropDownList = Nothing
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c) ' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
' If Array.Length > 0 Then ' If Array.Length > 0 Then
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList) ' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
' End If ' End If
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF) ' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
'End Sub 'End Sub
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound 'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString ' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
' End If ' End If
'End Sub 'End Sub
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged 'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked ' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked ' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
' UPCondicionesPago.Update() ' UPCondicionesPago.Update()
'End Sub 'End Sub
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
'carga la OC 'carga la OC
Dim CveOC As Integer = -1 Dim CveOC As Integer = -1
@@ -10810,45 +10823,45 @@ Partial Class Compras_Compras
'UpnAF.Update() 'UpnAF.Update()
End Sub End Sub
#End Region #End Region
#Region "Estimaciones" #Region "Estimaciones"
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer) 'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
' Dim Con As New ClsContratos ' Dim Con As New ClsContratos
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then ' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
' GVEst.DataSource = Con.DtResultados ' GVEst.DataSource = Con.DtResultados
' GVEst.DataBind() ' GVEst.DataBind()
' End If ' End If
' UPEstimaciones.Update() ' UPEstimaciones.Update()
' Con.Dispose() ' Con.Dispose()
'End Sub 'End Sub
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound 'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' If e.Row.RowIndex = 0 Then ' If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(30) ' e.Row.Cells(0).Width = Unit.Pixel(30)
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion ' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion ' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad ' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
' End If ' End If
' If e.Row.DBCampo("RazonSocial") = "" Then ' If e.Row.DBCampo("RazonSocial") = "" Then
' e.Row.CssClass = "Totales" : e.Row.Height = 25 ' e.Row.CssClass = "Totales" : e.Row.Height = 25
' ElseIf e.Row.DBCampo("Contrato") = "" Then ' ElseIf e.Row.DBCampo("Contrato") = "" Then
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25 ' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
' ElseIf e.Row.DBCampo("Seccion") = "" Then ' ElseIf e.Row.DBCampo("Seccion") = "" Then
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25 ' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then ' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25 ' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
' End If ' End If
' End If ' End If
'End Sub 'End Sub
#End Region #End Region
#Region " ALMACEN " #Region " ALMACEN "
Private Sub CargaGvInv() Private Sub CargaGvInv()
@@ -11165,11 +11178,11 @@ Partial Class Compras_Compras
UpAlmacenEvidencia.Update() UpAlmacenEvidencia.Update()
End Sub End Sub
#End Region #End Region
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE" #Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
Private Sub CargaTipoTransaccion() Private Sub CargaTipoTransaccion()
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
DdlTipoTransaccion.DataBind() DdlTipoTransaccion.DataBind()
@@ -11190,52 +11203,52 @@ Partial Class Compras_Compras
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1")) DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
DdlCuentaCaja.DataBind() DdlCuentaCaja.DataBind()
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
#End Region #End Region
#Region "FINANCIAMIENTO - AC" #Region "FINANCIAMIENTO - AC"
'Private Sub CreaDtAC() 'Private Sub CreaDtAC()
' DtAC = New DataTable ' DtAC = New DataTable
' DtAC.Columns.Add("IdCuenta", GetType(String)) ' DtAC.Columns.Add("IdCuenta", GetType(String))
' DtAC.Columns.Add("Cuenta", GetType(String)) ' DtAC.Columns.Add("Cuenta", GetType(String))
' DtAC.Columns.Add("Saldo", GetType(String)) ' DtAC.Columns.Add("Saldo", GetType(String))
'End Sub 'End Sub
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing) 'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
' If UsuarioActual.Empresa.UsaAC Then ' If UsuarioActual.Empresa.UsaAC Then
' GvAC.DataBind() ' GvAC.DataBind()
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC) ' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
' GvAC.DataBind() ' GvAC.DataBind()
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble) ' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero ' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
' UPPM.Update() ' UPPM.Update()
' PnlAC.Visible = True ' PnlAC.Visible = True
' End If ' End If
'End Sub 'End Sub
'Protected Sub CargaAC() 'Protected Sub CargaAC()
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa) ' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then ' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0") ' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
' Else ' Else
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina") ' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
' End If ' End If
' Cont.Dispose() ' Cont.Dispose()
'End Sub 'End Sub
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound 'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar"))) ' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
' End If ' End If
'End Sub 'End Sub
#End Region #End Region
#Region "TAB - PERSONAL" #Region "TAB - PERSONAL"
Private Sub CargaGvPersonal() Private Sub CargaGvPersonal()
GvPersonal.DataSource = TmpDT GvPersonal.DataSource = TmpDT
@@ -11406,13 +11419,13 @@ Partial Class Compras_Compras
Next Next
End Sub End Sub
#End Region #End Region
#Region "TAB - ACTIVOS FIJOS -AF" #Region "TAB - ACTIVOS FIJOS -AF"
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs) Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
Tab.ActiveTabIndex = 3 Tab.ActiveTabIndex = 3
@@ -11642,58 +11655,58 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs) Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
End Sub End Sub
#End Region #End Region
#Region "C O N T R A T O S" #Region "C O N T R A T O S"
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click 'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
' If CveProveedor <= 0 Then ' If CveProveedor <= 0 Then
' Alert("Debe de Seleccionar un proveedor") ' Alert("Debe de Seleccionar un proveedor")
' Exit Sub ' Exit Sub
' End If ' End If
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');")) ' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
'End Sub 'End Sub
'Protected Sub CargaVContrato(sender As Object, e As EventArgs) 'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
' CargaVContrato2(HdnVCveContrato.Value) ' CargaVContrato2(HdnVCveContrato.Value)
'End Sub 'End Sub
'Protected Sub CargaVContrato2(CveContrato As String) 'Protected Sub CargaVContrato2(CveContrato As String)
' If TxtContrato.Text <> "" Then ' If TxtContrato.Text <> "" Then
' Dim ObjContratos As New ClsContratos ' Dim ObjContratos As New ClsContratos
' Dim DTContratosTemp As DataTable = Nothing ' Dim DTContratosTemp As DataTable = Nothing
' GvContratos1.DataSource = TmpDT ' GvContratos1.DataSource = TmpDT
' GvContratos1.DataBind() ' GvContratos1.DataBind()
' UPGVContratos1.Update() ' UPGVContratos1.Update()
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c}) ' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
' For i As Integer = 1 To ArrayCveContratos.Count ' For i As Integer = 1 To ArrayCveContratos.Count
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then ' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
' If IsNothing(DTContratosTemp) Then ' If IsNothing(DTContratosTemp) Then
' DTContratosTemp = ObjContratos.DtResultados.Copy ' DTContratosTemp = ObjContratos.DtResultados.Copy
' Else ' Else
' DTContratosTemp.Merge(ObjContratos.DtResultados) ' DTContratosTemp.Merge(ObjContratos.DtResultados)
' End If ' End If
' Else ' Else
' Alert("Ocurrio un ERROR al cargar el Contrato") ' Alert("Ocurrio un ERROR al cargar el Contrato")
' DTContratosTemp.Rows.Clear() ' DTContratosTemp.Rows.Clear()
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' GvContratos2.DataSource = DTContratosTemp ' GvContratos2.DataSource = DTContratosTemp
' GvContratos2.DataBind() ' GvContratos2.DataBind()
' UPGVContratos2.Update() ' UPGVContratos2.Update()
' ObjContratos.Dispose() ' ObjContratos.Dispose()
' End If ' End If
'End Sub 'End Sub
#End Region #End Region
#Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015" #Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015"
Protected Sub CalculaTotalPorDevengar() Protected Sub CalculaTotalPorDevengar()
Dim total = TxtTotal.Text.ToDouble Dim total = TxtTotal.Text.ToDouble
For Each Gvr As GridViewRow In GvInv.Rows For Each Gvr As GridViewRow In GvInv.Rows
@@ -11707,10 +11720,10 @@ Partial Class Compras_Compras
Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs) Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs)
CalculaTotalPorDevengar() CalculaTotalPorDevengar()
End Sub End Sub
#End Region #End Region
#Region " AJUSTA IMPORTES " #Region " AJUSTA IMPORTES "
Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False) Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
'Dim TempSubTotal = TxtSubTotal.Text.ToDouble 'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
@@ -11809,9 +11822,9 @@ Partial Class Compras_Compras
GvPS.DataBind() GvPS.DataBind()
UpPS.Update() UpPS.Update()
End Sub End Sub
#End Region #End Region
#Region "DDL'S" #Region "DDL'S"
Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero) CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
@@ -11967,7 +11980,7 @@ Partial Class Compras_Compras
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas() CargaGridTarjetas()
Else Else
@@ -12040,9 +12053,9 @@ Partial Class Compras_Compras
RVDocumentoImporteFE.MaximumValue = saldo.ToString RVDocumentoImporteFE.MaximumValue = saldo.ToString
UPCondicionesPago.Update() UPCondicionesPago.Update()
End Sub End Sub
#End Region #End Region
#Region "CHK'S" #Region "CHK'S"
Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
Select Case RBLCajaChica.SelectedValue Select Case RBLCajaChica.SelectedValue
@@ -12264,9 +12277,9 @@ Partial Class Compras_Compras
ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
TrRembolsoCajaChica.Visible = True TrRembolsoCajaChica.Visible = True
End If End If
End Sub End Sub
#End Region #End Region
#Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO" #Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO"
Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True) Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
@@ -12530,10 +12543,10 @@ Partial Class Compras_Compras
EjercicioAC = Ejercicio EjercicioAC = Ejercicio
End If End If
End Sub End Sub
#End Region #End Region
#Region "E V E N T O - B I T A C O R A" #Region "E V E N T O - B I T A C O R A"
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -12630,9 +12643,9 @@ Partial Class Compras_Compras
End If End If
ObjEventoBitacora.Dispose() ObjEventoBitacora.Dispose()
GvEB.DataBind() GvEB.DataBind()
End Sub End Sub
#End Region #End Region
#Region " C O N T A B I L I D A D " #Region " C O N T A B I L I D A D "
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
'Alert("Hola entre", TipoMensaje.MsgError) 'Alert("Hola entre", TipoMensaje.MsgError)
@@ -13021,10 +13034,10 @@ Partial Class Compras_Compras
If Not ErrorCompra Then If Not ErrorCompra Then
CargaCompra() CargaCompra()
End If End If
End Sub End Sub
#End Region #End Region
#Region " REEMBOLSOS NO USA AC " #Region " REEMBOLSOS NO USA AC "
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
@@ -13038,13 +13051,13 @@ Partial Class Compras_Compras
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
End If End If
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
End Sub End Sub
#End Region #End Region
#Region " ALMACEN " #Region " ALMACEN "
#End Region #End Region
#Region " CONSIGNACIONES " #Region " CONSIGNACIONES "
Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
@@ -13314,13 +13327,13 @@ Partial Class Compras_Compras
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
UpFacturar.Update() UpFacturar.Update()
End Sub End Sub
#End Region #End Region
#Region " ***** Devoluciones INV ***** " #Region " ***** Devoluciones INV ***** "
'*se envia true si hubo un error*' '*se envia true si hubo un error*'
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim CveAlmacen As Integer Dim CveAlmacen As Integer
@@ -13517,9 +13530,9 @@ Partial Class Compras_Compras
ImgBtnBuscarOC.Visible = False ImgBtnBuscarOC.Visible = False
UpParametros.Update() UpParametros.Update()
UpPSS.Update() UpPSS.Update()
End Sub End Sub
#End Region #End Region
#Region " REFACTURACION " #Region " REFACTURACION "
Private Sub ValidaRefacturacion() Private Sub ValidaRefacturacion()
If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
@@ -13753,10 +13766,10 @@ Partial Class Compras_Compras
End If End If
Return ErrorBitacora Return ErrorBitacora
End Function End Function
#End Region #End Region
#Region " CANCELAR COMPRA " #Region " CANCELAR COMPRA "
Private Sub ValidaCancelarCompra() Private Sub ValidaCancelarCompra()
If UsuarioActual.TienePermisoProceso(140) Then If UsuarioActual.TienePermisoProceso(140) Then
@@ -14035,10 +14048,10 @@ Partial Class Compras_Compras
DivValesCombustible.Visible = True DivValesCombustible.Visible = True
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID)) RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
UPPValesCombustible.Update() UPPValesCombustible.Update()
End Sub End Sub
#End Region #End Region
#Region " VALES COMBUSTIBLES " #Region " VALES COMBUSTIBLES "
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs) Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
IdVale = New List(Of Integer) IdVale = New List(Of Integer)
@@ -14058,9 +14071,9 @@ Partial Class Compras_Compras
' Alert(cve.ToString) ' Alert(cve.ToString)
'Next 'Next
End If End If
End Sub End Sub
#End Region #End Region
#Region " VINCULAR OC " #Region " VINCULAR OC "
Private Sub InicializaOC() Private Sub InicializaOC()
'BORRAR OC 'BORRAR OC
@@ -15093,11 +15106,11 @@ Partial Class Compras_Compras
Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia) Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia)
End Sub End Sub
#End Region #End Region
#Region "F L E T E S Y S E R V I C I O S" #Region "F L E T E S Y S E R V I C I O S"
Public Sub CreaDTFacturas() Public Sub CreaDTFacturas()
Dim dt As New DataTable Dim dt As New DataTable
@@ -15314,6 +15327,16 @@ Partial Class Compras_Compras
TotalFlete = 0 TotalFlete = 0
TotalAlmacen = 0 TotalAlmacen = 0
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
For Each Dr2 As DataRow In DtInv.Rows
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
ListaConsecutivas.Add(Dr2("Consec").ToString)
Next
'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto
'esto aplica cuando la factura solo trae un concepto, y es el de servicio
If TotalAlmacen = 0 Then Exit Sub
'Obtenemos el total del flete y marcamos los conceptos que pertenecen a flete 'Obtenemos el total del flete y marcamos los conceptos que pertenecen a flete
For Each gvr As GridViewRow In GVServicios.Rows For Each gvr As GridViewRow In GVServicios.Rows
If gvr.DataKey("CvePS").ToEntero = CvePS Or gvr.FCCheckBox("chkServicios").Checked Then If gvr.DataKey("CvePS").ToEntero = CvePS Or gvr.FCCheckBox("chkServicios").Checked Then
@@ -15328,11 +15351,6 @@ Partial Class Compras_Compras
If Not TotalFlete > 0 Then Exit Sub If Not TotalFlete > 0 Then Exit Sub
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
For Each Dr2 As DataRow In DtInv.Rows
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
ListaConsecutivas.Add(Dr2("Consec").ToString)
Next
'Asignamos los costos indirectos y los indices 'Asignamos los costos indirectos y los indices
For Each Drt As DataRow In TmpDT.Rows For Each Drt As DataRow In TmpDT.Rows

2
Contabilidad/OCDetalleAlmacen.aspx.vb
View File

@@ -106,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
If Cargo > Abono Then If Cargo > Abono Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 228, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
ContadorProcesados = ContadorProcesados + 1 ContadorProcesados = ContadorProcesados + 1

1023
Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

4
Global.asax
View File

@@ -447,8 +447,8 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O N T R A T O S 'C O N T R A T O S
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
ObjContratos.Dispose() ObjContratos.Dispose()

348
Inventarios/RepTraspasoAlmacen.aspx Normal file
View File

@@ -0,0 +1,348 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepTraspasoAlmacen.aspx.vb" Inherits="RepTraspasoAlmacen" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
.sinlink td a {
pointer-events: none;
cursor: default;
color: black;
font-size: small;
}
.white a {
color: white !important;
}
.select2 .select2-selection__rendered {
line-height: 1;
color: #111;
}
.select2 .select2-selection--multiple {
box-sizing: border-box;
cursor: pointer;
display: block;
min-height: 20px;
user-select: none;
-webkit-user-select: none;
}
.select2-container--default .select2-selection--multiple .select2-selection__choice {
margin-top: 10px;
}
.select2-selection__rendered {
margin-top: 0px;
height: 25px;
}
.select2-selection {
margin-top: 0px;
height: 31px;
}
.select2-container--default.select2-container--focus .select2-selection--multiple {
border: none;
outline: 0;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Label ID="LblTitulo" runat="server" Text="Reporte de Traspaso de Almacén"></asp:Label>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
<%-- <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<div class="btn-group pull-right btn-separete">
</div>
</ContentTemplate>
</asp:UpdatePanel>--%>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server" defaultbutton="BtnConsultar">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
</div>
<div class="portlet-body">
<div class="row">
<label class="col-md-1 truncate">F.I.:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px; margin-top: 10px;">
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<label class="col-md-1 truncate">F.F.:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px; margin-top: 10px;">
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<label class="col-md-2">Almacén Origen:</label>
<div class="col-md-3">
<asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm input-small select2me"></asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row">
<label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Almacén Destino:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm input-small select2me" Width="150px" runat="server"></asp:DropDownList>
</div>
<label class="col-md-1 truncate">Recibido:</label>
<div class="col-md-2">
<asp:CheckBox ID="ChkRecibido" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<div class="row">
<div align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
ToolTip="Remisiones sin Facturar"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" Style="text-align: center;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="SerieLote" DataField="SerieLote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left"/>
</Columns>
<HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate>
<div id="DivPersonalizar" class="modal fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
</div>
<div class="modal-body">
<table class="table table-striped table-advance table-hover Widthall">
<tbody>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkUsuarioCancelacion" runat="server" Text="Usuario Cancelación" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkTipo" runat="server" Text="Cargo/Abono" /></td>
</tr>
</tbody>
</table>
</div>
<div class="modal-footer">
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<%--<script type="text/javascript">
function Scroll() {
$(document).ready(function () {
var Tam = TamañoVentana();
var Alto = Tam.height - 300;
$('#<%=GvDatos.ClientID%>').gridviewScroll({
width: 995,
height: Alto
});
});
}
</script>--%>
<script type="text/javascript">
function GetSelectedRow(lnk, txtf, txtoi) {
//var row = lnk.parentNode.parentNode;
//var txtoi = row.cells[10].getElementsByTagName("input")[1];
if (lnk.checked) {
debugger;
if (txtf) { txtf.style.display = ""; }
if (txtoi) { txtoi.style.display = ""; }
// try {
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
// if (txtoi) { txtoi.style.display = ""; }
// }
// catch (err) {
// row = row.parentNode;
// row.cells[10].getElementsByTagName("input")[0].style.display = "";
// }
} else {
if (txtf) { txtf.style.display = "none"; }
if (txtoi) { txtoi.style.display = "none"; }
// try {
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
// }
// catch (err) {
// row = row.parentNode;
// row.cells[10].getElementsByTagName("input")[0].style.display = "none";
// }
}
return false;
}
function FechaGeneral(lnk, FechaDocumento) {
debugger;
var row = lnk.parentNode.parentNode;
var parts = FechaDocumento.split("/");
var F1 = new Date(parts[2], parts[1], parts[0]);
if (lnk.checked) {
try {
parts = $get("TxtFechaAplicadoHeader").value.split("/");
var F2 = new Date(parts[2], parts[1], parts[0]);
if (F1 < F2) {
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
} else {
row.cells[10].getElementsByTagName("input")[0].value = FechaDocumento;
}
}
catch (err) {
row = row.parentNode;
row.cells[10].getElementsByTagName("input")[0].value = $get("TxtFechaAplicadoHeader").value;
}
}
return false;
}
</script>
<script type="text/javascript">
function OnClientShown(sender, args) {
sender._popupBehavior._element.style.zIndex = 10005;
sender._popupBehavior._element.style.position = "absolute";
sender._popupBehavior._element.style.top = "0px";
document.getElementById("C_GvDatosPanelItem").style.overflow = "initial";
}
</script>
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<script type="text/javascript">
//function OrdenarGV() {
// var Tam = TamañoVentana();
// var Alto = Tam.height - 270;
// if (Alto < 100) {
// Alto = 100;
// }
// $('#C_GvDatos').DataTable({
// scrollY: Alto + 'px',
// scrollCollapse: true,
// paging: false,
// searching: false,
// info: false
// });
// $('#C_GvDatos').parent().parent().children().first().css("position", "static");
//}
</script>
</asp:Content>

176
Inventarios/RepTraspasoAlmacen.aspx.vb Normal file
View File

@@ -0,0 +1,176 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class RepTraspasoAlmacen
Inherits ClsPaginas
Private Shared missing As Object = System.Reflection.Missing.Value
#Region "PROPIEDADES"
Private Property FechaI As String
Get
Return ViewState("FechaI").ToString
End Get
Set(value As String)
ViewState("FechaI") = value
End Set
End Property
Private Property FechaF As String
Get
Return ViewState("FechaF").ToString
End Get
Set(value As String)
ViewState("FechaF") = value
End Set
End Property
'Private Property CveCliente As Integer
' Get
' Return ViewState("CveCliente").ToString.ToEntero
' End Get
' Set(value As Integer)
' ViewState("CveCliente") = value
' End Set
'End Property
'Private Property Sucursales As String
' Get
' Return ViewState("Sucursales").ToString
' End Get
' Set(value As String)
' ViewState("Sucursales") = value
' End Set
'End Property
Private Property DtInventarios As DataTable
Get
Return DirectCast(ViewState("DtInventarios"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtInventarios") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
CargaAlmacenOrigen()
CargaAlmacenDestino()
CargaDatos()
OrdenaDatos()
End If
End Sub
#Region " C A R G A - D A T O S "
Public Sub CargaDatos()
Dim ObjInventarios As New ClsInventarios
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
'CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjInventarios.DtResultados
DtInventarios = ObjInventarios.DtResultados
GvDatos.DataBind()
UPDatos.Update()
End If
ObjInventarios.Dispose()
End Sub
#End Region
#Region "O R D E N A M I E N T O"
Private Sub OrdenaDatos()
'If (GvDatos.Rows.Count > 0) Then
' GvDatos.UseAccessibleHeader = True
' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
' RegistraScript("OrdenarGV();")
'End If
End Sub
#End Region
#Region "G V - D A T O S "
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'Cuando es titulo
If e.Row.DBCampo("PS").ToString.Trim = "" Then
e.Row.CssClass = "Totales"
e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
End If
End If
End Sub
#End Region
#Region "CARGA COMBOS FILTRO"
Private Sub CargaAlmacenOrigen()
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Todos ", "-1"))
DdlAlmacenOrigen.SelectedValue = "-1"
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
End Sub
Private Sub CargaAlmacenDestino()
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAlmacenDestino.SelectedValue = "-1"
End Sub
#End Region
#Region "IMPRESION"
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
Imprime("PDF")
End Sub
Private Sub Imprime(Formato As String)
If DtInventarios IsNot Nothing Then
Dim StrFiltro As New StringBuilder
If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim FechaI, FechaF As String
FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
End Sub
#End Region
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaDatos()
End Sub
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
Imprime("Excel")
End Sub
End Class

21
LogMail.txt
View File

@@ -4,4 +4,23 @@
28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1 02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-23' - CCP: '' - Adjuntos: 1
05/09/2019:11:02 a. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
- Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
en System.Net.Mail.SmtpClient.Send(MailMessage message)
en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
- Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
en System.Net.Mail.SmtpClient.Send(MailMessage message)
en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0
10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus.
11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0
11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0

4
LogTimbrado.txt
View File

@@ -12,3 +12,7 @@
.. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688 ..05/09/2019:12:31 p. m. .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688 ..05/09/2019:12:31 p. m.
.. PAC: 4 - Verificado : (12) 12 Certificado : (209) 221 Armado: (35) 256 Genera: (306) 562 Timbrado: (918) 1480 ..20/09/2019:05:37 p. m. .. PAC: 4 - Verificado : (12) 12 Certificado : (209) 221 Armado: (35) 256 Genera: (306) 562 Timbrado: (918) 1480 ..20/09/2019:05:37 p. m.
.. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199 ..01/10/2019:12:27 a. m.
.. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885 ..01/10/2019:12:27 a. m.

32
OS/CatEstatusOrdenServicio.aspx
View File

@@ -4,6 +4,10 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.columnaUsuarios{
text-align:left;
font-weight:bold;
}
.Widthall { .Widthall {
width: 100% !important; width: 100% !important;
} }
@@ -78,7 +82,7 @@
<asp:UpdatePanel ID="UPAcciones" runat="server"> <asp:UpdatePanel ID="UPAcciones" runat="server">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="BtnAgregarEstatus" runat="server" data-toggle="tooltip" data-placement="left" title="Agregar Estado de Orden de Servicio" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton> <asp:LinkButton ID="BtnAgregarEstatus" runat="server" data-toggle="tooltip" data-placement="left" title="Agregar Estado de Orden de Servicio" Text="<i class='fa fa-plus'></i> Agregar Estatus"></asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
@@ -88,6 +92,11 @@
<ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride"> <ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride">
<ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus"> <ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus">
<ContentTemplate> <ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<label for="TxtBusquedaEstatus">Buscar: </label>
<input type="text" id="TxtBusquedaEstatus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" /> <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
@@ -116,19 +125,23 @@
<ajax:TabPanel runat="server" ID="TabPanel3" HeaderText="Configuración"> <ajax:TabPanel runat="server" ID="TabPanel3" HeaderText="Configuración">
<ContentTemplate> <ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<label for="TxtBusqueda">Buscar: </label>
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:UpdatePanel ID="UpPrueba" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpPrueba" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="Prueba" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" style="text-align:center"> <asp:GridView ID="Prueba" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" Style="text-align: center">
<HeaderStyle VerticalAlign="Middle" /> <HeaderStyle VerticalAlign="Middle" />
<Columns> <Columns>
<asp:TemplateField> <%--<asp:TemplateField>
<HeaderTemplate>Estatus</HeaderTemplate> <HeaderTemplate>Estatus</HeaderTemplate>
<ItemStyle Width="150px" BorderStyle="None" /> <ItemStyle Width="150px" BorderStyle="None" />
<ItemTemplate> <ItemTemplate>
<asp:Label Font-Bold="true" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label> <asp:Label Font-Bold="true" Style="text-align: left" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<div style="width: 100%; text-align: center"> <div style="width: 100%; text-align: center">
@@ -144,7 +157,7 @@
<%--POPUP AGREGAR--%> <%--POPUP AGREGAR--%>
<div id="divAddEstatusOS" class="modal ADS fade" role="dialog"> <div id="divAddEstatusOS" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<asp:UpdatePanel ID="UpAddEstatus" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAddEstatus" class="modal-content" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
@@ -171,7 +184,7 @@
<label for="<%= DdlTipoEstatus.ClientID.ToString()%>">Tipo Estatus:</label> <label for="<%= DdlTipoEstatus.ClientID.ToString()%>">Tipo Estatus:</label>
</div> </div>
<br /> <br />
<div class="form-group form-md-line-input input-iconright"> <div runat="server" id="divChkEstatus" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" /> <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label> <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
</div> </div>
@@ -180,7 +193,8 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="BtnAgregarEstatusOS" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton> <asp:Button ID="BtnAgregarEstatusOS" runat="server" class="btn btn-success" Text="Agregar" />
<%--<asp:LinkButton ID="BtnAgregarEstatusOS" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Agregar</asp:LinkButton>--%>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

45
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -63,10 +63,8 @@ Partial Class OS_CatEstatusOrdenServicio
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 Page.IsPostBack Then If Not Page.IsPostBack Then
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) 'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
CargaDatos() CargaDatos()
'CreaGrid()
'CargaGridEstatusUsuarios()
AsociarEstatusUsuarios() AsociarEstatusUsuarios()
CargarUsuarioConEstatus() CargarUsuarioConEstatus()
CveEstatuOS = -1 CveEstatuOS = -1
@@ -74,6 +72,7 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS Using ObjEstatusOrdenServicios As New ClsOS
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
@@ -95,16 +94,19 @@ Partial Class OS_CatEstatusOrdenServicio
Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
BtnAgregarEstatusOS.Text = "Agregar" BtnAgregarEstatusOS.Text = "Agregar"
divChkEstatus.Visible = False
UpBodyEstatus.Update()
UpFooter.Update() UpFooter.Update()
RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()") RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()")
End Sub End Sub
Private Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click Protected Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
Dim ObjEstatusOrdenServicios As New ClsOS Dim ObjEstatusOrdenServicios As New ClsOS
Dim TieneError = False Dim TieneError = False
If HdnModalidad.Value = "I" Then If HdnModalidad.Value = "I" Then
If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CargaDatos() 'CargaDatos()
Alert("Estatus agregado")
End If End If
Else Else
If HdnID.Value.ToEntero <> -1 Then If HdnID.Value.ToEntero <> -1 Then
@@ -115,17 +117,22 @@ Partial Class OS_CatEstatusOrdenServicio
If Not TieneError Then If Not TieneError Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
CargaDatos() 'CargaDatos()
Alert("Estatus actualizado")
Else Else
Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia) Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
CargaDatos()
ObjEstatusOrdenServicios.Dispose() ObjEstatusOrdenServicios.Dispose()
CargaDatos() RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
EstatusUsuariosGridActualizar()
AsociarEstatusUsuarios()
CargarUsuarioConEstatus()
UpDatos.Update() UpDatos.Update()
RegistraScript("$('#divAddEstatusOS').modal('hide');") UpPrueba.Update()
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
End Sub End Sub
Public Sub Edit_Click(sender As Object, e As EventArgs) Public Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -134,6 +141,8 @@ Partial Class OS_CatEstatusOrdenServicio
ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False) ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero
BtnAgregarEstatusOS.Text = "Actualizar" BtnAgregarEstatusOS.Text = "Actualizar"
divChkEstatus.Visible = True
UpBodyEstatus.Update()
UpAddEstatus.Update() UpAddEstatus.Update()
RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusOS")) RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusOS"))
End Sub End Sub
@@ -163,6 +172,11 @@ Partial Class OS_CatEstatusOrdenServicio
ObjEstatusOrdenServicios.Dispose() ObjEstatusOrdenServicios.Dispose()
CargaDatos() CargaDatos()
UpDatos.Update() UpDatos.Update()
EstatusUsuariosGridActualizar()
AsociarEstatusUsuarios()
CargarUsuarioConEstatus()
UpPrueba.Update()
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
End Sub End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
Dim ObjEstatusOrdenServicios As New ClsOS Dim ObjEstatusOrdenServicios As New ClsOS
@@ -200,6 +214,11 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub End Sub
Private Sub CargarUsuarioConEstatus() Private Sub CargarUsuarioConEstatus()
Dim nombresUsuarios As New BoundField
nombresUsuarios.DataField = "Nombre"
nombresUsuarios.HeaderText = "Usuario"
nombresUsuarios.ItemStyle.CssClass = "columnaUsuarios"
Prueba.Columns.Add(nombresUsuarios)
For Each Estatus As DataRow In DtEstatusOS.Rows For Each Estatus As DataRow In DtEstatusOS.Rows
Dim test As New CheckBoxField Dim test As New CheckBoxField
test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
@@ -257,5 +276,13 @@ Partial Class OS_CatEstatusOrdenServicio
End If End If
objEstatusOC.Dispose() objEstatusOC.Dispose()
End Sub End Sub
Private Sub EstatusUsuariosGridActualizar()
DtEstatusUsuariosAsociados = Nothing
Prueba.DataBind()
For Contador As Integer = (Prueba.Columns.Count - 1) To 0 Step -1
Prueba.Columns.RemoveAt(Contador)
Next
End Sub
#End Region #End Region
End Class End Class

29
RH/CatPersonalRequerido.aspx
View File

@@ -81,19 +81,28 @@
<asp:UpdatePanel ID="UPGVDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPGVDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros" <asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros"
DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion"> DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion,CveDepartamento"
Width="1000px" >
<Columns> <Columns>
<asp:TemplateField HeaderText="Proyecto"> <asp:TemplateField HeaderText="Proyecto">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Label> <asp:Label runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="SubProyecto"> <asp:TemplateField HeaderText="SubProyecto">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Label> <asp:Label runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Departamento">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Departamento", "{0}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Turno"> <asp:TemplateField HeaderText="Turno">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Label> <asp:Label runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Label>
@@ -157,6 +166,22 @@
<br /> <br />
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:DropDownList ID="DdlDepartamento" runat="server" AppendDataBoundItems="True" DataTextField="Departamento" DataValueField="CveDepartamento" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="250px">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlDepartamento" InitialValue="-1" runat="server" ControlToValidate="DdlDepartamento" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Departamento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CERFVDdlDepartamento" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlDepartamento" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= ReqTurnoDdl.ClientID.ToString()%>">Departamento:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important"> <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:DropDownList ID="ReqTurnoDdl" runat="server" DataTextField="Turno" DataValueField="CveTurno" CssClass="form-control input-sm select2me" Class="table-group-action-input form-control input-inline input-small input-sm" Width="250px" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="ReqTurnoDdl" runat="server" DataTextField="Turno" DataValueField="CveTurno" CssClass="form-control input-sm select2me" Class="table-group-action-input form-control input-inline input-small input-sm" Width="250px" AutoPostBack="true"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVTurno" InitialValue="-1" runat="server" ControlToValidate="ReqTurnoDdl" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Turno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTurno" InitialValue="-1" runat="server" ControlToValidate="ReqTurnoDdl" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Turno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

32
RH/CatPersonalRequerido.aspx.vb
View File

@@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido
Private Sub CargaTurno() Private Sub CargaTurno()
ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
ReqTurnoDdl.DataBind() ReqTurnoDdl.DataBind()
End Sub
Private Sub CargaDepartamento()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamento.DataBind()
End Sub End Sub
Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click
@@ -108,12 +113,14 @@ Partial Class RH_CatPersonalRequerido
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
RHRequerido.CveUsuario = UsuarioActual.CveUsuario RHRequerido.CveUsuario = UsuarioActual.CveUsuario
RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
If ObjRH.AddPersonalRequerido(RHRequerido) Then If ObjRH.AddPersonalRequerido(RHRequerido) Then
ReqProyectoDdl.SelectedValueExist(-1) ReqProyectoDdl.SelectedValueExist(-1)
ReqSubProyectoDdl.SelectedValueExist(-1) ReqSubProyectoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1) ReqTurnoDdl.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
TxtCantidad.Text = "" TxtCantidad.Text = ""
CargadatosGvPersonalReq() CargadatosGvPersonalReq()
@@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido
RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
RHRequerido.CveRequerimiento = CveRequerimiento RHRequerido.CveRequerimiento = CveRequerimiento
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
If ObjRH.UpdatePersonalRequerido(RHRequerido) Then If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
ReqProyectoDdl.SelectedValueExist(-1) ReqProyectoDdl.SelectedValueExist(-1)
ReqSubProyectoDdl.SelectedValueExist(-1) ReqSubProyectoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1) ReqTurnoDdl.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
TxtCantidad.Text = "" TxtCantidad.Text = ""
CargadatosGvPersonalReq() CargadatosGvPersonalReq()
@@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido
Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento") Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
Dim ObjRH As New ClsRH Dim ObjRH As New ClsRH
If ObjRH.RemovePersonalRequerido(CveReq) Then
If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
CargadatosGvPersonalReq() CargadatosGvPersonalReq()
Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion) Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
@@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido
CveRequerimiento = GvRow.DataKey("CveRequerimiento") CveRequerimiento = GvRow.DataKey("CveRequerimiento")
CargaProyectos() CargaProyectos()
CargaTurno()
CargaDepartamento()
ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero) ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl) CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
CargaTurno()
ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero) ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
BtnAgregarPersonalReqModal.Text = "Actualizar" BtnAgregarPersonalReqModal.Text = "Actualizar"
UpModalPersonalReq.Update() UpModalPersonalReq.Update()

165
RH/Personal.aspx
View File

@@ -70,7 +70,17 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%-- añlsdkjlasjdlkasjdkas--%> <asp:UpdatePanel runat="server" ID="UpFamiliaresAcciones">
<ContentTemplate>
<li style="text-align: left!important" runat="server" id="LIFamiliaresAcciones" visible="false">
<asp:LinkButton runat="server" ID="BtnAgregarFamiliar" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares" Text="<i class='fa fa-plus'></i> Agregar Familiar"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Personal"></asp:Literal>&nbsp;<asp:Literal ID="LtlPersonal" runat="server"></asp:Literal> <asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Personal"></asp:Literal>&nbsp;<asp:Literal ID="LtlPersonal" runat="server"></asp:Literal>
@@ -259,15 +269,69 @@
<label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de Nacimiento: </label> <label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de Nacimiento: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label> <div runat="server" id="DivPadres" visible="true">
<i></i> <div class="form-group form-md-line-input input-iconright">
</div> <asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
<div class="form-group form-md-line-input input-iconright"> <label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
<asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox> <i></i>
<label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label> </div>
<i></i>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
<i></i>
</div>
</div>
<br />
<div runat="server" id="DivFamiliares" visible="false">
<asp:UpdatePanel ID="UPTabFamiliares" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvFamiliares" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFamiliar,Parentesco,Nombre,Domicilio,Edad,Ocupacion,CveParentesco,Telefono,Observaciones,Beneficiario"
EmptyDataText="No se encontraron registros de familiares" ToolTip="Listado de familiares" CssClass="table table-hover table-advance ADScroller Widthall btn-xs" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Nombre">
<ItemTemplate>
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Parentesco">
<ItemTemplate>
<asp:Literal ID="LtlParentesco" runat="server" Text='<%# Eval("Parentesco")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Bene.">
<ItemTemplate>
<asp:CheckBox runat="server" ID="ChkBeneficiario" Checked= '<%# Eval("Beneficiario")%>' Enabled="false" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" OnClick="Edit_ClickFamiliar" runat="server" AlternateText="Editar" CausesValidation="False"
CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgD" OnClick="Remove_ClickFamiliar" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
@@ -4218,6 +4282,87 @@
</div> </div>
<div id="divAgregarFamiliar" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalFamiliar" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalFamiliar" runat="server">Agregar Familiar</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="rfvTxtNombreFamiliar4" runat="server" ControlToValidate="TxtNombreFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<label for="<%= TxtNombreFamiliar4.ClientID.ToString()%>">Nombre:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DDLParentescoFamiliar4" runat="server" Width="150" CssClass=" select2me form-control ">
<asp:ListItem Value="-1" Text="Seleccione un opción"></asp:ListItem>
<asp:ListItem Value="1" Text="Padre"></asp:ListItem>
<asp:ListItem Value="2" Text="Madre"></asp:ListItem>
<asp:ListItem Value="3" Text="Esposo(a)"></asp:ListItem>
<asp:ListItem Value="4" Text="Hijo(a)"></asp:ListItem>
<asp:ListItem Value="5" Text="Hermano(a)"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLParentescoFamiliar" ControlToValidate="DDLParentescoFamiliar4" CssClass="help-block errorimput" ValidationGroup="GrpFamiliar" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
<label for="<%= DDLParentescoFamiliar4.ClientID.ToString()%>">Parentesco:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDomicilioFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="rfvTxtDomicilioFamiliar4" runat="server" ControlToValidate="TxtDomicilioFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<label for="<%= TxtDomicilioFamiliar4.ClientID.ToString()%>">Dirección:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEdadFamiliar4" CssClass="form-control" TextMode="Number" MaxLength="3" onkeyDown="checkTextAreaMaxLength(this,event,'3');" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="rfvTxtEdadFamiliar4" runat="server" ControlToValidate="TxtEdadFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<label for="<%= TxtEdadFamiliar4.ClientID.ToString()%>">Edad:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOcupacionFamiliar4" CssClass="form-control" MaxLength="30" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="rfvTxtOcupacionFamiliar" runat="server" ControlToValidate="TxtOcupacionFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<label for="<%= TxtOcupacionFamiliar4.ClientID.ToString()%>">Ocupación:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefonoFamiliar" CssClass="form-control" MaxLength="10" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTelefonoFamiliar" runat="server" ControlToValidate="TxtTelefonoFamiliar" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<label for="<%= TxtTelefonoFamiliar.ClientID.ToString()%>">Telefono:</label>
<ajax:FilteredTextBoxExtender ID="FilTxtTelefonoFamiliar" runat="server" FilterType="Numbers" InvalidChars=".-," TargetControlID="TxtTelefonoFamiliar" />
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservacionesFamiliar" TextMode="MultiLine" Rows="3" Columns="300" onkeyDown="checkTextAreaMaxLength(this,event,'200');" CssClass="form-control" MaxLength="200" runat="server"></asp:TextBox>
<label for="<%= TxtObservacionesFamiliar.ClientID.ToString()%>">Observaciones:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" ID="ChkBeneficiario" />
<label for="<%= ChkBeneficiario.ClientID.ToString()%>">Beneficiario: </label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgregarFamiliarModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpFamiliar" />
<button id="BtnCancelarFamiliarModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<iframe id="my_iframe" style="display: none;"></iframe> <iframe id="my_iframe" style="display: none;"></iframe>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

401
RH/Personal.aspx.vb
View File

@@ -528,12 +528,94 @@ Partial Class RH_Personal
Set(value As Integer) Set(value As Integer)
ViewState("CvePermiso") = value ViewState("CvePermiso") = value
End Set End Set
End Property
#End Region
#Region "PROPIEDADES FAMILIARES"
Private Property ActualizarFamiliar As Boolean
Get
If ViewState("ActualizarFamiliar") Is Nothing Then
Return True
Else
Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)
End If
End Get
Set(value As Boolean)
ViewState("ActualizarFamiliar") = value
End Set
End Property
Private Property CveFamiliar As Integer
Get
If ViewState("CveFamiliar") Is Nothing Then
Return -1
Else
Return DirectCast(ViewState("CveFamiliar"), Integer)
End If
End Get
Set(value As Integer)
ViewState("CveFamiliar") = value
End Set
End Property
Private Property IndexActual As Integer
Get
If ViewState("IndexActual") Is Nothing Then
Return -1
Else
Return DirectCast(ViewState("IndexActual"), Integer)
End If
End Get
Set(value As Integer)
ViewState("IndexActual") = value
End Set
End Property
Property DTFamiliares As DataTable
Get
Return DirectCast(ViewState("DTFamiliares"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTFamiliares") = value
End Set
End Property
Private Property ValPadre As Boolean
Get
If ViewState("ValPadre") Is Nothing Then
Return False
Else
Return DirectCast(ViewState("ValPadre"), Boolean)
End If
End Get
Set(value As Boolean)
ViewState("ValPadre") = value
End Set
End Property End Property
#End Region Private Property ValMadre As Boolean
Get
If ViewState("ValMadre") Is Nothing Then
Return False
Else
Return DirectCast(ViewState("ValMadre"), Boolean)
End If
End Get
Set(value As Boolean)
ViewState("ValMadre") = value
End Set
End Property
#End Region
Const wdPageBreak As Integer = 7 Const wdPageBreak As Integer = 7
Const wdCharacter As Integer = 1 Const wdCharacter As Integer = 1
'Configuración 'Configuración
@@ -581,9 +663,9 @@ Partial Class RH_Personal
CargaComboUniformes() CargaComboUniformes()
CargaPermisos() CargaPermisos()
CargaCombosBuzon() CargaCombosBuzon()
CargaPermisosReemplazos() CargaPermisosReemplazos()
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
ViewState("CvePersonal") = Request("CvePersonal") ViewState("CvePersonal") = Request("CvePersonal")
'CvePersonal = ViewState("CvePersonal").ToString.ToEntero 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero
@@ -634,14 +716,29 @@ Partial Class RH_Personal
'Inicia Permisos 'Inicia Permisos
'Fin Permisos 'Fin Permisos
End If End If
CargaCuentasBancarias() CargaCuentasBancarias()
'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
' HplAbonarMasivo.Visible = True
' GvGxC.Columns(7).Visible = True CrearEstructuraFamiliares()
'End If CargaFamiliares()
LIFamiliaresAcciones.Visible = True
DivFamiliares.Visible = True
DivPadres.Visible = False
End If
'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
' HplAbonarMasivo.Visible = True
' GvGxC.Columns(7).Visible = True
'End If
If Not CvePersonal > 0 Then If Not CvePersonal > 0 Then
DivSuperiorInmediato.Visible = False DivSuperiorInmediato.Visible = False
End If End If
@@ -1381,6 +1478,11 @@ Partial Class RH_Personal
'Agregar Cuentas Bancarias 'Agregar Cuentas Bancarias
ViewState("CvePersonal") = ObjPersonal.CvePersonal ViewState("CvePersonal") = ObjPersonal.CvePersonal
'Funsion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
ProcesaDTFamiliares(ObjPersonal)
End If
If TempDTCuentasBancos.Rows.Count > 0 Then If TempDTCuentasBancos.Rows.Count > 0 Then
For Each row As DataRow In TempDTCuentasBancos.Rows For Each row As DataRow In TempDTCuentasBancos.Rows
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -1435,7 +1537,12 @@ Partial Class RH_Personal
URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text, URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero, DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then
'Funsion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
ProcesaDTFamiliares(ObjPersonal)
End If
If Archivo.Exists Then If Archivo.Exists Then
@@ -5506,5 +5613,265 @@ Partial Class RH_Personal
Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia) Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
End If End If
End Sub End Sub
#Region "FAMILIARES"
Private Sub CargaFamiliares()
If CvePersonal <> -1 Then
Dim objRH As New ClsRH
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
If objRH.DtResultados.Rows.Count > 0 Then
DTFamiliares = objRH.DtResultados
DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
DTFamiliares.AcceptChanges()
GvFamiliares.DataSource = DTFamiliares
Else
DTFamiliares.Rows.Clear()
GvFamiliares.DataSource = DTFamiliares
End If
Else
GvFamiliares.DataSource = Nothing
End If
objRH.Dispose()
GvFamiliares.DataBind()
UPTabFamiliares.Update()
End If
End Sub
Private Sub CrearEstructuraFamiliares()
Dim Familiares As New DataTable
Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
Familiares.Columns.Add("Accion", Type.GetType("System.String"))
Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))
DTFamiliares = Familiares
End Sub
Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
resetFormFamiliares()
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
End Sub
Private Sub ResetFormFamiliares()
ActualizarFamiliar = False
CveFamiliar = -1
LtlTituloModalFamiliar.Text = "Agregar Familiar"
BtnAgregarFamiliarModal.Text = "Agregar Familiar"
TxtNombreFamiliar4.Text = ""
TxtDomicilioFamiliar4.Text = ""
TxtEdadFamiliar4.Text = ""
TxtOcupacionFamiliar4.Text = ""
TxtTelefonoFamiliar.Text = ""
TxtObservacionesFamiliar.Text = ""
DDLParentescoFamiliar4.SelectedIndex = 0
ChkBeneficiario.Checked = False
UpModalFamiliar.Update()
End Sub
Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click
If ActualizarFamiliar Then
'DtRowFamiliar("CveFamiliar") = -1
DTFamiliares(IndexActual)("CvePersonal") = -1
DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero
DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked
If DTFamiliares(IndexActual)("CveFamiliar").ToString = "-1" Then
DTFamiliares(IndexActual)("Accion") = "2"
Else
DTFamiliares(IndexActual)("Accion") = "1"
End If
DTFamiliares.AcceptChanges()
Else
Dim DtRowFamiliar As DataRow
DtRowFamiliar = DTFamiliares.NewRow
DtRowFamiliar("CveFamiliar") = -1
DtRowFamiliar("CvePersonal") = -1
DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero
DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked
DtRowFamiliar("Accion") = "2"
DTFamiliares.Rows.Add(DtRowFamiliar)
DTFamiliares.AcceptChanges()
End If
IndexActual = -1
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
'CargaFamiliares()
GvFamiliares.DataSource = DTFamiliares
GvFamiliares.DataBind()
UPTabFamiliares.Update()
CveFamiliar = -1
ActualizarFamiliar = False
End Sub
Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = True
CveFamiliar = GvRow.DataKey("CveFamiliar").ToString.ToEntero
ActualizarFamiliar = True
IndexActual = GvRow.RowIndex
LtlTituloModalFamiliar.Text = "Editar Familiar"
BtnAgregarFamiliarModal.Text = "Actualizar"
TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString)
UpModalFamiliar.Update()
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
End Sub
Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
IndexActual = GvRow.RowIndex
Dim activo As Boolean = False
Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString.ToEntero
If CveFamiliar > 0 Then
DTFamiliares.Rows(IndexActual)("Accion") = "3"
Dim objRH As New ClsRH
ProcesaDTFamiliares(objRH)
objRH.Dispose()
CargaFamiliares()
Else
DTFamiliares.Rows(IndexActual).Delete()
DTFamiliares.AcceptChanges()
GvFamiliares.DataSource = DTFamiliares
GvFamiliares.DataBind()
UPTabFamiliares.Update()
End If
IndexActual = -1
End Sub
Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)
'Dim objRH As New ClsRH
ValPadre = False
ValMadre = False
For Each dRow As DataRow In DTFamiliares.Rows
If dRow("Accion").ToString = "1" Then 'Actualiza
Dim Beneficiario As Integer = -1
If Boolean.Parse(dRow("Beneficiario").ToString) Then
Beneficiario = 1
Else
Beneficiario = 0
End If
objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString.ToEntero, CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
End If
If dRow("Accion").ToString = "2" Then 'Inserta
Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString)
objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
End If
If dRow("CveParentesco").ToString.ToEntero = 1 Then
ValPadre = True
End If
If dRow("CveParentesco").ToString.ToEntero = 2 Then
ValMadre = True
End If
If dRow("Accion").ToString = "3" Then 'Borra
objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString.ToEntero, -1)
End If
Next
'objRH.Dispose()
End Sub
#End Region
End Class End Class

7
RH/RepPersonalNecesidades.aspx
View File

@@ -30,6 +30,12 @@
<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>
<li>Departamento:
<asp:DropDownList ID="DdlDepartamento" runat="server" Class="form-control input-sm select2me" DataTextField="Departamento" DataValueField="CveDepartamento" Style="width: 75px !important;">
</asp:DropDownList>
</li>
<li>Turno: <li>Turno:
<asp:DropDownList ID="DdlTurno" runat="server" Class="form-control input-sm select2me" DataTextField="Turno" DataValueField="CveTurno" Style="width: 75px !important;"> <asp:DropDownList ID="DdlTurno" runat="server" Class="form-control input-sm select2me" DataTextField="Turno" DataValueField="CveTurno" Style="width: 75px !important;">
</asp:DropDownList> </asp:DropDownList>
@@ -62,6 +68,7 @@
<Columns> <Columns>
<asp:BoundField HeaderText ="Proyecto" DataField="Proyecto" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText ="Proyecto" DataField="Proyecto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Departamento" DataField="Departamento" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Turno" DataField="Turno" /> <asp:BoundField HeaderText="Turno" DataField="Turno" />
<asp:TemplateField HeaderText="Personal Actual" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Personal Actual" ItemStyle-HorizontalAlign="Center">

19
RH/RepPersonalNecesidades.aspx.vb
View File

@@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades
CargaProyecto() CargaProyecto()
CargaTurnos() CargaTurnos()
CargaDatos() CargaDatos()
CargaDepartamento()
End If End If
End Sub End Sub
@@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades
End Sub End Sub
Private Sub CargaProyecto() Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa) DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
DdlProyecto.DataBind() DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaDepartamento()
DdlDepartamento.Items.Clear()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamento.DataBind()
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargaSubProyecto()
End Sub End Sub
@@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades
Private Sub CargaDatos() Private Sub CargaDatos()
Dim objpersonal As New ClsRH Dim objpersonal As New ClsRH
If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlDepartamento.SelectedValue.ToEntero) Then
GVDatos.DataSource = objpersonal.DtResultados GVDatos.DataSource = objpersonal.DtResultados
Else Else
GVDatos.DataSource = Nothing GVDatos.DataSource = Nothing

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim ObjCliente As New ClsClientes() Dim ObjCliente As New ClsClientes()
If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
Retorno = True Retorno = True
CargaCuentas() CargaCuentas()

12
Ventas/PV.aspx.vb
View File

@@ -4641,9 +4641,19 @@ Partial Class PV
End Sub End Sub
Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
Dim CvePreioLista As Integer = -1
If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
End If
End If
End If
Dim ObjCliente As New ClsClientes Dim ObjCliente As New ClsClientes
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
RegistraScript("hideDivEC();") RegistraScript("hideDivEC();")
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero

2
Ventas/RepCotizacionesxFacturar.aspx
View File

@@ -207,7 +207,7 @@
</div> </div>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cotizaciones por Facturar" DataKeyNames="CveVenta"
ToolTip="Remisiones sin Facturar" ToolTip="Remisiones sin Facturar"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" Style="text-align: center;" GridLines="None"> data-sort="true" Style="text-align: center;" GridLines="None">

8
Ventas/RepCotizacionesxFacturar.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class RepCotizacionesxFacturar
#End Region #End Region
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 Page.IsPostBack Then If Not Page.IsPostBack Then
txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
CargaSucursales() CargaSucursales()
@@ -68,13 +68,13 @@ Partial Class RepCotizacionesxFacturar
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
If ObjVentas.GetRepCotizacionesSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados
DtVentas = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados
GvDatos.DataBind() GvDatos.DataBind()

4
Ventas/RepRemisionesNC.aspx
View File

@@ -207,7 +207,7 @@
</div> </div>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Remisiones de NC Sin Aplicar" DataKeyNames="CveVenta"
ToolTip="Remisiones sin Facturar" ToolTip="Remisiones sin Facturar"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" Style="text-align: center;" GridLines="None"> data-sort="true" Style="text-align: center;" GridLines="None">
@@ -252,7 +252,7 @@
<asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("TieneContrato") %>'></asp:Literal> <asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("TieneContrato") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}" HtmlEncode="false" /> <%-- <asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}" HtmlEncode="false" />--%>
<%-- <asp:TemplateField> <%-- <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
<asp:Label Text="Facturado" runat="server" CausesValidation="false"> </asp:Label> <asp:Label Text="Facturado" runat="server" CausesValidation="false"> </asp:Label>

10
Ventas/RepRemisionesNC.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class RepRemisionesNC
#End Region #End Region
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 Page.IsPostBack Then If Not Page.IsPostBack Then
txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
CargaSucursales() CargaSucursales()
@@ -68,13 +68,13 @@ Partial Class RepRemisionesNC
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
If ObjVentas.GetRepCotizacionesSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados
DtVentas = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados
GvDatos.DataBind() GvDatos.DataBind()
@@ -113,7 +113,7 @@ Partial Class RepRemisionesNC
e.Row.Cells(2).ForeColor = Drawing.Color.Red e.Row.Cells(2).ForeColor = Drawing.Color.Red
End If End If
e.Row.Cells(5).Text = e.Row.Cells(5).Text + "%" 'e.Row.Cells(5).Text = e.Row.Cells(5).Text + "%"
End If End If
End If End If

17
Ventas/Ventas.aspx.vb
View File

@@ -2239,6 +2239,7 @@ Partial Class Ventas
ImgFecha.Visible = False ImgFecha.Visible = False
End If End If
CargarCodigo() CargarCodigo()
InicializaImprimirNew() InicializaImprimirNew()
@@ -2469,6 +2470,8 @@ Partial Class Ventas
TxtFecha.Enabled = True TxtFecha.Enabled = True
ImgFecha.Visible = True ImgFecha.Visible = True
End If End If
TxtFecha.Enabled = True
End Sub End Sub
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
@@ -9007,7 +9010,7 @@ Partial Class Ventas
End If End If
End If End If
If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
'Agregamos las remisiones a la tabla 'Agregamos las remisiones a la tabla
If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
Dim CveVentaDetalle As Integer = 0 Dim CveVentaDetalle As Integer = 0
@@ -16645,9 +16648,19 @@ Partial Class Ventas
End Sub End Sub
Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
Dim CvePreioLista As Integer = -1
If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
End If
End If
End If
Dim ObjCliente As New ClsClientes Dim ObjCliente As New ClsClientes
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
RegistraScript("hideDivEC();") RegistraScript("hideDivEC();")
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero