Commentaires de ACLOB

Version imprimable

03/10/2014, 09h41
rvduclos

Commentaires de ACLOB

Bonjour,

Est-ce que quelqu'un a de l'expérience sur ces fameux commentaires que l'on peut mettre presque partout dans X3 (l'icône avec un point interrogation) ?

Pour plus de visibilité, les utilisateurs voulaient le voir directement sur un écran. Je pensais bêtement mettre ce champ ACLOB dans un champ typé ACB, mais non ! J'ai dû manquer une subtilité avec ces CLOB surtout s'ils sont en texte enrichi RTF plutôt que texte brut...

D'ailleurs, savez-vous s'il y a la possibilité de forcer en texte brut, ce serait plus simple pour des requêtes avec ce champ ?

Merci de vos aides ?

Hervé
03/10/2014, 20h08
Boyan Nikolov

Bonjour,

Dans un champ avec objet graphique "Texte multilignes" on peut forcer texte brut en entrant le champ qui dit "Texte multilignes" (colonne "Objet graphique") en GESAMK, puis clic droit, puis "Paramètres", et dans "Type de texte" - "Texte brut (txt)".

Bonjour,

Merci de votre commentaire. J'ai déjà exploré cette possibilité sur l'écran de saisie des commentaires AOBJCOM, mais le soucis c'est qu'une fois forcé en texte brut, ils ne peuvent plus revenir en texte enrichi. Et donc les textes déjà saisis en texte enrichi deviennent illisibles.
En fait, je me suis mal exprimé, ce que j'aimerai c'est que cela soit par défaut en texte brut pour les nouveaux commentaires, et qu'ils aient toujours la possibilité de le mettre en texte enrichi si nécessaire.
Avez-vous une idée de comment le mettre par défaut ?

Pour le souci de mettre les commentaires dans un écran, il suffit bien de mettre un champ typé ACB. Il n'a pas besoin de savoir si type=TXT ou RTF. Dans l'étiquette LIENS.
Code:

1 2 3 4 5 6 7 8 9 10 $LIENS If clalev([F:ZACB])=0 : Local File ACLOB [ZACB] : Endif Read [ZACB]ACB0="CO_SOH";[M:SOH0]SOHNUM;"";"1" If fstat=0 Then [M:ZPC]TEXTE=[F:ZACB]CLOB Else Raz [M:ZPC]TEXTE Endif Affzo [M:ZPC]TEXTE Return

06/10/2014, 19h47
Boyan Nikolov

Bonjour,

Dans ce cas - pas d'idée... Je crois que cela est géré en interne par le runtime. Peut-être que quelqu'un d'autre en sait plus?
10/10/2014, 01h19
matica

Bonjour,

j'ai développé un fonction que convert un variable Clob avec text RTF, en plain text:
https://matteo72.wordpress.com/2014/...to-plain-text/

Cette fonction supprime tous les caractères de formatage rtf

Vous pourriez mettre à l'écran un champ de texte multi-ligne et le remplir avec le texte rtf converti par la fonction, mais, honnêtement, je n'ai pas compris si c'est ce que vous cherchez

Matteo
10/10/2014, 08h14
rvduclos

1 pièce(s) jointe(s)

Bonjour et merci pour vos réponses,

mais pour répondre à Matteo, j'aimerai juste mettre par défaut en texte brut les nouveaux commentaires :
Pièce jointe 158421

Bonjour rvduclos,

puor mettre à 'Text brut' par defout la chap commentair to peut écrire le traitement specifique XWGOBJTXT

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#
# 10/10/2014 - Matteo Carminati
#
#   SPE:  XWGOBJTXT of Box dialog 'Commantaire'
#
 
$ACTION
    Case ACTION
        When "DEBUT" : Gosub DEBUT
    Endcase
Return
 
 
$DEBUT
    Gosub ACTION From GOBJTXT
    GPE = 1
 
    #By writing something in COMMENT field atomatically it set the property text to Text Plain
    If vireblc([M]COMMENT,2) = "" Then
        [M]COMMENT = " "
    Endif
Return

Je l'ai testée avec la V6

Matteo

15/10/2014, 14h15
hado34

