From 7f9978d0b1f338bc750e8c7c969dfb7394896c93 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 14 Apr 2025 17:51:40 -0700 Subject: [PATCH] Reporte Rembolsos, Compras Actualizar IVA compras manuales --- App_Code/ClsMovimientos.vb | 4 +- App_Code/ClsPaginas.vb | 4 + Compras/Compras.aspx.vb | 50 ++++++++--- Compras/RepRembolsoComprobaciones.aspx | 19 +++-- Compras/RepRembolsoComprobaciones.aspx.vb | 18 +++- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 59 ++++++++++--- .../Formatos/RepRembolsosComprobaciones.rdlc | 84 ++++++++++++++++--- 7 files changed, 191 insertions(+), 47 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 4cad5571a..a385fa77e 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1457,7 +1457,8 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, Optional OpcionSaldo As Integer = 1) As Boolean + Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, + Optional OpcionSaldo As Integer = 1, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CxPPersonalCajaChica") With SqlAdapter.SelectCommand.Parameters @@ -1468,6 +1469,7 @@ Public Class ClsMovimientos .Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos + .Add("@CveSubProyecto", SqlDbType.Int).Value = OpcionSaldo End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c82c5ba22..65b176d49 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6225,6 +6225,7 @@ Public Class ClsPaginas Dim ObjInv As New ClsGenerales Dim TelDestino As String = "" Dim NombreUsuario As String = "" 'Persona que timbro + Dim LugarOrigen As String = "" If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInv.DtResultados.Rows.Count > 0 Then @@ -6235,6 +6236,7 @@ Public Class ClsPaginas TipoDocto = Dr("TipoDocto").ToString TelDestino = Dr("TelDestino").ToString NombreUsuario = Dr("NombreUsuario").ToString + LugarOrigen = Dr("LugarOrigen").ToString If UsuarioActual.CveEmpresa = 13 Then PermisoSCTR1 = Dr("PermisoSCTR1").ToString @@ -6632,6 +6634,8 @@ Public Class ClsPaginas params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}")) params.Add(New ReportParameter("SerieFolio", SerieFolio)) params.Add(New ReportParameter("NombreUsuario", NombreUsuario)) + params.Add(New ReportParameter("LugarOrigen", LugarOrigen)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion)) 'CLIENTE diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index c404ad0b2..dc60c1f72 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9911,6 +9911,7 @@ Partial Class Compras_Compras (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or (row1("Obs").ToString <> row2("Obs").ToString) Or + (row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then Return False End If @@ -17409,6 +17410,9 @@ Partial Class Compras_Compras If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then TxtTotal.Text = Total.ToString.FormatoNumero() + If CveCompra > 0 AndAlso CveCompraFactura = 0 Then + TxtIVA.Text = IVA.ToString.FormatoNumero() + End If End If Else @@ -18023,24 +18027,43 @@ Partial Class Compras_Compras 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString ViewState("IVAPS") = PS("IVA").ToString - If ViewState("IVAPS").ToString.ToEntero() = -1 Then + If ViewState("IVAPS").ToString.ToEntero() = -1 Or (CveCompra > 0 AndAlso CveCompraFactura = 0) Then + + Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0) ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() - DdlProyecto.SelectedValueExist(Drr("CveProyecto")) + DdlProyecto.SelectedValueExist(Drr("CveProyecto")) DdlIVA.Enabled = True - If Not Modalidad = "U" Then - Select Case ViewState("IVAPS").ToString().ToDouble - Case 0 - DdlIVA.SelectedValue = "1" - Case 0.16 - DdlIVA.SelectedValue = "1.16" - Case 0.08 - DdlIVA.SelectedValue = "1.08" - End Select + If (CveCompra > 0 AndAlso CveCompraFactura = 0) Then + If PS("IVA").ToString.ToEntero = -1 Then + ViewState("IVAPS") = 0.16 + DdlIVA.SelectedValue = "1.16" + Else + Select Case ViewState("IVAPS").ToString().ToDouble + Case 0 + DdlIVA.SelectedValue = "1" + Case 0.16 + DdlIVA.SelectedValue = "1.16" + Case 0.08 + DdlIVA.SelectedValue = "1.08" + End Select + End If + Else + If Not Modalidad = "U" Then + Select Case ViewState("IVAPS").ToString().ToDouble + Case 0 + DdlIVA.SelectedValue = "1" + Case 0.16 + DdlIVA.SelectedValue = "1.16" + Case 0.08 + DdlIVA.SelectedValue = "1.08" + End Select + End If End If + Else 'DdlIVA.SelectedValue = "1" ' DdlIVA.Enabled = False @@ -18684,12 +18707,13 @@ Partial Class Compras_Compras If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then DrPS("IVA") = 0 DrPS("IVAPorcentaje") = 0 + ElseIf CveCompra > 0 And CveCompraFactura = 0 Then + DrPS("IVA") = (IVA * Total).RoundSQL + DrPS("IVAPorcentaje") = IVA Else - If ActualizarIva Then DrPS("IVA") = (IVA * Total).RoundSQL End If - DrPS("IVAPorcentaje") = IVA End If diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx index fb4e387ee..160139739 100644 --- a/Compras/RepRembolsoComprobaciones.aspx +++ b/Compras/RepRembolsoComprobaciones.aspx @@ -26,16 +26,11 @@
  • - - Exportar Excel - + Exportar Excel
  • - - Imprimir Reembolso - + Imprimir Reembolso
    • -
  • Cargar Comprobante
    • @@ -123,6 +118,13 @@ + +
    + + +
    @@ -188,7 +190,8 @@ - + Compra diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index edd6c6050..928f5c519 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -89,6 +89,8 @@ Partial Class Compras_RepRembolsoComprobaciones DdlPersonal.DataBind() txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Todos") + End If End Sub @@ -133,8 +135,17 @@ Partial Class Compras_RepRembolsoComprobaciones Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.BackColor = Drawing.Color.LightGray + + 'If e.Row.RowIndex = 0 Then + ' e.Row.BackColor = Drawing.Color.LightGray + 'End If + + If e.Row.DataKey("Gpo").Trim.Length = 0 Then + e.Row.CssClass = "Totales" + End If + + If e.Row.DataKey("Gpo").Trim.Length > 0 AndAlso e.Row.DataKey("CveCompra").ToEntero = 0 Then + e.Row.CssClass = "SubTotales" End If e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right @@ -236,7 +247,8 @@ Partial Class Compras_RepRembolsoComprobaciones If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2 - ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1) + ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1, + CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) DtDatos = ObjMovtos.DtResultados GvCxP.DataSource = DtDatos diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index df258447e..f305d7390 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -6128,6 +6128,18 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot + + + + + + - 22.49898cm + 22.81648cm 1.5cm 0cm 3.90544cm @@ -6377,7 +6405,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot - 22.49898cm + 22.81648cm 9.94339cm 0cm 3.90544cm @@ -6389,7 +6417,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot - 22.49898cm + 22.81648cm 14.71743cm 0cm 3.90544cm @@ -6418,7 +6446,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot Textbox120 - 22.67201cm + 22.98951cm 1.36431cm 0.45969cm 10.17692cm @@ -6511,7 +6539,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot true 23.161cm 0.03979cm - 23.1317cm + 23.4492cm 19.53633cm 29 @@ -7562,7 +7590,8 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot true - 47.03985cm + 46.78659cm + 0.04317cm 5.54925cm 19.53633cm 31 @@ -8121,6 +8150,12 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot true ReportParameter1 + + String + true + true + ReportParameter1 + Function PageNumber() As String Return Me.Report.Globals!OverallPageNumber diff --git a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc index fe395548e..030db69cb 100644 --- a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc +++ b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc @@ -17,6 +17,14 @@ /* Local Query */ + + Gpo + System.String + + + CveCompra + System.Int32 + Proveedor System.String @@ -77,10 +85,10 @@ 1.79565cm - 2.02289cm + 2.90517cm - 2.54059cm + 1.65831cm 2.29435cm @@ -440,6 +448,10 @@ =Fields!SerieFolio.Value @@ -453,7 +465,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -474,6 +489,10 @@ =Fields!Proveedor.Value @@ -487,7 +506,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -509,6 +531,10 @@ @@ -522,7 +548,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -544,6 +573,10 @@ @@ -557,7 +590,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -579,6 +615,10 @@ @@ -592,7 +632,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -614,6 +657,10 @@ @@ -627,7 +674,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -649,6 +699,10 @@ @@ -662,7 +716,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt @@ -684,6 +741,10 @@ @@ -697,7 +758,10 @@ - =IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color") + =IIF(LEN(Fields!Gpo.Value) = 0 + , "#9cacc1" + , IIF(LEN(Fields!Gpo.Value) > 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color") + ) 2pt 2pt 2pt