Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -1552,7 +1552,7 @@ Public Class ClsClientes
|
||||
|
||||
Return Retorno
|
||||
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
|
||||
DataAdapter("PA_ClientesNoFrecuenteAdd")
|
||||
|
||||
@@ -1574,6 +1574,7 @@ Public Class ClsClientes
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
|
||||
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -1700,10 +1700,32 @@ Public Class ClsInventarios
|
||||
End Try
|
||||
|
||||
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
|
||||
|
||||
|
||||
#Region " INVENTARIOS - EXISTENCIAS "
|
||||
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,
|
||||
@@ -1889,8 +1911,8 @@ Public Class ClsInventarios
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
|
||||
@@ -1965,11 +1987,11 @@ Public Class ClsInventarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " INVENTARIOS - INVENTARIO FISICO "
|
||||
|
||||
|
||||
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
|
||||
|
||||
@@ -4091,6 +4091,7 @@ Public Class ClsPaginas
|
||||
' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202)
|
||||
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
|
||||
PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
|
||||
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
|
||||
#End Region
|
||||
#Region "MF"
|
||||
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
|
||||
|
||||
@@ -3299,7 +3299,8 @@ Public Class ClsRH
|
||||
.Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno
|
||||
.Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
|
||||
.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
|
||||
|
||||
Try
|
||||
@@ -3320,7 +3321,9 @@ Public Class ClsRH
|
||||
.Add("@CveRequerimiento", SqlDbType.Int).Value = RHRequerido.CveRequerimiento
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = RHRequerido.CveSubProyecto
|
||||
.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
|
||||
|
||||
Try
|
||||
@@ -3332,12 +3335,16 @@ Public Class ClsRH
|
||||
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
DataAdapter("PA_RH_PersonalRequeridoRemove")
|
||||
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
|
||||
|
||||
DataAdapter("PA_RH_PersonalRequeridoRemove")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
|
||||
End With
|
||||
|
||||
|
||||
Try
|
||||
@@ -3354,12 +3361,12 @@ Public Class ClsRH
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
|
||||
DataAdapter("PA_RH_Rep_NecesidadesPersonal")
|
||||
@@ -3369,6 +3376,7 @@ Public Class ClsRH
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = tCveSubProyeto
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
|
||||
End With
|
||||
|
||||
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())
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
|
||||
@@ -4287,7 +4295,7 @@ Public Class ClsRH
|
||||
|
||||
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
|
||||
|
||||
DataAdapter("PA_RH_PersonalFamiliaresAdd")
|
||||
@@ -4302,7 +4310,9 @@ Public Class ClsRH
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.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
|
||||
|
||||
Try
|
||||
@@ -4318,7 +4328,7 @@ Public Class ClsRH
|
||||
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
|
||||
|
||||
DataAdapter("PA_RH_PersonalFamiliaresUpdate")
|
||||
@@ -4335,6 +4345,9 @@ Public Class ClsRH
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@Beneficiario", SqlDbType.Int).Value = Beneficiario
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -2452,13 +2452,13 @@ Public Class ClsVentas
|
||||
|
||||
Return Retorno
|
||||
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
|
||||
DataAdapter("PA_Vta_RepCotizacionesSinFacturarGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF
|
||||
.Add("@FechaI", SqlDbType.Date).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
.Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
@@ -2474,13 +2474,13 @@ Public Class ClsVentas
|
||||
|
||||
Return Retorno
|
||||
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
|
||||
DataAdapter("PA_Vta_RepRemisionesNCGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF
|
||||
.Add("@FechaI", SqlDbType.Date).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
.Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
@@ -3973,6 +3973,92 @@ Public Class ClsVentas
|
||||
Return retorno
|
||||
End Function
|
||||
#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"
|
||||
|
||||
|
||||
|
||||
@@ -1230,7 +1230,7 @@ Namespace Modelos
|
||||
|
||||
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")
|
||||
End If
|
||||
|
||||
@@ -1408,7 +1408,7 @@ Namespace Modelos
|
||||
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
|
||||
If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
|
||||
Dim CveVentaDetalle As Integer = 0
|
||||
@@ -1480,7 +1480,7 @@ Namespace Modelos
|
||||
'inventarios
|
||||
GuardarVentaInventarios(factura, ObjInventario, ObjConta)
|
||||
|
||||
GuardaRecepcionUsados(factura, ObjInventario, ObjConta)
|
||||
'GuardaRecepcionUsados(factura, ObjInventario, ObjConta)
|
||||
|
||||
If ErrorList.Count = 0 Then
|
||||
'estimaciones
|
||||
@@ -1755,36 +1755,50 @@ Namespace Modelos
|
||||
DtVentasNC.Rows.Add(Dr)
|
||||
End If
|
||||
End Sub
|
||||
Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer) As Boolean
|
||||
Dim Resultado As Boolean = True
|
||||
|
||||
If ClienteEsDistribuidor Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
|
||||
Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
|
||||
|
||||
Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
|
||||
|
||||
|
||||
For Each drow As DataRow In DtDetalle.Rows
|
||||
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,
|
||||
UsuarioActual.CveEmpresa, 0D, "") Then
|
||||
Else
|
||||
Resultado = False
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
Resultado = True
|
||||
End If
|
||||
Next
|
||||
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
|
||||
|
||||
Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas) As Boolean
|
||||
Dim Resultado As Boolean = True
|
||||
|
||||
'If ClienteEsDistribuidor Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
|
||||
Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
|
||||
|
||||
Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
|
||||
|
||||
For Each drow As DataRow In DtDetalle.Rows
|
||||
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,
|
||||
UsuarioActual.CveEmpresa, 0D, "") Then
|
||||
Else
|
||||
Resultado = False
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
Resultado = True
|
||||
End If
|
||||
Next
|
||||
|
||||
If TipoDocto.Contiene("Rem") Then
|
||||
If DtRecepcionUsados IsNot Nothing Then
|
||||
For Each drow As DataRow In DtRecepcionUsados.Rows
|
||||
If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal) Then
|
||||
Resultado = False
|
||||
Exit For
|
||||
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
|
||||
|
||||
End Function
|
||||
@@ -8585,6 +8599,7 @@ Namespace Modelos
|
||||
CveTurno = -1
|
||||
CveUsuario = -1
|
||||
CveEmpresa = -1
|
||||
CveDepartamento = -1
|
||||
End Sub
|
||||
Public Property CveRequerimiento As Integer
|
||||
Public Property CveProyecto As Integer
|
||||
@@ -8598,7 +8613,8 @@ Namespace Modelos
|
||||
Public Property FechaActualizacion As DateTime
|
||||
Public Property CveUsuario As Integer
|
||||
Public Property Usuario As String
|
||||
Public Property CveEmpresa As Integer
|
||||
Public Property CveEmpresa As Integer
|
||||
Public Property CveDepartamento As Integer
|
||||
|
||||
End Class
|
||||
#End Region
|
||||
|
||||
@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
|
||||
CostoIndirectoAcum176 += ImporteCI176
|
||||
'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)
|
||||
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
|
||||
Exit For
|
||||
End If
|
||||
@@ -6278,10 +6278,10 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'falta el registro de la NC cuando es
|
||||
Dim RegistroCuentaPuente As Boolean = False
|
||||
'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
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
@@ -6315,27 +6315,31 @@ Partial Class Compras_Compras
|
||||
|
||||
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
|
||||
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
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
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
|
||||
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
|
||||
End If
|
||||
Else
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -6593,8 +6597,8 @@ Partial Class Compras_Compras
|
||||
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 importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
|
||||
Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
|
||||
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
|
||||
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
|
||||
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
@@ -6611,7 +6615,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
|
||||
importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
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
|
||||
@@ -9514,6 +9518,15 @@ Partial Class Compras_Compras
|
||||
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
|
||||
|
||||
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
|
||||
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 = ""
|
||||
@@ -9617,7 +9630,7 @@ Partial Class Compras_Compras
|
||||
CveCuenta = 0
|
||||
|
||||
'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
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
|
||||
@@ -9802,11 +9815,11 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CargaXML"
|
||||
|
||||
|
||||
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)
|
||||
If o Is Nothing Then
|
||||
@@ -10011,10 +10024,10 @@ Partial Class Compras_Compras
|
||||
'End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "GV'S"
|
||||
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -10279,9 +10292,9 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "METODOS"
|
||||
Private Sub GeneraGlobalDT(data As Object)
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
@@ -10714,66 +10727,66 @@ Partial Class Compras_Compras
|
||||
|
||||
CargarUMAlias()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
' 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").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'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.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
'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
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'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.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
|
||||
'carga la OC
|
||||
Dim CveOC As Integer = -1
|
||||
@@ -10810,45 +10823,45 @@ Partial Class Compras_Compras
|
||||
|
||||
'UpnAF.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Estimaciones"
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
Private Sub CargaGvInv()
|
||||
|
||||
@@ -11165,11 +11178,11 @@ Partial Class Compras_Compras
|
||||
|
||||
UpAlmacenEvidencia.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
||||
|
||||
|
||||
Private Sub CargaTipoTransaccion()
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
|
||||
DdlTipoTransaccion.DataBind()
|
||||
@@ -11190,52 +11203,52 @@ Partial Class Compras_Compras
|
||||
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
|
||||
DdlCuentaCaja.DataBind()
|
||||
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FINANCIAMIENTO - AC"
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - PERSONAL"
|
||||
Private Sub CargaGvPersonal()
|
||||
GvPersonal.DataSource = TmpDT
|
||||
@@ -11406,13 +11419,13 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - ACTIVOS FIJOS -AF"
|
||||
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
|
||||
Tab.ActiveTabIndex = 3
|
||||
@@ -11642,58 +11655,58 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
|
||||
TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C O N T R A T O S"
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015"
|
||||
|
||||
|
||||
Protected Sub CalculaTotalPorDevengar()
|
||||
Dim total = TxtTotal.Text.ToDouble
|
||||
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)
|
||||
CalculaTotalPorDevengar()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AJUSTA IMPORTES "
|
||||
Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
|
||||
'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
|
||||
@@ -11809,9 +11822,9 @@ Partial Class Compras_Compras
|
||||
GvPS.DataBind()
|
||||
UpPS.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DDL'S"
|
||||
Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
|
||||
CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
|
||||
@@ -11967,7 +11980,7 @@ Partial Class Compras_Compras
|
||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
|
||||
CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero
|
||||
CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
|
||||
If dr("UsaTarjeta").ToString = "True" Then
|
||||
CargaGridTarjetas()
|
||||
Else
|
||||
@@ -12040,9 +12053,9 @@ Partial Class Compras_Compras
|
||||
RVDocumentoImporteFE.MaximumValue = saldo.ToString
|
||||
UPCondicionesPago.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CHK'S"
|
||||
Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
|
||||
Select Case RBLCajaChica.SelectedValue
|
||||
@@ -12264,9 +12277,9 @@ Partial Class Compras_Compras
|
||||
ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
|
||||
TrRembolsoCajaChica.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO"
|
||||
Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
|
||||
|
||||
@@ -12530,10 +12543,10 @@ Partial Class Compras_Compras
|
||||
EjercicioAC = Ejercicio
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -12630,9 +12643,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
ObjEventoBitacora.Dispose()
|
||||
GvEB.DataBind()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " C O N T A B I L I D A D "
|
||||
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
|
||||
'Alert("Hola entre", TipoMensaje.MsgError)
|
||||
@@ -13021,10 +13034,10 @@ Partial Class Compras_Compras
|
||||
If Not ErrorCompra Then
|
||||
CargaCompra()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REEMBOLSOS NO USA AC "
|
||||
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
||||
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
||||
@@ -13038,13 +13051,13 @@ Partial Class Compras_Compras
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONSIGNACIONES "
|
||||
Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -13314,13 +13327,13 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#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
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim CveAlmacen As Integer
|
||||
@@ -13517,9 +13530,9 @@ Partial Class Compras_Compras
|
||||
ImgBtnBuscarOC.Visible = False
|
||||
UpParametros.Update()
|
||||
UpPSS.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REFACTURACION "
|
||||
Private Sub ValidaRefacturacion()
|
||||
If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
@@ -13753,10 +13766,10 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Return ErrorBitacora
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CANCELAR COMPRA "
|
||||
Private Sub ValidaCancelarCompra()
|
||||
If UsuarioActual.TienePermisoProceso(140) Then
|
||||
@@ -14035,10 +14048,10 @@ Partial Class Compras_Compras
|
||||
DivValesCombustible.Visible = True
|
||||
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
UPPValesCombustible.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VALES COMBUSTIBLES "
|
||||
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
|
||||
IdVale = New List(Of Integer)
|
||||
@@ -14058,9 +14071,9 @@ Partial Class Compras_Compras
|
||||
' Alert(cve.ToString)
|
||||
'Next
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VINCULAR OC "
|
||||
Private Sub InicializaOC()
|
||||
'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)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "F L E T E S Y S E R V I C I O S"
|
||||
|
||||
|
||||
Public Sub CreaDTFacturas()
|
||||
|
||||
Dim dt As New DataTable
|
||||
@@ -15314,6 +15327,16 @@ Partial Class Compras_Compras
|
||||
TotalFlete = 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
|
||||
For Each gvr As GridViewRow In GVServicios.Rows
|
||||
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
|
||||
|
||||
'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
|
||||
For Each Drt As DataRow In TmpDT.Rows
|
||||
|
||||
@@ -106,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
If CvePrePoliza > 0 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
|
||||
ContadorProcesados = ContadorProcesados + 1
|
||||
|
||||
1023
Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
Normal file
1023
Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
@@ -447,8 +447,8 @@
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C O N T R A T O S
|
||||
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
|
||||
Dim ObjContratos As New ClsContratos
|
||||
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.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
|
||||
ObjContratos.Dispose()
|
||||
|
||||
348
Inventarios/RepTraspasoAlmacen.aspx
Normal file
348
Inventarios/RepTraspasoAlmacen.aspx
Normal 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">×</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
176
Inventarios/RepTraspasoAlmacen.aspx.vb
Normal 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} 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(" <b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||
|
||||
If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
|
||||
If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
|
||||
If ChkRecibido.Checked Then StrFiltro.AppendFormat(" <b>Recibidos: </b>Si") Else StrFiltro.AppendFormat(" <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
21
LogMail.txt
@@ -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
|
||||
|
||||
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
|
||||
@@ -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: 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.
|
||||
|
||||
@@ -4,6 +4,10 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.columnaUsuarios{
|
||||
text-align:left;
|
||||
font-weight:bold;
|
||||
}
|
||||
.Widthall {
|
||||
width: 100% !important;
|
||||
}
|
||||
@@ -78,7 +82,7 @@
|
||||
<asp:UpdatePanel ID="UPAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<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>
|
||||
|
||||
</ContentTemplate>
|
||||
@@ -88,6 +92,11 @@
|
||||
<ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride">
|
||||
<ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus">
|
||||
<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">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
|
||||
@@ -116,19 +125,23 @@
|
||||
|
||||
<ajax:TabPanel runat="server" ID="TabPanel3" HeaderText="Configuración">
|
||||
<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">
|
||||
<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" />
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<%--<asp:TemplateField>
|
||||
<HeaderTemplate>Estatus</HeaderTemplate>
|
||||
<ItemStyle Width="150px" BorderStyle="None" />
|
||||
<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>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<div style="width: 100%; text-align: center">
|
||||
@@ -144,7 +157,7 @@
|
||||
<%--POPUP AGREGAR--%>
|
||||
<div id="divAddEstatusOS" class="modal ADS fade" role="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>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
@@ -171,7 +184,7 @@
|
||||
<label for="<%= DdlTipoEstatus.ClientID.ToString()%>">Tipo Estatus:</label>
|
||||
</div>
|
||||
<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" />
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
@@ -180,7 +193,8 @@
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<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>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -63,10 +63,8 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
CargaDatos()
|
||||
'CreaGrid()
|
||||
'CargaGridEstatusUsuarios()
|
||||
AsociarEstatusUsuarios()
|
||||
CargarUsuarioConEstatus()
|
||||
CveEstatuOS = -1
|
||||
@@ -74,6 +72,7 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
Using ObjEstatusOrdenServicios As New ClsOS
|
||||
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
|
||||
BtnAgregarEstatusOS.Text = "Agregar"
|
||||
divChkEstatus.Visible = False
|
||||
UpBodyEstatus.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()")
|
||||
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 TieneError = False
|
||||
|
||||
If HdnModalidad.Value = "I" 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
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
@@ -115,17 +117,22 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
|
||||
If Not TieneError Then
|
||||
GvDatos.EditIndex = -1
|
||||
CargaDatos()
|
||||
'CargaDatos()
|
||||
Alert("Estatus actualizado")
|
||||
Else
|
||||
Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
|
||||
ObjEstatusOrdenServicios.Dispose()
|
||||
CargaDatos()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
|
||||
EstatusUsuariosGridActualizar()
|
||||
AsociarEstatusUsuarios()
|
||||
CargarUsuarioConEstatus()
|
||||
UpDatos.Update()
|
||||
RegistraScript("$('#divAddEstatusOS').modal('hide');")
|
||||
UpPrueba.Update()
|
||||
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
End Sub
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
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)
|
||||
CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero
|
||||
BtnAgregarEstatusOS.Text = "Actualizar"
|
||||
divChkEstatus.Visible = True
|
||||
UpBodyEstatus.Update()
|
||||
UpAddEstatus.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusOS"))
|
||||
End Sub
|
||||
@@ -163,6 +172,11 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
ObjEstatusOrdenServicios.Dispose()
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
EstatusUsuariosGridActualizar()
|
||||
AsociarEstatusUsuarios()
|
||||
CargarUsuarioConEstatus()
|
||||
UpPrueba.Update()
|
||||
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
End Sub
|
||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||
Dim ObjEstatusOrdenServicios As New ClsOS
|
||||
@@ -200,6 +214,11 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End Sub
|
||||
|
||||
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
|
||||
Dim test As New CheckBoxField
|
||||
test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
|
||||
@@ -257,5 +276,13 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End If
|
||||
objEstatusOC.Dispose()
|
||||
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 Class
|
||||
|
||||
@@ -81,19 +81,28 @@
|
||||
<asp:UpdatePanel ID="UPGVDatos" runat="server" UpdateMode="Conditional">
|
||||
<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"
|
||||
DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion">
|
||||
<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,CveDepartamento"
|
||||
Width="1000px" >
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Proyecto">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="SubProyecto">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Departamento">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Departamento", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Turno">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Label>
|
||||
@@ -157,6 +166,22 @@
|
||||
|
||||
<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">
|
||||
<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>
|
||||
|
||||
@@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido
|
||||
Private Sub CargaTurno()
|
||||
ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
ReqTurnoDdl.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
End Sub
|
||||
|
||||
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.CveUsuario = UsuarioActual.CveUsuario
|
||||
RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
|
||||
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
|
||||
|
||||
If ObjRH.AddPersonalRequerido(RHRequerido) Then
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(-1)
|
||||
ReqSubProyectoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
TxtCantidad.Text = ""
|
||||
|
||||
CargadatosGvPersonalReq()
|
||||
@@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido
|
||||
RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
|
||||
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
|
||||
RHRequerido.CveRequerimiento = CveRequerimiento
|
||||
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
|
||||
|
||||
If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(-1)
|
||||
ReqSubProyectoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
|
||||
TxtCantidad.Text = ""
|
||||
|
||||
CargadatosGvPersonalReq()
|
||||
@@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido
|
||||
Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
If ObjRH.RemovePersonalRequerido(CveReq) Then
|
||||
|
||||
If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
|
||||
CargadatosGvPersonalReq()
|
||||
|
||||
Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
|
||||
@@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido
|
||||
CveRequerimiento = GvRow.DataKey("CveRequerimiento")
|
||||
|
||||
CargaProyectos()
|
||||
CargaTurno()
|
||||
CargaDepartamento()
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
|
||||
CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
|
||||
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
|
||||
CargaTurno()
|
||||
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").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"
|
||||
|
||||
UpModalPersonalReq.Update()
|
||||
|
||||
165
RH/Personal.aspx
165
RH/Personal.aspx
@@ -70,7 +70,17 @@
|
||||
</ContentTemplate>
|
||||
</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 ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Personal"></asp:Literal> <asp:Literal ID="LtlPersonal" runat="server"></asp:Literal>
|
||||
@@ -259,15 +269,69 @@
|
||||
<label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de Nacimiento: </label>
|
||||
<i></i>
|
||||
</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>
|
||||
<i></i>
|
||||
</div>
|
||||
<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 runat="server" id="DivPadres" visible="true">
|
||||
<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>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<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>
|
||||
@@ -4218,6 +4282,87 @@
|
||||
</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>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
@@ -528,12 +528,94 @@ Partial Class RH_Personal
|
||||
Set(value As Integer)
|
||||
ViewState("CvePermiso") = value
|
||||
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 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 wdCharacter As Integer = 1
|
||||
'Configuración
|
||||
@@ -581,9 +663,9 @@ Partial Class RH_Personal
|
||||
CargaComboUniformes()
|
||||
CargaPermisos()
|
||||
CargaCombosBuzon()
|
||||
CargaPermisosReemplazos()
|
||||
|
||||
|
||||
CargaPermisosReemplazos()
|
||||
|
||||
|
||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
|
||||
ViewState("CvePersonal") = Request("CvePersonal")
|
||||
'CvePersonal = ViewState("CvePersonal").ToString.ToEntero
|
||||
@@ -634,14 +716,29 @@ Partial Class RH_Personal
|
||||
'Inicia Permisos
|
||||
'Fin Permisos
|
||||
End If
|
||||
CargaCuentasBancarias()
|
||||
|
||||
'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
|
||||
' HplAbonarMasivo.Visible = True
|
||||
' GvGxC.Columns(7).Visible = True
|
||||
'End If
|
||||
|
||||
|
||||
CargaCuentasBancarias()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
CrearEstructuraFamiliares()
|
||||
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
|
||||
DivSuperiorInmediato.Visible = False
|
||||
End If
|
||||
@@ -1381,6 +1478,11 @@ Partial Class RH_Personal
|
||||
'Agregar Cuentas Bancarias
|
||||
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
|
||||
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
|
||||
@@ -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,
|
||||
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,
|
||||
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
|
||||
@@ -5506,5 +5613,265 @@ Partial Class RH_Personal
|
||||
Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
|
||||
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
|
||||
|
||||
@@ -30,6 +30,12 @@
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</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:
|
||||
<asp:DropDownList ID="DdlTurno" runat="server" Class="form-control input-sm select2me" DataTextField="Turno" DataValueField="CveTurno" Style="width: 75px !important;">
|
||||
</asp:DropDownList>
|
||||
@@ -62,6 +68,7 @@
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText ="Proyecto" DataField="Proyecto" 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:TemplateField HeaderText="Personal Actual" ItemStyle-HorizontalAlign="Center">
|
||||
|
||||
@@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
CargaProyecto()
|
||||
CargaTurnos()
|
||||
CargaDatos()
|
||||
CargaDepartamento()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProyecto()
|
||||
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
|
||||
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
DdlProyecto.DataBind()
|
||||
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyecto()
|
||||
|
||||
DdlSubProyecto.Items.Clear()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
|
||||
DdlSubProyecto.DataBind()
|
||||
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
|
||||
|
||||
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
@@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
|
||||
Private Sub CargaDatos()
|
||||
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
|
||||
Else
|
||||
GVDatos.DataSource = Nothing
|
||||
|
||||
@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
|
||||
Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
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
|
||||
Retorno = True
|
||||
CargaCuentas()
|
||||
|
||||
@@ -4641,9 +4641,19 @@ Partial Class PV
|
||||
End Sub
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
RegistraScript("hideDivEC();")
|
||||
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
|
||||
|
||||
@@ -207,7 +207,7 @@
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<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"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||
data-sort="true" Style="text-align: center;" GridLines="None">
|
||||
|
||||
@@ -53,7 +53,7 @@ Partial Class RepCotizacionesxFacturar
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
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
|
||||
|
||||
CargaSucursales()
|
||||
@@ -68,13 +68,13 @@ Partial Class RepCotizacionesxFacturar
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
||||
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
||||
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 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
|
||||
DtVentas = ObjVentas.DtResultados
|
||||
GvDatos.DataBind()
|
||||
|
||||
@@ -207,7 +207,7 @@
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<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"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||
data-sort="true" Style="text-align: center;" GridLines="None">
|
||||
@@ -252,7 +252,7 @@
|
||||
<asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("TieneContrato") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</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>
|
||||
<HeaderTemplate>
|
||||
<asp:Label Text="Facturado" runat="server" CausesValidation="false"> </asp:Label>
|
||||
|
||||
@@ -53,7 +53,7 @@ Partial Class RepRemisionesNC
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
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
|
||||
|
||||
CargaSucursales()
|
||||
@@ -68,13 +68,13 @@ Partial Class RepRemisionesNC
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
||||
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
||||
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 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
|
||||
DtVentas = ObjVentas.DtResultados
|
||||
GvDatos.DataBind()
|
||||
@@ -113,7 +113,7 @@ Partial Class RepRemisionesNC
|
||||
e.Row.Cells(2).ForeColor = Drawing.Color.Red
|
||||
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
|
||||
|
||||
@@ -2239,6 +2239,7 @@ Partial Class Ventas
|
||||
ImgFecha.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
CargarCodigo()
|
||||
InicializaImprimirNew()
|
||||
|
||||
@@ -2469,6 +2470,8 @@ Partial Class Ventas
|
||||
TxtFecha.Enabled = True
|
||||
ImgFecha.Visible = True
|
||||
End If
|
||||
TxtFecha.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ConfiguraEmpresa()
|
||||
@@ -9007,7 +9010,7 @@ Partial Class Ventas
|
||||
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
|
||||
If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
|
||||
Dim CveVentaDetalle As Integer = 0
|
||||
@@ -16645,9 +16648,19 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
RegistraScript("hideDivEC();")
|
||||
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
|
||||
|
||||
Reference in New Issue
Block a user