Stockage

Les commentaires sont stockes dans une table a part, et il faut recuperer la cle primaire au niveau de la table entete ou ligne de la transaction
16/10/2014, 09h12
rvduclos
Bonjour,
- merci HADO34 de votre participation,
  mais je ne pense pas qu'elle réponde au fil de cette discussion !
- merci Matteo pour ce traitement,
  mais j'ai un peu de mal à comprendre le fait de mettre un espace dans COMMENT va me mettre par défaut ce commentaire en "texte brut" ??
  De plus, sur l'action SAIGOBJCOM mon traitement spécifique XWAOBJTXT n'est jamais atteint dans l'étiquette ACTION ou ACT, c'est très étrange !
  Et c'est de même, sur le traitement spé SPEOBJTXT de l'écran AOBJCOM !!
  Dans une action de type "Saisie fenêtre" on devrait avoir les étiquettes :
  
  OUVRE
  OUVRE_BOITE
  TITRE
  DEBUT
  SETBOUT
  AV_CHOIX
  AP_CHOIX
  END
  FIN
  FINSAI
- Suite à votre remarque, j'avais une piste sur l'action DEBUT de créer un commentaire avec un espace et en forçant TYPDOC='TXT'. J'ai réalisé cet insert en SQL et j'avais bien mon commentaire en "texte brut". Mais avec le problème ci-dessus, on ne peut pas interagir dans l'étiquette DEBUT ! Galère pour une fois que j'avais une piste sérieuse...
05/11/2014, 16h07
matica
Citation:
Envoyé par rvduclos

Bonjour,

merci HADO34 de votre participation,
mais je ne pense pas qu'elle réponde au fil de cette discussion !

merci Matteo pour ce traitement,
mais j'ai un peu de mal à comprendre le fait de mettre un espace dans COMMENT va me mettre par défaut ce commentaire en "texte brut" ??
De plus, sur l'action SAIGOBJCOM mon traitement spécifique XWAOBJTXT n'est jamais atteint dans l'étiquette ACTION ou ACT, c'est très étrange !
Et c'est de même, sur le traitement spé SPEOBJTXT de l'écran AOBJCOM !!
Dans une action de type "Saisie fenêtre" on devrait avoir les étiquettes :

OUVRE
OUVRE_BOITE
TITRE
DEBUT
SETBOUT
AV_CHOIX
AP_CHOIX
END
FIN
FINSAI

Suite à votre remarque, j'avais une piste sur l'action DEBUT de créer un commentaire avec un espace et en forçant TYPDOC='TXT'. J'ai réalisé cet insert en SQL et j'avais bien mon commentaire en "texte brut". Mais avec le problème ci-dessus, on ne peut pas interagir dans l'étiquette DEBUT ! Galère pour une fois que j'avais une piste sérieuse...
Le nom de le traitement specifique qui est executée quand vous click le bouton commentaire, il n'est pas XWAOBJTXT mais il est XWGOBJTXT

a tu essayez de renommez le traitement avec le nom XWGOBJTXT ?

Matteo

Bonjour,

super Matteo, j'ai passé à côté de cette éventualité. Mais ce qui est étrange, j'ai mis comme traitement ZCOMTXT et cela fonctionne. Ensuite je suis revenu au standard avec XWAOBJTXT et cela fonctionne aussi ! Un mystère... Par contre, si je fais un patch sans mettre XWGOBJTXT, cela ne fonctionne plus. C'est une histoire d'archive, j'imagine mais je ne comprends pas.

