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

Correciones Compras registrar factura dolares en pesos VSH

Browse Source
This commit is contained in:
rakcsle
2023-10-12 22:41:21 -07:00
parent 6a34b0858c
commit 143a0e33aa
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx.vb
View File

@@ -1977,14 +1977,17 @@ Partial Class Compras_Compras
TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda)) Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda))
If drMon IsNot Nothing Then If drMon IsNot Nothing Then
DdlMoneda.SelectedValue = drMon("CveMoneda").ToString DdlMoneda.SelectedValue = drMon("CveMoneda").ToString
CveMoneda = drMon("CveMoneda").ToString.ToEntero
Else Else
'sino busco en la tabla de alias 'sino busco en la tabla de alias
drMon = GlobalDTMonedasAlias.FiltroPrimero(String.Format("MonedaAlias LIKE '%{0}%' ", Moneda)) drMon = GlobalDTMonedasAlias.FiltroPrimero(String.Format("MonedaAlias LIKE '%{0}%' ", Moneda))
If drMon IsNot Nothing Then If drMon IsNot Nothing Then
DdlMoneda.SelectedValue = drMon("CveMoneda").ToString DdlMoneda.SelectedValue = drMon("CveMoneda").ToString
CveMoneda = drMon("CveMoneda").ToString.ToEntero
Else Else
LblMoneda.Text = Moneda LblMoneda.Text = Moneda
LblMoneda.ForeColor = Drawing.Color.Red LblMoneda.ForeColor = Drawing.Color.Red