
FUNCTION FC41 : VOID
VAR_TEMP
    i,j: INT;
    k: INT;
END_VAR

    FOR i:=0 TO 5 DO
        k:=0;
        FOR j:=1 TO 9 DO
            IF "GestionChariotDB".chariot[j,0] = i THEN
                k:= k+1;
            END_IF;
        END_FOR;
        "GestionChariotDB".nbChariotSection[i]:= k;
    END_FOR;
            
END_FUNCTION
