WD - Configurando mascaras de datas e valores decimais configuráveis via código - WINDEV 25 - Forums développeurs

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil | Messages récents | Connexion | | Français

Accueil → WINDEV 25 → WD - Configurando mascaras de datas e valores decimais configuráveis via código

WD - Configurando mascaras de datas e valores decimais configuráveis via código

Débuté par BOLLER ADRIANO, 02 juil. 2016 01:30 - 1 réponse

BOLLER ADRIANO

Membre enregistré
3 665 messages
Popularité : +175 (223 votes)

Posté le 02 juillet 2016 - 01:30

Prezados,

Configurando mascaras de datas e valores decimais configuráveis via código

No controle SPIN ( + - ):

//Incrementado casas decimais
Decimal is string = ""
EDT_CasasDecimais += 1
LOOP (EDT_CasasDecimais)
 Decimal += "9"
END

EDT_Resultado..InputMask = "9999,"+Decimal

IF EDT_Valor = 0 THEN
 EDT_Valor = 10.20
END
EDT_Resultado = EDT_Valor

EDT_Qtd_Casas_Decimais =  Length(ExtractString(EDT_Resultado..DisplayedValue,2,","))

//Decrementado casas decimais
EDT_CasasDecimais -= 1
IF EDT_CasasDecimais <= 0 THEN
 EDT_CasasDecimais = 0
END

Decimal is string = ""
LOOP (EDT_CasasDecimais)
 Decimal += "9"
END

EDT_Resultado..InputMask = "9999,"+Decimal

IF EDT_Valor = 0 THEN
 EDT_Valor = 10.20
END
EDT_Resultado = EDT_Valor 

EDT_Qtd_Casas_Decimais =  Length(ExtractString(EDT_Resultado..DisplayedValue,2,","))

Resultado:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Signaler

Vous devez être connecté pour évaluer ce message

BOLLER ADRIANO

Membre enregistré
3 665 messages
Popularité : +175 (223 votes)

Posté le 02 juillet 2016 - 01:55

Para datas é o mesmo esquema:

//ALTERA MASCARA
EDT_DataOriginal = 20001015

EDT_Resultado1..InputMask = COMBO_DATA_TIPO..DisplayedValue

EDT_Resultado1 = EDT_DataOriginal

Signaler

→ Revenir à WINDEV 25