From bf4717e4add306da29d6e9b89d90096e69185fbc Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 5 Oct 2021 22:31:39 -0700 Subject: [PATCH 1/3] desglosaiva --- Ventas/Clientes.aspx | 6 ++- Ventas/Clientes.aspx.vb | 5 +- Ventas/Ventas.aspx | 1 + Ventas/Ventas.aspx.vb | 114 ++++++++++++++++++++++++++++++++-------- 4 files changed, 101 insertions(+), 25 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index f2340f58a..f71354513 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1062,7 +1062,11 @@
El cliente desglosa IEPS: - + +
+
+ El cliente No desglosa IVA: +

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index c1e76f507..67f872053 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1556,6 +1556,7 @@ Partial Class Clientes DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString()) ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS + ChkNoDesglosaIVA.Checked = ObjClientes.NoDesglosaIVA DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString()) ChkCargoUsado.Checked = ObjClientes.CargoUsados ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado @@ -2687,7 +2688,9 @@ Partial Class Clientes CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), - RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero())) Then + RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), + CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), + NoDesglosaIVA:=ChkNoDesglosaIVA.Checked) Then ObjClientes.LimpiaImpuestosLocales(CveCliente) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index e23bef826..7ae3a186d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1048,6 +1048,7 @@

+ <%-- diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1a78006f7..f57e24ba0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -778,6 +778,11 @@ Partial Class Ventas Return CType(ViewState("ClienteDesglosaIEPS").ToString(), Boolean) End Get End Property + Private ReadOnly Property ClienteNODesglosaIVA As Boolean + Get + Return CType(ViewState("ClienteNODesglosaIVA").ToString(), Boolean) + End Get + End Property 'Cliente Private ReadOnly Property NombreCliente As String @@ -817,6 +822,18 @@ Partial Class Ventas End Get End Property + Private ReadOnly Property IdCtaContAnticiposExtranjera As Integer + Get + Return ViewState("IdCtaContAnticiposExtranjera").ToString().ToEntero() + End Get + End Property + + Private ReadOnly Property IdCtaContAnticiposComplementaria As Integer + Get + Return ViewState("IdCtaContAnticiposComplementaria").ToString().ToEntero() + End Get + End Property + Private ReadOnly Property IdCtaContRetIVA As Integer Get Return ViewState("IdCtaContRetIVA").ToString().ToEntero() @@ -1935,6 +1952,14 @@ Partial Class Ventas ViewState("VentaDesglosaIEPS") = value End Set End Property + Private Property VentaNODesglosaIVA As Boolean + Get + Return CBool(IfNull(ViewState("VentaNODesglosaIVA"), "False", ViewState("VentaNODesglosaIVA"))) + End Get + Set(value As Boolean) + ViewState("VentaNODesglosaIVA") = value + End Set + End Property Private Property SerieVenta As String Get @@ -2075,6 +2100,7 @@ Partial Class Ventas ViewState("EditoRemision") = False ViewState("RequiereOC") = False ViewState("ClienteDesglosaIEPS") = False + ViewState("ClienteNODesglosaIVA") = False ViewState("ClienteRetIVA") = 0 ViewState("ClienteRetISR") = 0 ViewState("CvePrecioLista") = 0 @@ -5667,6 +5693,8 @@ Partial Class Ventas ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos + ViewState("IdCtaContAnticiposExtranjera") = ObjCliente.IdCtaMonedaExtranjeraAnticipos + ViewState("IdCtaContAnticiposComplementaria") = ObjCliente.IdCtaContCompAnticipos ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR ViewState("CodCliente") = ObjCliente.Codigo @@ -5680,10 +5708,17 @@ Partial Class Ventas ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal 'ViewState("NumCtaPago") = ObjCliente.NumCtaPago ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS + ViewState("ClienteNODesglosaIVA") = ObjCliente.NoDesglosaIVA + If Not ClienteDesglosaIEPS Then DivClienteMsg.Visible = True LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" End If + + If ClienteNODesglosaIVA Then + DivClienteMsg.Visible = True + LtlClienteMsg.Text += "Cálculo NO desglosa IVA" + End If ViewState("CargoUsado") = ObjCliente.CargoUsados Dim dr As DataRow = Nothing @@ -5701,7 +5736,7 @@ Partial Class Ventas End If 'HABILITA LA OPCION DE DIRECCION DE ENVIO - If UsuarioActual.CveEmpresa.Contiene(1, 72, 119) Then + If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then trDireccionEnvio.Visible = True CargaDireccionesEnvio() End If @@ -6015,8 +6050,6 @@ Partial Class Ventas UpModalRemisionesNC.Update() End If - CargaFacturasARelacionar() - If RequiereOC Then Dim Documentacion As String = "" 'RegistraScript("$('#DivDocsCliente').modal({ backdrop: 'static', keyboard: false });", "ModalArchivos") @@ -8555,6 +8588,11 @@ Partial Class Ventas DebeTimbrar = False End If + 'Si es BDH no debe timbrar + If UsuarioActual.CveEmpresa = 140 Then + DebeTimbrar = False + End If + If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso UsuarioActual.Empresa.FacturaProduccion Then @@ -11968,10 +12006,7 @@ Partial Class Ventas CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If - 'If CveCuenta <= 0 Then - ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) - ' CveCuentaContabilizacion = 0 - 'End If + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Else @@ -12091,14 +12126,27 @@ Partial Class Ventas If importeMovimiento <> 0 Then 'SI LA NC ES EN DOLARES Y PERO VIENE DE UN ANTICIPO EN PESOS - If (Not UsuarioActual.CveEmpresa.Contiene(72, 80, 146)) AndAlso ObjFactura.CveMoneda = 2 AndAlso row2.DataKey("CveMoneda").ToString().ToEntero() = 1 Then + If (Not UsuarioActual.CveEmpresa.Contiene(72, 80, 146)) AndAlso ObjFactura.CveMoneda = 2 Then Dim tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate).ToDecimal - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo * tipoCambioAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambioAnticipo, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then + If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then + IdCtaContable = IdCtaContAnticiposExtranjera + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then ErrorPrepoliza = True Exit For End If + If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then + IdCtaContable = IdCtaContAnticiposComplementaria + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo * tipoCambioAnticipo - ImporteAnticipo, Referencia, 227, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambioAnticipo - ImporteAnticipo, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then + ErrorPrepoliza = True + Exit For + End If + End If + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 292, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 292, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContMonedaExtranjera, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then @@ -12107,7 +12155,7 @@ Partial Class Ventas End If Else - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For Else @@ -12383,7 +12431,7 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For Else @@ -14607,7 +14655,7 @@ Partial Class Ventas 'AMORTIZA NC CONTRA ANTICIPO A CLIENTES If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal) - If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento * TC) Then + If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento) Then If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveSubProyecto:=CveSubProyectoVenta) Then ErrorConta = True Exit For @@ -15270,6 +15318,11 @@ Partial Class Ventas Exit Sub End If + 'Si es BDH no debe timbrar + If UsuarioActual.CveEmpresa = 140 Then + Exit Sub + End If + If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then If UsuarioActual.Empresa.EstatusFacturacion Then @@ -17223,6 +17276,20 @@ Partial Class Ventas VentaDesglosaIEPS = True End If + If DrPS("IVA").ToString().Contiene("-1", "") Then + Row("PorcentajeIVA") = PorcentajeIVA + Else + Row("PorcentajeIVA") = DrPS("IVA") + End If + + If ClienteNODesglosaIVA Then + 'If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then + PU = PU * (1 + Row("PorcentajeIVA").ToString().ToDecimal) + VentaNODesglosaIVA = True + 'End If + DrPS("IVA") = 0 + Row("PorcentajeIVA") = 0 + End If TotalCalculableImpuestos = ((Cantidad * (PU)) - Descuento) TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) @@ -17253,11 +17320,6 @@ Partial Class Ventas If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion") If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion") - If DrPS("IVA").ToString().Contiene("-1", "") Then - Row("PorcentajeIVA") = PorcentajeIVA - Else - Row("PorcentajeIVA") = DrPS("IVA") - End If Dim ClienteRetIVA = Me.ClienteRetIVA @@ -21458,6 +21520,9 @@ Partial Class Ventas Exit Sub End If + If CveVenta = 1651560 Then + LBAplicaDevolucion.Visible = True + End If If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then @@ -21533,7 +21598,7 @@ Partial Class Ventas DdlDireccionEnvio.Items.Clear() If ObjClientes.DireccionEnvioGet(-1, CveCliente, CveClienteSucursal) Then DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")) - DdlDireccionEnvio.DataBind() + 'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) TmpDTEnvioDireccion = ObjClientes.DtResultados Else @@ -21545,6 +21610,7 @@ Partial Class Ventas End If ObjClientes.Dispose() + DdlDireccionEnvio.DataBind() UpCliente.Update() End Sub @@ -23310,13 +23376,15 @@ Partial Class Ventas End If DdlMarca.Items.Clear() DdlMarcaPSDes.Items.Clear() - Dim ObjMarcas As New ClsProductosServicios - ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) - DdlMarca.DataSource = ObjMarcas.DtResultados - DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados - ObjMarcas.Dispose() + + Dim dt As DataTable = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) + + DdlMarca.DataSource = dt + DdlMarcaPSDes.DataSource = dt + DdlMarca.DataBind() DdlMarcaPSDes.DataBind() + dt.Dispose() End If DdlMarca.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMarcaPSDes.Items.Insert(0, New ListItem("Seleccione", "-1")) From e61a37993ec69d54980ef0872643d5f3d0eb4c09 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 5 Oct 2021 22:32:04 -0700 Subject: [PATCH 2/3] columnas deRFC, TipoCambio e ImporteME --- Contabilidad/RepIVA.aspx | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 0a1cc36c0..648e85ef5 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -159,6 +159,7 @@ + @@ -234,6 +235,8 @@ + + From b6026756042958700ff8df2ac61f1e1f960dc7d8 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 5 Oct 2021 22:32:24 -0700 Subject: [PATCH 3/3] parametro empresa --- App_Code/ClsContratos.vb | 13 +++++++------ Compras/PopUpVerFactura.aspx.vb | 2 +- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 13064ce48..23bde4820 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -2261,18 +2261,19 @@ Public Class ClsContratos Return Retorno - End Function - + End Function + #End Region - + #Region "C O N T R A T O S G A S T O S" - - Public Function GetContratoGastos(CveContrato As Integer) As Boolean + + Public Function GetContratoGastos(CveContrato As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosGastosGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2ce35856c..e304c226a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -698,7 +698,7 @@ Partial Class PopUpVerFactura End If End If Dim dt As DataTable = Nothing - If ObjContratos.GetContratoGastos(CveContrato) Then + If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}") SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") End If