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

ClientesAbonar ixc

Browse Source
This commit is contained in:
rakcsle
2025-05-07 10:48:57 -07:00
parent cd2b52e5d8
commit 5103714796
5 changed files with 123 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Ventas/ClientesAbonar.aspx.vb
View File

@@ -821,10 +821,14 @@ Partial Class Ventas_ClientesAbonar
'comparativo.
For Each gvr As GridViewRow In GvCxC.Rows
If gvr.FCCheckBox("Chk").Checked Then
TC = 1
If tCveMonedaIE = 1 AndAlso gvr.DataKey("CveMoneda") = "2" Then TC = TxtTC.Text.ToDecimal
If tCveMonedaIE = 2 AndAlso gvr.DataKey("CveMoneda") = "1" Then TC = 1D / TxtTC.Text.ToDecimal
ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TC).RoundSQL(2)
Dim CveMonedaVenta As Integer = gvr.DataKey("CveMoneda").ToEntero
If CveMonedaVenta = CveMonedaPago Then
ImporteAbonar += gvr.FCTextBox("TxtAbonar").Text.ToDecimal()
ElseIf CveMonedaVenta = 2 And CveMonedaPago = 1 Then
ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TxtTC.Text.ToDecimal)
ElseIf CveMonedaVenta = 1 And CveMonedaPago = 2 Then
ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() / TxtTC.Text.ToDecimal)
End If
End If
Next
ImporteAbonar += TxtAnticipo.Text.ToDecimal()
@@ -944,10 +948,19 @@ Partial Class Ventas_ClientesAbonar
End If
Else
If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc
CveIE = DdlIngreso.SelectedValue.ToEntero
If CveMonedaPago = 2 And Not ChkPagarPesos.Checked Then CveMoneda = 2
If ChkPagarDolares.Checked Then CveMoneda = 2
If ChkPagarPesos.Checked Then CveMoneda = 1
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
CveMoneda = ObjIE.CveMoneda
Else
MsgError = "Error al obtener la moneda de ingreso por comprobar"
End If
'If CveMonedaPago = 2 And Not ChkPagarPesos.Checked Then CveMoneda = 2
'If ChkPagarDolares.Checked Then CveMoneda = 2
'If ChkPagarPesos.Checked Then CveMoneda = 1
End If
End If
@@ -1075,7 +1088,9 @@ Partial Class Ventas_ClientesAbonar
'Tipos de cambio
If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
Pago.TCPago = TxtTC.Text.ToDecimal
Pago.ImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal
'Pago.ImportePagoVenta = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTC.Text.ToDecimal
'ImportePagadoVenta = (ImportePagadoVenta / TxtTipoCambio.Text.ToDecimal).RoundSQL
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
Pago.TCPago = If(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal)
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES