FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
Aula 1092 - WinDev Dicas 20/... - Pegar Quantidade/Valor/Codigo do Cupom
Aula 1092 - WinDev Dicas 20/... - Pegar Quantidade/Valor/Codigo do Cupom
Débuté par amarildo, 14 mar. 2017 09:52 - Aucune réponse
Connectez-vous…
amarildo
#1
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 14 mars 2017 - 09:52
Nessa aula vou ensinar
como Digitar numa String
Quantidade,Valor e Codigo
e O sistema
Separar os 3
Isso serve para frente de Caixa
no meu caso
Cupom Eletronico
In this class I will teach
How to Type in a String
Quantity, Value and Code
And the system
Separate the 3
This is for Box Front
in my case
Electronic Coupon
//Fonte
IF
E
DT_Codigo_Venda
<
>
""
THEN
n
Posicao_inicial_codigo_Venda
is int
=
0
//Exemplo: 20q15v
// 123456
n
_posicao_quantidade
is int
=
Position
(
E
DT_Codigo_Venda
,
[
"q"
,
"Q"
,
"*"
]
)
// n_posicao_quantidade=3
n
_posicao_valor
is int
=
Position
(
E
DT_Codigo_Venda
,
[
"V"
,
"v"
]
)
// n_posicao_valor=6
_quantidade_String
is string
=
""
_valor_String
is string
=
""
IF
n
_posicao_quantidade
>
0
THEN
//Se Posição quantidade maior que zero
_quantidade_String
=
E
DT_Codigo_Venda
[
[
1
TO
n
_posicao_quantidade
-
1
]
]
// quantidade_string=20q15v[[1 to (3-1)]]
// quantidade_string=20q15v[[1 to 2)]]
// quantidade_string=20
_quantidade_String
=
Replace
(
_quantidade_String
,
","
,
"."
)
//Vai procurar virgula e substituir por ponto
//_quantidade_String=Replace("10,50",",",".")
//_quantidade_String=10.50
n
Posicao_inicial_codigo_Venda
=
n
_posicao_quantidade
+
1
END
IF
n
_posicao_valor
>
0
THEN
_valor_String
=
E
DT_Codigo_Venda
[
[
n
_posicao_quantidade
+
1
TO
n
_posicao_valor
-
1
]
]
//_valor_String=20q15v[[(3+1) TO (6-1))]]
//_valor_String=20q15v[[4 TO 5)]]
//_valor_String=15
_valor_String
=
Replace
(
_valor_String
,
","
,
"."
)
//Vai procurar virgula e substituir por ponto
n
Posicao_inicial_codigo_Venda
=
n
_posicao_valor
+
1
END
IF
_quantidade_String
<
>
""
THEN
E
DT_Quantidade
=
_quantidade_String
ELSE
E
DT_Quantidade
=
1
END
IF
n
Posicao_inicial_codigo_Venda
<
>
0
THEN
n
_tamanho
is int
=
Length
(
E
DT_Codigo_Venda
)
E
DT_Codigo_Venda
=
E
DT_Codigo_Venda
[
[
n
Posicao_inicial_codigo_Venda TO
n
_tamanho
]
]
END
E
DT_preco
=
_valor_String
// Temos
// Edt_preco
// Edt_valor
// Edt_codigo_Venda
END
http://windevdesenvolvimento.blogspot.com.br/2017/03/aula-1092-windev-dicas-20-pegar.html
https://www.youtube.com/watch?v=C1e9oGBlHMk
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte