Imprimer un document Write Pro avec les références

La commande WR PRINT de 4D Write permettait d’imprimer au choix les valeurs ou les références. Pas d’option comparable dans la commande WP PRINT de Write Pro, c’est toujours les valeurs. C’est définitivement pas possible ? C’est dans les tuyaux à un moment donné ? On m’a donné un contournement en passant par l’affichage d’un dialogue furtif mais je trouve pas cette solution très satisfaisante. D’autres idées ?

Merci

Bonjour Éric…

Aujourd’hui, je ne vois que des contournements, mais qui impliquent un peu de programmation…

1° ) La commande WP GET TEXT qui renvoie du texte “brut” permet de renvoyer les expressions sous trois formes :

  • source : [customer]lastname + " "+ [customer]firstname
  • évaluées : Doe John
  • un espace " "

Suivi d’un WP SET TEXT, mais on perd le style etc.

2°) Utiliser les commandes ST qui renvoient les expressions et faire le remplacement à la main dans un doc temporaire…

<code 4D>
WParea2:=OB Copy(WParea)
// ou si 17R5 WParea2:=WP New(WParea)

$rawText:=WP Get text(WParea2;wk expressions as space)

$n:=Length($rawText)
For ($i;$n;1;-1)

$expression:=ST Get expression(WParea2;$i;$i+1)
If ($expression#"")
	ST SET TEXT(WParea2;$expression;$i;$i+1)
End if 

End for

</code 4D>

// EDIT

Si il y a des header et footer il faut ajouter du code aussi…voila un exemple tout chaud pour le header de la section 1
(boucler dans les sections si il y en a plusieurs…)

<code 4D>
$head1:=WP Get header(WParea;1) // header de la section 1 du document 1

$headerDoc:=WP New($head1)
$rawText:=WP Get text($headerDoc;wk expressions as space)

$n:=Length($rawText)
For ($i;$n;1;-1)
$expression:=ST Get expression($headerDoc;$i;$i+1)
If ($expression#"")
ST SET TEXT($headerDoc;$expression;$i;$i+1)
End if
End for

$head2:=WP Get header(WParea2;1) // header de la section 1 du document 2

// V17
$range:=WP Create range($head2;wk start text;wk end text)
WP INSERT DOCUMENT($range;$headerDoc;wk replace)

// V17R5
WP INSERT DOCUMENT($head2;$headerDoc;wk replace)

</code 4D>

Juste pour info, on est en train de travailler sur les expressions, donc ça sera (bien) plus simple dans le futur !

Roland Lannuzel

Bonjour Roland,

Merci pour ces contournements, le 2 notamment me semble bien convenir.

: Roland LANNUZEL

Juste pour info, on est en train de travailler sur les expressions,
donc ça sera (bien) plus simple dans le futur !

:slightly_smiling_face: Bonne nouvelle !!

Bonne journée

Bonjour à tous,

Je relance la demande…
Est-ce possible simplement en 4D Write Pro 17.4 ?

Bonjour
Je n’avais pas vu la “relance”, désolé.
Oui, c’est possible, mais en utilisant la commande “ST Get expression” et “WP Set text” pour les insérer sous forme de texte brut…

Merci Roland.