AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--

Browse Source
This commit is contained in:
rrene
2023-04-04 18:16:36 -07:00
parent 8b49c5246a
commit a5f4ae7037
2 changed files with 17 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx
View File

@@ -4845,7 +4845,7 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound" <asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound"
DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD"> DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio,Fecha,CveMoneda" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>

41
Compras/Compras.aspx.vb
View File

@@ -3587,7 +3587,7 @@ Partial Class Compras_Compras
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then 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 End If
If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes 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 If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
DdlRetISRConcepto.SelectedValueExist("1") DdlRetISRConcepto.SelectedValueExist("1")
End If End If
'permitido en un margen de 1% a 2%
If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza If (CalRetISRPor).RoundSQL(4) = 0.0125 OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
DdlRetISRConcepto.SelectedValueExist("3") DdlRetISRConcepto.SelectedValueExist("3")
End If End If
@@ -3962,12 +3962,6 @@ Partial Class Compras_Compras
End If End If
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) 'Alert(ValorXML(node, "ClaveProdServ").Trim)
If Version = "3.3" Or Version = "4.0" Then If Version = "3.3" Or Version = "4.0" Then
@@ -4992,7 +4986,7 @@ Partial Class Compras_Compras
CompraActual.PorcentajeIVA = PorcentajeIVA CompraActual.PorcentajeIVA = PorcentajeIVA
CompraActual.UsuarioActual = UsuarioActual CompraActual.UsuarioActual = UsuarioActual
CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
CompraActual.IdCtaContableProv = CtaProveedor CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda = 1, CtaProveedor, CtaProveedorExtranjera)
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
CompraActual.EsImportacion = chkImportacion.Checked CompraActual.EsImportacion = chkImportacion.Checked
@@ -7205,29 +7199,26 @@ Partial Class Compras_Compras
'AMORTIZACIÓN EN EL REGISTRO 'AMORTIZACIÓN EN EL REGISTRO
For Each Gvr As GridViewRow In GvFacturaNC.Rows For Each Gvr As GridViewRow In GvFacturaNC.Rows
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then 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 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 Dim Pago As New CompraPago
Pago.ImportePago = importeMovimientoNC Pago.ImportePago = importeMovimientoNC
Pago.CveMonedaPago = CveMonedaNC Pago.CveMonedaPago = CompraActual.CveMoneda
Pago.CveCompraAmortizacion = CveCompra Pago.CveCompraAmortizacion = CompraActual.CveCompra
Pago.CveConceptoPago = 272
Pago.Referencia = CompraActual.SerieFolio Pago.Referencia = CompraActual.SerieFolio
Pago.TCPago = TipoCambioFactura Pago.TCPago = CompraActual.TC
Pago.AplicaAcreditable = False Pago.AplicaAcreditable = False
Pago.TipoPago = "NC" 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 End If
Next Next