Dans tous les cas, j'ai donc pu réaliser un traitement d'initialisation pour forcer un commentaire avec un espace en "TXT" et cela fonctionne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 $ACTION Case ACTION When "OUVRE_BOITE" : Gosub OUVRE_BOITE When "AVANT_OK" : Gosub AVANT_OK Endcase Return ############################ $OUVRE_BOITE If PARAM(1)<>"" and PARAM(2)<>"" Then Read [F:ACB]ACB0="CO_"+PARAM(1);PARAM(2);"";"1" If fstat<>0 Then Trbegin [ACB] [F:ACB]CLOB=" " [F:ACB]CODBLB="CO_"+PARAM(1) [F:ACB]CREDAT=date$ [F:ACB]CRETIM=0 [F:ACB]CREUSR=GUSER [F:ACB]IDENT1=PARAM(2) [F:ACB]IDENT2="" [F:ACB]IDENT3="1" [F:ACB]NAMBLB="CO_"+PARAM(1)-PARAM(2) [F:ACB]TYPDOC="TXT" Write [ACB] If fstat<>0 Then Rollback Else Commit Read [F:ACB]ACB0="CO_"+PARAM(1);PARAM(2);"";"1" Endif Endif Endif Return ############################ $AVANT_OK If [M:ABC]COMMENT =" " Then Raz [M:ABC]COMMENT Endif Return
J'ai ajouté un étiquette AVANT_OK, ainsi si rien n'a été saisie le commentaire est effacé par le standard.

Pour moi, cette discussion est résolue.
Merci de votre collaboration.
Hervé

16/09/2020, 20h04
ConsultanteX3

Bonjour,
Aprés tant d'années sur ce post ...
J'arrive pas à ouvrir le lien poour avoir accès à la fonction qui permet de convertir RTF to TEXT.J'espère que vous me l'envoyer ou que vous la postiez sur ce post.
merci d'avance.
17/09/2020, 09h46
PrinceCorwin

Bonjour,

Une réponse à été fournie dans cette discussion : ...portail-sage-x3-v11-affichage-contenu-d-clob-portail/#6
Avec un code source que j'utilise et qui fonctionne très bien. Merci à l'auteur Matteo.
En espérant que cela puisse vous aider.

Bonne continuation.
16/02/2023, 13h34
piliboun

SAIGOBJCOM - XWAOBJTXT sans exécution
Bonjour,

Comme vous, je suis confronté à la non exécution du script XWAOBJTXT dans l'action SAIGOBJCOM (comme quoi les vieux problèmes ressurgissent toujours !!!). Mais, dans mon cas, le fait de changer le nom du script ne fonctionne pas. Le système n'entre pas dans le traitement en debug.

A tout hasard, auriez vous trouvé la cause de ce problème qui semble récurent ?

Merci beaucoup de votre aide dans tous les cas.
Citation:
Envoyé par rvduclos

Bonjour,

merci HADO34 de votre participation,
mais je ne pense pas qu'elle réponde au fil de cette discussion !

merci Matteo pour ce traitement,
mais j'ai un peu de mal à comprendre le fait de mettre un espace dans COMMENT va me mettre par défaut ce commentaire en "texte brut" ??
De plus, sur l'action SAIGOBJCOM mon traitement spécifique XWAOBJTXT n'est jamais atteint dans l'étiquette ACTION ou ACT, c'est très étrange !
Et c'est de même, sur le traitement spé SPEOBJTXT de l'écran AOBJCOM !!
Dans une action de type "Saisie fenêtre" on devrait avoir les étiquettes :

OUVRE
OUVRE_BOITE
TITRE
DEBUT
SETBOUT
AV_CHOIX
AP_CHOIX
END
FIN
FINSAI

Suite à votre remarque, j'avais une piste sur l'action DEBUT de créer un commentaire avec un espace et en forçant TYPDOC='TXT'. J'ai réalisé cet insert en SQL et j'avais bien mon commentaire en "texte brut". Mais avec le problème ci-dessus, on ne peut pas interagir dans l'étiquette DEBUT ! Galère pour une fois que j'avais une piste sérieuse...
16/02/2023, 17h14
piliboun

Citation:

Envoyé par piliboun

Bonjour,

Comme vous, je suis confronté à la non exécution du script XWAOBJTXT dans l'action SAIGOBJCOM (comme quoi les vieux problèmes ressurgissent toujours !!!). Mais, dans mon cas, le fait de changer le nom du script ne fonctionne pas. Le système n'entre pas dans le traitement en debug.

A tout hasard, auriez vous trouvé la cause de ce problème qui semble récurent ?

Merci beaucoup de votre aide dans tous les cas.

Mea Culpa. La solution était indiquée dans la discussion. Le script à utiliser est le XWGOBJTXT, pas le XWAOBJTXT