PRINT "Date de debut (JJ/MM/AAAA) ?"
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
INPUT W_DateDebPeriode
W_DateDebPeriode=ICONV(W_DateDebPeriode,"D4/")
IF W_DateDebPeriode="" THEN STOP

PRINT "Date de fin (JJ/MM/AAAA) ?"
INPUT W_DateFinPeriode
W_DateFinPeriode=ICONV(W_DateFinPeriode,"D4/")
IF W_DateFinPeriode="" THEN STOP

W_Params=""
W_Params<1>=W_DateDebPeriode
W_Params<2>=W_DateFinPeriode
W_Params<3>="PICK"
CALL CHEVAUCHEMENTSDOMITIME(RETURNVAL,W_Params,W_TabRetour)

STOP
