Discussion :

[Fmfib]

Bonjour

Je suis en V28
J'ai un WS est "Utiliser des chaines ANSI en exécution"
Code WS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
PROCÉDURE MaProcédure(CB is string): string
 
SI HLitRecherchePremier(ARTICLES,CODEBARRE,CB,hIdentique)=Vrai ALORS
	RENVOYER FARTICLES.ARTICLE   >> ÈíÚ ãÌÇäí
FIN

J'ai un WS est "Utiliser des chaines UNICODE en exécution"

Sur Windev mobile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
rep est une chaine=MaProcédure(SaisieScanneDoc)
SAI_ARTICLE=rep    >> ÈíÚ ãÌÇäí

j'utilise UnicodeVersAnsi()

mais l'affichage reste le même
En V26 je n'avais plus ce problème

Merci d'avance

[frenchsting]

Bonjour,

Tu as bien mis l'alphabet qui va bien dans le UnicodeVersAnsi ?
De même, par acquis de conscience,
je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep est une chaine UNICODE =MaProcédure(SaisieScanneDoc)

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RENVOYER AnsiVersUnicode(FARTICLES.ARTICLE, alphabetArabe)

A vérifier aussi s'il ne faut pas passer par des buffers.

[popoy]

La question est déjà posé sur le forum pcsoft
Il a oublié de préciser qu'il est en json.
De plus il faut préciser le type de chaîne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rep est une chaine ANSI

Si rep viens du webservice

[Fmfib]

Bonjour,

Tu as bien mis l'alphabet qui va bien dans le UnicodeVersAnsi ?
De même, par acquis de conscience,
je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep est une chaine UNICODE =MaProcédure(SaisieScanneDoc)

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RENVOYER AnsiVersUnicode(FARTICLES.ARTICLE, alphabetArabe)

A vérifier aussi s'il ne faut pas passer par des buffers.

Merci de ton retour

J'ai utilise ta proposition Affiche "?? ????? ????"
J'ai déjà utilisé le buffer même problème

[frenchsting]

Bonjour,

As-tu bien typé ta procédure ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PROCÉDURE MaProcédure(CB est une chaine string) : chaine UNICODE

[Fmfib]

Bonjour

[frenchsting]

Et en mettant l'alphabet ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SaisieScan = UnicodeversAnsi(FARTICLES.ARTICLE, alphabetArabe)

Autre astuce : avant tes codes RENVOYER mettre un mouchard (fsauvetexte / info) pour savoir si au départ, la valeur est correcte.

[Voroltinquo]

