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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/DiarioCompras.aspx.vb
View File

@@ -280,11 +280,11 @@ Partial Class Contabilidad_DiarioCompras
If gvr.FCCheckBox("Chk").Checked Then
Contador += 1
If gvr.DataKey("CveMoneda") <> "1" AndAlso gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then
TipoCambio = TxtTC.Text.ToDouble : ContadorME += 1
TipoCambio = TxtTC.Text.ToDecimal : ContadorME += 1
Else : TipoCambio = 1
End If
If gvr.DataKey("TipoDocto") = "NC" Then MultNC = -1 Else MultNC = 1
Total += (gvr.DataKey("Total").ToDouble + gvr.DataKey("RetIVA").ToDecimal + gvr.DataKey("RetISR").ToDecimal) * TipoCambio * MultNC
Total += (gvr.DataKey("Total").ToDecimal + gvr.DataKey("RetIVA").ToDecimal + gvr.DataKey("RetISR").ToDecimal) * TipoCambio * MultNC
End If
Next
@@ -472,7 +472,7 @@ Partial Class Contabilidad_DiarioCompras
'hago el movimiento de fluctuacion cambiaria
If gvr.DataKey("CveMoneda") = "2" AndAlso gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then
Dim Dif As Decimal = Math.Round(gvr.DataKey("TC") * gvr.DataKey("Total").ToDecimal, 2)
Dim Dif As Decimal = Math.Round(gvr.DataKey("TC").ToDecimal * gvr.DataKey("Total").ToDecimal, 2)
Concepto = String.Format("{0} TC:{1} ${2}", gvr.DataKey("SerieFolio"), TipoCambio, gvr.DataKey("Total").ToDouble.FormatoNumero)
''si hay un tipo de cambio, va a requerir un ajuste en la conversion
If Math.Abs(Math.Abs(Cargos) - Dif) > 0 AndAlso Math.Abs(Math.Abs(Cargos) - Dif) <= 0.02 Then