From ae69672fe36a26c7d3e01c37465a81bfe819a796 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 5 Jul 2024 12:01:49 -0700 Subject: [PATCH 1/7] -- div vale, visible siempre --- RH/Personal.aspx | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index cf8e23ddf..34e9ae884 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1615,10 +1615,14 @@ - - - -
+
+
+
+ + + +
+
@@ -1626,17 +1630,7 @@
-
-
- - - -
-
- - -
From c2f2c2b593161a4bd7c1815ec5dc65f33784b28a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Jul 2024 09:42:27 -0700 Subject: [PATCH 2/7] -- cambio a decimal --- Bancos/ConciliacionesBancarias.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 From 3280d0e04ed7d0d31d09e351a04dfc2a30d7a584 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Jul 2024 09:43:10 -0700 Subject: [PATCH 3/7] - --- RH/Personal.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 34e9ae884..b8ee1341a 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1619,7 +1619,7 @@
- +
From 1982ec4aa614e87eed6a48de1c1615c3e2910aa2 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Jul 2024 09:43:24 -0700 Subject: [PATCH 4/7] =?UTF-8?q?--=20permiso=20para=20cancelaci=C3=B3n=20de?= =?UTF-8?q?=20contratos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratosCalendario.aspx | 6 ++--- Transportes/RepContratosCalendario.aspx.vb | 28 ++++++++++++++-------- 2 files changed, 21 insertions(+), 13 deletions(-) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 04147c7a9..019ac22fc 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -447,7 +447,7 @@
Estatus:
- @@ -494,7 +494,7 @@ - +
@@ -726,7 +726,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 5695af9fd..e49bcd659 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()), @@ -171,7 +184,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 @@ -182,8 +194,6 @@ Partial Class RepContratosCalendario DdlClientes.txtText.Value = HidModClienteNombre.Value DdlClientes.txtValue.Value = HidModCveCliente.Value - - UpModal.Update() RegistraScript("$('#ModalActualizar').modal('show');") @@ -192,11 +202,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 @@ -221,7 +229,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")) From 5072868473fdf58becca3e289f4ad1f79ce840e1 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Jul 2024 09:43:33 -0700 Subject: [PATCH 5/7] -- mejora --- Ventas/RepPedidosSTF.aspx | 166 ++++++++++++----------------------- Ventas/RepPedidosSTF.aspx.vb | 27 ++++-- 2 files changed, 77 insertions(+), 116 deletions(-) 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 @@ -
    - - - - - - - - - - - - - - - - - - -
    -
    -
    - -
    -
    -     -     - - -
    -
    -
    -
    - - - -
    -
    + + + +
    @@ -1630,7 +1626,17 @@
    +
    +
    + + + +
    +
    + + +
    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 From 019b9a48d8e98532353f1432ca2ed40b78492342 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Jul 2024 10:01:27 -0700 Subject: [PATCH 7/7] -- mejora --- OS/OrdenesServicios.aspx.vb | 66 ++++++++++--------------------------- 1 file changed, 17 insertions(+), 49 deletions(-) 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)