******************************************************************************
* Programme qui permet d'associ un responsable  un secteur
* Slection des civilaids du secteur saisi et mise a jour du code responsable
* christophe MOULIN le 05/03/2003
****************************************************************************** 

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP

PRINT "Code Secteur (3N) : ":
INPUT W_CodSect

PRINT "Code Responsable Associ (3N) : ":
INPUT W_CodResp

W_RequeteMoul=""

EXECUTE 'SELECT CIVILAIDE AVEC 40 ="':W_CodSect:']"'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.CIVILAIDE TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE STOP
      ENR_CIVILAIDE<39>=W_CodResp
      WRITE ENR_CIVILAIDE ON F.CIVILAIDE,W_Cle
   REPEAT

END

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
