EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE RETURN
W_RequeteDet = ""
W_RESULTAT = ""
W_Fin = "FAUX"
W_RequeteDet ='SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul="02" AND AVEC 0="[201308]" AND AVEC 8="039" '

EXECUTE W_RequeteDet
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   
  SELECT F.DETAILCALCUL TO W_RESULTAT
  W_Fin = "FAUX"
  LOOP
    READNEXT W_Cle FROM W_RESULTAT ELSE W_Fin = "VRAI"
  WHILE W_Fin = "FAUX" DO
  
    READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle ELSE ENR_DETAILCALCUL= ""
	
	W_Base39=0
	W_Base43=0
	
	FOR I =1 TO DCOUNT(ENR_DETAILCALCUL<8>,CHAR(253))
		IF ENR_DETAILCALCUL<8,I>="039" THEN
			W_Base39=ENR_DETAILCALCUL<9,I>
		END
		
		IF ENR_DETAILCALCUL<8,I>="043" THEN
			W_Base43=ENR_DETAILCALCUL<9,I>
		END
		
	NEXT I
	
	IF W_Base39 > W_Base43 THEN
		PRINT W_Cle
	END

  REPEAT
END
STOP