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

ProveedoresAbonar pago dolares en dolares, cambia el importe al cambiar la cuenta en dolares

Browse Source
This commit is contained in:
rakcsle
2023-10-20 12:28:11 -07:00
parent c0879fdebe
commit 390f07cda2
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -794,7 +794,7 @@ Partial Class Bancos_ProveedoresAbonar
Pago.TCPago = 1 ' TxtTC.Text.ToDecimal Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL
ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal Pago.TCPago = TxtTCDolares.Text.ToDecimal
ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
Pago.TCPago = TxtTCDolares.Text.ToDecimal Pago.TCPago = TxtTCDolares.Text.ToDecimal
Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal) Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal)
@@ -828,11 +828,11 @@ Partial Class Bancos_ProveedoresAbonar
Pago.ImportePago = tImporteMN Pago.ImportePago = tImporteMN
Dim ImporteME As Decimal = 0 Dim ImporteME As Decimal = 0
If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
ImporteME = tImporteMN ImporteME = tImporteMN
tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
End If End If
@@ -1143,7 +1143,11 @@ Partial Class Bancos_ProveedoresAbonar
RegistraScript("CambiaPesosDolares();") RegistraScript("CambiaPesosDolares();")
Else Else
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
RegistraScript("CambiaDolaresPesos();")
If dr("CveMoneda").ToString.ToEntero = 1 Then
RegistraScript("CambiaDolaresPesos();")
End If
End If End If
If CveMoneda = 2 Then If CveMoneda = 2 Then
DivTCDolares.Visible = True DivTCDolares.Visible = True