*PARAMETRES*
*CDDs pour Dclaration handicaps.*
*Entit juridique|3N|TXT|O*
*Dbut de la slection des contrats|10X|DTE|O*
*Fin de la slection des contrats|10X|DTE|O*
*Priode de paie minimum(AAAAMM)|6N|TXT|O*
*Priode de paie maximum(AAAAMM)|6N|TXT|O*
*FIN PARAMETRES*

SUBROUTINE CDDHANDICAP(RETURNVAL,PARAMETRES,W_Sortie)
W_Sortie = "Une erreur est survenue lors de l'excution du programme. Contactez Infologis."
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

W_CodeAsso = PARAMETRES<1>
W_DatDeb = ICONV(PARAMETRES<2>,"D4/")
W_DatFin = ICONV(PARAMETRES<3>,"D4/")
W_PerDeb = PARAMETRES<4>
W_PerFin = PARAMETRES<5>

EXECUTE 'COMO ON CDD_Liste_Handicap.txt'
EXECUTE 'LISTER DETAILCALCUL AVEC CodAssoContratDetailCalcul = "':W_CodeAsso:'" AND AVEC PeriodeDetailCalcul >= "':W_PerDeb:'" AND AVEC PeriodeDetailCalcul <= "':W_PerFin:'" AND AVEC ConvColContratDetailCalcul = "01" OR = "05" AND AVEC  TypeContrat = "D" AND AVEC DatDebContratDetailCalcul <= "':W_DatFin:'" AND AVEC DatFinContratDetailCalcul >= "':W_DatDeb:'" OR = "" PAR LibSectAidant PAR NomPrenomAidantDetailCalcul PAR CodeContrat RUPTURE CodeContrat NomPrenomAidantDetailCalcul DateDebutClair DateFinClair TOTAL BaseBrutAcqCal MotifEmbContrat AidantsRempl CodeAidantRemplDetailCalcul MotifEmbaucheDetailCalcul SUPP-DET SUPP-ID SUPP-ENT'
EXECUTE 'COMO OFF'

W_Sortie = 'Le fichier "O_CDD_Liste_Handicap.txt" a t gnr dans le rpertoire "_PH_" de la base de donnes.'

RETURN