Bonjour,
Question idiote :
As tu quelque part ( avant l'affichage) un bout de code du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Nation(NationArabe)
ChangeAlphabet(AlphabetArabe)

[popoy]

Salut
Je répète
Il faut absolument préciser le type de chaîne tout le temps
CB est une chaîne ANSI
En plus tu indiques ta configuration mais sans préciser si c'est sur le WS ou WM
Pareil pour les codes merci de préciser si c'est sur WS ou WM
Sinon on risque de se mélanger les pinceaux.
Je répète
La communication entre WS et WM est préférable en ANSI
Sinon faire du XML

Utiliser ANSIversUNICODE ou UTF-8versunicode
Sur WM

Cordialement

[Fmfib]

Et en mettant l'alphabet ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SaisieScan = UnicodeversAnsi(FARTICLES.ARTICLE, alphabetArabe)

Autre astuce : avant tes codes RENVOYER mettre un mouchard (fsauvetexte / info) pour savoir si au départ, la valeur est correcte.

Bonjour

Oui j'ai déjà fais le débogage

Avec les 2 lignes
Nation(NationArabe)
ChangeAlphabet(AlphabetArabe)

Le retour de valeur est bon

Mais sur WM j'ai le message



Je désactive la ligne ChangeAlphabet(AlphabetArabe), sur WM pas de message mais la valeur de retour est mauvais

Sans les 2 lignes
Nation(NationArabe)
ChangeAlphabet(AlphabetArabe)

Le retour de valeur est mauvais

[Fmfib]

Bonjour,
Question idiote :
As tu quelque part ( avant l'affichage) un bout de code du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Nation(NationArabe)
ChangeAlphabet(AlphabetArabe)

J'ajoute ces 2 lignes dans les WS et WM mais envain

[popoy]

J'ajoute ces 2 lignes dans les WS et WM mais envain

Ces 2 lignes ne sont a mettre que sur WM et ne sont valables que pour l'affichage dans les fenêtres.
Et personnellement, je n'utilise que nation si je souhaite qu'une langue d'affichage.
J'ai des fenêtres multilingues (chinois, français)
Et dans ce cas ni nation ni changealphabet
De plus WM est unicode et gère très bien cela.
Mais bon, j'arrête de répondre
Puisque tu ne suis aucun de mes conseils.

[Fmfib]

Bonjour

>>>>>>EN FIN

J'ai essayé d'insérer dans mon code vos conseils

La communication de WS est en ANSI et WM est UNCODE //Obligatoire

Sur WS
Retour de la valeur : MaProcedure : chaîne UNICODE //Obligatoire
RENVOYER AnsiVersUnicode(FARTICLES.ARTICLE, alphabetArabe) //Obligatoire

Sur WM
ChangeAlphabet(alphabetArabe) //Obligatoire
Reponse est est une chaîne UNICODE //Obligatoire
SAI_Affiche=UnicodeVersAnsi(Reponse) //Obligatoire

>>> LE RESULTAT MAINTENANT EST BON

Donc ça marche pour un retour de chaine

-----------------------------------------------------------------------------

Pour une structure ou un tableau de structure avec un retour buffer : J'ai encore le souci d'affichage arabe

Voilà le code WS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
stPROD est une structure 
   Code est une chaine ANSI
   Produit est une chaine ANSI
FIN
MaStru est un stPROD 
 
Procédure Affiche(CB est une chaine ANSI)
SI HLitRecherchePremier(Produit ,CODEBARRE,CB)
 MaStru.Code =Produit.Code
 MaStru.Code =Produit.produit
fin
 
bReponse est un buffer
Sérialise(MaStru , bReponse, psdJSON)
RENVOYER AnsiVersUnicode(bReponse,alphabetArabe )

Sur WM

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Déclaration dans la fenêtre
stPROD est une structure 
   Code est une chaine ANSI
   Produit est une chaine ANSI
FIN
MaStru est un stPROD 
 
 
ChangeAlphabet(alphabetArabe)
bufReponse est un Buffer=Affiche(SaisieScanneCB)
Désérialise(MaStru ,UnicodeVersAnsi(bufReponse,alphabetArabe),psdJSON)
Sai_AfficheArticle= UnicodeVersAnsi(MaStru.Produit,alphabetArabe)

[frenchsting]

Bonjour,

La ligne suivante me semble erronée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Désérialise(MaStru ,UnicodeVersAnsi(bufReponse,alphabetArabe),psdJSON)

J'écrirais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Désérialise(MaStru ,bufReponse,psdJSON)

[Fmfib]

Bonjour,

La ligne suivante me semble erronée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Désérialise(MaStru ,UnicodeVersAnsi(bufReponse,alphabetArabe),psdJSON)

J'écrirais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Désérialise(MaStru ,bufReponse,psdJSON)

Bonjour

Oui je l'ai remplacé par le code ci dessous mais toujours le souci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
rep=UnicodeVersAnsi(rep,alphabetArabe)
 
Désérialise(MaStru,rep,psdJSON)
 
SaisieScanneDoc1=AnsiVersUnicode(MaStru.Produit,alphabetArabe)

[frenchsting]

Question (très) bête : tu as mis des points d'arrêt dans ton code pour tracer les valeurs émises/reçues ?

[Fmfib]

Tant que j'ai encore le problème, je n'enlève pas les points d'arrêts

[frenchsting]

Donc tu peux comparer les différents éléments émis / reçus.

- le buffer json émis de ton ws
- le buffer json reçu par ton appli

Est-ce que ce sont les mêmes ?

- la valeur de MaStru (et de ses membres) avant sérialisation
- la valeur de MaStru (et de ses membres) après désérialisation

Est-ce que ce sont les mêmes ?

[Fmfib]

Sur WS au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
        Code	        est une chaîne ANSI
	Produit	est une chaîne ANSI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
             Code	        est une chaîne UNICODE
	Produit	est une chaîne UNICODE

Merci pour vous les 3 de vos aides