From 525f2670ad551223a95ec1c0a76936152b937187 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Sat, 20 May 2023 01:21:13 -0600 Subject: [PATCH 01/16] Desvinculacion de OC al cancelar la compra --- App_Code/ClsCompras.vb | 20 ++++++++++++++++++++ Compras/Compras.aspx.vb | 6 ++++++ 2 files changed, 26 insertions(+) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 38db7e34a..030f28eaf 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -2117,6 +2117,26 @@ Public Class ClsCompras Return Retorno End Function + Public Function CancelarCompraOC(CveCompra As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CancelarCompraOC") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al desvincular la oc de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a83716886..28a619d80 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13899,6 +13899,12 @@ Partial Class Compras_Compras End If + If Not ErrorCancelar Then + If Not ObjCompras.CancelarCompraOC(CveCompra, UsuarioActual.CveEmpresa) Then + ErrorCancelar = True + End If + End If + 'CANCELA COMPRA If Not ErrorCancelar Then From 433e5c287d007102d8e05d4888f0f9623ed95535 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 May 2023 08:34:35 -0700 Subject: [PATCH 02/16] - timer Econo --- App_Code/ClsPaginas.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7d3fefb52..1d2313014 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4311,6 +4311,11 @@ Public Class ClsPaginas ' Response.Redirect("/Sistemas/PopUpSeleccionarEmpresa.aspx") ' 'Alert(Request.ServerVariables("URL")) 'End If + ''codigo temporal + If EsProduccion Then + If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 166) Then System.Threading.Thread.Sleep(750) + End If + Dim i As Integer = Obt_ClavePagina(Request.ServerVariables("URL")) Dim FailURL As String = $"{FormsAuthentication.DefaultUrl}?ADCod={Encripta($"CveModulo={i}")}" 'si es <0 la página es sin restricciones From 8924f1df302aba18729e0d52e4e07fc9c4329fcc Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 May 2023 08:35:29 -0700 Subject: [PATCH 03/16] -- mejora --- Bancos/PopIECompras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 866df3a64..ca540f569 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1556,7 +1556,7 @@ Partial Class Bancos_PopIECompras Pago.CveIE = rw.DataKey("CveIE").ToEntero Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal - Pago.TCPago = TxtTipoCambio.Text.ToDecimal + Pago.TCPago = If(Pago.CveMonedaPago <> 1, TxtTipoCambio.Text.ToDecimal, 1) Pago.CveProveedor = DdlAcreedor.SelectedValue.ToEntero Pago.TipoPago = "Egsc" If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then From 6f43f282225c30f653fc713e7bb9207bc455b0b6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 May 2023 13:30:26 -0700 Subject: [PATCH 04/16] =?UTF-8?q?--=20nuevo=20m=C3=A9todo=20para=20validac?= =?UTF-8?q?i=C3=B3n=20y=20contabilizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 42 ++++++++++++++++++++++++++++++++++++- 1 file changed, 41 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e6e877f15..2ed6e8796 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3,7 +3,6 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient -Imports System.Web Imports Extensiones Public Class ClsContabilidad @@ -6416,6 +6415,47 @@ Public Class ClsContabilidad Return Retorno End Function + + Public Function ValidacionesPrePoliza(CvePrePoliza As Integer, Opcion As Integer, ByRef UsuarioActual As Usuario, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_PrePolizasValidacion") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@CveEmpresa", SqlDbType.Int).Value = UsuarioActual.CveEmpresa + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@AutoConta", SqlDbType.Int).Value = If(AutoConta, 1, 0) + .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output + .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output + .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero + MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString + ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString + Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString + If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza") + + If MensajePolizaDescuadre = "" AndAlso AutoConta Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' eltipocontabilidad deberá activarse en el PA + If Not ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MensajePolizaDescuadre = Mensaje.ToString ' regresa el mensaje de contabilización + End If + End If + End If + + Catch ex As Exception + OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region #Region "AUXILIAR PREPOLIZAS" From 29b2b6445801bfd3a6b06878724b7b415ea9eb80 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 20 May 2023 14:33:20 -0700 Subject: [PATCH 05/16] Compras Funcionalidad 713 Empresas que deduce IEPS --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 24 +++++++++++++++++++----- RH/Asistencias.aspx.vb | 2 +- 3 files changed, 21 insertions(+), 7 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 42211ac69..0a7ec36fe 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3629,7 +3629,7 @@ - + <%----%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 13d7e380d..c55e6f774 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1724,8 +1724,12 @@ Partial Class Compras_Compras Dim ObjeFacturas As New ClsCompras Dim RFC As String = "" If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then + + Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador + ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero + Dim XMLDoc As New XmlDocument Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML")) If IO.File.Exists(Archivo) Then @@ -2374,12 +2378,22 @@ Partial Class Compras_Compras If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then - If OtrosImpuestos > 0 Then - RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');") + + If UsuarioActual.Empresa.Funcionalidad(713).ToEntero = 1 Then + 'Si tiene funcionalidad y es Acreedor se muestra modal + If CveTipoProveedor.Contiene(2, 3) Then ' Acreedor + RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');") + End If + Else + 'Si no tiene funcionalidad y es proveedor se muestra + RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');") + + End If + Else RegistraScript("$('#ModalIEPS').modal('show');") - BtnCancelarotrosImpuestos.Visible = True + 'BtnCancelarotrosImpuestos.Visible = True End If @@ -18854,7 +18868,7 @@ Partial Class Compras_Compras Dim ObjBancos As New ClsBancos If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then - GvCreditos.DataSource = ObjBancos.DtResultados + GvCreditos.DataSource = ObjBancos.DtResultados.FiltraParametros(" ImporteIE > 0") Else GvCreditos.DataSource = Nothing End If @@ -18921,7 +18935,7 @@ Partial Class Compras_Compras Dim ObjBancos As New ClsBancos If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then - GvCreditos.DataSource = ObjBancos.DtResultados + GvCreditos.DataSource = ObjBancos.DtResultados.FiltraParametros(" ImporteIE > 0") Else GvCreditos.DataSource = Nothing End If diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 535b7b773..f0d61df12 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -21,8 +21,8 @@ Partial Class RH_Asistencias txtFechaAsistencia.Text = Now.ToShortDateString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then PnlMasivo.Visible = True - CargaTiposPeriodo() End If + CargaTiposPeriodo() End If End Sub From aa32426f1a9d6f873ed85f504f41f395de3aa600 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 11:48:45 -0700 Subject: [PATCH 06/16] =?UTF-8?q?--=20correcci=C3=B3n=20en=20carga=20de=20?= =?UTF-8?q?PS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/CatPS.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 8ec3004dd..9117583ba 100644 --- a/Ventas/CatPS.aspx.vb +++ b/Ventas/CatPS.aspx.vb @@ -406,7 +406,7 @@ Partial Class CatPS Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) - If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then + If msgg <> "" Then ErrorExcel = True strNoCargados.AppendFormat(" {0}
", msgg) Exit For From f51e1ed226b79bce915791e894e60f9f174f66ad Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 11:49:04 -0700 Subject: [PATCH 07/16] -- mejora visual, falta mandar el parametro de tipocorto --- RH/CatAsistenciasInasistencias.aspx | 44 ++++++++++++++------------ RH/CatAsistenciasInasistencias.aspx.vb | 1 + 2 files changed, 24 insertions(+), 21 deletions(-) diff --git a/RH/CatAsistenciasInasistencias.aspx b/RH/CatAsistenciasInasistencias.aspx index 1a45620ae..de3bb5b88 100644 --- a/RH/CatAsistenciasInasistencias.aspx +++ b/RH/CatAsistenciasInasistencias.aspx @@ -31,11 +31,11 @@ - + - + @@ -43,7 +43,8 @@ - + + @@ -51,7 +52,7 @@ - + @@ -59,46 +60,42 @@ - - - + - + - + - + - + - + - + - - - - + + a @@ -106,17 +103,17 @@ - + - + <%-- - - + --%> + <%----%> @@ -159,6 +156,11 @@ +
+ + + +
diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index 99337a21a..e5e7cc5f8 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -120,6 +120,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c CheckActiveSection.Visible = True Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar TipoTxt.Text = GvRow.DataKey("Tipo") + TxtTipoCorto.Text = GvRow.DataKey("TipoCorto") AplicaNoAplica.Checked = If(GvRow.DataKey("AplicaAsistencia") = "Aplica", True, False) From 078e4f3cd5676d9fcab4f870c839054a1d35a34f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 14:06:47 -0700 Subject: [PATCH 08/16] -- filtro por puesto y columna puesto --- App_Code/ClsRH.vb | 3 ++- RH/Asistencias.aspx | 17 +++++++++++++++-- RH/Asistencias.aspx.vb | 5 ++++- 3 files changed, 21 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ac5599c36..7d3c9083e 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2621,7 +2621,7 @@ Public Class ClsRH End Function - Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, CveTipoPeriodo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, CveTipoPeriodo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional CvePuesto As Integer = -1) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAsistenciasGet") @@ -2633,6 +2633,7 @@ Public Class ClsRH .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 93c0b3969..1d69ade4d 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -92,8 +92,15 @@ Tipo Periodo:
- - + + + +
+ Puesto: +
+ + +
@@ -130,6 +137,12 @@ + + Puesto + + + + Asistencia diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 535b7b773..cdad02fc9 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -17,6 +17,7 @@ Partial Class RH_Asistencias divCliente.Visible = False LblCliente.Visible = False GV.Columns(2).Visible = False + GV.Columns(3).Visible = True End If txtFechaAsistencia.Text = Now.ToShortDateString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then @@ -57,6 +58,8 @@ Partial Class RH_Asistencias Private Sub CargaTurnos() DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() + DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) + DdlPuesto.databind End Sub #End Region @@ -68,7 +71,7 @@ Partial Class RH_Asistencias Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then Dim objpersonal As New ClsRH - If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then + If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlPuesto.SelectedValue.ToEntero) Then Dim dt As DataTable = objpersonal.DtResultados If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero())) From 3b29202c24e6e31c0b84a6f9566584f68e6072e7 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 14:07:14 -0700 Subject: [PATCH 09/16] -- mejora en pago --- Bancos/ProveedoresAbonar.aspx.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index b12097b53..46e9f59c1 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -857,6 +857,8 @@ Partial Class Bancos_ProveedoresAbonar ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES Pago.TCPago = TxtTCDolares.Text.ToDecimal End If + If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal + If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTCDolares.Text.ToDecimal If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal @@ -1097,13 +1099,14 @@ Partial Class Bancos_ProveedoresAbonar Anexo.Text = "[]" Dim Msg As New StringBuilder + Msg.AppendFormat(" Folio: {1}

", CveIE, TxtFolio.Text) - Msg.AppendFormat("
  • Imprimir movimiento
    • ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE))) + Msg.AppendFormat(" Imprimir movimiento
    ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE))) 'End If - Msg.AppendFormat("
  • Listado
    • ", Encripta(String.Format("OP=ImprimeMov&CveIE={0}", CveIE))) - If IDPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then Msg.AppendFormat("
  • Póliza
    • ", IDPoliza) + Msg.AppendFormat(" Listado
    ", Encripta(String.Format("OP=ImprimeMov&CveIE={0}", CveIE))) + If IDPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then Msg.AppendFormat(" Póliza
    ", IDPoliza) - Dim Mensaje As String = String.Format("
    El Documento se generó correctamente.


    Descargas:
      {0}
    ", Msg.ToString) + Dim Mensaje As String = String.Format("El Documento se generó correctamente.

    {0} ", Msg.ToString) 'LIMPIA TxtFolio.Text = "" From af8b66958fcea5f01e5977d20045c04f9e24c405 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 14:07:52 -0700 Subject: [PATCH 10/16] -- mejora enconceptos de prepolizas al pago --- App_Code/ClsPaginas.vb | 39 ++++++++++++++++++++++++++++----------- 1 file changed, 28 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c00c08614..7bfd0a318 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7656,6 +7656,14 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 292, 294) '1.Venta.2.NC Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 207, 203) '1.Venta.2.NC End Select + Case 18 ' ingresos por comprobar + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 92 '1.Venta.2.NC + Case 2 'dólares + Retorno.CveConcepto = 92 'falta nuevo concepto + Retorno.CveConceptoComplementario = 332 + End Select End Select Else 'cuando es la provisión Select Case CveTipoSaldo @@ -7699,7 +7707,14 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 291, 293) '1.Venta.2.NC Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 203, 203) '1.Venta.2.NC End Select - + Case 18 ' ingresos por comprobar + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 66 '1.Venta.2.NC + Case 2 'dólares + Retorno.CveConcepto = 66 'falta nuevo concepto + Retorno.CveConceptoComplementario = 332 + End Select End Select End If @@ -7736,10 +7751,7 @@ Public Class ClsPaginas Dim CveConceptoContableComplementaria As Integer = 207 Dim Contabilizable As Boolean = True If PorcentajePago > 1 Then PorcentajePago = 1 - Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 2, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 2 - If VentaActual.CveMoneda <> 1 Then - If Pago.TipoPago = "NC" Then Pago.CveConceptoPago = 301 Else Pago.CveConceptoPago = 292 - End If + Dim Concepto As String = String.Format("{0} F:{1}", VentaActual.ClienteNombre, VentaActual.SerieFolio) Dim FuncionalidadFluctuacionImpuestos As Boolean = If(VentaActual.UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim tFecha As Date = Pago.Fecha @@ -7786,11 +7798,14 @@ Public Class ClsPaginas If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then ErrorMovtos = True End If - End If + Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1) + 'cuando es pago por NC, tiene sus propios pagos + If Pago.TipoPago = "NC" Then ConPreP.CveConcepto = If(VentaActual.CveMoneda <> 1, 301, 251) + 'movimiento de pago cliente - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, ConPreP.CveConcepto, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True 'movimiento de pago cliente Complementaria If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True @@ -7848,6 +7863,7 @@ Public Class ClsPaginas Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia) If Pago.TipoPago = "A" AndAlso Not ErrorMovtos Then ' A N T I C I P O Dim Ret As New ConceptosRetenciones + 'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True @@ -7860,14 +7876,15 @@ Public Class ClsPaginas End If If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O Dim Ret As New ConceptosRetenciones + Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 2) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 294, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, ConPrePNC.CveConceptoComplementario, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 91, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True End If End If If Pago.TipoPago = "I" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R @@ -7957,7 +7974,7 @@ Public Class ClsPaginas Public Property TCPago As Decimal = 1 Public Property CveVentaAmortizacion As Integer = 0 Public Property OtroGastoIngreso As Decimal = 0 - Public Property CveConceptoPago As Integer = -1 'no definido de inicio + 'Public Property CveConceptoPago As Integer = -1 'no definido de inicio Public Property CveCreditoDetalle As Integer = -1 Public Property CveCompraRelacionada As Integer = -1 Public Property AplicaTraslado As Boolean = True From 0926a9a10d2a5e4265a125718adf270f8c037724 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 14:08:19 -0700 Subject: [PATCH 11/16] --parametro optimizado --- App_Code/Modelos.vb | 2 -- 1 file changed, 2 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 6175f2507..4a4b0c86c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2783,7 +2783,6 @@ Namespace Modelos Pago.CveVentaAmortizacion = ObjFactura.CveVenta 'Dr("CveVenta").ToString().ToEntero() Pago.AplicaTraslado = False Pago.Referencia = Concepto - Pago.CveConceptoPago = 251 ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta) @@ -3066,7 +3065,6 @@ Namespace Modelos Pago.CveVentaAmortizacion = ObjFactura.CveVenta 'Dr("CveVenta").ToString().ToEntero() Pago.AplicaTraslado = False Pago.Referencia = Concepto - Pago.CveConceptoPago = 251 Pago.ValorMultiplicador = -1D ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta) From 8265a891e006c0957ad7ce0410e686fc1ce3401b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 15:00:59 -0700 Subject: [PATCH 12/16] =?UTF-8?q?filtro=20de=20tipoperiodo=20y=20puesto,?= =?UTF-8?q?=20se=20agreg=C3=B3=20la=20visualizaci=C3=B3n=20de=20columna=20?= =?UTF-8?q?de=20horas=20dobles=20y=20triples?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsRH.vb | 5 ++-- RH/RepAsistencias.aspx | 27 ++++++++++++-------- RH/RepAsistencias.aspx.vb | 54 +++++++++++++++++---------------------- 3 files changed, 44 insertions(+), 42 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 7d3c9083e..f0bbd4fc1 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2649,7 +2649,7 @@ Public Class ClsRH Return Retorno End Function - Public Function RepGetAsistencias(Grupo As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CvePersonalPadre As Integer) As Boolean + Public Function RepGetAsistencias(Grupo As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CvePersonalPadre As Integer, CveTipoPeriodo As Integer, CvePuesto As Integer) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_RepPersonalAsistenciasGet") @@ -2663,7 +2663,8 @@ Public Class ClsRH .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CvePersonalPadre", SqlDbType.Int).Value = CvePersonalPadre .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal - + .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto End With Try diff --git a/RH/RepAsistencias.aspx b/RH/RepAsistencias.aspx index d7c006eab..4e10295d9 100644 --- a/RH/RepAsistencias.aspx +++ b/RH/RepAsistencias.aspx @@ -46,16 +46,10 @@
    -
    - - - -
    - Cliente: -
    -
    -