* RECHERCHE DES DETAILCALCUL SUR 1 MOIS AVEC BASE URSSAF TOT # BASE URSSAF PLAF - MANDATAIRE
EXECUTE 'COMO ON DETAILURSSAFM'
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
BASERUB043=0
BASERUB039=0
BASERUB044=0
BASERUB040=0
BASERUB049=0
BASERUB047=0
BASERUB050=0
BASERUB048=0
PRESENCERUB043="NON"
PRESENCERUB039="NON"
PRESENCERUB044="NON"
PRESENCERUB040="NON"
PRESENCERUB049="NON"
PRESENCERUB047="NON"
PRESENCERUB050="NON"
PRESENCERUB048="NON"
I=1
LOOP
 CODERUBCHG=EXTRACT(ENR,8,I)
 UNTIL CODERUBCHG="" DO
  IF CODERUBCHG="043" THEN
   BASERUB043=EXTRACT(ENR,9,I)
   PRESENCERUB043="OUI"
  END
  IF CODERUBCHG="039" THEN
   BASERUB039=EXTRACT(ENR,9,I)
   PRESENCERUB039="OUI"
  END
  IF CODERUBCHG="044" THEN
   BASERUB044=EXTRACT(ENR,9,I)
   PRESENCERUB044="OUI"
  END
  IF CODERUBCHG="040" THEN
   BASERUB040=EXTRACT(ENR,9,I)
   PRESENCERUB040="OUI"
  END
  IF CODERUBCHG="049" THEN
   BASERUB049=EXTRACT(ENR,9,I)
   PRESENCERUB049="OUI"
  END
  IF CODERUBCHG="047" THEN
   BASERUB047=EXTRACT(ENR,9,I)
   PRESENCERUB047="OUI"
  END
  IF CODERUBCHG="050" THEN
   BASERUB050=EXTRACT(ENR,9,I)
   PRESENCERUB050="OUI"
  END
  IF CODERUBCHG="048" THEN
   BASERUB048=EXTRACT(ENR,9,I)
   PRESENCERUB048="OUI"
  END
  I=I+1
REPEAT
IF PRESENCERUB043="OUI" AND PRESENCERUB039="OUI" THEN
 IF BASERUB043#BASERUB039 THEN
  WBASERUB043=BASERUB043 "R26(#8)"
  WBASERUB039=BASERUB039 "R26(#8)"
  PRINT CLE:"   BASE: GAD TOT.EXO ":WBASERUB043:" / GAD PLAF.EXO ":WBASERUB039
 END
END
IF PRESENCERUB044="OUI" AND PRESENCERUB040="OUI" THEN
 IF BASERUB044#BASERUB040 THEN
  WBASERUB044=BASERUB044 "R26(#8)"
  WBASERUB040=BASERUB040 "R26(#8)"
  PRINT CLE:"   BASE: GAD TOT.NON EXO ":WBASERUB044:" / GAD PLAF.NON EXO ":WBASERUB040
 END
END
IF PRESENCERUB049="OUI" AND PRESENCERUB047="OUI" THEN
 IF BASERUB049#BASERUB047 THEN
  WBASERUB049=BASERUB049 "R26(#8)"
  WBASERUB047=BASERUB047 "R26(#8)"
  PRINT CLE:"   BASE: TOT 65 X SMIC ":WBASERUB049:" / PLAF 65 X SMIC ":WBASERUB047
 END
END
IF PRESENCERUB050="OUI" AND PRESENCERUB048="OUI" THEN
 IF BASERUB050#BASERUB048 THEN
  WBASERUB050=BASERUB050 "R26(#8)"
  WBASERUB048=BASERUB048 "R26(#8)"
  PRINT CLE:"   BASE: TOT > 65 X SMIC ":WBASERUB050:" / PLAF > 65 X SMIC ":WBASERUB048
 END
END
GOTO 10 

