Anónimo
Asignación de moneda
Tengo el segmento de programa en donde indico las moneda a utilizar como hago para que cuando ingresen usd me calcule dolares y cuando no me calcule la otra moneda, no se como hacer la asignación
IF tlDolares THEN
lcLetra = "(" + ALLTRIM(lcLetra) + IIF(INT(tyMonto) = 1, " DÓLAR ", " DOLARES ") + ;
REPLICATE("", 2 - LEN(ALLTRIM(STR(lyCentavos)))) + ALLTRIM(STR(lyCentavos)) + "/100 USD)"
ELSE
lcLetra = "" + ALLTRIM(lcLetra) + IIF(INT(tyMonto) = 1, " QUETZAL ", " QUETZALES ") + ;
REPLICATE("", 2 - LEN(ALLTRIM(STR(lyCentavos)))) + ALLTRIM(STR(lyCentavos)) +"/100 CENTAVOS"
Endif
IF tlDolares THEN
lcLetra = "(" + ALLTRIM(lcLetra) + IIF(INT(tyMonto) = 1, " DÓLAR ", " DOLARES ") + ;
REPLICATE("", 2 - LEN(ALLTRIM(STR(lyCentavos)))) + ALLTRIM(STR(lyCentavos)) + "/100 USD)"
ELSE
lcLetra = "" + ALLTRIM(lcLetra) + IIF(INT(tyMonto) = 1, " QUETZAL ", " QUETZALES ") + ;
REPLICATE("", 2 - LEN(ALLTRIM(STR(lyCentavos)))) + ALLTRIM(STR(lyCentavos)) +"/100 CENTAVOS"
Endif
1 respuesta
Respuesta de César Pech
1
En la función le declaras un parámetro adicional
Parameter nMonto, tlDolares
.
.
.
.
Cuando lo llamas sería:
? NumeroLetra(12390,.t.) &&Para dólares
? NumeroLetra(12390,.f.) &¶ la otra moneda
Parameter nMonto, tlDolares
.
.
.
.
Cuando lo llamas sería:
? NumeroLetra(12390,.t.) &&Para dólares
? NumeroLetra(12390,.f.) &¶ la otra moneda