From a5f4ae70370fa2ec9d83fbe847c54bc45a6ca7e9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 4 Apr 2023 18:16:36 -0700 Subject: [PATCH] -- --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 41 ++++++++++++++++------------------------- 2 files changed, 17 insertions(+), 26 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index eb51750c3..0bbd993fd 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4845,7 +4845,7 @@
+ DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio,Fecha,CveMoneda" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD"> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 30294692a..a77b0224f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3587,7 +3587,7 @@ Partial Class Compras_Compras Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then - DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales + DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales End If If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes @@ -3608,8 +3608,8 @@ Partial Class Compras_Compras If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales DdlRetISRConcepto.SelectedValueExist("1") End If - - If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza + 'permitido en un margen de 1% a 2% + If (CalRetISRPor).RoundSQL(4) = 0.0125 OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza DdlRetISRConcepto.SelectedValueExist("3") End If @@ -3962,12 +3962,6 @@ Partial Class Compras_Compras End If End If - - 'PARA GLUYAS - If UsuarioActual.CveEmpresa = 66 Then - tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim) - End If - 'Alert(ValorXML(node, "ClaveProdServ").Trim) If Version = "3.3" Or Version = "4.0" Then @@ -4992,7 +4986,7 @@ Partial Class Compras_Compras CompraActual.PorcentajeIVA = PorcentajeIVA CompraActual.UsuarioActual = UsuarioActual CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero - CompraActual.IdCtaContableProv = CtaProveedor + CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda = 1, CtaProveedor, CtaProveedorExtranjera) CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria CompraActual.EsImportacion = chkImportacion.Checked @@ -7205,29 +7199,26 @@ Partial Class Compras_Compras 'AMORTIZACIÓN EN EL REGISTRO For Each Gvr As GridViewRow In GvFacturaNC.Rows If Gvr.FCCheckBox("ChkFacturaNC").Checked Then - 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal - Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal ' RMF. falta aplicar si está generada su TC de la última fluctuación - Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador - Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2) - - IdCtaContable = CtaProveedorExtranjera - 'CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False) - - CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero - CompraActual.SerieFolio = Gvr.DataKey("SerieFolio") Dim Pago As New CompraPago Pago.ImportePago = importeMovimientoNC - Pago.CveMonedaPago = CveMonedaNC - Pago.CveCompraAmortizacion = CveCompra - Pago.CveConceptoPago = 272 + Pago.CveMonedaPago = CompraActual.CveMoneda + Pago.CveCompraAmortizacion = CompraActual.CveCompra Pago.Referencia = CompraActual.SerieFolio - Pago.TCPago = TipoCambioFactura + Pago.TCPago = CompraActual.TC Pago.AplicaAcreditable = False Pago.TipoPago = "NC" + Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC - ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + 'datos de la compra tipodocto:Fac, para sobreescribirlos + CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero + CompraActual.SerieFolio = Gvr.DataKey("SerieFolio") + CompraActual.TC = Gvr.DataKey("TipoCambio").ToDecimal + CompraActual.Fecha = Gvr.DataKey("Fecha").ToDate + CompraActual.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero + + ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If Next