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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-02-15 22:53:40 -07:00
parent cac4008013 db74d1d48a
commit 97ac948ea8
37 changed files with 1461 additions and 449 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Compras.aspx.vb
View File

@@ -7085,11 +7085,11 @@ Partial Class Compras_Compras
CveCuenta = CveCuentaProveedorExtranjera
End If
End If
If CveCompraRefacturacion > 0 Then
importeMovimiento = 0
importeMN = 0
End If
'If CveCompraRefacturacion > 0 Then
' importeMovimiento = 0
' importeMN = 0
' End If
Case 59 'Documentos
@@ -7337,6 +7337,8 @@ Partial Class Compras_Compras
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
Dim CveCompraNC As Integer = CveCompra
@@ -7540,7 +7542,7 @@ Partial Class Compras_Compras
Dim usacomplementariaAnticipo As Boolean = False
usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
Dim TipoCambioAnt = Ant.TCCompra
Dim TipoCambioAnt As Decimal = Ant.TCCompra
Dim ImporteAnt As Decimal = importeMovimiento
@@ -8880,6 +8882,7 @@ Partial Class Compras_Compras
End If
Dim TipoCambioDiferencia = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal
If TipoCambioDiferencia <> TipoCambioAnt Then
Dim importeFluctuacion = (ImporteAnt * TipoCambioDiferencia) - (ImporteAnt * TipoCambioAnt)