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

--dev ventas

Browse Source
This commit is contained in:
rrene
2025-04-16 12:28:41 -07:00
parent a9736d046f
commit ab61283f21
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/IE.aspx.vb
View File

@@ -2314,7 +2314,7 @@ Partial Class Bancos_IE
'CANCELA NC 'CANCELA NC
ImporteAplicar = ImporteAplicar - Impo ImporteAplicar = ImporteAplicar - Impo
ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), -(ImporteAplicarMN), 12, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), -(ImporteAplicarMN), 91, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveVentaAmortizacion:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
Exit Select Exit Select
End If End If