* LISTE LES AIDANTS MANDATAIRES SUR LE SECTEUR DE CHTX (ASMAD) 
* ETLEURS AIDES

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

PRINTER ON

EXECUTE 'SELECT CONTRAT AVEC 1 ="02" AND AVEC 65 # "O" AND AVEC 8 = "" OR >= "12451" AND AVEC CodSecteurContrat = "007" PAR NomPrenomAidantContrat PAR NomAideContrat PAR PrenomAideContrat'
W_FINI="FAUX"
W_Temp=""
W_Print=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO

    READ ENR_CONTRAT FROM F.CONTRAT,W_CLE ELSE ENR_CONTRAT=""
    READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE= ""
    READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CLE[1,5] ELSE ENR_CIVILAIDANT= ""

    W_Temp=""
    W_Print=""

    W_Temp = ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
    IF LEN(W_Temp) > 40 THEN
        W_Print = W_CLE[1,5]:" ":W_Temp[1,40]:" "
    END ELSE
        W_Print = W_CLE[1,5]:" ":W_Temp:SPACE(41-LEN(W_Temp))
    END

    W_Print = W_Print:ENR_CONTRAT<3>:" "

    W_Temp=""

    W_Temp = ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
    IF LEN(W_Temp) > 40 THEN
        W_Print = W_Print:W_Temp[1,40]:" "
    END ELSE
        W_Print = W_Print:W_Temp:SPACE(41-LEN(W_Temp))
    END

    W_Temp=""

    W_Temp = ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>

    W_Print = W_Print:W_Temp
   
    PRINT W_Print

    PRINT SPACE(94):ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>

REPEAT

PRINTER OFF

STOP
