*PARAMETRES*
*Mise à jour RIB paie soignant/autre*
*Association (ex : 001) |3N|TXT|O*
*Activité (ex : 001) |3N|TXT|O*
*M.A.J (S pour soignants / A pour autres)|1X|TXT|O*
*FIN PARAMETRES*

SUBROUTINE XCHANGERIBSOIGNANT(RETURNVAL,PARAMETRES,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

*--il permet de mettre à jour le rib dans une activité précise
*-- Pour tours ASMAD car ils ont des comptes specifque pour les salariés "soignant" 

*** Ouverture des fichiers
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE W_Sortie="Erreur ouverture ACTIVITES";RETURN


*** Récupération des paramètres
W_Association = PARAMETRES<1>
W_Activite = PARAMETRES<2>
W_Type = PARAMETRES<3>

W_Type=ICONV(W_Type,"MCU")


IF W_Type#"S" AND W_Type#"A" THEN
W_Infos = "Type différent de S ou A"
W_Sortie=W_Infos	
RETURN
END
IF W_Type="S" THEN
	IBAN="FR7642559000264102000188877"
	BIC="CCOPFRPPXXX"
	Codebanque="42559"
	Codeguichet="00026"
	NumCompte="41020001888"
	NumCle="77"
END ELSE
	IBAN=""
	BIC=""
	Codebanque=""
	Codeguichet=""
	NumCompte=""
	NumCle=""
END


READ ENR_ACTIVITES FROM F.ACTIVITES,W_Association:W_Activite THEN
	ENR_ACTIVITES<3>=IBAN
	ENR_ACTIVITES<4>=BIC
	ENR_ACTIVITES<5>=Codebanque
	ENR_ACTIVITES<6>=Codeguichet
	ENR_ACTIVITES<7>=NumCompte
	ENR_ACTIVITES<8>=NumCle

	WRITE ENR_ACTIVITES ON F.ACTIVITES,W_Association:W_Activite
	W_Infos = "Mise à jour effectuée"

END	ELSE
	W_Infos = " Impossible de lire l activité"
END	
W_Sortie=W_Infos	
RETURN
