OPEN "","ECARTDADS" TO F.ECARTDADS ELSE STOP
OPEN "","DADS-U" TO F.DADSU ELSE STOP
READ ENR FROM F.DADSU,"0012011.TXT" ELSE STOP
I=1
CODEAIDANT=""
LOOP
   LIGNE=ENR<I>
UNTIL LIGNE="" DO
   IF LIGNE[1,14]="S30.G01.00.019" THEN
      IF CODEAIDANT#"" THEN
*         PRINT "AIDANT ":CODEAIDANT
         URSSAFPLAF=INT(URSSAFPLAF/100+1/2)
         READ ENRECARTDADS FROM F.ECARTDADS,CODEAIDANT THEN
            IF ENRECARTDADS<1>#URSSAFPLAF+URSSAFCASPART THEN
               IF (ENRECARTDADS<1>-URSSAFPLAF-URSSAFCASPART)>1 OR (ENRECARTDADS<1>-URSSAFPLAF-URSSAFCASPART)<-1 THEN
                  PRINT "AIDANT ":CODEAIDANT:" ":ENRECARTDADS<1>:" ":URSSAFPLAF+URSSAFCASPART
               END
            END
            ENRECARTDADS<2>=URSSAFPLAF+URSSAFCASPART
            WRITE ENRECARTDADS ON F.ECARTDADS,CODEAIDANT
         END ELSE
            PRINT "AIDANT NON TROUVE ":CODEAIDANT
         END
      END
      CODEAIDANT=LIGNE[17,5]
      URSSAFPLAF=0
      URSSAFCASPART=0
   END
   IF LIGNE[1,18]="S40.G28.05.030.001" THEN
      URSSAFPLAFDETAIL=LIGNE[21,10]
      LONG=LEN(URSSAFPLAFDETAIL)
      URSSAFPLAFDETAIL=URSSAFPLAFDETAIL[1,LONG-1]
      LONG=LEN(URSSAFPLAFDETAIL)
      URSSAFPLAFDETAIL=URSSAFPLAFDETAIL[1,LONG-3]:URSSAFPLAFDETAIL[LONG-1,2]
      URSSAFPLAF=URSSAFPLAF+URSSAFPLAFDETAIL
   END
*   IF LIGNE[1,18]="S40.G30.06.003.001" THEN
*      URSSAFCASPART=LIGNE[21,10]
*      LONG=LEN(URSSAFCASPART)
*      URSSAFCASPART=URSSAFCASPART[1,LONG-1]
*   END
   I=I+1
REPEAT
PRINT "FIN ":CODEAIDANT
READ ENRECARTDADS FROM F.ECARTDADS,CODEAIDANT THEN
   IF ENRECARTDADS<1>#URSSAFPLAF+URSSAFCASPART THEN
      PRINT "AIDANT ":CODEAIDANT:" ":ENRECARTDADS<1>:" ":URSSAFPLAF+URSSAFCASPART
   END
END ELSE
   PRINT "AIDANT NON TROUVE ":CODEAIDANT
END
STOP
