Forum AtoutFox : Re: Caractère spécial dans un état avec la police Courier new   

jeu. 24 avril 2025, 14h06
olivvv59
France
atoutfox.public.association

Re: Caractère spécial dans un état avec la police Courier new

Bonjour,

je te remercie pour ta réponse.

Je vais essayé de m'exprimer au mieux car je ne maitrise pas tout.
En fait, l'état est crée à partir d'un code en PRG .

Voici des exemples

SPL_W(10,01,"ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄ¿")
       SPL_W(11,01,"³ Client ³ Nom du Client ³ Analyses Demand‚es ³ Courrier ³ Fax ³ Total ³")
       SPL_W(12,01,"ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄ´")


ou les "a bizzares" affichent des lignes horizontales ..


La fonction appelée

*-----------------------------------------------------------
*     SPL_W()  FONCTION ECRITURE DU SPOOL
*              SPL_W(_lig,_col,_txt)
*              _lig :Nø DE LIGNE
*              _col :Nø DE COLONNE
*              _txt :TEXTE A ECRIRE
*              SI _lig=0 ---> SAUT DE PAGE
*-----------------------------------------------------------
FUNCTION SPL_W(_lig,_col,_txt)
_zone=SELECT()
SELECT _SPLF
GOTO BOTTOM
IF _lig=0
   APPEND BLANK
   REPLACE NULIG WITH 0 ,;
           TEXTE WITH CHR(12)
   SELECT(_zone)
   RETURN .T.
ENDIF
_maxlig=NULIG
DO WHILE _maxlig < _lig
  _maxlig=_maxlig+1
  APPEND BLANK
  REPLACE NULIG WITH _maxlig
ENDDO
DO WHILE _maxlig > _lig
   _maxlig=_maxlig-1
   SKIP -1
ENDDO
IF NULIG=_lig
   REPLACE NULIG WITH _maxlig,TEXTE with STUFF(TEXTE,_col,LEN(_txt),_txt)
ENDIF
SELECT(_zone)
RETURN .T.


*-------------------------------------------------------------
*     SPL_L()  FONCTION  LECTURE DU SPOOL
*              SPL_L(_fic,_titre)
*              _fic   :NOM DU FICHIER
*              -titre :TITRE DE l'EDITION
*              _initd :CHAINE DEBUT INIT IMPRIMANTE
*              _initf :CHAINE FIN   INIT IMPRIMANTE
*-------------------------------------------------------------
FUNCTION SPL_L
PARAMETER _fic,_titre,_initd,_initf , _TITREPDF
LOCAL _AncFen
LOCAL liHWnd
LOCAL Zone
PRIVATE tabImpression
DIMENSION tabImpression(4)

RECUP_CARTOUCHE(_titre,@tabImpression)

Zone = SELECT()
_fic=SPL_FIC(_fic)


IF SELECT('_SPLF')=0
   SELECT 0
   USE &_fic   ALIAS _SPLF
ELSE
   SELECT _SPLF
ENDIF




*-------------------------------------------------------------
*    SPL_FIC()  FONCTION Interne FMT  FICHIER
*-------------------------------------------------------------
FUNCTION SPL_FIC
PARAMETER _fispl
RETURN ALLTRIM(_fispl)+"._SP"





Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020268