*****************************************************************
* Compare les bases des rubriques de charges 035 et 037 sur les *
* bulletins de juin 2001, liste les diffrences                 *
*****************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP

PRINT "Veuillez saisir le mois (AAAAMM)"
INPUT W_MoisDeb

PRINT "Veuillez indiquer l'entit juridique concerne"
INPUT W_CodeEntite

PRINT "Veuillez indiquer la convention collective concerne"
INPUT W_ConventionCol

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_MoisDeb:'" AND AVEC ConvColContratDetailCalcul = "':W_ConventionCol:'" AND AVEC CodAssoContratDetailCalcul = "':W_CodeEntite:'" PAR @ID' 

W_Fin = "F"
	
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin ="F"

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle ELSE ENR_DETAILCALCUL = ""
        BRUT=ENR_DETAILCALCUL<7>
	CHARGE=0
	W_Count = DCOUNT(ENR_DETAILCALCUL<8>, CHAR(253))
	FOR i = 1 TO W_Count
           CHARGE=CHARGE+ENR_DETAILCALCUL<11,i>
        NEXT i
        NET=ENR_DETAILCALCUL<16>
        IF BRUT+CHARGE#NET THEN PRINT W_Cle:" ":BRUT:" ":CHARGE:" ":NET
REPEAT
STOP
