**********************************************************
*  envoi et test du SETPTR selon l'imprimante recupre dans
*  le programme VB
*  Vanessa
*  octobre 2002
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "OUVERTURE TEMPO" ;* en lecture

*********************************************************
* initialisation des variables
ENR_TEMPO=""
*********************************************************
* Recuperation des arguments
PROCREAD ARGUMENTS ELSE STOP
W_User=FIELD(ARGUMENTS," ",2)
W_CheminImprimante=FIELD(ARGUMENTS," ",3)
*********************************************************
* PROGRAMME PRINCIPAL

   EXECUTE 'SETPTR 0,,,,,1,"MODE=RAW",DEST ':W_CheminImprimante:',NOHEAD,NOFMT,NOEJECT,COPIES 1,BRIEF' CAPTURING MSGCODE

   IF INDEX(MSGCODE,"SETPTR failed",1) # 0 THEN
      ENR_TEMPO<1>="IMPRIMANTE NON TROUVEE"
   END ELSE
      ENR_TEMPO<1>="IMPRIMANTE OK"
   END

   WRITE ENR_TEMPO ON F.TEMPO,"RETOURIMPRIMANTE":W_User

STOP
