diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 3b372de36..8394d6218 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -571,7 +571,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt1 As New DataTable Dt1 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") - Dim TotalDt1 As Double = Dt1.SUM("Importe") + Dim TotalDt1 As Decimal = Dt1.SUMD("Importe") Dim Row1 As DataRow = Dt1.NewRow Row1("Importe") = TotalDt1 @@ -581,7 +581,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt2 As New DataTable Dt2 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'") - Dim TotalDt2 As Double = Dt2.SUM("Importe") + Dim TotalDt2 As Decimal = Dt2.SUMD("Importe") Dim Row2 As DataRow = Dt2.NewRow Row2("Importe") = TotalDt2 @@ -591,7 +591,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt3 As New DataTable Dt3 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") - Dim TotalDt3 As Double = Dt3.SUM("Importe") + Dim TotalDt3 As Decimal = Dt3.SUMD("Importe") Dim Row3 As DataRow = Dt3.NewRow Row3("Importe") = TotalDt3 @@ -601,7 +601,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim Dt4 As New DataTable Dt4 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'") - Dim TotalDt4 As Double = Dt4.SUM("Importe") + Dim TotalDt4 As Decimal = Dt4.SUMD("Importe") Dim Row4 As DataRow = Dt4.NewRow Row4("Importe") = TotalDt4 @@ -628,7 +628,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx lrds.Add(rds4) params.Add(New ReportParameter("SaldoFinalEstadoCuenta", (TxtSaldoFinal.Text.FormatoNumero))) - Dim SaldoFinalLibros As Double = (TxtSaldoFinal.Text.ToDouble - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4) + Dim SaldoFinalLibros As Decimal = (TxtSaldoFinal.Text.ToDecimal - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4) params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) Dim SaldoFinalContabilidad As Double = 0 diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index 87d5a678c..e11bc10ef 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -7,6 +7,10 @@ Partial Class Bancos_RepCxCCliente Private Property DtDatos As DataTable Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return CType(ViewState("DtDatos"), DataTable) End Get Set(value As DataTable) @@ -51,6 +55,7 @@ Partial Class Bancos_RepCxCCliente CargaDatos() End Sub Private Sub CargaDatos() + DtDatos = New DataTable Dim Mov As New ClsMovimientos Dim FechaI, FechaF As String Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) @@ -63,6 +68,7 @@ Partial Class Bancos_RepCxCCliente If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then GvCxC.DataSource = Mov.DtResultados + DtDatos = Mov.DtResultados End If UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue @@ -137,7 +143,7 @@ Partial Class Bancos_RepCxCCliente 'OBTENEMOS LOS DATOS Dim ObjMovtos As New ClsMovimientos() - Dim DTpp As DataTable + Dim FI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) Dim FF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) Dim FechaI, FechaF As String @@ -146,13 +152,14 @@ Partial Class Bancos_RepCxCCliente If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then - DTpp = ObjMovtos.DtResultados - Else - DTpp = Nothing - End If - If DTpp.Rows.Count > 0 Then - Dim dr As DataRow = DTpp.Rows(0) + 'If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then + ' DTpp = ObjMovtos.DtResultados + 'Else + ' DTpp = Nothing + 'End If + + If DtDatos.Rows.Count > 0 Then + Dim dr As DataRow = DtDatos.Rows(0) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("FechaInicio", FI)) @@ -161,7 +168,7 @@ Partial Class Bancos_RepCxCCliente params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString)) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes") + ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DtDatos, params, "ReportePagoClientes") Else Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 05494dc3e..287c33d28 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -652,28 +652,13 @@ Partial Class OS_OrdenesServicios DdlUsuarioAtendio.SelectedValueExist(CveTecnico) CargarEstatusDelUsuario(TipoEstatus) CveVenta = ObjOS.CveVenta - If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then CvePedido = ObjOS.CveCotizacion + CveVenta = ObjOS.CveVenta End If - - - 'Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count - - 'If validacionTieneEstatus > 0 Then - ' DdlEstatusOS.Items.Clear() - ' DdlEstatusOS.DataSource = EstatusOSDelUsuario - ' DdlEstatusOS.DataBind() - 'Else CargaEstatusOS() - 'DdlEstatusOS.Enabled = False - 'End If - DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString - 'If TipoEstatus = 2 Then - 'LnkTecnico.Visible = True - 'End If - If TipoEstatus = 3 Then 'DisableAll() @@ -703,14 +688,9 @@ Partial Class OS_OrdenesServicios DivEstatus.Visible = True DivMateriales.Visible = True ImgImprimir.Visible = True - - - TxtTelefono.Text = ObjOS.Telefono DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto) TxtAnio.Text = ObjOS.Año - - DdlMedico.SelectedValueExist(ObjOS.CveMedico) DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento) DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta) @@ -1300,10 +1280,9 @@ Partial Class OS_OrdenesServicios FechaCita = TxtFechaCita.Text.Replace(",", "").ToDateTime End If - - Dim ObjOrdenServicio As New ClsOS() Dim ObjGenerales As New ClsGenerales(ObjOrdenServicio.IniciaTransacSQL) + Dim ObjVenta As New ClsVentas(ObjOrdenServicio.IniciaTransacSQL) MensajeAlert = New StringBuilder Dim Errores As Boolean = False @@ -1354,7 +1333,6 @@ Partial Class OS_OrdenesServicios If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveOSDetalle:=CveOsDetalle, CvePs:=CvePS) Then Errores = True End If - Next If UsuarioActual.Empresa.Funcionalidad(578) = "" Then @@ -1369,8 +1347,6 @@ Partial Class OS_OrdenesServicios End If Next End If - - Else Errores = True End If @@ -1378,8 +1354,6 @@ Partial Class OS_OrdenesServicios End If Next - - 'If Not Errores Then ' Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero @@ -1434,17 +1408,12 @@ Partial Class OS_OrdenesServicios Dim Especificaciones As String = Row("Especificaciones").ToString Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero - - - Dim fname As String = "" If File.Exists(Row("Archivo").ToString) Then Dim Archivo As New System.IO.FileInfo("") fname = Archivo.Name End If - - Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1) Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1") Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero @@ -1457,20 +1426,15 @@ Partial Class OS_OrdenesServicios Else CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=fname) If Not CveOSDetalle > 0 Then Errores = True - End If - - If File.Exists(Row("Archivo").ToString) Then Dim Archivo As New System.IO.FileInfo("") If Archivo.Name <> "-1" Then 'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension))) - If ArchivoFinal.Exists() Then - ArchivoFinal.Delete() - End If + If ArchivoFinal.Exists() Then ArchivoFinal.Delete() 'Mover el archivo de los temporales a OS System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name) @@ -1481,7 +1445,6 @@ Partial Class OS_OrdenesServicios End If End If - If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows @@ -1512,12 +1475,21 @@ Partial Class OS_OrdenesServicios Next End If End If + End If + Next - - + 'ajustar + If UsuarioActual.Empresa.Funcionalidad(578) <> "" Then + If CvePedido > 0 AndAlso Not ObjVenta.UpdateDatosMedicosVenta(CvePedido, UsuarioActual.CveEmpresa, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, + TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then + Errores = True End If - Next + If CveVenta > 0 AndAlso Not ObjVenta.UpdateDatosMedicosVenta(CveVenta, UsuarioActual.CveEmpresa, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, + TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then + Errores = True + End If + End If Else Errores = True End If @@ -1526,7 +1498,6 @@ Partial Class OS_OrdenesServicios Errores = True End If - If Not Errores Then Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero @@ -1537,13 +1508,9 @@ Partial Class OS_OrdenesServicios If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then Errores = True End If - - End If End If - - If Not Errores Then ObjOrdenServicio.Commit() @@ -1557,6 +1524,7 @@ Partial Class OS_OrdenesServicios End If ObjOrdenServicio.Dispose() ObjGenerales.Dispose() + ObjVenta.Dispose() End Sub Protected Sub BtnBuscarEspecificaciones_Click(sender As Object, e As EventArgs) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index cf8e23ddf..410822d28 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1629,7 +1629,7 @@
- +
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 45d5ddce5..5db66c296 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -189,6 +189,9 @@ Partial Class RH_RepChecadorPreAsistencia If Not Page.IsPostBack Then cargaEjercicios() CargaCombos() + + + End If ' GvBind() @@ -663,7 +666,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim diaSemana As Integer = Fecha.DayOfWeek Dim Asistencia As Boolean = True - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString()) @@ -917,7 +920,7 @@ Partial Class RH_RepChecadorPreAsistencia ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta End If - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) If Not DiaLaboral Then @@ -1523,7 +1526,7 @@ Partial Class RH_RepChecadorPreAsistencia 'End Sub - Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable, DiaDescanso As Integer) As DataTable + Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable, DiaDescanso As Integer, CveTurno As Integer) As DataTable Dim respuesta As New DataTable respuesta.Columns.Add("TRABAJO", System.Type.GetType("System.Boolean")) @@ -1533,8 +1536,24 @@ Partial Class RH_RepChecadorPreAsistencia respuesta.Columns.Add("SALIDA", System.Type.GetType("System.TimeSpan")) Dim Drow As DataRow = respuesta.NewRow Dim drp As DataRow = Nothing + + + Dim EntradaTurno As String = "" + Dim SalidaTurno As String = "" + If DTHorarioPersonal.Rows.Count > 0 Then drp = DTHorarioPersonal(0) + Else + + Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & CveTurno) + If DTTemp.Rows.Count > 0 Then + EntradaTurno = DTTemp.Rows(0)("HorarioDe").ToString + SalidaTurno = DTTemp.Rows(0)("HorarioA").ToString + Else + EntradaTurno = "00:00" + SalidaTurno = "09:00" + End If + End If Dim diaSemana As Integer = Fecha.DayOfWeek @@ -1545,59 +1564,59 @@ Partial Class RH_RepChecadorPreAsistencia Case 0 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Domingo").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Domingo").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("DomingoEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("DomingoSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("DomingoSalida").ToString())) Exit Select Case 1 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Lunes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Lunes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("LunesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("LunesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("LunesSalida").ToString())) Exit Select Case 2 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Martes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Martes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("MartesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MartesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("MartesSalida").ToString())) Exit Select Case 3 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Miercoles").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Miercoles").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("MiercolesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MiercolesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("MiercolesSalida").ToString())) Exit Select Case 4 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Jueves").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Jueves").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("JuevesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("JuevesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("JuevesSalida").ToString())) Exit Select Case 5 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Viernes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Viernes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("ViernesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("ViernesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("ViernesSalida").ToString())) Exit Select Case 6 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Sabado").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "False", drp("Sabado").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("SabadoEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("SabadoSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("SabadoSalida").ToString())) Exit Select End Select @@ -1780,7 +1799,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim arrayComands As String() Dim Fecha As Date = FechaInicioPeriodo - + Dim Fecha2 As Date = New Date(2024, 7, 2) For x As Integer = 3 To 33 NombreLink = "LnkFecha" & CountFecha @@ -2710,7 +2729,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim diaSemana As Integer = Fecha.DayOfWeek Dim Asistencia As Boolean = True - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString()) @@ -2955,7 +2974,7 @@ Partial Class RH_RepChecadorPreAsistencia ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta End If - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) If Not DiaLaboral Then diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index bd09289db..aac9025d4 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -447,7 +447,7 @@
Estatus:
- @@ -494,7 +494,7 @@ - +
@@ -758,7 +758,7 @@ $('#<%=TxtDolares.ClientID%>').val(event.Dolares); $('#<%=TxtPesos.ClientID%>').val(event.Pesos); $('#<%=TxtAnticipo.ClientID%>').val(event.Anticipo); - $('#<%=CveContrato.ClientID%>').val(event.id); + $('#<%=HdnCveContrato.ClientID%>').val(event.id); if (event.NombreComercial !== null) { diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 8ab2c39c0..c8ae56d44 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -28,6 +28,16 @@ Partial Class RepContratosCalendario ViewState("Contrato") = value End Set End Property + + Public Property CveContrato As Integer + Get + Return IfNull(ViewState("CveContrato"), "").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveContrato") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -53,6 +63,8 @@ Partial Class RepContratosCalendario End If GvContratos.DataSource = DtAvance + DdlEstatusContrato.Enabled = UsuarioActual.TienePermisoProceso(173) + ObjContratos.Dispose() GvContratos.DataBind() UpTitulos.Update() @@ -77,7 +89,8 @@ Partial Class RepContratosCalendario 'DATOS Dim strAF As New StringBuilder - For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''").Rows + 'se quitan los estatus cancelados + For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> '' AND TipoEstatus <> 3").Rows Dim obj As New JObject( New JProperty("category", Row("CodigoAF")), New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()), @@ -173,7 +186,6 @@ Partial Class RepContratosCalendario End Sub Protected Sub MostrarModal(sender As Object, e As System.EventArgs) - If HidModClienteNombre.Value = "" Then HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") End If @@ -184,8 +196,6 @@ Partial Class RepContratosCalendario DdlClientes.txtText.Value = HidModClienteNombre.Value DdlClientes.txtValue.Value = HidModCveCliente.Value - - UpModal.Update() RegistraScript("$('#ModalActualizar').modal('show');") @@ -194,11 +204,9 @@ Partial Class RepContratosCalendario Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim ObjContratos As New ClsContratos - ObjContratos.IniciaTransacSQL() - - Contrato = CveContrato.Value - - If ObjContratos.UpdateContratos(Contrato.ToEntero, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then + ObjContratos.IniciaTransacSQL() + + If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then ObjContratos.Commit() Alert("Actualizado Correctamente.") Else @@ -223,7 +231,7 @@ Partial Class RepContratosCalendario TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt") TxtMoneda.Text = GvRow.DataKey("CveMoneda") 'Requeridos - ViewState("Contrato") = GvRow.DataKey("CveContrato") + ViewState("CveContrato") = GvRow.DataKey("CveContrato") DdlAF.SelectedValue = GvRow.DataKey("CveAF") DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer")) DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx index ab70cdf03..b783ed353 100644 --- a/Ventas/RepPedidosSTF.aspx +++ b/Ventas/RepPedidosSTF.aspx @@ -15,25 +15,14 @@ - Reporte + Reporte de Pedidos -<%--
  • - Generar PDF -
    • -
  • - Generar Excel -
    • --%> +
  • Ver Dlls en pesos
    • -<%-- - -
  • - Ver Grafica -
    • -     -     --%> +     @@ -84,108 +73,63 @@ -
    - - - - - - - - - - - - - - - - - - -
    -
    -
    - -
    -
    -     -     - - -