* RECHERCHE DES DETAILCALCUL SUR 1 MOIS AVEC BASE URSSAF TOT # BASE URSSAF PLAF - PRESTATAIRE
EXECUTE 'COMO ON DETAILURSSAFP'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
PRINT "ANNEE ET MOIS REFERENCE (6N) : ":
INPUT ANMOISREF
EXECUTE 'SELECT DETAILCALCUL AVEC @ID = "[':ANMOISREF:'" AND AVEC ConvColContratDetailCalcul # "02"' 
10 READNEXT CLE ELSE
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR FROM F.DETAILCALCUL,CLE ELSE GOTO 10
BASERUB035=0
BASERUB037=0
BASERUB038=0
BASERUB036=0
BASERUB001=0
BASERUB002=0
PRESENCERUB035="NON"
PRESENCERUB037="NON"
PRESENCERUB038="NON"
PRESENCERUB036="NON"
PRESENCERUB001="NON"
PRESENCERUB002="NON"
I=1
LOOP
 CODERUBCHG=EXTRACT(ENR,8,I)
 UNTIL CODERUBCHG="" DO
  IF CODERUBCHG="035" THEN
   BASERUB035=EXTRACT(ENR,9,I)
   PRESENCERUB035="OUI"
  END
  IF CODERUBCHG="037" THEN
   BASERUB037=EXTRACT(ENR,9,I)
   PRESENCERUB037="OUI"
  END
  IF CODERUBCHG="038" THEN
   BASERUB038=EXTRACT(ENR,9,I)
   PRESENCERUB038="OUI"
  END
  IF CODERUBCHG="036" THEN
   BASERUB036=EXTRACT(ENR,9,I)
   PRESENCERUB036="OUI"
  END
  IF CODERUBCHG="002" THEN
   BASERUB002=EXTRACT(ENR,9,I)
   PRESENCERUB002="OUI"
  END
  IF CODERUBCHG="001" THEN
   BASERUB001=EXTRACT(ENR,9,I)
   PRESENCERUB001="OUI"
  END
  I=I+1
REPEAT
IF PRESENCERUB035="OUI" AND PRESENCERUB037="OUI" THEN
 IF BASERUB035#BASERUB037 THEN
  WBASERUB035=BASERUB035 "R26(#8)"
  WBASERUB037=BASERUB037 "R26(#8)"
  PRINT CLE:"   BASE: AAD TOT.EXO ":WBASERUB035:" / AAD PLAF.EXO ":WBASERUB037
 END
END
IF PRESENCERUB038="OUI" AND PRESENCERUB036="OUI" THEN
 IF BASERUB038#BASERUB036 THEN
  WBASERUB038=BASERUB038 "R26(#8)"
  WBASERUB036=BASERUB036 "R26(#8)"
  PRINT CLE:"   BASE: AAD TOT.NON EXO ":WBASERUB038:" / AAD PLAF.NON EXO ":WBASERUB036
 END
END
IF PRESENCERUB001="OUI" AND PRESENCERUB002="OUI" THEN
 IF BASERUB001#BASERUB002 THEN
  WBASERUB001=BASERUB001 "R26(#8)"
  WBASERUB002=BASERUB002 "R26(#8)"
  PRINT CLE:"   BASE: GEN TOT. ":WBASERUB001:" / GEN PLAF. ":WBASERUB002
 END
END
GOTO 10 

