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

-- carga factura clientes, si son dólares, sin TC, toma el TC del día

Browse Source
This commit is contained in:
rrene
2023-12-19 06:07:41 -07:00
parent 74b9e79377
commit 11b64af34b
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
General/SaldosIniciales.aspx.vb
View File

@@ -1497,12 +1497,15 @@ Partial Class General_SaldosIniciales
'Moneda 'Moneda
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
CveMoneda = 1 CveMoneda = 1
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES", "DÓLAR") Then
CveMoneda = 2 CveMoneda = 2
End If End If
'Si no se especifica TC, se manda como pesos. 'Si no se especifica TC, se manda como pesos.
If TipoCambio = "" Then TipoCambio = "1" If TipoCambio = "" Then TipoCambio = "1"
If CveMoneda = 2 AndAlso TipoCambio = "1" Then
TipoCambio = GlobalTipoCambio(Fecha).ToString
End If
'PrePóliza 'PrePóliza
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)