From 5ce3c026cdfa2b44ad3698eae2ae6058c1724e73 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 1 Apr 2023 10:14:01 -0700 Subject: [PATCH] RegPrepolizas correcion moneda , Asistencias y RepAsistencias correciones de controles --- Contabilidad/RegPrePolizaS.aspx.vb | 2 +- RH/Asistencias.aspx | 118 ++++++++++++++++++++--------- RH/Asistencias.aspx.vb | 8 +- RH/RepAsistencias.aspx | 3 + 4 files changed, 91 insertions(+), 40 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 24448b317..f61284591 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1042,7 +1042,7 @@ Partial Class ContabilidadC_RegPrePolizaS If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero) - Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero).FiltroPrimeroValor("CveMoneda").ToEntero + Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio, diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 2e2aa8fcf..7bb6c6fa3 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -21,74 +21,109 @@ + -
-
+ +
+
- - <%----%> + "><%--class="expand"--%> +
-
-
    -
  • Cliente: - +
    + +
    +
    + Cliente: +
    +
    - <%-- - - --%> -
  • -
  • +
+ +
Proyecto: - +
+
+ - -
  • +
  • + +
    SubProyecto: - +
    + +
    + - -
  • +
  • + + +
    Turno: - +
    +
    + + - -
  • +
  • + +
    - +
    +
    + - -
  • +
  • + + +
    F. Asistencia: +
    +
    + + + + + + + +
    - - - - - - - - +
    + + + +
    -
    -
      -
    + +
    > +
    +
    + + + + + + + @@ -96,7 +131,7 @@
    - + N° @@ -110,6 +145,15 @@ + + + Cliente + + + + + + Asistencia diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index bc966e3e0..38a03b877 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -67,7 +67,8 @@ Partial Class RH_Asistencias 'DdlProyecto.DataBind() CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado) - DivProyectosAsignado.Visible = LblProyectoAsignado.Visible + DivProyectosAsignado1.Visible = LblProyectoAsignado.Visible + DivProyectosAsignado2.Visible = LblProyectoAsignado.Visible DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) @@ -220,7 +221,9 @@ Partial Class RH_Asistencias Dim OcurrioError As Boolean = False For Each Row As GridViewRow In GV.Rows - If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFechaAsistencia.Text.Trim.ToDate, + Dim CveCliente As Integer = Row.DataKey("CveCliente").ToEntero + + If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero, Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero, Row.FCTextBox("TxtObservaciones").Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -291,3 +294,4 @@ Partial Class RH_Asistencias End Sub End Class + diff --git a/RH/RepAsistencias.aspx b/RH/RepAsistencias.aspx index 9d22adddd..30d7b3494 100644 --- a/RH/RepAsistencias.aspx +++ b/RH/RepAsistencias.aspx @@ -29,6 +29,9 @@ + + +